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