[osman76]

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

[ولد رائع]

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

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