📄 frmzwcxlogin.frm
字号:
VERSION 5.00
Begin VB.Form frmzwcxLogin
BorderStyle = 0 'None
Caption = "Form2"
ClientHeight = 9000
ClientLeft = 0
ClientTop = 0
ClientWidth = 12000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "frmzwcxLogin.frx":0000
ScaleHeight = 9000
ScaleWidth = 12000
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.PictureBox Picture3
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 360
Left = 4335
MouseIcon = "frmzwcxLogin.frx":15F944
MousePointer = 99 'Custom
Picture = "frmzwcxLogin.frx":15FA96
ScaleHeight = 360
ScaleWidth = 1170
TabIndex = 21
Top = 7665
Visible = 0 'False
Width = 1170
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 2430
Left = 3960
Picture = "frmzwcxLogin.frx":16100E
ScaleHeight = 2430
ScaleWidth = 1650
TabIndex = 20
Top = 5190
Visible = 0 'False
Width = 1650
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
Height = 345
Left = 5625
TabIndex = 19
Top = 6930
Visible = 0 'False
Width = 1845
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
Height = 345
Left = 5625
TabIndex = 18
Top = 6510
Visible = 0 'False
Width = 1845
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
Height = 345
Left = 5625
TabIndex = 17
Top = 6075
Visible = 0 'False
Width = 1845
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
Height = 345
Left = 5625
TabIndex = 16
Top = 5655
Visible = 0 'False
Width = 1845
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 315
Left = 6255
MouseIcon = "frmzwcxLogin.frx":16F876
MousePointer = 99 'Custom
Picture = "frmzwcxLogin.frx":16F9C8
ScaleHeight = 285
ScaleWidth = 975
TabIndex = 15
Top = 4245
Width = 1005
End
Begin VB.CommandButton Command13
Caption = "登陆"
Height = 375
Left = 7455
TabIndex = 14
Top = 3330
Width = 990
End
Begin VB.CommandButton Command12
Height = 615
Left = 10905
TabIndex = 13
Top = 5220
Width = 675
End
Begin VB.CommandButton Command11
Height = 615
Left = 9960
TabIndex = 12
Top = 5220
Width = 675
End
Begin VB.CommandButton Command10
Height = 630
Left = 8895
TabIndex = 11
Top = 5205
Width = 660
End
Begin VB.CommandButton Command9
Height = 630
Left = 10905
TabIndex = 10
Top = 4275
Width = 675
End
Begin VB.CommandButton Command8
Height = 645
Left = 9930
TabIndex = 9
Top = 4260
Width = 675
End
Begin VB.CommandButton Command7
Height = 675
Left = 8880
TabIndex = 8
Top = 4245
Width = 675
End
Begin VB.CommandButton Command6
Height = 645
Left = 10920
TabIndex = 7
Top = 3270
Width = 660
End
Begin VB.CommandButton Command5
Height = 630
Left = 9900
TabIndex = 6
Top = 3300
Width = 690
End
Begin VB.CommandButton Command4
Height = 630
Left = 8865
TabIndex = 5
Top = 3300
Width = 690
End
Begin VB.CommandButton Command3
Height = 630
Left = 10875
TabIndex = 4
Top = 2370
Width = 675
End
Begin VB.CommandButton Command2
Height = 630
Left = 9862
TabIndex = 3
Top = 2385
Width = 690
End
Begin VB.CommandButton Command1
Height = 645
Left = 8850
TabIndex = 2
Top = 2370
Width = 705
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
Height = 285
IMEMode = 3 'DISABLE
Left = 5280
PasswordChar = "*"
TabIndex = 1
Top = 3570
Width = 1995
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
Height = 285
Left = 5280
TabIndex = 0
Top = 3195
Width = 1995
End
End
Attribute VB_Name = "frmzwcxLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Dim adoRs As ADODB.Recordset
Private Sub Command1_Click()
Select Case i
Case 0
Text1.Text = Text1 & "1"
Case 1
Text2.Text = Text2 & "1"
End Select
End Sub
Private Sub Command10_Click()
Select Case i
Case 0
Text1.Text = Text1 & "0"
Case 1
Text2.Text = Text2 & "0"
End Select
End Sub
Private Sub Command11_Click()
If i = 0 Then
Me.Text1.Text = ""
ElseIf i = 1 Then
Me.Text2.Text = ""
End If
End Sub
Private Sub Command12_Click()
If i = 1 Then
i = 0
Else
i = i + 1
Me.Text2.SetFocus
End If
End Sub
Private Sub Command13_Click()
If Trim(Me.Text1.Text) = "" Then
MsgBox "手机号码不能为空！", vbExclamation, "Microsoft Internet Explore"
Exit Sub
End If
If Len(Trim(Me.Text1.Text)) < 11 Then
MsgBox "手机号码不能小于11位！", vbExclamation, "Microsoft Internet Explore"
Exit Sub
End If
adoRs.Open "select PhoneNumber,PassWord from Login where PhoneNumber='" & Trim(Me.Text1.Text) & "' and PassWord='" & Trim(Me.Text2.Text) & "'"
If adoRs.EOF Then
frmError.Show
Else
frmCXJG.Show
End If
adoRs.Close
End Sub
Private Sub Command2_Click()
Select Case i
Case 0
Text1.Text = Text1 & "2"
Case 1
Text2.Text = Text2 & "2"
End Select
End Sub
Private Sub Command3_Click()
Select Case i
Case 0
Text1.Text = Text1 & "3"
Case 1
Text2.Text = Text2 & "3"
End Select
End Sub
Private Sub Command4_Click()
Select Case i
Case 0
Text1.Text = Text1 & "4"
Case 1
Text2.Text = Text2 & "4"
End Select
End Sub
Private Sub Command5_Click()
Select Case i
Case 0
Text1.Text = Text1 & "5"
Case 1
Text2.Text = Text2 & "5"
End Select
End Sub
Private Sub Command6_Click()
Select Case i
Case 0
Text1.Text = Text1 & "6"
Case 1
Text2.Text = Text2 & "6"
End Select
End Sub
Private Sub Command7_Click()
Select Case i
Case 0
Text1.Text = Text1 & "7"
Case 1
Text2.Text = Text2 & "7"
End Select
End Sub
Private Sub Command8_Click()
Select Case i
Case 0
Text1.Text = Text1 & "8"
Case 1
Text2.Text = Text2 & "8"
End Select
End Sub
Private Sub Command9_Click()
Select Case i
Case 0
Text1.Text = Text1 & "9"
Case 1
Text2.Text = Text2 & "9"
End Select
End Sub
Private Sub Form_Load()
i = 0
Form1.Skin1.ApplySkinByName Command1.hwnd, "1"
Form1.Skin1.ApplySkinByName Command2.hwnd, "2"
Form1.Skin1.ApplySkinByName Command3.hwnd, "3"
Form1.Skin1.ApplySkinByName Command4.hwnd, "4"
Form1.Skin1.ApplySkinByName Command5.hwnd, "5"
Form1.Skin1.ApplySkinByName Command6.hwnd, "6"
Form1.Skin1.ApplySkinByName Command7.hwnd, "7"
Form1.Skin1.ApplySkinByName Command8.hwnd, "8"
Form1.Skin1.ApplySkinByName Command9.hwnd, "9"
Form1.Skin1.ApplySkinByName Command10.hwnd, "0"
Form1.Skin1.ApplySkinByName Command11.hwnd, "取消"
Form1.Skin1.ApplySkinByName Command12.hwnd, "确认"
Set adoRs = New ADODB.Recordset
Set adoRs.ActiveConnection = gConnect
adoRs.CursorLocation = adUseClient
adoRs.CursorType = adOpenForwardOnly
adoRs.LockType = adLockOptimistic
End Sub
Private Sub Picture1_Click()
Picture2.Visible = True
Picture3.Visible = True
Me.Text3.Visible = True
Me.Text4.Visible = True
Me.Text5.Visible = True
Me.Text6.Visible = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -