15-02-20, 07:07 PM (آخر تعديل لهذه المشاركة : 15-02-20, 07:12 PM {2} بواسطة محمد مسافر.)
السلام عليكم ورحمة الله
قمت بعمل عدد 3 Form
1- الفور الاول واجهه الدخول باسم المستخدم وكلمه المرور تمام بحسب قاعده البيانات جاهز.
2-الفورم الثاني يحتوى على TextBox1 وButton3 اريد اكتب في التاكس بوكس اسم الموظف الذي رشحته واعمل حفظ وارسال الى قاعده البيانات الاكسس المرتبط بها ( اريد الكود المناسب لذلك ).
3- والـ Form3 الاخر يحتوي علي خاصية تغيير كلمه السر بحسب المستخدم نفسه وتتغير في قاعده البيانات بعد الضغط على حفظ . واذا امكانيه عمل المحاولات الخطا للمحاوله بالباسورد 6 محاولات ويقفل النظام [b]( اريد الكود المناسب لذلك ).[/b]
المشكلة عند كتابة البيانات المدخلة في الـ Textbox في الفورم الثاني والفورم الثالث لا يتم حفظها وعرضها في قاعده البيانات الاكسس.
ملاحظة : مرفق ملف المشروع في المرفقات واتمنى التعديل عليه ، ولكم جزيل الشكر.
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
السلام عليكم
حملت مشروعك ووجدت به بعض الاشياء التي لا استطيع ادراكها
أولا : في الفورم الثاني تقوم بوضع اسم جديد وحفظه وبدون كلمة سر
فما هو الغرض من تسجيل الاسم
ثانيا : في الفورم 3 تقوم بتغيير كلمة السر
اي مستخدم ستقوم تغيير كلمة السر الخاصة به ؟ خصوصا انه تم ادخال مستخدم جديد في الفورم السابق
ثالثا : في قاعدة البيانات يوجد تكرار لاسم المستخدم فكيف يمكن وجود اكثر من سجل لنفس المستخدم ؟؟؟؟
اعتقد في رأيي الشخصي انك بحاجة لإعادة سياق تنسيق البرنامج وتدفق البيانات وتصوير الفكرة
رائعععععععع بماتعنيه الكلمه ابداع لك مني جزيل الشكر والعرفان لم اجد احداً في المنتدى واقولها وبكل صراحه وقف جنبي ودعمني وبشكل سريع الا الاخ والاستاذ/ عاصم .
ملاحظه 1 فقط وينتهي الامر هل بالامكان استبدل مكان التاكس بوكس واحد الذي هو الخاص باليوزر نيم الى كمبوبوكس محفوظه فيها الاسماء الموجوده كلها الموجوده في قاعده البيانات او التي سيتم اضافتها في قاعده البيانات بحيث عندما اضغط على خانه الاسم تظهر لي قائمه الاسماء مدخله دائماً اختار الاسم وبعدها ادخل كلمه السر .
ملاحظه 2 : البرنامج سيوزع على 100 موظف بامتداد ملف تنفيذي وستكون قاعده البيانات واحده فقط هل سيعمل البرنامج بشكل طبيعي .
اكرر شكري لك والله لايحرمنا منك واسال الله ان يحفظك دائماً وابداً .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.
18-02-20, 03:30 AM (آخر تعديل لهذه المشاركة : 18-02-20, 03:58 AM {2} بواسطة asemshahen5.)
هذه طريقة أسهل تسمى الاكمال التلقائي للنص في التكست بوكس عن طريق كتابة أول حروف من الاسم و يكمل لوحده مع عرض قائمة مختصرة من الاسماء المتشابهة .
ضع هذا الكود في الموديول :
PHP كود :
Sub Autocomplete_TXT(FieldName As String, TableName As String, txtAutoComplete As TextBox) Dim Dt As New DataTable Dim Query As String = "Select " & FieldName & " From " & TableName & " order by " & FieldName & " " Dt = FillDataTable(Query) Dim DataSource As New AutoCompleteStringCollection For i As Integer = 0 To Dt.Rows.Count - 1 DataSource.Add(Dt.Rows(i)(0).ToString) Next txtAutoComplete.AutoCompleteCustomSource = DataSource txtAutoComplete.AutoCompleteSource = AutoCompleteSource.CustomSource txtAutoComplete.AutoCompleteMode = AutoCompleteMode.SuggestAppend End Sub
كود الاستخدام بالفورم :
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Autocomplete_TXT("اسم العامود", "اسم الجدول", Textbox1) End Sub
(18-02-20, 03:30 AM)asemshahen5 كتب : هذه طريقة أسهل تسمى الاكمال التلقائي للنص في التكست بوكس عن طريق كتابة أول حروف من الاسم و يكمل لوحده مع عرض قائمة مختصرة من الاسماء المتشابهة .
ضع هذا الكود في الموديول :
PHP كود :
Sub Autocomplete_TXT(FieldName As String, TableName As String, txtAutoComplete As TextBox) Dim Dt As New DataTable Dim Query As String = "Select " & FieldName & " From " & TableName & " order by " & FieldName & " " Dt = FillDataTable(Query) Dim DataSource As New AutoCompleteStringCollection For i As Integer = 0 To Dt.Rows.Count - 1 DataSource.Add(Dt.Rows(i)(0).ToString) Next txtAutoComplete.AutoCompleteCustomSource = DataSource txtAutoComplete.AutoCompleteSource = AutoCompleteSource.CustomSource txtAutoComplete.AutoCompleteMode = AutoCompleteMode.SuggestAppend End Sub
كود الاستخدام بالفورم :
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Autocomplete_TXT("اسم العامود", "اسم الجدول", Textbox1) End Sub