65 lines
1.3 KiB
Plaintext
65 lines
1.3 KiB
Plaintext
VERSION 5.00
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmLogin
|
|
Caption = "Login"
|
|
ClientHeight = 7200
|
|
ClientLeft = 120
|
|
ClientTop = 465
|
|
ClientWidth = 5700
|
|
OleObjectBlob = "frmLogin.frx":0000
|
|
StartUpPosition = 1 'CenterOwner
|
|
End
|
|
Attribute VB_Name = "frmLogin"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Dim i As Integer
|
|
Dim j As Integer
|
|
Dim k As Integer
|
|
|
|
Private Sub cmdExitLogin_Click()
|
|
End
|
|
End Sub
|
|
|
|
Private Sub cmdLogin_Click()
|
|
Dim username_found As Boolean
|
|
|
|
username_found = False
|
|
|
|
' currently 100 users is good enough
|
|
For i = 1 To 100
|
|
If (txtUsername.Text = usernames(i)) Then
|
|
If (txtPassword.Text = passwords(i)) Then
|
|
|
|
' login success, show main form
|
|
frmLogin.Hide
|
|
frmMain.Show
|
|
username_found = True
|
|
End If
|
|
End If
|
|
Next i
|
|
|
|
If (username_found = False) Then
|
|
' login fail, show error message
|
|
MsgBox "sorry but username and password wrong"
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub UserForm_Initialize()
|
|
Debug.Print "start"
|
|
|
|
Common.initAccountFromAccountSheet
|
|
Debug.Print "init account list done"
|
|
|
|
Config.init
|
|
Debug.Print "config init done"
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|