Kod: Tümünü seç
Var
GDKullaniciAdi,GDParola,GDVeritabani,GDSunucuAdi: String;
INIDosya: TIniFile;
begin
Conn.ConnectionString := ('Provider=SQLOLEDB.1;Password=753951.*/;Persist Security Info=True;User ID=sa;Initial Catalog=SenkoDB;Data Source=10.0.0.12,1433;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=EMREKILINC;Use Encryption for Data=False;Tag with column collation when possible=False')
(*
Begin
INIDosya := TIniFile.Create(eYol.Text);
GDKullaniciAdi := INIDosya.ReadString('Veritabani_Ayarlari','KullaniciAdi','');
GDParola := INIDosya.ReadString('Veritabani_Ayarlari','Parola','');
GDVeritabani := INIDosya.ReadString('Veritabani_Ayarlari','Veritabani','');
GDSunucuAdi := INIDosya.ReadString('Veritabani_Ayarlari','SunucuAdi','') ;
INIDosya.Free;
eKullaniciAdi.Text:=GDKullaniciAdi;
eParola.Text:=GDParola;
cbVeritabani.Text:=GDVeritabani;
eSunucuAdi.Text:=GDSunucuAdi;
end;
*)
qrymaster.Open;
qrydetail.Open;
end;