تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] انشاء login form
#1
السلام عليكم
إذا سمحتم أحد ينبهني على الخطأ الموجود في الكودات فالأسفل مع العلم انها ل 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
الرد
تم الشكر بواسطة:
#2
please I NEED help
الرد
تم الشكر بواسطة:
#3
تفضل اخي هذه مثال جاهز لاحد الاخوان من المنتدى لعلك تستفيد منه

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


الملفات المرفقة
.zip   Easy_permission_example.zip (الحجم : 358.53 ك ب / التحميلات : 176)
الرد
تم الشكر بواسطة:
#4
جزاك ربي خيرا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [سؤال] سؤال حول انشاء مجلد ونسخ ملفات الى هذا المجلد ahmadpal 2 59 أمس, 12:39 AM
آخر رد: ahmadpal
  انشاء فورم يظهر مرة واحدة عند البدء بالبرنامج العتيق 13 318 17-03-19, 01:58 PM
آخر رد: عبد العزيز البسكري
  اريد انشاء قاعدة بيانات سمير جمال 2 74 14-03-19, 04:29 AM
آخر رد: سمير جمال
  [VB.NET] انشاء فورم لتنبيهك بالقيمة الدنيا للمنتوج technomedia 0 75 03-03-19, 06:17 PM
آخر رد: technomedia
  [VB.NET] استفسار :- بخصوص New Point form Top dubai.eig 1 128 29-01-19, 05:50 PM
آخر رد: ابراهيم ايبو
  [سؤال] عايز دورة انشاء برنامج مثل الهين والامبراطورية من فضلكم omarzerrouki 6 1,197 21-01-19, 06:15 PM
آخر رد: elgokr
  مساعدة فى انشاء تقرير atef_020 12 405 20-01-19, 06:46 PM
آخر رد: atef_020
Heart انشاء تقرير كريستال ريبورت ahmadpal 2 211 03-12-18, 05:54 PM
آخر رد: ahmadpal
  انشاء قاعدة بيانات العيدروس 14 628 23-09-18, 07:46 PM
آخر رد: العيدروس
  مشكلة انشاء ملف بصيغة معينه engmedomech 3 226 22-09-18, 04:12 PM
آخر رد: boudyonline

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم