build login form
This commit is contained in:
parent
9b14ba77f5
commit
07d66cc754
35
login.frm
Normal file
35
login.frm
Normal file
@ -0,0 +1,35 @@
|
||||
VERSION 5.00
|
||||
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} login
|
||||
Caption = "CMS Login"
|
||||
ClientHeight = 2325
|
||||
ClientLeft = 120
|
||||
ClientTop = 465
|
||||
ClientWidth = 1950
|
||||
OleObjectBlob = "login.frx":0000
|
||||
StartUpPosition = 1 'CenterOwner
|
||||
End
|
||||
Attribute VB_Name = "login"
|
||||
Attribute VB_GlobalNameSpace = False
|
||||
Attribute VB_Creatable = False
|
||||
Attribute VB_PredeclaredId = True
|
||||
Attribute VB_Exposed = False
|
||||
Public proceed As Boolean
|
||||
|
||||
|
||||
|
||||
Private Sub cbCANCEL_Click()
|
||||
tbU.Text = ""
|
||||
tbP.Text = ""
|
||||
proceed = False
|
||||
Me.Hide
|
||||
End Sub
|
||||
|
||||
Private Sub cbOK_Click()
|
||||
proceed = True
|
||||
Me.Hide
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub UserForm_Terminate()
|
||||
proceed = False
|
||||
End Sub
|
Loading…
Reference in New Issue
Block a user