?? form3.frm
字號:
VERSION 5.00
Begin VB.Form Form3
BorderStyle = 1 'Fixed Single
Caption = "登陸界面"
ClientHeight = 4455
ClientLeft = 45
ClientTop = 435
ClientWidth = 5760
Icon = "Form3.frx":0000
LinkTopic = "Form3"
MaxButton = 0 'False
Picture = "Form3.frx":F84A
ScaleHeight = 4455
ScaleWidth = 5760
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 = 2400
PasswordChar = "*"
TabIndex = 1
Top = 2320
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 = 375
Left = 2400
TabIndex = 0
Top = 1800
Width = 2175
End
Begin VB.Image Image2
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 375
Left = 3320
MouseIcon = "Form3.frx":1F3E9
MousePointer = 99 'Custom
Top = 3360
Width = 975
End
Begin VB.Image Image1
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 375
Left = 1450
MouseIcon = "Form3.frx":1F53B
MousePointer = 99 'Custom
Top = 3360
Width = 975
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Call Image1_Click
End Sub
Private Sub Form_Load()
Text1.BackColor = RGB(98, 162, 207)
Text2.BackColor = RGB(98, 162, 207)
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
Unload Me
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 + -