[ali_ahmed12]

(06-11-22, 05:50 PM)Taha Okla كتب : أجعل الـ (UserType)  ك متغير نصي عام - عرفه في الـ (Module1) 
ثم عدل على كود تخزين اسم المستخدم وكلمة المرور في (id) و (pwd) بهذا التغيير الجديد ..

كود :

Module1.UserType= dt.Rows(0)(3)

أمسح جميع المستخدمين من قاعدة البيانات 
وجرب الكود من جديد على مستخدمين تنشئهم من جديد.

إذا نجح الأمر - بيكون خالص.

وإذا ما نجح :
قم بإرفاق الكود بعد التعديل لنرى كيف أصبح ؟؟

---

(06-11-22, 05:42 PM)ali_ahmed12 كتب : غيرت شرط اخير كله yes الان ظهر كل شي لطه لكن مالسبب في وجود ثلاثة حالات في جمله if  وهم حالتين مدير وعادي فقط ياريت توضح ليا 
هل القصد منه اذا لم اختارر انا نوع الصلاحية بمعني تركته فارغه

صحيح أنه عندك حالتين ..
فإذا وجد حالة منهما - تم التنفيذ ::  هذا من أجل المستخدم.
وإن لم يجد أي منهما - نفذ الحالة الثالثة ::  وهذا لك - لكي تعرف أنه هناك إدخال خاطئ والسبب يجب أن يعالج برمجياً ..
كيف تعالج الأمر ؟؟  هذا يتعلق بنوع الخطأ الذي سيحدث .. وعندها سوف تجد الحل.

عندا اصل لمتغير بال اسم فورم امور تمام لكن لو عملت متغير داخل مودل يظهر له كل شي سواء كان مدير او عادي 

كود :

If TextBox1.Text = "" Then
           MessageBox.Show("الرجاء ادخال كلمة المرور")
           TextBox1.Focus()
       End If
       Dim dt As New DataTable
       query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
       da = New SqlDataAdapter(query, Module1.con)
       da.Fill(dt)

       If (dt.Rows.Count <> 0) Then
           Module1.id = dt.Rows(0)(0)
           Module1.pwd = dt.Rows(0)(1)
           Me.Hide()
           fullname = dt.Rows(0)(2)
           Form_main.UserType = dt.Rows(0)(3)
           Form_main.ShowDialog()

           Me.Dispose()

       Else
           MessageBox.Show("كلمة المرور غير صحيحة")
       End If
   End Sub

---

(06-11-22, 06:02 PM)ali_ahmed12 كتب :

(06-11-22, 05:50 PM)Taha Okla كتب : أجعل الـ (UserType)  ك متغير نصي عام - عرفه في الـ (Module1) 
ثم عدل على كود تخزين اسم المستخدم وكلمة المرور في (id) و (pwd) بهذا التغيير الجديد ..

كود :

Module1.UserType= dt.Rows(0)(3)

أمسح جميع المستخدمين من قاعدة البيانات 
وجرب الكود من جديد على مستخدمين تنشئهم من جديد.

إذا نجح الأمر - بيكون خالص.

وإذا ما نجح :
قم بإرفاق الكود بعد التعديل لنرى كيف أصبح ؟؟

---

(06-11-22, 05:42 PM)ali_ahmed12 كتب : غيرت شرط اخير كله yes الان ظهر كل شي لطه لكن مالسبب في وجود ثلاثة حالات في جمله if  وهم حالتين مدير وعادي فقط ياريت توضح ليا 
هل القصد منه اذا لم اختارر انا نوع الصلاحية بمعني تركته فارغه

صحيح أنه عندك حالتين ..
فإذا وجد حالة منهما - تم التنفيذ ::  هذا من أجل المستخدم.
وإن لم يجد أي منهما - نفذ الحالة الثالثة ::  وهذا لك - لكي تعرف أنه هناك إدخال خاطئ والسبب يجب أن يعالج برمجياً ..
كيف تعالج الأمر ؟؟  هذا يتعلق بنوع الخطأ الذي سيحدث .. وعندها سوف تجد الحل.

عندا اصل لمتغير بال اسم فورم امور تمام لكن لو عملت متغير داخل مودل يظهر له كل شي سواء كان مدير او عادي 

كود :

If TextBox1.Text = "" Then
           MessageBox.Show("الرجاء ادخال كلمة المرور")
           TextBox1.Focus()
       End If
       Dim dt As New DataTable
       query = "select * from users where id='" & ComboBox1.Text & "' and pwd='" & TextBox1.Text & "'"
       da = New SqlDataAdapter(query, Module1.con)
       da.Fill(dt)

       If (dt.Rows.Count <> 0) Then
           Module1.id = dt.Rows(0)(0)
           Module1.pwd = dt.Rows(0)(1)
           Me.Hide()
           fullname = dt.Rows(0)(2)
           Form_main.UserType = dt.Rows(0)(3)
           Form_main.ShowDialog()

           Me.Dispose()

       Else
           MessageBox.Show("كلمة المرور غير صحيحة")
       End If
   End Sub

في حالة مستخدم نوعه عادي اريد عدم تفعيل زر حفظ منتج له عملت كود هدا لكن لايعمل 

كود :

 If UserType = "مدير" Then
           Me.Button1.Enabled = True
           Me.Button2.Enabled = True
           Me.Button3.Enabled = True
           Me.Button4.Enabled = True
           Me.Button5.Enabled = True
           Me.Button8.Enabled = True
           Me.Button7.Enabled = True

       ElseIf UserType = "عادي" Then
           Me.Button1.Enabled = True
           Me.Button2.Enabled = True
           Me.Button3.Enabled = True
           'تعطيل زر المستخدمين
           Me.Button4.Enabled = False
           'تعطيل زر نسخ احتياطي
           Me.Button5.Enabled = False
           Me.Button8.Enabled = True
           Me.Button7.Enabled = True
           Form_add_product.Btn_save.Enabled = True
       Else
           Me.Button1.Enabled = True
           Me.Button2.Enabled = True
           Me.Button3.Enabled = True
           Me.Button4.Enabled = True
           Me.Button5.Enabled = True
           Me.Button8.Enabled = True
           Me.Button7.Enabled = True
       End If