سلام دستم به دامنت سواجر جان
اومدم يه كد ساده بنويسم همون درومد
خواهش ميكنم راهنمايي كن :
من يه صفحه لاگين واسه برنامه ساختم و كاربر بايد كلمه عبور رو بنويسه اگه درست بود وارد فرم 3 بشه
حالا من از يه ديتابيس براي منبع پسورد ها استفاده كردم و اومدم و از دستور while براي چك كردن استفاده كردم
اونجور كه خودم فهميدم مشكل همين دستورست،ميتوني بگي كجاش اشكال داره
راستي اينم بگم كه براي چك كردن اول ديتا بيس رو به يه DBEdit لينك كردم و بعد بين edit 1 كه همون محل وارد كردن پسورد هست و dbedit مقايسه انجام ميدم
کد:procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table1.First;
while Table1.Eof = False do begin
if Edit2.Text = DBEdit1.Text then
Form3.Show
Form1.Hide
else
Table1.Next;
end;
ShowMessage('error');
end;
