السلام عليكم ورحمة الله وبركاته
اريد ان اعمل يوزرنيم وباسورد فبرنامج بشرط واحد يكون ادمينيستراتر والثاني يوزر عادي طبعا اليوزر العادي الادمينيستراتر يسويها
جربت الadminبس كيف اسوي كول لليوزر العادي اذاكان الادمين مسوله يوزرنيم وباسورد كيف اسوي هالشرط ؟
هذا كودي للادمين
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
Unload Me
End Sub
Private Sub cmdOK_Click()
'check for correct password
'create a new instance of record set
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim command As String
Dim result As String
command = "SELECT * FROM newuser where username = '" & txtUserName.Text & "' "
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\hatta.mdb"
rs.Open command, cn, adOpenDynamic, adLockOptimistic
If rs.EOF Then
MsgBox ("User Not found.")
Else
If rs.Fields("password").Value = txtPassword.Text Then
If LCase$(txtUserName.Text) = "admin" Then
' name1 = txtUserName.Text
MDIForm1.Show 'for admin login
' Else
' name1 = txtUserName.Text
' ShowTestForm 'if any test is open or show msgbox'
End If
'vStartDateTime = Now
Unload Me
MDIForm1.Show
Else
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End Sub
فيه بوينت اذا الادمين بغا يغير الباسورد ماله هذي ماعرفت اسويها