上次說到，登錄之後，卸載登錄窗口，然後顯示管理界面；
界面隨便設計吧.
窗體圖如下，隨便畫的，有點亂。將就看吧，能知道用什麼控件就行了！
只需要在Command1按鈕處添加代碼即可：
添加用戶，用到 兩個Text控件，一個Command控件。
Text控件分別命名爲：txtUser,txtPass
雙擊Command1 添加如下代碼：
呵呵，習慣了ASP的寫法，
也可以直接用：conn.Execute("inst語句直接插入")
1
Private
Sub Command1_Click()
2 ' 添加用戶
3 Dim tuser
4 Dim tpass
5 tuser = Trim$(txtUser.Text)
6 tpass = Trim$(txtPass.Text)
7
8 If tuser = "" Then
9 MsgBox " 用戶名不可爲空 "
10 txtUser.SetFocus
11 Exit Sub
12 End If
13 If tpass = "" Then
14 MsgBox " 密碼不可爲空 "
15 txtPass.SetFocus
16 Exit Sub
17 End If
18
19 ' 打開數據庫連接
20 Call OpenConn
21 sql = " select * from vuinfo "
22 rs.Open sql, conn, 1, 3
23 rs.AddNew
24 rs.Fields( " username ") = tuser
25 rs.Fields( " password ") = tpass
26 rs.Fields( " userPower ") = 0
27 rs.Update
28 ' 關閉數據庫連接
29 Call CloseConn
30
31 MsgBox " 添加用戶成功 "
32 txtUser.Text = ""
33 txtPass.Text = ""
34 txtUser.SetFocus
35 End Sub
2 ' 添加用戶
3 Dim tuser
4 Dim tpass
5 tuser = Trim$(txtUser.Text)
6 tpass = Trim$(txtPass.Text)
7
8 If tuser = "" Then
9 MsgBox " 用戶名不可爲空 "
10 txtUser.SetFocus
11 Exit Sub
12 End If
13 If tpass = "" Then
14 MsgBox " 密碼不可爲空 "
15 txtPass.SetFocus
16 Exit Sub
17 End If
18
19 ' 打開數據庫連接
20 Call OpenConn
21 sql = " select * from vuinfo "
22 rs.Open sql, conn, 1, 3
23 rs.AddNew
24 rs.Fields( " username ") = tuser
25 rs.Fields( " password ") = tpass
26 rs.Fields( " userPower ") = 0
27 rs.Update
28 ' 關閉數據庫連接
29 Call CloseConn
30
31 MsgBox " 添加用戶成功 "
32 txtUser.Text = ""
33 txtPass.Text = ""
34 txtUser.SetFocus
35 End Sub