16-07-20, 04:50 PM
أخي عبدالعزيز للأسف لم أستطيع أن أعدل على الكود التالي:
اذا تفضلت مشكوراً تساعدني على حل هذه المشكلة
كود :
If dr("P26") = False Then
frm_mainscreen.Show()
frm_mainscreen.MenuStrip1.Enabled = True
Me.Hide()
frm_mainscreen.P1.Enabled = dr("P1")
frm_mainscreen.P2.Enabled = dr("P2")
frm_mainscreen.P3.Enabled = dr("P3")
frm_mainscreen.P4.Enabled = dr("P4")
frm_mainscreen.P5.Enabled = dr("P5")
frm_mainscreen.P6.Enabled = dr("P6")
frm_mainscreen.P7.Enabled = dr("P7")
frm_mainscreen.P8.Enabled = dr("P8")
frm_mainscreen.P9.Enabled = dr("P9")
frm_mainscreen.P10.Enabled = dr("P10")
frm_mainscreen.P11.Enabled = dr("P11")
frm_mainscreen.P12.Enabled = dr("P12")
frm_mainscreen.P13.Enabled = dr("P13")
frm_mainscreen.P14.Enabled = dr("P14")
frm_mainscreen.P15.Enabled = dr("P15")
frm_mainscreen.P16.Enabled = dr("P16")
' frm_mainscreen.P17.Enabled = dr("P11")
' frm_mainscreen.P18.Enabled = dr("P11")
' frm_mainscreen.P30.Enabled = dr("P16")
dr.Close()
con.Close()
Else
MsgBox("عفواً لا يوجد لديك صلاحية لدخول البرنامج يرجى مراجعة مدير النظام", MsgBoxStyle.Critical, MsgBoxStyle.OkOnly)
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End Tryلا إله إلا الله وحده لا شريك له، لهُ الملك وله الحمد وهو على كل شئ قدير،،،،
سبحان الله وبحمده سبحان الله العظيم 