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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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
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