+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=213)
+--- قسم : قسم اسئلة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=215)
+--- الموضوع : كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر (/showthread.php?tid=29938)
الصفحات:
1
2
كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - سعود - 20-06-19
السلام عليكم ورحمة الله وبركاته
كيفية التحقق من قيمتين 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
RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - asemshahen5 - 20-06-19
هذا كود شبيه يستخدم مكون الاتصال و مكون الاستعلام به ما تريد :
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 .
RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - سعود - 20-06-19
هل اخفاء الفورم الحالي بالسطر التالي صحيح؟!
form1.Visible:=false;
نعم يخفي لكن هل هو عملي؟
كيف نصل للاحداث الاخرى؟!
اسئلة كثيرة هي تعتبر أساسيات
RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - asemshahen5 - 20-06-19
بصراحة لا أنا استخدمت :
PHP كود :
MainForm.Show;
Hide;
و في نافذة MainForm الحدث : OnClose استخدمت :
PHP كود :
LoginFrm.Close;
طبعا بعد تعريف اليونت الخاص بها تحت كلمة implementation كالتالي :
PHP كود :
implementation
{$R *.dfm}
uses CHILDWIN, About,LoginUnt;
RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - سعود - 20-06-19
حصلت عليها ....قدام عيني انقر عليها نقر مزدوج ويتم فتح المحرر مع الحدث المنشود.
الان كيف نغلق البرنامج نهائيا وقعت في ورطة عمل الملف project1.exe انهيته عن طريق المهام.
RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - asemshahen5 - 20-06-19
شرحت لك بالمشاركة السابقة .
في MainForm الحدث OnClose أغلق فورم تسجيل الدخول اما MainForm إغلاق عادي كيفما تشاء بزر ضع الكود :
PHP كود :
Close;
[attachment=21808]
RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - سعود - 20-06-19
(20-06-19, 09:36 PM)asemshahen5 كتب : شرحت لك بالمشاركة السابقة .
في MainForm الحدث OnClose أغلق فورم تسجيل الدخول اما MainForm إغلاق عادي كيفما تشاء بزر ضع الكود :
PHP كود :
Close;
بارك الله فيك اخي الكريم بمجرد ان اكتب السؤال اخمن حلول لكن الافضل الصحيح.
الاسنادات بعلامة = والنقطتين ماالفرق بينهم
وكلمة end بالفاصلة المنقوطة ومن دون الفاصلة المنقوطة لها اجراءاتها ...
RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - asemshahen5 - 20-06-19
end اذا جاء بعدها else لا نضع الفاصلة المنقوطة اما اذا لم يات بعدها شيئ نضع الفاصة المنقوطة اما بالنسبة لـ := فهي من الخصائص اما في تعريف متغير : ايضا من الخصائص و الله اعلم ........
RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - أبوبكر سويدان - 20-06-19
كود :
:=نستخدمها لإسناد قيمة لمتغير أو خاصية.
كود :
=نستخدمها عند المقارنة في جملة if
أي سطر قبل Else لا يحتوي على فاصلة منقوطة في نهايته.
RE: كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر - سعود - 20-06-19
كلمة begin و end هل هي ضرورية اذا كان الاجراء واحد بعد else كاظهار رسالة showmessage
طبعا اريد الجواب الصحيح لاني جربت ومشى الوضع
