تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر
#1
السلام عليكم ورحمة الله وبركاته
كيفية التحقق من قيمتين edit1 and edit2 واخفاء الفورم الحالي واظهار آخر

PHP كود :
procedure TForm1.Button1Click(SenderTObject);
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 
اما باقي الاستفسارات الى الانSad
الرد }}}
تم الشكر بواسطة: asemshahen5 , عبد العزيز البسكري
#2
هذا كود شبيه يستخدم مكون الاتصال و مكون الاستعلام به ما تريد :

PHP كود :
procedure TLoginFrm.BtnLoginClick(SenderTObject);
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 .
الرد }}}
#3
هل اخفاء الفورم الحالي بالسطر التالي صحيح؟!
form1.Visible:=false;
نعم يخفي لكن هل هو عملي؟

كيف نصل للاحداث الاخرى؟!
اسئلة كثيرة هي تعتبر أساسياتSad
الرد }}}
تم الشكر بواسطة: asemshahen5 , wared , ابراهيم ايبو
#4
بصراحة لا أنا استخدمت : 

PHP كود :
MainForm.Show;
 
 Hide

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


PHP كود :
LoginFrm.Close

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


PHP كود :
implementation

{$R *.dfm}

uses CHILDWINAbout,LoginUnt
الرد }}}
تم الشكر بواسطة: سعود , wared , wared , ابراهيم ايبو
#5
حصلت عليها ....قدام عيني انقر عليها نقر مزدوج ويتم فتح المحرر مع الحدث المنشود.
الان كيف نغلق البرنامج نهائيا وقعت في ورطة عمل الملف project1.exe انهيته عن طريق المهام.
الرد }}}
تم الشكر بواسطة: asemshahen5 , wared
#6
شرحت لك بالمشاركة السابقة .

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


PHP كود :
Close


   
الرد }}}
تم الشكر بواسطة: سعود , wared , ابراهيم ايبو
#7
(20-06-19, 09:36 PM)asemshahen5 كتب : شرحت لك بالمشاركة السابقة .

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


PHP كود :
Close

بارك الله فيك اخي الكريم بمجرد ان اكتب السؤال اخمن حلول لكن الافضل الصحيح.
الاسنادات بعلامة = والنقطتين ماالفرق بينهم
وكلمة end بالفاصلة المنقوطة ومن دون الفاصلة المنقوطة لها اجراءاتها ... Huh
الرد }}}
تم الشكر بواسطة: asemshahen5 , wared
#8
end اذا جاء بعدها else لا نضع الفاصلة المنقوطة اما اذا لم يات بعدها شيئ نضع الفاصة المنقوطة اما بالنسبة لـ := فهي من الخصائص اما في تعريف متغير : ايضا من الخصائص و الله اعلم ........
الرد }}}
تم الشكر بواسطة: سعود , أبوبكر سويدان , wared
#9
كود :
:=

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

كود :
=

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

أي سطر قبل Else لا يحتوي على فاصلة منقوطة في نهايته.
الرد }}}
تم الشكر بواسطة: سعود , سعود , asemshahen5 , asemshahen5 , wared , wared , ابراهيم ايبو
#10
كلمة begin  و end هل هي ضرورية اذا كان الاجراء واحد بعد else كاظهار رسالة showmessage
طبعا اريد الجواب الصحيح لاني جربت ومشى الوضعSmile
الرد }}}
تم الشكر بواسطة: wared , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن كيفية تعريف متغيير على مستوى المشروع asemshahen5 3 1,696 21-06-19, 12:13 AM
آخر رد: أبوبكر سويدان
  سؤال بسيط عن كيفية تنصيب الادوات asemshahen5 6 2,022 18-06-19, 02:59 AM
آخر رد: asemshahen5
  [سؤال] كيفية إنجاز مثال صغير حول الإضافة و التعديل و الحذف؟ عبد العزيز البسكري 2 1,517 17-06-19, 02:54 AM
آخر رد: viv

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم