[سعود]

السلام عليكم ورحمة الله وبركاته
كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'admin'  then
      begin
        Unit2.form2.show;
        end
        else
        begin
        showmessage('Sorry')
        end;
         end;

end. 


ماذا اعدل؟
شكر الله لكم جميعا

---

من ناحية صياغة الشرط عرفتها:

PHP كود :

if (Edit1.Text = 'admin') and (edit2.Text='2010')  then 


اما باقي الاستفسارات الى الان

[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 .

[سعود]

هل اخفاء الفورم الحالي بالسطر التالي صحيح؟!
form1.Visible:=false;
نعم يخفي لكن هل هو عملي؟

---

كيف نصل للاحداث الاخرى؟!
اسئلة كثيرة هي تعتبر أساسيات

[asemshahen5]

بصراحة لا أنا استخدمت : 

PHP كود :

MainForm.Show;
  Hide; 


و في نافذة MainForm الحدث : OnClose استخدمت :

PHP كود :

LoginFrm.Close; 


طبعا بعد تعريف اليونت الخاص بها تحت كلمة implementation كالتالي :

PHP كود :

implementation

{$R *.dfm}

uses CHILDWIN, About,LoginUnt; 


[سعود]

حصلت عليها ....قدام عيني انقر عليها نقر مزدوج ويتم فتح المحرر مع الحدث المنشود.
الان كيف نغلق البرنامج نهائيا وقعت في ورطة عمل الملف project1.exe انهيته عن طريق المهام.

[asemshahen5]

شرحت لك بالمشاركة السابقة .

في MainForm الحدث OnClose أغلق فورم تسجيل الدخول اما MainForm إغلاق عادي كيفما تشاء بزر ضع الكود : 

PHP كود :

Close; 


   

[سعود]

(20-06-19, 09:36 PM)asemshahen5 كتب : شرحت لك بالمشاركة السابقة .

في MainForm الحدث OnClose أغلق فورم تسجيل الدخول اما MainForm إغلاق عادي كيفما تشاء بزر ضع الكود : 

PHP كود :

Close; 


بارك الله فيك اخي الكريم بمجرد ان اكتب السؤال اخمن حلول لكن الافضل الصحيح.
الاسنادات بعلامة = والنقطتين ماالفرق بينهم
وكلمة end بالفاصلة المنقوطة ومن دون الفاصلة المنقوطة لها اجراءاتها ...

[asemshahen5]

end اذا جاء بعدها else لا نضع الفاصلة المنقوطة اما اذا لم يات بعدها شيئ نضع الفاصة المنقوطة اما بالنسبة لـ := فهي من الخصائص اما في تعريف متغير : ايضا من الخصائص و الله اعلم ........

[أبوبكر سويدان]

كود :

:=

نستخدمها لإسناد قيمة لمتغير أو خاصية.

كود :

=

نستخدمها عند المقارنة في جملة if

أي سطر قبل Else لا يحتوي على فاصلة منقوطة في نهايته.

[سعود]

كلمة begin  و end هل هي ضرورية اذا كان الاجراء واحد بعد else كاظهار رسالة showmessage
طبعا اريد الجواب الصحيح لاني جربت ومشى الوضع