17-09-24, 06:31 AM
الأخوة الأعزاء
السلام عليكم ورحمة الله وبركاته ،،،
في إطار بحثي عن كود لصلاحيات المستخدمين بمشروعي وجدت هذا الكود (وهو مشروع بلغة فيجوال بيسك 2010) سأرفق لكم نسخة منه بالمرفقات
عدلت على الكود ليناسب مشروعي ولكن بسبب خبرتي القليلة جداً ظهرت بعض الأخطاء
فأرجو من لديه الإستطاعة ليساعدني في تعديل الكود ليناسب مشروعي أكون له شاكراً
هذا الكود الأصلي الذي يوضع في Module
وهذا الكود الأصلي الذي يوضع عند الضغط على زر الدخول بعد تعبئة بيانات الدخول
وهذا الكود بعد التعديل ليناسب مشروع
هذا Module
وذها الكود عند الضغط على زر الدخول
بحيث أن TextBox1 و TextBox2هي حقول اليوزر فورم
ماهو الخطأ الذي وقعت فيه أريد أن أتعلم من الأخطاء
السلام عليكم ورحمة الله وبركاته ،،،
في إطار بحثي عن كود لصلاحيات المستخدمين بمشروعي وجدت هذا الكود (وهو مشروع بلغة فيجوال بيسك 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هي حقول اليوزر فورم
ماهو الخطأ الذي وقعت فيه أريد أن أتعلم من الأخطاء