+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] انشاء login form (/showthread.php?tid=1025)
انشاء login form - سبيل - 21-11-13
السلام عليكم
إذا سمحتم أحد ينبهني على الخطأ الموجود في الكودات فالأسفل مع العلم انها ل 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
RE: انشاء login form - سبيل - 24-11-13
please I NEED help
RE: انشاء login form - eng.khalidvb - 24-11-13
تفضل اخي هذه مثال جاهز لاحد الاخوان من المنتدى لعلك تستفيد منه
تفضل في المرفقات :
RE: انشاء login form - سبيل - 29-11-13
جزاك ربي خيرا