چک کردن username و password

[karzari]

سلام
من می خوام با فرمی که خودم درست کردم یوزر و پسورد را وراد کنم
اما می خوام وقتی که کاربر مقدار را اشتباه وارد کرد قبل از اینکه ارور از دیتا بیس نشان داده بشه رو خودم چک کنم و پیغام بدم

[mzjahromi]

ه اونو میتونی با Try except انجام بدی. با چی کار میکنی. ADO?

[delphiprog3000]

سلام با اجازه جناب ذوالقدر:

اگه از Ado استفاده میکنید میتونید از این کد استفاده کنید.



var str1:string;

str1:='select * from tbllogin where [user] like '+QuotedStr(txtlogin.Text)+'and [pass] like '+QuotedStr(txtpass.Text);

with Qry_tbllogin Do
Begin
Close;
Sql.text:=str1;
open;
if not IsEmpty Then
Begin
user:=FieldValues['user'];
pass:=FieldValues['pass'];
code:=strtoint(FieldValues['code']);
id:=StrToInt(FieldValues['id']);
if (FieldValues['code']=code1) and (FieldValues['id']=id1) or (FieldValues['code']=code2) and (FieldValues['id']=id2) then
begin
Menu_form.showmodal;
end;
end
else
begin
ShowMessage('ورود شما امکان پذیر نمیباشد');
ClearEdit(self);
txtlogin.SetFocus;
end;
end;
end;
موفق باشید...........................

[karzari]

با تشکر از شما
ببینید من فکر کنم این در صورتی هست که ما قبلا با ADOConnection به اس کیو ال وصل شده باشیم
من می خواستم حتی قبل از اتصال به دیتا بیس لاگین رو چگ کنم
آیا چنین چیزی امکان پذیره ؟

[Vahid_moghaddam]

بدون وصل شدن به DB چطوری میشه فیلدها رو خوند؟