-
Notifications
You must be signed in to change notification settings - Fork 0
/
Form2.frm
188 lines (188 loc) · 5.53 KB
/
Form2.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 Form2
Caption = "创建新用户"
ClientHeight = 3105
ClientLeft = 60
ClientTop = 450
ClientWidth = 6285
Icon = "Form2.frx":0000
LinkTopic = "Form2"
ScaleHeight = 3105
ScaleWidth = 6285
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer1
Interval = 1000
Left = 5280
Top = 2640
End
Begin VB.CommandButton Command3
Caption = "返回登陆界面"
Height = 375
Left = 3360
TabIndex = 10
Top = 2520
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "清空"
Height = 375
Left = 2400
TabIndex = 9
Top = 2520
Width = 735
End
Begin VB.CommandButton Command1
Caption = "创建新账户"
Height = 375
Left = 840
TabIndex = 8
Top = 2520
Width = 1335
End
Begin VB.TextBox Text4
Height = 270
Left = 1200
TabIndex = 7
Top = 2040
Width = 3615
End
Begin VB.TextBox Text3
Height = 270
Left = 1200
TabIndex = 5
Top = 1440
Width = 3615
End
Begin VB.TextBox Text2
Height = 270
Left = 1200
TabIndex = 3
Top = 825
Width = 3615
End
Begin VB.TextBox Text1
Height = 270
Left = 1200
TabIndex = 1
Top = 240
Width = 3615
End
Begin VB.Label Label8
Height = 255
Left = 4920
TabIndex = 14
Top = 2040
Width = 1215
End
Begin VB.Label Label7
Height = 255
Left = 4920
TabIndex = 13
Top = 1440
Width = 1215
End
Begin VB.Label Label6
Height = 255
Left = 4920
TabIndex = 12
Top = 840
Width = 1215
End
Begin VB.Label Label5
Height = 255
Left = 4920
TabIndex = 11
Top = 240
Width = 1095
End
Begin VB.Label Label4
Caption = "密码答案"
Height = 255
Left = 240
TabIndex = 6
Top = 2040
Width = 855
End
Begin VB.Label Label3
Caption = "密码问题"
Height = 255
Left = 240
TabIndex = 4
Top = 1440
Width = 735
End
Begin VB.Label Label2
Caption = "密 码"
Height = 255
Left = 480
TabIndex = 2
Top = 840
Width = 615
End
Begin VB.Label Label1
Caption = "用户名"
Height = 255
Left = 480
TabIndex = 0
Top = 240
Width = 615
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click() ' 创建新账号 ok at 11-10-11
'检查
If Text1 = "" Then MsgBox "未填写用户名！": Exit Sub
If Text2 = "" Then MsgBox "未填写密码！": Exit Sub
If Text3 = "" Then MsgBox "未填写问题！": Exit Sub
If Text4 = "" Then MsgBox "未填写答案！": Exit Sub
If Label5.Caption = "用户名已存在" Then Exit Sub
'Add user
'改变成数据库操作
Set res = New ADODB.Recordset
res.Open "users", conn, adOpenStatic, adLockOptimistic
With res
.AddNew
.Fields("userName") = Text1.Text
.Fields("passWord") = Text2.Text
.Fields("passQuestion") = Text3.Text
.Fields("passAnswer") = Text4.Text
.Update
End With
res.Close
MsgBox "账户创建成功，转到登录界面"
Call refreshlogin '重新加载用户信息
Form1.Text2 = Text2.Text
Form1.Command3.Enabled = False
Command2_Click '调用“清空按钮”
Timer1.Enabled = False
Form2.Hide
Form1.Show
End Sub
Private Sub Command2_Click() '清空 ok at 11-10-11
Text1 = "": Text2 = "": Text3 = "": Text4 = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click() '返回登录界面 ok at 11-10-11
Form2.Hide
Form1.Show
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer) '手动关闭此界面时，切换回登陆界面
Form2.Hide
Form1.Show
End Sub
Private Sub Timer1_Timer() 'ok at 11-10-11
'效验用户名是否重复
Text1.Text = Replace(Text1.Text, "'", "")
Set veryId = New ADODB.Recordset
veryId.Open "select * from users where userName='" & Text1.Text & "'", conn, adOpenStatic, adLockOptimistic
If veryId.RecordCount = 0 Then veryId.Close: Label5.Visible = False: Exit Sub
Label5.Visible = True
Label5.ForeColor = vbGreen
Label5.Caption = "用户名已存在"
veryId.Close
End Sub