+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اضافة اكثر من مستخدم وكلمة سر لبرنامجي (/showthread.php?tid=1984)
اضافة اكثر من مستخدم وكلمة سر لبرنامجي - hamam2008 - 07-05-2010
السلام عليكم
اخوتي الكرام
لدي جدول به اسم المستخدم وكلمة المرور
و أنشأت واجهة لدخول بالكلمة المرور
IF EDIT1.TEXT=('1111') then
fom 2.show
لكن عندما زاد عدد المستخدمين اردت أن أجعل واجهة تحوي اسم المستخدم وكلمة المرور
حيث استعملت compobox تملئ مباشرة من قاعدة المعطيات و edit لكلمة المرور
فكيف اربط بين هذين المكونين برمجيا لدخول المستخدم أفيدوني بارك الله فيكم
اضافة اكثر من مستخدم وكلمة سر لبرنامجي - TF6M - 07-05-2010
و عليكم السلام و رحمة الله و بركاته
1- هل تقصد أخذ ما تم تغييره في الـ ComBoBox و عرضه في الـ Edit ؟ :
PHP كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Label1.Caption:= ComBoBox1.Items[ComBoBox1.ItemIndex];
end;
2- لا أعلم إذا أردت لكل إسم مستخدم كلمة مرور محددة أم ماذا , الشكل العام :
PHP كود :
IF ComBoBox1.Items[ComBoBox1.ItemIndex] = '1111' Then
Fom2.show;
بالتوفيق ,,
اضافة اكثر من مستخدم وكلمة سر لبرنامجي - hamam2008 - 07-05-2010
بارك الله فيك أخي عن الإجابة و لكن أقصد اسم المستخدم في كومبو بكس و كلمة المرور في edit وهناك button للدخول الى البرنامج مع العلم اسم حقل اسم المستخدم user و كلمة المرور pass
اضافة اكثر من مستخدم وكلمة سر لبرنامجي - AL-MOB4RM3G - 08-05-2010
إقتباس :فكيف اربط بين هذين المكونين برمجيا لدخول المستخدم أفيدوني بارك الله فيكماخي الكريم,
لو افترضنا انه لديك Column اسمه UserName و آخر اسمه PassWord,
يمكنك تبديل الكومبو بوكس مع DBLookupCombobox ووصله مع ال column الذي بإسم مثلا UserName,
وبعدها اعمل مقآرنة عآدية تقارن المكتوب في اليوزرنيم و الباسورد, فإن صح المقآرنة فعندها ....
طبعا هذا يشترط ان يكون لديك قآعدة بيانات في المشروع, ان شاء الله الفكرة وآضحة,؟
بالتوفيق,
اضافة اكثر من مستخدم وكلمة سر لبرنامجي - الكاسر الآخر - 17-05-2010
أبسط الطرق هو تكوين ملف في قاعدة البيانات للمستخدمين إسمه Users مثلا
يتكون من الحقول التالية
إسم المستخدم : نصي
كلمة المرور : نصي
ممكن أن يكون الحقلان مفتاح أساسي Primary Key
طبعا هذا أبسط جدول مستخدمين ممكن تكوينه .. ممكن تضيف له صلاحيات الدخول للمستخدمين بحث يكون مدير النظام له صلاحيات كاملة مثل مسح السجلات أو اضافتها وبعض المستخدمين يطلع على البيانات فقط بدون تعديل أو مسح أو إضافة .. وهكذا ...
والكود يكون بالشكل التالي
طبعا تضع 2 مكون TEdit و زر موافق و زر خروج
على إفتراض أنك تستخدم مكون TTable للإتصال بجدول البيانات
أكتب الكود التالي في زر موافق
كود :
If Not Table1.FindKey([Edit1.Text,Edit2.Text]) Then
ShowMessage('إسم المستخدم أو كلمة المرور غير صحيحة')
Else
MainForm.ShowModal;طبعا هناك أكواد وجداول مستخدمين أعقد من هذا بكثير ... ولكن ممكن أن تستفيد من هذا وتنطلق بالتدريج
**** أن اكون قد أفدتك ...