-
Notifications
You must be signed in to change notification settings - Fork 2
/
frmSignUp.frm
188 lines (184 loc) · 5.75 KB
/
frmSignUp.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
VERSION 5.00
Begin VB.Form frmSignUp
BackColor = &H00C0FFFF&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 5400
ClientLeft = 0
ClientTop = 0
ClientWidth = 4875
FillColor = &H00C0FFFF&
ForeColor = &H00C0FFFF&
Icon = "frmSignUp.frx":0000
LinkTopic = "Form1"
ScaleHeight = 5400
ScaleWidth = 4875
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton cmdSignUp
Caption = "注册！"
Default = -1 'True
Enabled = 0 'False
Height = 495
Left = 1800
TabIndex = 5
Top = 4800
Width = 1095
End
Begin VB.CheckBox chkAgree
BackColor = &H00C0FFFF&
Caption = "我同意遵守国家有关法律法规。"
BeginProperty Font
Name = "微软雅黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 4
Top = 4200
Width = 3975
End
Begin VB.TextBox texAgain
Height = 375
IMEMode = 3 'DISABLE
Left = 1440
MaxLength = 15
PasswordChar = "*"
TabIndex = 3
Top = 3720
Width = 2895
End
Begin VB.TextBox texUsername
Height = 375
Left = 1440
MaxLength = 15
TabIndex = 1
Top = 2520
Width = 2895
End
Begin VB.TextBox texPassword
Height = 375
IMEMode = 3 'DISABLE
Left = 1440
MaxLength = 15
PasswordChar = "*"
TabIndex = 2
Top = 3120
Width = 2895
End
Begin VB.Image imgClose
Height = 450
Left = 4440
Picture = "frmSignUp.frx":1B692
Stretch = -1 'True
Top = 0
Width = 450
End
Begin VB.Label lblAgain
BackStyle = 0 'Transparent
Caption = "确认密码"
BeginProperty Font
Name = "微软雅黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 7
Top = 3720
Width = 1095
End
Begin VB.Label lblUsername
BackStyle = 0 'Transparent
Caption = "邮 箱"
BeginProperty Font
Name = "微软雅黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 6
Top = 2520
Width = 1095
End
Begin VB.Label lblPassword
BackStyle = 0 'Transparent
Caption = "密 码"
BeginProperty Font
Name = "微软雅黑"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
TabIndex = 0
Top = 3120
Width = 1095
End
Begin VB.Image imgTitle
Appearance = 0 'Flat
Height = 2145
Left = -1320
Picture = "frmSignUp.frx":1CF8A
Stretch = -1 'True
Top = 0
Width = 7335
End
End
Attribute VB_Name = "frmSignUp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub chkAgree_Click()
If chkAgree.Value = 0 Then
cmdSignUp.Enabled = False
Else
cmdSignUp.Enabled = True
End If
End Sub
Private Sub cmdSignUp_Click()
If texUsername = "" Then
MsgBox "请输入用户名！", vbOKOnly, "错误"
ElseIf texusename = "访客" Then
MsgBox "禁止使用该用户名！", vbOKOnly, "错误"
ElseIf texPassword = "" Then
MsgBox "请输入密码！", vbOKOnly, "错误"
ElseIf texPassword <> texAgain Then
MsgBox "两次密码输入不一致！", vbOKOnly, "错误"
ElseIf dataSignUp(texUsername, texPassword) = False Then
MsgBox "已存在此用户名！", vbOKOnly, "错误"
Else
MsgBox "注册成功！", vbOKOnly, "注册成功"
Me.Hide
End If
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub
Private Sub imgClose_Click()
Me.Hide
Unload Me
End Sub
Private Sub imgTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub