用户管理 (用户的权限管理）

1.结构：Ur.exe 主程序

Ur.mdb 用户数据库

　　　　UrConfig.ini 配置文件



2.调用:

在程序中直接调用可执行文件

　　　　Shell "Ur.exe Ur.mdb/SAIMOUR/LurName/LurLimit", vbNormalFocus

数据库/数据库密码/用户名称/用户权限



On Error GoTo err1

AppActivate "用户管理"

Exit Sub

err1:

Shell App.Path & "\Ur.exe Ur.mdb/SAIMOUR/" & LurName & "/" & LurLimit, vbNormalFocus



3.配置文件：UrConfig.ini

[权限菜单]

Menu=用户管理,通信设置,班次设置,查询打印,报警管理,历史曲线,数据修改,仪表监控,系统退出

说明：权限菜单中最多可输入15项，第一项必需‘用户管理’以用于设置自身的权限管理，其它任意。



4.数据库：Ur.mdb 带密码保护 密码:SAIMOUR

　　　　包括一个表：Ur

Ur为操作用户表

　　　　表结构为：序号、编号、用户、密码、权限。

　　　　

5.打开：

　　　　UrMdbConStr = "Provider=Microsoft.Jet.OLEDB.4.0 Data Source=" & App.Path & "\Ur.mdb Persist Security Info=True Jet OLEDB:Database Password=SAIMOUR"-Ur.exe　　　　　　　

Ur.mdb　　 　　　　

UrConfig.ini