VB6 and ASP 制作管理系统1制作添加用户（3）

 

上次说到，登录之后，卸载登录窗口，然后显示管理界面；

界面随便设计吧.

窗体图如下，随便画的，有点乱。将就看吧，能知道用什么控件就行了！

只需要在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