منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
إذا سمحتم أحد ينبهني على الخطأ الموجود في الكودات فالأسفل مع العلم انها ل 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

please I NEED help

تفضل اخي هذه مثال جاهز لاحد الاخوان من المنتدى لعلك تستفيد منه

تفضل في المرفقات :

جزاك ربي خيرا