Umarım sorunuzu doğru anlamışımdır...trex994 yazdı:Merhaba Arkadaşlar
Firebird veri tabanı kullanıyorum kısaca bahsetmek gerekirse
bir login giriş sayfası yapıyorum.
ve kullanıcı adı ve şifre olayını firebird veri tabanına kaydettiriyorum fakat istediğim yeni bir kayıt
açtığım zaman vekullanıcı adını girip şifre kısmına geçtiğim zaman kullanıcı adı aynı ise beni uyarmalı ve girşime engel olmalı fakat bir türlü başaramadım.
Ayrıca Firebird veritabanını IBDataset,IBTransection.... vs. gibi bileşenlerle değil
ADO ile bağladım ODBC yardımı ile.
Kod: Tümünü seç
procedure TForm3.KayitClick(Sender: TObject);
begin
try
if length(Edit1.Text) = 0 then
begin
Edit1.SetFocus;
Application.MessageBox('Lütfen Kullanıcı Adını Giriniz!', 'Mesaj', 0)
end
else
begin
if length(Edit2.Text) = 0 then
begin
Edit2.SetFocus;
Application.MessageBox('Lütfen Şifreyi Giriniz!', 'Mesaj', 0)
end
else
begin
Close;
SQL.Clear;
SQL.Add('Select * From User Where KULLANICI=:KADI');
ParamByName('KADI').AsString := Edit1.Text;
Prepared := True;
Open;
if Not IsEmpty then
begin
Edit1.SetFocus;
Application.MessageBox('Kullanıcı Adı Sistemde Kayıtlı!', 'Mesaj', 0);
end
else
begin
Close;
SQL.Clear;
SQL.Add('Insert Into User (KULLANICI, SIFRE)');
SQL.Add(' Values (:KADI, :SIFRE)');
ParamByName('KADI').AsString := Edit1.Text;
ParamByName('SIFRE').AsString := Edit2.Text;
ExecSQL;
end;
end;
end;
except
end;
end;
