用户管理的窗口：afterload，写入以下代码，窗口绑定在 授权表下
Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
lst.ComboList = _UserTable.SQLGetComboListString("Name")
If Lst.Items.Count > 0 Then
lst.SelectedIndex = 0
End If '用户管理
For Each ck As DataRow In DataTables("授权表").Select("分组 = ' " & user.Group & " ' And 表名 = '" & e.Form.name & " '")
e.form.controls(ck("列名")).Visible = Not ck("不可见")
e.form.controls(ck("列名")).Visible = Not ck("不可编辑")
Next '将窗口以表名字写入授权表控制
此主题相关图片如下：tim截图20180327115138.png
不用管理员登陆，提示错误后，无法进入系统
此主题相关图片如下：tim截图20180327092235.png
[此贴子已经被作者于2018/3/27 11:54:09编辑过]
加好友 
发短信
Post By：2018/3/27 11:54:00 [只看该作者]
