21-11-13, 05:58 PM
السلام عليكم
إذا سمحتم أحد ينبهني على الخطأ الموجود في الكودات فالأسفل مع العلم انها ل login form
Dim userlist As New db_operation()
Dim strPassword As String = PasswordTextBox.Text
Dim deHashpass As New EncodingDecodingPassword
'Dim strUserID As String
strSql = "Select * from Supervisors WHERE supName = '" & UsernameTextBox.Text & "'"
strTableName = "Supervisors"
tblMyTable = userlist.PopulateDataset(strSql, strTableName).Tables(0)
intRecordCounter = tblMyTable.Rows.Count
If intRecordCounter = 1 Then
intRecordCounter = 0
strPassword = tblMyTable.Rows(intRecordIndex)(1)
strPassword = deHashpass.base64Decode(strPassword)
strPassword = deHashpass.base64Decode(strPassword)
If strPassword = PasswordTextBox.Text Then
If vb.Left(UsernameTextBox.Text, 5) = "admin" Then
Dim frm_admin As New frmadmin
frmadmin.MdiParent = MdiParent
frmadmin.Show()
Else
Dim frm_teachers As New frmTeachers
frmTeachers.MdiParent = MdiParent
frmTeachers.Show()
End If
Else
MsgBox("Invalid User")
End If
End If
End Sub
إذا سمحتم أحد ينبهني على الخطأ الموجود في الكودات فالأسفل مع العلم انها ل login form
Dim userlist As New db_operation()
Dim strPassword As String = PasswordTextBox.Text
Dim deHashpass As New EncodingDecodingPassword
'Dim strUserID As String
strSql = "Select * from Supervisors WHERE supName = '" & UsernameTextBox.Text & "'"
strTableName = "Supervisors"
tblMyTable = userlist.PopulateDataset(strSql, strTableName).Tables(0)
intRecordCounter = tblMyTable.Rows.Count
If intRecordCounter = 1 Then
intRecordCounter = 0
strPassword = tblMyTable.Rows(intRecordIndex)(1)
strPassword = deHashpass.base64Decode(strPassword)
strPassword = deHashpass.base64Decode(strPassword)
If strPassword = PasswordTextBox.Text Then
If vb.Left(UsernameTextBox.Text, 5) = "admin" Then
Dim frm_admin As New frmadmin
frmadmin.MdiParent = MdiParent
frmadmin.Show()
Else
Dim frm_teachers As New frmTeachers
frmTeachers.MdiParent = MdiParent
frmTeachers.Show()
End If
Else
MsgBox("Invalid User")
End If
End If
End Sub