@ozcank Eline Sağlık,
Kodunda gördüğüm herhangi bir aksaklık yok, DBLookupCombobox nesnesinin dataset ve field bağlantısı yoksa bununda ilgili bir aksaklık olabilir... field bağlantısı yoksa text değerini okuyamayabilir, db nesnelerini çok kullanmadığımdan tam emin değilim...
DBLookupCombobox yerine standart Combobox kullanırsan sorun yaşamayacağını düşünüyorum...
Kod: Tümünü seç
procedure TFrm_Giris.FormShow(Sender: TObject);
var
reg : TRegIniFile;
iRegHatirla : integer;
sRegUser,
sRegPass,
sRegSirket : string;
begin
reg := TRegIniFile.Create;
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey( cRegKey, True);
iRegHatirla := reg.ReadInteger('Ayarlar','Hatirla', -1);
chkHatirla.Checked := iRegHatirla <> 0;
sRegSirket := reg.ReadString('Ayarlar','SonSirket','');
sRegUser := reg.ReadString('Ayarlar','user','');
sRegPass := reg.ReadString('Ayarlar','pass','');
reg.CloseKey;
reg.Free;
bSirketDegistir := False;
bGiris := False;
with QrySabit do
begin
listSirket.Items.Clear;
cmbSirket.Items.Clear;
SQL.Text := ' SELECT SirketAdi, SirketAck '+
' FROM Sirket ';
Open;
while not Eof do
begin
listSirket.Items.Add( FieldByName('SirketAdi').AsString );
cmbSirket.Items.Add( FieldByName('SirketAck').AsString );
Next;
end;
if sRegSirket = '' then
cmbSirket.ItemIndex := 0
else if iRegHatirla <> 0 then
cmbSirket.ItemIndex := cmbSirket.Items.IndexOf( sRegSirket );
if iRegHatirla = 0 then
begin
txtKullaniciAdi.Text := '';
txtSifre.Text := '';
end
else
begin
txtKullaniciAdi.Text := IIf( sRegUser <> '', sRegUser, '' );
txtSifre.Text := IIf( sRegPass <> '', sRegPass, '' );
end;
Free;
end;
end;
ben giriş formu OnShow olayında Şirketleri Combobox.Items kendim dolduruyorum...
Kullanıcı adı, Şifre ve seçmiş olduğu şirket bilgisini de
Kullanıcı Bilgilerini Hatırla checkbox işaretli ise Regetid'e yazıyorum... Eskiden inifile dosyasındaydı, sonradan regedit'e kaydetmeyi tercih ettim...
İyi çalışmalar dilerim