Not defteri ile Data.pth isimli bir dosya oluşturun. İçine database i koyduğunu path i doğrudan yazın.. Misal c:\MyProg\Data\Data.Gdb gibi.
ve dosyayı programınızın exe dosyasınin bulunduğu klasöre kopyalayın.
Programınızı açın ve anaformun OnShow olayına aşağıdaki gibi kodlarınızı kendi table ve database isimlerinize göre değiştirerek yazın..
Kod: Tümünü seç
procedure TAnaForm.FormActivate(Sender: TObject);
var
dosya: TextFile ;
yol: string;
begin
AssignFile(dosya,'Data.PTH'); // Data.pth Dosyası Açılıyor
{$I-}
Reset(dosya);
{$I+}
if IOResult = 0 then begin
ReadLn(dosya,yol); // ilk satır okunarak yol değişkenine aktarılıyor
CloseFile(dosya);
Try
Data.IBData.DatabaseName:=yol; //Data.pth dosyasından yol değişkenine aktarılan databasein yolu IBDatabase e aktarılıyor.
Data.IBData.Connected:=True; // Database active ediliyor..
Data.IBTrans.Active:=True; //Transaction active ediliyor
Data.Kimlik.Active:=True; // Queryler active ediliyor.
Data.Bordro.Active:=True;
Data.Sabit.Active:=True;
Data.Toplam.Active:=True;
Data.Isim.Active:=True;
Data.Vasif.Active:=True;
Data.isyeri.Active:=True;
Data.Birim.Active:=True;
Data.Amir.Active:=True;
Data.AKimlik.Active:=True;
Data.ABordro.Active:=True;
Data.Sendika.Active:=True;
except
On exception do
raise;
end;
end
else begin
MessageDlg('Data.pth dosyası bulunamadı.Program kapatılacak', mtWarning, [mbOk], 0);
Data.IBData.Connected:=False;
Application.Terminate;
end;
end;Bundan sonra yapmanız gereken tek şey. Database inizi kopyaladığınız yerin adresini Data.pth dosyasına yazmak sadece... Şayet Server üzerinde yani başka bir makinadaki bir database e bağlanacaksanız bu sefer data.pth dosyasını serverdaki path i gösterecek şekilde düzenliyorsunuz..
IP ile direk bağlantı (Statik Ip kullanılıyorsa):
192.168.0.1:c:\MyProg\Data\Data.gdb gibi..
Yukardaki IP databasein bulunduğu makinanın Ip sidir..
Şayet IP Kullanılmıyorsa:
Ana_Makina_Adı:c:\MyProg\Data\Data.gdb
şeklinde data.pth dosyasını değiştirerek basit bir şekilde bağlantı kurabilirsiniz...
Sevgiler.....
