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

الصفحات : 1 2

السلام عليكم ورحمة الله وبركاته
كيفية التحقق من قيمتين 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 

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

هذا كود شبيه يستخدم مكون الاتصال و مكون الاستعلام به ما تريد :

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;
نعم يخفي لكن هل هو عملي؟

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

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

PHP كود :

MainForm.Show;
  Hide; 

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

PHP كود :

LoginFrm.Close; 

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

PHP كود :

implementation

{$R *.dfm}

uses CHILDWIN, About,LoginUnt;

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

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

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

PHP كود :

Close; 

[attachment=21808]

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

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

PHP كود :

Close;

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

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

كود :

:=

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

كود :

=

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

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

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود

asemshahen5

سعود

asemshahen5

سعود

asemshahen5

سعود

asemshahen5

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

سعود