+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : شرح واجهة دخول المستخدم بكلمة سر (/showthread.php?tid=9159)
شرح واجهة دخول المستخدم بكلمة سر - toufik2018 - 03-02-2018
السلام عليكم أخوتي في الله
طلبي متمثل في شرح مفصل للكود التالي الخاص متمثل في واجهة دخول المستخدم قمت بارفاق جدوله في sql
PHP كود :
procedure TForm1.sBitBtn1Click(Sender: TObject);
var ath : Integer;
begin
DataM.adoquery1.SQL.clear;
DataM.adoquery1.SQL.add('select admin, password, ath from login where admin = :p1 and password = :p2 ');
DataM.Adoquery1.Parameters.ParamByName('p1').Value := sEdit1.Text;
DataM.Adoquery1.Parameters.ParamByName('p2').Value := sEdit2.Text;
DataM.adoquery1.Open ;
if not DataM.Adoquery1.IsEmpty then
begin
ath:= DataM.datasource1.DataSet.FieldByName('ath').AsInteger;
form2.BitBtn1.Enabled := ath = 1;
form2.show ;
form1.Hide;
end
else
showmessage('Wrong Username or Password ! try again');
end;
end.
RE: شرح واجهة دخول المستخدم بكلمة سر - محمد عبد العزيز - 03-02-2018
وعليكم السلام ورحمة الله
اولا اخي هذا قسم اسئلة وليس قسم طلبات
لذلك مستقبلا قم بصياغة موضوعك على شكل سؤال:
مثال: هل يوجد مكوّن جاهز لتصدير البيانات؟
هل يمكن...؟ كيف...؟ لماذا...؟ ما سبب...؟ ونحو ذلك، كلها أسئلة مقبولة
-
الكود فوق اسنعلام SQL لجدول اسمه login
يبحث في الجدول عن مستخدم وكلمة سر مكتوببن في sEdit1 و sEdit2 وتم تمريرهما كبراميتر p1 و p2
ان لم تكن نتيجة الاستعلام فارغة يخذ قيمة ath ان كانت 1 يفعل الزر form2.BitBtn1 يظهر form2 و يخفي form1
ان كانت نتيجة الاستعلام فارغة بظهر رسالة "اسم المستخدم او كلمة المرور ..."
RE: شرح واجهة دخول المستخدم بكلمة سر - toufik2018 - 03-02-2018
(03-02-2018, 10:32 AM)B.M.AbdelAziZ كتب :جزاك الله ألف خير أخي و عذرا ان كان فيه اي ازعاج
وعليكم السلام ورحمة الله
اولا اخي هذا قسم اسئلة وليس قسم طلبات
لذلك مستقبلا قم بصياغة موضوعك على شكل سؤال:
مثال: هل يوجد مكوّن جاهز لتصدير البيانات؟
هل يمكن...؟ كيف...؟ لماذا...؟ ما سبب...؟ ونحو ذلك، كلها أسئلة مقبولة
-
الكود فوق اسنعلام SQL لجدول اسمه login
يبحث في الجدول عن مستخدم وكلمة سر مكتوببن في sEdit1 و sEdit2 وتم تمريرهما كبراميتر p1 و p2
ان لم تكن نتيجة الاستعلام فارغة يخذ قيمة ath ان كانت 1 يفعل الزر form2.BitBtn1 يظهر form2 و يخفي form1
ان كانت نتيجة الاستعلام فارغة بظهر رسالة "اسم المستخدم او كلمة المرور ..."
ممكن ما القصد و ما الدور //براميتر// في هذه الحالة p1 و p2
ممكن تعريف لبراميتر بشكل مبسط
السلام عليكم
RE: شرح واجهة دخول المستخدم بكلمة سر - rahiche - 03-02-2018
تفضل شرح لماهو البرامتر
http://delphi4arab.net/forum/showthread.php?tid=8175&pid=40381#pid40381
RE: شرح واجهة دخول المستخدم بكلمة سر - محمد عبد العزيز - 03-02-2018
ليس ازعاج وانما تنظيما للمنتدى غير ذلك اسئل ما تشاء...
حتى تفهم
لنقل انك عند كتابة استعلام يكون نص ثابت اثناء البرمجة
داخل النص هناك شيئ يتغير/قيمة ما اثناء تنفيذ البرنامج
هذه القيمة او الجزء المنعير بمكن نمريره كبراميتر حيث نكتب مكانه في النص مثلا p1
ثم نخبره بقيمة p1 بشيئ مثل
كود :
Query1.Parameters.ParamByName('p1').Value := '2018';
مجرد مثال ولا علاقة له بالكود فوقRE: شرح واجهة دخول المستخدم بكلمة سر - toufik2018 - 03-02-2018
جزاكم الله كل خير أساتذتي علمنا الله من علمكم ^^