[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
  MainForm.Show;
  Close;
end
else
begin
  ShowMessage('الرجاء التأكد من اسم المستخدم و كلمة المرور')
end;
end; 


وهذا الكود الذي يعمل فقط استبدل كود الإغلاق بالإخفاء 

PHP كود :

if DBQuery.RecordCount>0 then
begin
  MainForm.Show;
  Hide;
end
else
begin
  ShowMessage('الرجاء التأكد من اسم المستخدم و كلمة المرور')
end; 


و هذا شيء خاطئ احب اغلاق الفورم عند الانتهاء منها هل هذا ممكن في دلفي أم هو مستحيل .