?? form5.frm
字號:
VERSION 5.00
Begin VB.Form Form5
BorderStyle = 0 'None
Caption = "登陸界面"
ClientHeight = 4020
ClientLeft = 0
ClientTop = 0
ClientWidth = 5955
Icon = "Form5.frx":0000
LinkTopic = "Form5"
MaxButton = 0 'False
Picture = "Form5.frx":F84A
ScaleHeight = 4020
ScaleWidth = 5955
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.TextBox Text2
Appearance = 0 'Flat
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
IMEMode = 3 'DISABLE
Left = 2160
PasswordChar = "*"
TabIndex = 1
Top = 2085
Width = 2175
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 2160
TabIndex = 0
Top = 1520
Width = 2175
End
Begin VB.Image Image2
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 375
Left = 3315
MouseIcon = "Form5.frx":231F9
MousePointer = 99 'Custom
Top = 3120
Width = 975
End
Begin VB.Image Image1
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 375
Left = 1440
MouseIcon = "Form5.frx":2334B
MousePointer = 99 'Custom
Top = 3120
Width = 975
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub ReleaseCapture Lib "user32" () '支持移動API
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Command1_Click()
Call Image1_Click
End Sub
Private Sub Form_Load()
Text1.BackColor = RGB(162, 128, 146)
Text2.BackColor = RGB(162, 128, 146)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture '以下的移動方式更簡便
SendMessage Me.hwnd, &HA1, 2, 0&
End Sub
Private Sub Image1_Click()
Set qy1 = cnn.Execute("select * from 用戶 where 用戶名='" & Text1.Text & "' and 密碼='" & Text2.Text & "'")
If qy1.EOF = True Then
MsgBox "用戶名或密碼錯誤!", vbInformation, "提示"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
Else
If qy1.Fields(3) = "管理員" Then
isadmin = True
Else
isadmin = False
End If
Unload Me
loginname = qy1.Fields(2)
form1.Show
End If
End Sub
Private Sub Image2_Click()
End
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Image1_Click
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -