Sayfayı Yazdır | Pencereyi Kapat

BUTUN KONTROLLERE HUKMEDIN

Nereden Yazdırıldığı: Datakent
Kategori: Diğer bölümler
Forum Adı: Borland Delphi
Forum Tanımlaması: Borland Delphi ile ilgili soru / sorun / paylaşım bölümü
URL: http://forum.datakent.com/forum_posts.asp?TID=1618
Tarih: 19.Nisan.2024 Saat 14:33


Konu: BUTUN KONTROLLERE HUKMEDIN
Mesajı Yazan: turknetyazilim
Konu: BUTUN KONTROLLERE HUKMEDIN
Mesaj Tarihi: 15.Aralik.2008 Saat 15:13
Merhaba Hocam Yazımış Olduğunuz Bir Kod Parçasını Daha Buldum.
Gerçekten Çok etkili ve işe Yarıyor Bilhassa BDE Kullanarak uygulama Geliştirenlerin işine fazlasıyla yarayacak...
 
Bu Kod Ne İşe arıyor? Ben Bi açıklama Getirmek istiyorum.
Şimdi Bi Program Yazıyosunuz ve BDE Kullanıyorsunuz.Biliyorsunuz Bde e da Paradox ve DBbase VeriTabanlarında Alias işlemleri var.Ve Bu Dbase ve Paradox Tablolarına erişmek için
Aliaslar(Takma Adlar) Kullanıyor.Bu aliaslar da  Paradox veya Dbase Tablolarının Bulunduğu Klasörlerdir.
Yani Delphi Uygulaması ile Paradox Tablolarına Bağlanmak için BDE nesnelerinden Table veya da Querynin DataBaseName Yani Veritabanı Özelliğine Alis Veya da Paradox Tablolarının olduğu dizin yolu Aktrılarak Bağlanılabilir.
 
  Şimdi Hiç BDE e de Alias oluşturmadan Delphi Uygulaması içersinden Çalışma Anında Paradox Tablolarına Bağlanabileceksiniz.Paradox Tabloları Programla Aynı Dizinde Olsun
Ve istediğim Yolda Çalışşın İstiyorsanız...
 
Aşağıda da Datamodule kullanılmış.
İnşallah anlatabilmişimdir.Big smile
 
 
//MURAT TURAN

//SQL DOSYALARINA YOL ATANIYOR...
for i:=0 to Data_Mod.ComponentCount -1 do
BEgin
 if Data_Mod.Components is TQuery then
 BEGIN
  with TQuery(Data_Mod.Components) do
  begin
    Close;
    DatabaseName:=ExtractFilePath(Application.ExeName);
  end;
 END;
end;


//NORMAL CONTROLLER ICIN ComponentCount yerile ControlCount kullanın

 
 


Sayfayı Yazdır | Pencereyi Kapat