[نبيل كونكت]

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