主题：用户权限设置后，登录设置

您好！请兄弟赐教兄弟定义了用户权限，然后用教程里这段代码加入什么内容，可以直接登录了？

 

Dim r As String = e.Form.controls("textbox1").text
Dim mm As String = e.Form.controls("textbox2").text
Dim dr As DataRow
Dr = DataTables("用户").find("[用户名]='"& r &"' and [密码]='"& mm &"'" )
If dr IsNot Nothing Then
Tables("用户")(0)("用户名") = r
Tables("用户")(0)("密码") = mm
Messagebox.show("您成功登录!", "提示",MessageBoxButtons.ok, messageboxicon.information)
   
E.form.close()
Else
Messagebox.show("用户名或密码错误!","提示", messageboxbuttons.ok,messageboxicon.error)
E.form.controls("textbox1").Select()
End If

我想设计一个可以让用户登录、注册的窗体页面，如果如果用户名密码对，则按照用户名登录，如果用户名不对则提示用户名或密码有误；如果新客户则可以登录

但不知道如下代码怎么修改可以完成此功能

图片地址链接如下：

 

http://image.baidu.com/i?ct=503316480&z=&tn=baiduimagedetail&word=%B5%C7%C2%BC%D2%B3%C3%E6&in=22457&cl=2&lm=-1&st=&pn=37&rn=1&di=67168019260&ln=1995&fr=&fm=&fmq=1336994382328_R&ic=&s=&se=&sme=0&tab=&width=&height=&face=&is=&istype=#pn37&-1&di67168019260&objURLhttp%3A%2F%2Fhiphotos.baidu.com%2Fmichaellwg23%2Fpic%2Fitem%2F4a59d5a8526129e9ca130c34.jpg&fromURLhttp%3A%2F%2Fhi.baidu.com%2Fmichaellwg23%2Falbum%2Fitem%2F4a59d5a8526129e9ca130c34.html&W393&H219&T9831&S4&TPjpg

您好，我按照  <自定义用户与权限管理>十个步骤把窗口和代码输进去了,除了第十条没找到地方.出来 三个 问题 请教一下：

问题1:教程中的系统菜单和"用户管理"按钮在哪里呢?  窗口的显示框在11版本的在哪里?

十、最后修改菜单中的"用户管理"和"切换用户"按钮的代码，启用"用户管理"按钮的代码为：

Forms("用户管理").Open()

"切换用户"按钮的代码为：

Forms("用户登录").Open()

你可以先应用系统菜单“system.ribbon”，然后再修改。

如果需要，还可以增加一个更改密码的按钮，代码设置为：

Forms("更改用户").Open()

 

 

为了防止用户跳过确定和取消按钮，直接关闭窗口，请将窗口的“显示控制框”属性设置为False。

 

问题2:我应用窗口时候老弹出附件中错误代码,这是什么原因呢>

 

问题3:用户登陆时候,输入用户名+密码出来,提示框见附件

 

此主题相关图片如下：错误代码.png


此主题相关图片如下：用户登陆错误代码.jpg

请指教

请指教