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