12-04-24, 02:42 AM
هذا الكود كاملاً ..
كود :
Public tPwd As Int16 = 0
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If cboUser.Text = "" Then cboUser.Focus() : Exit Sub
If txtPass.Text = "" Then txtPass.Focus() : Exit Sub
If Check_user() = False Then
MsgBox("كلمة المرور لهذا المستخدم غير صحيحة", MsgBoxStyle.Critical, "رسالة خطأ")
tPwd += 1
TextBox1.Text = 3 - tPwd
If tPwd = 3 Then FRM_mainmenu.Close()
' Exit Sub
End If
'تعريف متغير لجملة الاستعلام
Dim sql = "select * from user_data WHERE user_name='" & cboUser.Text & "'"
'تشييد موصل البيانات داتا ادبتر
Dim Adp = New OleDb.OleDbDataAdapter(sql, DBConn)
'تشيد مجموعة البيانات
Dim ds = New DataSet
'ملىء مجموعه البيانات
Adp.Fill(ds)
'وضع الجدول في كائن من نوع جدول
Dim dt = ds.Tables(0)
If dt.Rows.Count > 0 Then
Dim dr As DataRow
dr = dt.Rows(0)
SavePermission = dr!Save_
UpdatePermission = dr!Update_
DeletePermission = dr!Delete_
PrintPermission = dr!Print_
FRM_mainmenu.btn_Stock.Enabled = dr!Stock_Scr
FRM_mainmenu.btn_Accounting.Enabled = dr!Accounting_Scr
FRM_mainmenu.btn_Invoice.Enabled = dr!Invoice_Scr
FRM_mainmenu.btn_Voucher.Enabled = dr!Voucher_Scr
FRM_mainmenu.btn_Report.Enabled = dr!Report_Scr
FRM_mainmenu.btn_Users.Enabled = dr!Users_Scr
UserName = dr!user_name
FRM_mainmenu.currentUser.Text = UserName
Adp.Dispose()
ds.Dispose()
dt.Dispose()
Me.Close()
End If
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
