以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义用户与权限管理之二  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131843)
--  作者：zto001
--  发布时间：2019/3/7 14:00:00
--  [求助]自定义用户与权限管理之二
在说明文档--自定义用户与权限管理之二这节里面有一个示例文件，
1、这个文件的外部数据源不存在。为什么还能正常用？关于这里面外部数据源用在哪里怎么用？我把他所有代码复制过来重新做一个怎么每次都提示创建外部数据源错误？（已解决）
新问题：2、在未登录的情况下怎么往外部数据源里面增加数据？

Dim UserName As String = e.Form.Controls("TextBox5").Value
Dim UserGroup As String  = e.Form.Controls("TextBox1").Value
Dim Userxm As String  = e.Form.Controls("TextBox2").Value
Dim PassWord As String = e.Form.Controls("TextBox4").Value
Dim dr As DataRow
If UserName = "" OrElse UserGroup = "" Then
    Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If _UserTable.SQLFind("[Name] = \'" & UserName & "\'") IsNot Nothing Then
    Messagebox.show("增加用户失败,已经能存在同名用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = _UserTable.AddNew()
dr("Name") = UserName
dr("Group") = UserGroup
dr("xm") = Userxm 
dr("Password") = PassWord
_UserTable.Save()
e.Form.Close()
下面这节不需要，如何把上面dr行的内容保存进外部数据源user？
If Forms("用户管理").Opened Then
    With Forms("用户管理").Controls("ListBox1")
        .Items.Add(UserName)
        .SelectedIndex = .Items.Count -1
    End With
End If
[此贴子已经被作者于2019/3/14 15:07:17编辑过]
--  作者：zto001
--  发布时间：2019/3/7 14:05:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:登录界面.table

附件如上
--  作者：有点甜
--  发布时间：2019/3/7 14:45:00
--  

 

mdb文件在文件夹 casestudy 里面啊。自己好好去找找。把数据库拷贝到你自己的项目文件夹里面去。

 
--  作者：zto001
--  发布时间：2019/3/9 16:38:00
--  
想问问，我想吧Name换成电话号码Tel登录。我用电话号码Tel替换Name，能登陆但不能获取Tel，是怎么回事？
--  作者：有点蓝
--  发布时间：2019/3/9 16:56:00
--  
怎么获取Tel的？写了什么代码？
--  作者：zto001
--  发布时间：2019/3/14 15:07:00
--  
新问题：2、在未登录的情况下怎么往外部数据源里面增加数据？

Dim UserName As String = e.Form.Controls("TextBox5").Value
Dim UserGroup As String  = e.Form.Controls("TextBox1").Value
Dim Userxm As String  = e.Form.Controls("TextBox2").Value
Dim PassWord As String = e.Form.Controls("TextBox4").Value
Dim dr As DataRow
If UserName = "" OrElse UserGroup = "" Then
    Messagebox.show("请输入用户名和用户分组!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If _UserTable.SQLFind("[Name] = \'" & UserName & "\'") IsNot Nothing Then
    Messagebox.show("增加用户失败,已经能存在同名用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = _UserTable.AddNew()
dr("Name") = UserName
dr("Group") = UserGroup
dr("xm") = Userxm 
dr("Password") = PassWord
_UserTable.Save()
e.Form.Close()
下面这节不需要，如何把上面dr行的内容保存进外部数据源user？
If Forms("用户管理").Opened Then
    With Forms("用户管理").Controls("ListBox1")
        .Items.Add(UserName)
        .SelectedIndex = .Items.Count -1
    End With
End If
--  作者：有点甜
--  发布时间：2019/3/14 15:46:00
--  

 

回复6楼，现在你遇到什么问题？代码没有错啊。

 

具体实例发上来测试。