السلام عليكم أخوتي في الله
طلبي متمثل في شرح مفصل للكود التالي الخاص متمثل في واجهة دخول المستخدم قمت بارفاق جدوله في sql
طلبي متمثل في شرح مفصل للكود التالي الخاص متمثل في واجهة دخول المستخدم قمت بارفاق جدوله في sql
PHP كود :
procedure TForm1.sBitBtn1Click(Sender: TObject);
var ath : Integer;
begin
DataM.adoquery1.SQL.clear;
DataM.adoquery1.SQL.add('select admin, password, ath from login where admin = :p1 and password = :p2 ');
DataM.Adoquery1.Parameters.ParamByName('p1').Value := sEdit1.Text;
DataM.Adoquery1.Parameters.ParamByName('p2').Value := sEdit2.Text;
DataM.adoquery1.Open ;
if not DataM.Adoquery1.IsEmpty then
begin
ath:= DataM.datasource1.DataSet.FieldByName('ath').AsInteger;
form2.BitBtn1.Enabled := ath = 1;
form2.show ;
form1.Hide;
end
else
showmessage('Wrong Username or Password ! try again');
end;
end.