[asemshahen5]

هذا كود شبيه يستخدم مكون الاتصال و مكون الاستعلام به ما تريد :

PHP كود :

procedure TLoginFrm.BtnLoginClick(Sender: TObject);
var
Uid :string;
Pass :string;
SqlStr :string;
begin
Uid:=Txt_UserName.Text;
Pass:=Txt_Password.Text;
SqlStr:='Select * From ALL_USERS  Where USER_NAME =:USER_NAME And USER_PASS =:USER_PASS';
DBCon.Connected:=True;

DBQuery.SQL.Add(SqlStr);
DBQuery.Parameters.ParamByName('USER_NAME').Value:=Uid;
DBQuery.Parameters.ParamByName('USER_PASS').Value:=Pass;
DBQuery.Open;
if DBQuery.RecordCount>0 then
begin
  UidP:=Uid;
   MainForm.Show;
  Hide;
end
else
begin
  ShowMessage('الرجاء التأكد من اسم المستخدم و كلمة المرور')
end;
end; 


ملاحظة لاظهار الفورم تحت كلمة implementation اكتب الكود التالي :

PHP كود :

uses MAIN; 


Main هو اسم الوحدة اي عندك حسب كودك هي Unit2 .