delphi4arab منتديات دلفي للعرب

نسخة كاملة : اضافة اكثر من مستخدم وكلمة سر لبرنامجي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
اخوتي الكرام
لدي جدول به اسم المستخدم وكلمة المرور
و أنشأت واجهة لدخول بالكلمة المرور
IF EDIT1.TEXT=('1111') then
fom 2.show
لكن عندما زاد عدد المستخدمين اردت أن أجعل واجهة تحوي اسم المستخدم وكلمة المرور
حيث استعملت compobox تملئ مباشرة من قاعدة المعطيات و edit لكلمة المرور
فكيف اربط بين هذين المكونين برمجيا لدخول المستخدم أفيدوني بارك الله فيكم
و عليكم السلام و رحمة الله و بركاته

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; 

بالتوفيق ,,
بارك الله فيك أخي عن الإجابة و لكن أقصد اسم المستخدم في كومبو بكس و كلمة المرور في edit وهناك button للدخول الى البرنامج مع العلم اسم حقل اسم المستخدم user و كلمة المرور pass
إقتباس :فكيف اربط بين هذين المكونين برمجيا لدخول المستخدم أفيدوني بارك الله فيكم
اخي الكريم,
لو افترضنا انه لديك Column اسمه UserName و آخر اسمه PassWord,

يمكنك تبديل الكومبو بوكس مع DBLookupCombobox ووصله مع ال column الذي بإسم مثلا UserName,

وبعدها اعمل مقآرنة عآدية تقارن المكتوب في اليوزرنيم و الباسورد, فإن صح المقآرنة فعندها ....

طبعا هذا يشترط ان يكون لديك قآعدة بيانات في المشروع, ان شاء الله الفكرة وآضحة,؟

بالتوفيق,
أبسط الطرق هو تكوين ملف في قاعدة البيانات للمستخدمين إسمه Users مثلا
يتكون من الحقول التالية
إسم المستخدم : نصي
كلمة المرور : نصي
ممكن أن يكون الحقلان مفتاح أساسي Primary Key

طبعا هذا أبسط جدول مستخدمين ممكن تكوينه .. ممكن تضيف له صلاحيات الدخول للمستخدمين بحث يكون مدير النظام له صلاحيات كاملة مثل مسح السجلات أو اضافتها وبعض المستخدمين يطلع على البيانات فقط بدون تعديل أو مسح أو إضافة .. وهكذا ...

والكود يكون بالشكل التالي
طبعا تضع 2 مكون TEdit و زر موافق و زر خروج
على إفتراض أنك تستخدم مكون TTable للإتصال بجدول البيانات
أكتب الكود التالي في زر موافق

كود :
If Not Table1.FindKey([Edit1.Text,Edit2.Text]) Then ShowMessage('إسم المستخدم أو كلمة المرور غير صحيحة') Else MainForm.ShowModal;

طبعا هناك أكواد وجداول مستخدمين أعقد من هذا بكثير ... ولكن ممكن أن تستفيد من هذا وتنطلق بالتدريج

**** أن اكون قد أفدتك ...