منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود اسم المستخدم وكلمة المرور - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : كود اسم المستخدم وكلمة المرور (/showthread.php?tid=8088)

كود اسم المستخدم وكلمة المرور - osman76 - 21-03-13

السلام عليكم شباب اريد كود المستخدم وكلمة المرور لعمل شاشة دخول لبرنامج بالفيجوال بيسك 6 القديم
وشكرا

كود اسم المستخدم وكلمة المرور - ولد رائع - 22-03-13

هذا كود مع استخدام قاعة البيانات واسمها موجود وكل البيانات موجوده

PHP كود :
Option Explicit
Dim M As String
Private Sub Command1_Click()
If Data1.Recordset.RecordCount = 0 Then
MsgBox "You`r Message"
Exit Sub
End If
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Text1.Text = Data1.Recordset.Fields!UserName And Text2.Text = Data1.Recordset.Fields!Password Then
M = Data1.Recordset.Fields!Mag
Unload Me
Form2.Show
Exit Sub
Else
Data1.Recordset.MoveNext
End If
Loop
MsgBox "ولد رائع ،، عفوآ البيانات خاطئه :) "
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\DataBase.mdb"
Data1.RecordSource = "Table1"
End Sub