?? 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 = 2790
ClientTop = 3045
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
StartUpPosition = 2 '屏幕中心
Begin VB.ComboBox txtUserName
Height = 300
Left = 1800
Style = 2 'Dropdown List
TabIndex = 5
Top = 960
Width = 2325
End
Begin CSCommand.Command cmdCancel
Height = 375
Left = 2707
TabIndex = 4
Top = 2160
Width = 1215
_ExtentX = 2143
_ExtentY = 661
IconAlign = 0
Icon = "frmLogin.frx":0442
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 = 360
TabIndex = 3
Top = 2160
Width = 1215
_ExtentX = 2143
_ExtentY = 661
IconAlign = 0
Icon = "frmLogin.frx":045E
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 = 2325
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":047A
Stretch = -1 'True
Top = 840
Width = 480
End
Begin VB.Image Image2
Height = 480
Left = 120
Picture = "frmLogin.frx":1DFC
Stretch = -1 'True
Top = 1440
Width = 480
End
Begin VB.Image Image3
Height = 735
Left = 0
Picture = "frmLogin.frx":377E
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 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
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -