18-04-17, 12:20 AM
(آخر تعديل لهذه المشاركة : 19-04-17, 02:06 PM {2} بواسطة نبيل كونكت.)
PHP كود :
Imports System.Data.OleDb
Public Class frmlodin
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=dbv.accdb;Jet OLEDB:Database Password=NABIL_1102;")
Dim cmd As OleDbCommand
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (String.IsNullOrWhiteSpace(txtname.Text)) Then
MsgBox("لا يمكن الدخول واسم المستخدم فارغ")
Exit Sub
End If
If (String.IsNullOrWhiteSpace(txtpass.Text)) Then
MsgBox("من فضلك ادخل كلمة السر")
Exit Sub
End If
Try
cmd = New OleDbCommand("select fullname from user_name where username = @username and pass = @pass", con)
cmd.Parameters.Add(New OleDbParameter("username", OleDbType.VarChar)).Value = txtname.Text
cmd.Parameters.Add(New OleDbParameter("pass", OleDbType.VarChar)).Value = txtpass.Text
con.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
Dim sa As New frmmain
If dr.HasRows Then
sa.Show()
Me.Close()
fullname = dr(0)
Else
MsgBox("هناك خطا فى اسم المستخدم او كلمة السر")
End If
'تعطيل جميع الصلاحيات
Dim DTA As New DataTable
Dim da As New OleDbDataAdapter
Dim sa As New frmmain
sa.الاصنافToolStripMenuItem.Enabled = False
sa.المستخدمينToolStripMenuItem.Enabled = False
sa.الدرجToolStripMenuItem.Enabled = False
sa.ToolStripButton5.Enabled = False
sa.tscos.Enabled = False
sa.ToolStripButton4.Enabled = False
sa.tspto.Enabled = False
If dr.Item("SANF") = True Then
sa.الاصنافToolStripMenuItem.Enabled = True
End If
If dr.Item("MOST") = True Then
sa.المستخدمينToolStripMenuItem.Enabled = True
End If
If dr.Item("MOSH") = True Then
sa.ToolStripButton5.Enabled = True
End If
If dr.Item("OMA") = True Then
sa.tscos.Enabled = True
End If
If dr.Item("MOWA") = True Then
sa.ToolStripButton4.Enabled = True
End If
If dr.Item("MAKH") = True Then
sa.tspto.Enabled = True
End If
If dr.Item("DORG") = True Then
sa.الدرجToolStripMenuItem.Enabled = True
End If
dr.Close()
Catch ex As Exception
Exit Sub
Finally
con.Close()
End Try
End Sub
Private Sub txtpass_KeyDown(sender As Object, e As KeyEventArgs) Handles txtpass.KeyDown
If (e.KeyCode = Keys.Enter) Then
Button1_Click(Nothing, Nothing)
End If
End Sub
End Class
