pass.frm

TMS（小型票务管理VB+Access）

VERSION 5.00
Begin VB.Form Login 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Login"
   ClientHeight    =   1920
   ClientLeft      =   255
   ClientTop       =   1695
   ClientWidth     =   3030
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "pass.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   1920
   ScaleWidth      =   3030
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton CANCEL 
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Quit"
      Height          =   255
      Left            =   1560
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   1560
      Width           =   1335
   End
   Begin VB.CommandButton OK 
      BackColor       =   &H00E0E0E0&
      Caption         =   "Log&In"
      Height          =   255
      Left            =   120
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   1560
      Width           =   1215
   End
   Begin VB.TextBox mot_de_passe 
      Height          =   285
      Left            =   1200
      TabIndex        =   2
      Text            =   "Password"
      Top             =   1080
      Width           =   1695
   End
   Begin VB.TextBox Utilisateur 
      Height          =   285
      Left            =   1200
      TabIndex        =   1
      Text            =   "User"
      Top             =   720
      Width           =   1695
   End
   Begin VB.Label Label3 
      Caption         =   "Password :"
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   1080
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "User Name :"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   720
      Width           =   1335
   End
   Begin VB.Label Label1 
      Caption         =   "Please enter your user name and password :"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2895
   End
End
Attribute VB_Name = "Login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CANCEL_Click()
   MsgBox "au revoir", vbExclamation, "bye"
   Unload Me
End Sub

Private Sub CANCEL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 OK.FontBold = False
 CANCEL.FontBold = True
End Sub

Private Sub Form_Load()
    mot_de_passe.PasswordChar = "*"
    mot_de_passe.text = ""
    Utilisateur.text = ""
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 OK.FontBold = False
 CANCEL.FontBold = False
End Sub

Private Sub OK_Click()
    Dim mdp, Pword, utilis, user
    Dim Pass2
    Dim user2
    mdp = "fribourg"
    user = "Admin"
    Pword = mot_de_passe
    utilis = Utilisateur

    Do While Pword <> mdp
        MsgBox "sorry, incorrect password", 48, "error"
        Exit Sub
   Loop
   Do While utilis <> user
        MsgBox "Sorry, incorrect user name", 48, "error"
        utilis = InputBox("Please insert your name again")
   Loop
 
  MsgBox "Welcome!", vbOKOnly, "welcome"
  EditMain.Show
  Unload Me
 
End Sub

Private Sub OK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 OK.FontBold = True
 CANCEL.FontBold = False
End Sub