Tüm foruma bakındım,örnekleri inceledim.Offline forumda bile arama yaptım.Fakat derdime çare bulamadım
İzninizle hemen soruma geçiyorum.
İki formum var. Ana Form ve Giriş Formu
Anaform benim 1. formum yani Auto Create edilen forumum.
Giriş formunda;
Veritabanından kullanıcı adı ve şifreyi karşılaştırıp doğru ise ana formu açacak değilse uyarı verecek.
Fakat gariptir ki sql de sürekli bu hatayı alıyorum.Anaform kendini gizleyip , giriş forumunu açıyor kullanıcı adı şifreyi girince aşağıdaki hatayı alıyorum. (Halbuki şifre doğru olduğundan giriş formu gizlenip yeniden anaform gelmeliydi.)
Kod: Tümünü seç
EIBInterbase Error with message 'Dynamic SQL Error SQL error code = - 104
Token Unknown - line 1 , colomn 30 USER.'
User tablosu ile ilgili bir hata veriyor fakat ne olduğunu çözemedim.
Konu ile ilgili görüşlerinizi bildirmenizi rica ederim ,
Saygılar.
Ana Formun Oncreate de bu kodlar var.
Kod: Tümünü seç
procedure TFana.FormCreate(Sender: TObject);
begin
Application.CreateForm(tFgiris,Fgiris);
Fgiris.ShowModal;
Fana.hide;
Kod: Tümünü seç
procedure TFGiris.girisClick(Sender: TObject);
begin
if kuladitxt.Text <>'' then
begin
sql:='SELECT COUNT (ID) as ID from USER WHERE KULLANICI='+#39+kuladitxt.text+#39+' and SIFRE='+#39+Sifre.Text+#39;
loginq.close;
loginq.sql.clear;
loginq.sql.add(sql);
loginq.open;
i:=loginq.Fields.FieldByName('ID').AsInteger;
if i>0 then begin
fgiris.Close;
Fana.ShowModal;
end
else begin
hatalbl.Caption:='Hatalı kullanıcı adı ve/veya şifre girildi.';
data.Close;
End;
End;
end;
