Foxtable(狐表)用户栏目专家坐堂 → [求助]仿照说明书做的权限管理,代码出现错误。


  共有7790人关注过本帖树形打印复制链接

主题:[求助]仿照说明书做的权限管理,代码出现错误。

帅哥哟,离线,有人找我吗?
guoqi1129
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:65 积分:607 威望:0 精华:0 注册:2012/6/14 9:32:00
[求助]仿照说明书做的权限管理,代码出现错误。  发帖心情 Post By:2013/1/25 20:43:00 [显示全部帖子]

If Vars("用户管理") = "增加用户" Then
    
    Dim username As WinForm.TextBox = e.Form.Controls("用户名").value
    Dim password As WinForm.TextBox = e.Form.Controls("密码").value
    Dim usergroup As WinForm.ComboBox = e.Form.Controls("属性").value
    Dim cmd As New SQLCommand
    cmd.C
    If username = "" OrElse usergroup = "" Then
        Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
    cmd.CommandText = "Insert Into {用户表} ([用户名],[属性],[密码]) Values ('"
    cmd.CommandText = cmd.CommandText & username & "','" & usergroup & "','" & password & "')"
    If cmd.ExecuteNonQuery = 1 Then '返回1表示增加成功
        With Forms("用户管理").Controls("ListBox1")
            .Items.Add(username)
            .SelectedIndex = .Items.Count -1
        End With
    Else
        Messagebox.show("增加用户失败, 可能存在同名用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
    
End If
代码保存时显示编译错误:重载决策失败,原因是没有可访问的“=“可以调用这些参数,错误代码是标黄代码。

 回到顶部