user در بانک و دلفی

[yamne_h]

سلام
DataModule2.adoVAllSystemsUsers.Open;
if (DataModule2.adoVAllSystemsUsers.Locate('name', dbedit1.Text,[])
and (UpperCase(DataModule2.adoVAllSystemsUsersPassword .AsString)=UpperCase(dbEdit2.Text)) ) then
form3.show
else
begin
ShowMessage('eshteabh');
dbedit1.SetFocus;
end;
این برنامه دارای چند مشکل است
1 ) هر بار اجرا می شود چه ÷سورد درست باشد چه نباشد ؟ ÷یغامی هم نمایش نمی دهد
2 ) بخوام از combobox به جای یوزر نام استفاده کنم چه باید بکنم ؟

[vcldeveloper]

از یک AdoConnection استفاده کنید و کد خودتون رو در رویداد OnLogin بنویسید.

[yamne_h]

سلام
من برنامه رو اصلاح کردم
begin
DataModule2.adoVAllSystemsUsers.Open;
if (DataModule2.adoVAllSystemsUsers.Locate('name', maskedit1.Text,[])
and (UpperCase(DataModule2.adoVAllSystemsUsersPassword .AsString)=UpperCase(Edit2.Text)) ) then
begin
form3.show ;
form1.Hide;
end
else
begin
ShowMessage('eshteabh');
maskedit1.SetFocus;
end;
اما مشکل بزرگتر شد حالا فقط ÷یغام می ده اشتباه اگه درست هم باشه فرم باز نمی شه کدوم قسمت برنامه اشتباهه؟

[vcldeveloper]

من برنامه رو اصلاح کردم
من گفته بودم که از TAdoConnection و رویداد OnLogin استفاده کنید. Password و Username بصورت string به این رویداد ارسال میشند و شما می تونید به راحتی اونا رو چک کنید، اما کد اصلاح شده شما، عملا فرق چندانی با کد قبلی که نوشته بودید نداره!

[yamne_h]

سلام
این کارایی که شما گفتین کردم اما بازم نمیشه نمیدونم مشکل کجاست؟

[vcldeveloper]

این کارایی که شما گفتین کردم اما بازم نمیشه نمیدونم مشکل کجاست؟
شما که توضیح ندادید چه مشکلی ایجاد میشه و یا چه پیغامی میده، من از کجا بدونم مشکل از کجاست؟!!
برنامه اتون رو خط به خط اجرا کنید و مقادیر Username و Password رو در داخل رویداد مربطه خودتون چک کنید.