شرح واجهة دخول المستخدم بكلمة سر

[toufik2018]

السلام عليكم أخوتي في الله 
طلبي متمثل في شرح مفصل للكود التالي الخاص متمثل في واجهة دخول المستخدم قمت بارفاق جدوله في 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. 


[محمد عبد العزيز]

وعليكم السلام ورحمة الله
اولا اخي هذا قسم اسئلة وليس قسم طلبات
لذلك مستقبلا قم بصياغة موضوعك على شكل سؤال:
مثال: هل يوجد مكوّن جاهز لتصدير البيانات؟
هل يمكن...؟ كيف...؟ لماذا...؟ ما سبب...؟ ونحو ذلك، كلها أسئلة مقبولة
-
الكود فوق اسنعلام SQL لجدول اسمه login
يبحث في الجدول عن مستخدم وكلمة سر مكتوببن في sEdit1 و sEdit2 وتم تمريرهما كبراميتر p1 و p2

ان لم تكن نتيجة الاستعلام فارغة يخذ قيمة ath ان كانت 1 يفعل الزر form2.BitBtn1 يظهر form2 و يخفي form1

ان كانت نتيجة الاستعلام فارغة بظهر رسالة "اسم المستخدم او كلمة المرور ..."

[toufik2018]

وعليكم السلام ورحمة الله
اولا اخي هذا قسم اسئلة وليس قسم طلبات
لذلك مستقبلا قم بصياغة موضوعك على شكل سؤال:
مثال: هل يوجد مكوّن جاهز لتصدير البيانات؟
هل يمكن...؟ كيف...؟ لماذا...؟ ما سبب...؟ ونحو ذلك، كلها أسئلة مقبولة
-
الكود فوق اسنعلام SQL لجدول اسمه login
يبحث في الجدول عن مستخدم وكلمة سر مكتوببن في sEdit1 و sEdit2 وتم تمريرهما كبراميتر p1 و p2

ان لم تكن نتيجة الاستعلام فارغة يخذ قيمة ath ان كانت 1 يفعل الزر form2.BitBtn1 يظهر form2 و يخفي form1

ان كانت نتيجة الاستعلام فارغة بظهر رسالة "اسم المستخدم او كلمة المرور ..."

جزاك الله ألف خير أخي و عذرا ان كان فيه اي ازعاج 
ممكن ما القصد و ما الدور  //براميتر// في هذه الحالة   p1 و p2
ممكن تعريف لبراميتر بشكل مبسط 
السلام عليكم 

[rahiche]

تفضل شرح لماهو البرامتر
http://delphi4arab.net/forum/showthread....1#pid40381

[محمد عبد العزيز]

ليس ازعاج وانما تنظيما للمنتدى غير ذلك اسئل ما تشاء...

حتى تفهم
لنقل انك عند كتابة استعلام يكون نص ثابت اثناء البرمجة
داخل النص هناك شيئ يتغير/قيمة ما اثناء تنفيذ البرنامج
هذه القيمة او الجزء المنعير بمكن نمريره كبراميتر حيث نكتب مكانه في النص مثلا p1
ثم نخبره بقيمة p1 بشيئ مثل

كود :

Query1.Parameters.ParamByName('p1').Value  := '2018'; مجرد مثال ولا علاقة له بالكود فوق

[toufik2018]

جزاكم الله كل خير أساتذتي علمنا الله من علمكم ^^