فرم لاگین

[Mohammadxml]

سلام به همه ی دوستان
ببخشید من مبتدی هستم و میخوام فرم لاگین برای برنامم بسازم اینم عکسشه.
با ابزارهای بانک مشکلی ندارم ومیخوام فقط کدشو بدونم که چی باید بزنم.
از دلفی هفت استفاده می کنم.
لطفا راهنمایی کنید.
87064

[soft-c]

تو قسمت ورود باید چک کنی که نام کاربری ورمز ورود صحیح است یا نه :

adodataset2.Close;
adodataset2.CommandText:='select * from enter where (usern='''+Edit1.Text+''') and (pass='''+Edit2.Text+''')';
adodataset2.Open;

البته من از adodataset استفاده کردم . با همون adoquery هم جواب می دهد .
البته اصولا باید قبلش کارهای دیگری مانند چک کردن خالی یا پر بودن edit ها انجام بدی و بعد اگر edit ها خالی نبود از دستور بالا استفاده کنی .
این کد کاملش :

procedure TForm2.Image2Click(Sender: TObject);

begin
try
try
if (Edit1.Text='') or (Edit2.Text='') then
ShowMessage('لطفا همه ی فیلد ها را پر کنید')
else
begin
adoc2:=TADOConnection.Create(Form2);
adodataset2:=TADODataSet.Create(Form2);
obj2:=Tconnect.Create;
obj2.conn1(adodataset2,adoc2);
adodataset2.Close;
adodataset2.CommandText:='select * from enter where (usern='''+Edit1.Text+''') and (pass='''+Edit2.Text+''')';
adodataset2.Open;
if adodataset2.RecordCount=0 then
ShowMessage('نام کاربر یا رمز ورود اشتباه است')
else
begin
form3:=TForm3.Create(Self);
Form3.Show;

end;
end;

except
ShowMessage('خطا در عملیات ، لطفا مجددا تست کنید');
end;
finally
obj2.Free;
adodataset2.Free;
adoc2.Free;
end;


end;