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

界面随便设计吧.

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

只需要在Command1按钮处添加代码即可: 

添加用户,用到 两个Text控件,一个Command控件。

Text控件分别命名为:txtUser,txtPass

 VB6 and ASP 制作管理系统1--制作添加用户(3)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

双击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, 13
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

 

 

转载于:https://www.cnblogs.com/findw/archive/2012/03/19/2406074.html

分类:

技术点:

相关文章: