تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Ado : مساعدة في كود دخول المستخدمين للبرنامج
#2
PHP كود :
If Text1 "" Or Text2 "" Then
MsgBox 
" Sorry,You Must Type The Username And Password "vbCritical vbMsgBoxRight" ErrorLogin "
Exit Sub
End 
If
SQLs "SELECT * FROM Users WHERE UserName ='" Text1.Text "'  and  Password='" Text2.Text "'"
If RS.State adStateOpen Then RS.Close
RS
.Open SQLsDBadOpenKeysetadLockPessimistic

If RS.EOF Then
MsgBox 
" Sorry, The Username And Password Is Wrong ! "vbCritical vbMsgBoxRight" Error Login "
Else ' Save This Inforamtion
UserNames = Text1
UserPassword = Text2
Set RS = Nothing
Set DB = Nothing
MDIForm1.Show
Unload Me
End If 

ان شاء الله هذا الكود يساعدك
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
Ado : مساعدة في كود دخول المستخدمين للبرنامج - بواسطة ولد رائع_mybb_import4436 - 28-11-12, 06:00 AM


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


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