?? login.frm
字號:
VERSION 5.00
Begin VB.Form Login
BorderStyle = 1 'Fixed Single
Caption = "登錄到系統"
ClientHeight = 3090
ClientLeft = 45
ClientTop = 330
ClientWidth = 4620
ForeColor = &H8000000A&
Icon = "Login.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3481.69
ScaleMode = 0 'User
ScaleWidth = 4620
StartUpPosition = 2 '屏幕中心
WhatsThisHelp = -1 'True
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2640
TabIndex = 6
Top = 2160
Width = 975
End
Begin VB.CommandButton cmdOK
Caption = "確定"
Default = -1 'True
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 5
Top = 2160
Width = 975
End
Begin VB.Frame Frame1
Height = 1335
Left = 360
TabIndex = 0
Top = 720
Width = 3735
Begin VB.TextBox txtPassWord
Height = 270
IMEMode = 3 'DISABLE
Left = 960
MaxLength = 20
PasswordChar = "*"
TabIndex = 4
Text = "1"
Top = 720
Width = 2415
End
Begin VB.TextBox txtUserName
Height = 270
Left = 960
MaxLength = 20
TabIndex = 3
Text = "Guest"
Top = 240
Width = 2415
End
Begin VB.Label Label2
Caption = "密 碼："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 2
Top = 840
Width = 855
End
Begin VB.Label Label1
Caption = "用戶名："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 1
Top = 240
Width = 855
End
End
Begin VB.Label Label3
Caption = "湖工人事管理系統"
BeginProperty Font
Name = "華文彩云"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 840
TabIndex = 8
Top = 240
Width = 3135
End
Begin VB.Label label13
Caption = "版權提供：梁峰"
BeginProperty Font
Name = "楷體_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 2640
TabIndex = 7
Top = 2640
Width = 1815
End
End
Attribute VB_Name = "Login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
'驗證用戶填寫的正確
If txtUserName.Text = "" Then
MsgBox "請填寫用戶名！", vbOKOnly + vbInformation, "注意"
txtUserName.SetFocus
Exit Sub
ElseIf txtPassword.Text = "" Then
MsgBox "請填寫密碼！", vbOKOnly + vbInformation, "注意"
txtPassword.SetFocus
Exit Sub
End If
'設置登錄變量，這是為IsExistUser函數而設置的
g_blogin = True
If IsExistuser(txtUserName.Text, txtPassword.Text) Then
'用戶登錄成功
Unload Me
Else
If IsExistuser(txtUserName.Text, "") Then
MsgBox "密碼不正確！請重試……", vbOKOnly + vbInformation, "錯誤"
Else
MsgBox "無此用戶！請先注冊……", vbOKOnly + vbInformation, "錯誤"
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim Msg, Response ' 聲明變量。
With frmMain
If g_blogin Then
.ygAdd.Enabled = True
.ygDel.Enabled = True
.ygEdit.Enabled = True
.ygFind.Enabled = True
.kqAdd.Enabled = True
.kqDel.Enabled = True
.kqEdit.Enabled = True
.kqFind.Enabled = True
.gzEdit.Enabled = True
.gzFind.Enabled = True
.gzJifa.Enabled = True
.pjAdd.Enabled = True
.pjDel.Enabled = True
.pjEdit.Enabled = True
.pjFind.Enabled = True
Else
Msg = "你真的不登錄到系統嗎？"
Response = MsgBox(Msg, vbQuestion + vbYesNoCancel, "登錄")
Select Case Response
Case vbCancel ' 不允許關閉。
Cancel = -1
Case vbYes
Msg = "未登錄到系統！" '
Case vbNo
Msg = "請輸入正確的用戶名及密碼！"
txtUserName.Text = ""
txtPassword.Text = ""
txtUserName.SetFocus
Cancel = -2
End Select
MsgBox Msg, vbOKOnly, "登錄" ' 顯示信息。
.ygAdd.Enabled = False
.ygDel.Enabled = False
.ygEdit.Enabled = False
.ygFind.Enabled = False
.kqAdd.Enabled = False
.kqDel.Enabled = False
.kqEdit.Enabled = False
.kqFind.Enabled = False
.gzEdit.Enabled = False
.gzFind.Enabled = False
.gzJifa.Enabled = False
.pjAdd.Enabled = False
.pjDel.Enabled = False
.pjEdit.Enabled = False
.pjFind.Enabled = False
End If
End With
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -