?? frmlogin.frm
字號:
VERSION 5.00
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Begin VB.Form frmLogin
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Caption = "登錄"
ClientHeight = 2760
ClientLeft = 5745
ClientTop = 3420
ClientWidth = 4305
Icon = "frmLogin.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1630.699
ScaleMode = 0 'User
ScaleWidth = 4042.162
ShowInTaskbar = 0 'False
Begin VB.ComboBox txtUserName
Height = 300
ItemData = "frmLogin.frx":0442
Left = 1800
List = "frmLogin.frx":0444
Style = 2 'Dropdown List
TabIndex = 5
Top = 960
Width = 2325
End
Begin CSCommand.Command cmdCancel
Height = 375
Left = 1560
TabIndex = 4
Top = 2160
Width = 1215
_ExtentX = 2143
_ExtentY = 661
IconAlign = 0
Icon = "frmLogin.frx":0446
Caption = "取 消"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommand.Command cmdOK
Height = 375
Left = 120
TabIndex = 3
Top = 2160
Width = 1215
_ExtentX = 2143
_ExtentY = 661
IconAlign = 0
Icon = "frmLogin.frx":0462
Caption = "確 定"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox txtPassword
Height = 300
IMEMode = 3 'DISABLE
Left = 1800
PasswordChar = "*"
TabIndex = 2
Top = 1560
Width = 2355
End
Begin CSCommand.Command cmdHelp
Height = 375
Left = 3000
TabIndex = 7
Top = 2160
Width = 1215
_ExtentX = 2143
_ExtentY = 661
IconAlign = 0
Icon = "frmLogin.frx":047E
Caption = "幫 助"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "登錄"
BeginProperty Font
Name = "楷體_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 2758
Left = 0
TabIndex = 6
Top = 0
Width = 4307
End
Begin VB.Image Image1
Height = 480
Left = 120
Picture = "frmLogin.frx":049A
Stretch = -1 'True
Top = 840
Width = 480
End
Begin VB.Image Image2
Height = 480
Left = 120
Picture = "frmLogin.frx":1E1C
Stretch = -1 'True
Top = 1440
Width = 480
End
Begin VB.Image Image3
Height = 735
Left = 0
Picture = "frmLogin.frx":379E
Stretch = -1 'True
Top = 0
Width = 4290
End
Begin VB.Label lblLabels
BackColor = &H00E0E0E0&
Caption = "用戶名稱:"
Height = 270
Index = 0
Left = 840
TabIndex = 0
Top = 960
Width = 960
End
Begin VB.Label lblLabels
BackColor = &H00E0E0E0&
Caption = "登錄密碼:"
Height = 270
Index = 1
Left = 840
TabIndex = 1
Top = 1560
Width = 960
End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim miCount As Integer
Private Sub cmdHelp_Click()
Shell "hh.exe " & App.Path & "\help.chm::/12.html", vbNormalFocus
End Sub
Private Sub Form_Load()
Dim i As Integer
i = 0
txtSQL = "select * from user_Form"
Set mrc = ExecuteSQL(txtSQL, MsgText)
With txtUserName
Do While Not mrc.EOF
i = i + 1
.AddItem Trim(mrc!user_ID)
mrc.MoveNext
Loop
.ListIndex = i - 1
End With
mrc.Close
OK = False
miCount = 0
End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
txtSQL = "select * from user_Form where user_ID = '" & txtUserName.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = True Then
MsgBox "沒有這個用戶，請重新輸入用戶名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK = True
mrc.Close
Me.Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox "輸入密碼不正確，請重新輸入！", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
miCount = miCount + 1
If miCount = 3 Then
Me.Hide
End If
Exit Sub
'關閉登錄窗口
Unload frmLogin
'使主窗口可用
Load frmMain
frmMain.Enabled = True
frmMain.Visible = True
End Sub
Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode
End Sub
Private Sub txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdOK_Click
End If
End Sub
Private Sub txtUserName_Click()
txtPassword.Text = ""
End Sub
Private Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -