[F.H.M]

الأخوة الأعزاء

السلام عليكم ورحمة الله وبركاته ،،،

في إطار بحثي عن كود لصلاحيات المستخدمين بمشروعي وجدت هذا الكود (وهو مشروع بلغة فيجوال بيسك 2010) سأرفق لكم نسخة منه بالمرفقات

عدلت على الكود ليناسب مشروعي ولكن بسبب خبرتي القليلة جداً ظهرت بعض الأخطاء

فأرجو من لديه الإستطاعة ليساعدني في تعديل الكود ليناسب مشروعي أكون له شاكراً

هذا الكود الأصلي الذي يوضع في Module

كود :

Public Sub userlogin(ByVal username As TextBox, ByVal pass As TextBox)
       Try
           'OPENING A CONNECTION.
           connection.Open()
           'SET THE DATA COMMAND AND THE DATABASE CONNECTION THAT ARE USED TO FILL THE DATASOURCE.
           da = New OleDb.OleDbDataAdapter("SELECT * FROM tbluser WHERE username ='" & username.Text & _
                                           "' and upass = '" & pass.Text & "'", connection)
           'CREATE A NEW DATATABLE
           dt = New DataTable
           'ADDING THE DATA TO THE DATATABLE.
           da.Fill(dt)
           Dim maxrow As Integer = dt.Rows.Count
           Dim type As String = dt.Rows(0).Item("utype")
           If maxrow > 0 Then
               MsgBox("You log on as " & type, , "Login as ")
               If type = "Administrator" Then
                   With Form1
                       .btnlogin.SetBounds(6, 90, 134, 23)
                       .btnmanageuser.Visible = True
                       .btnlist.Visible = True
                       .btnadd.Visible = True
                       .GroupBox1.Visible = True
                       .btnlogin.Text = "Logout"
                       .lblusername.Visible = True
                       .PictureBox1.Visible = False
                       .lblusername.Text = dt.Rows(0).Item("uname") & "::" & type

                   End With
               Else
                   With Form1
                       .btnlogin.SetBounds(6, 61, 134, 23)
                       .btnmanageuser.Visible = True
                       .btnlist.Visible = True
                       .btnadd.Visible = True
                       .GroupBox1.Visible = True
                       .lblusername.Visible = True
                       .PictureBox1.Visible = False
                       .btnlogin.Text = "Logout"
                       .lblusername.Text = dt.Rows(0).Item("uname") & "::" & type
                   End With
               End If
               LoginForm1.Close()
           Else
               MsgBox("account does not exist!", MsgBoxStyle.Exclamation, "Failed to login")
           End If
       Catch ex As Exception
           'CATCH ANY ERRORS.
           '  MsgBox(ex.Message)
           MsgBox("account does not exist!", MsgBoxStyle.Exclamation, "Failed to login")

       End Try
       'CLOSING THE CONNECTION.
       connection.Close()
   End Sub

وهذا الكود الأصلي الذي يوضع عند الضغط على زر الدخول بعد تعبئة بيانات الدخول

كود :

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
       userlogin(UsernameTextBox, PasswordTextBox)

   End Sub

   Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
       Me.Close()
   End Sub

وهذا الكود بعد التعديل ليناسب مشروع

هذا Module

كود :

Public da As New OleDb.OleDbDataAdapter
'SET A DATATABLE THAT NEEDS TO BE FILLED.
Public dt As New DataTable
'Public Property TextBox1 As Object
'Public Property TextBox2 As Object
Public Sub Userlogin(ByVal username As TextBox, ByVal pass As TextBox)
   Try
       'OPENING A CONNECTION.
       con.Open()
       'da = New OleDbDataAdapter("Select * From UserPass where UserName = '" & username.Text & _ "' and Password = '" & pass.Text & "'", con)

       da = New OleDbDataAdapter("Select * From UserPass where UserName = '" & TextBox1.Text & "' and Password = '" & TextBox2.Text & "'", con)


       'CREATE A NEW DATATABLE
       dt = New DataTable
       'ADDING THE DATA TO THE DATATABLE.
       da.Fill(dt)
       Dim maxrow As Integer = dt.Rows.Count
       Dim type As String = dt.Rows(0).Item("Slahiyat")
       If maxrow > 0 Then
           MsgBox("You log on as " & type, , "Login as ")
           If type = "مدير" Then
               With Main_Form
                   '.btnlogin.SetBounds(6, 90, 134, 23)
                   .Button1.Visible = True
                   .Button2.Visible = True
                   .Button3.Visible = True
                   .Button4.Visible = True
                   '.btnlogin.Text = "Logout"
                   .Button5.Visible = True
                   '.PictureBox1.Visible = False
                   .Label7.Text = dt.Rows(0).Item("UserName") & "::" & type

               End With
           Else
               With Main_Form
                   '.btnlogin.SetBounds(6, 61, 134, 23)
                   .Button1.Visible = True
                   .Button2.Visible = True
                   .Button3.Visible = False
                   .Button4.Visible = False
                   .Button5.Visible = False
                   '.PictureBox1.Visible = False
                   '.btnlogin.Text = "Logout"
                   .Label7.Text = dt.Rows(0).Item("UserName") & "::" & type
               End With
           End If
           Form2.Close()
       Else
           MsgBox("account does not exist!", MsgBoxStyle.Exclamation, "Failed to login")
       End If
   Catch ex As Exception
       'CATCH ANY ERRORS.
       '  MsgBox(ex.Message)
       MsgBox("account does not exist!", MsgBoxStyle.Exclamation, "Failed to login")

   End Try
   'CLOSING THE CONNECTION.
   con.Close()
End Sub

وذها الكود عند الضغط على زر الدخول

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    userlogin(TextBox1, TextBox2)

بحيث أن TextBox1 و TextBox2هي حقول اليوزر فورم

ماهو الخطأ الذي وقعت فيه أريد أن أتعلم من الأخطاء