home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1995 August / pcpro-0895.iso / code / vb / vb10-2.txt < prev    next >
Encoding:
Text File  |  1995-06-10  |  1.1 KB  |  44 lines
  1. Sub Form_Load ()
  2. frmSignIn.Show 1
  3. End Sub
  4.  
  5. Sub mnuAddNewUser_Click ()
  6. Dim Db As Database, Ds As Dynaset
  7. Set Db = OpenDatabase("e:\vbpass\protect.mdb")
  8. Set Ds = Db.CreateDynaset("SELECT DISTINCTROW mtCurrentUser.CurrentUser FROM mtCurrentUser WHERE mtCurrentUser.CurrentUser Like'" & "Admin" & "';")                         æall one line
  9.  
  10. If Ds.RecordCount = 0 Then
  11.     MsgBox "You are not authorised to add a new user. Contact your system administrator.", 16
  12. Else
  13.     Ds.Close
  14.     Db.Close
  15.     frmAddNewUser.Show 1
  16. End If
  17. End Sub
  18.  
  19. Sub mnuChangePassword_Click ()
  20. frmChangePassword.Show 1
  21. End Sub
  22.  
  23. Sub mnuDeleteUser_Click ()
  24. Dim Db As Database, Ds As Dynaset
  25.  
  26. Set Db = OpenDatabase("e:\vbpass\protect.mdb")
  27. Set Ds = Db.CreateDynaset("SELECT DISTINCTROW mtCurrentUser.CurrentUser FROM mtCurrentUser WHERE mtCurrentUser.CurrentUser Like'" & "Admin" & "';")                                 æall one line
  28.  
  29. If Ds.RecordCount = 0 Then
  30.     MsgBox "You are not authorised to delete a user. Contact your system administrator.", 16
  31. Else
  32.     Ds.Close
  33.     Db.Close
  34.     frmDeleteUser.Show 1
  35. End If
  36. End Sub
  37.  
  38. Sub mnuExit_Click ()
  39. Unload Me
  40. End Sub
  41.  
  42.  
  43.  
  44.