ur.bas

这是一个用来管理一个运行系统权限的程序

Attribute VB_Name = "Ur"
'调用:Ur.exe ur.mdb/UrName/UrLimit
Option Explicit
Public UrName As String '用户名
Public UrLimit As Single '用户权限
Public UrMdbConStr As String '用户数据库连接字符串
Public UrConfig As String '用户配置文件连接字符串

Private Sub Main() '主程序
  Dim Aa() As String
  UrConfig = App.Path & "\UrConfig.ini"
'  Dim Command1 As String
'  Command1 = "Ur.mdb/超级用户/32767"
  On Error GoTo Err1
  Aa = Split(Command, "/")
  UrMdbConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & Aa(0) & ";Persist Security Info=True;Jet OLEDB:Database Password=SAIMOUR"
  UrName = Aa(1)
  UrLimit = CSng(Aa(2))
  Frm用户.Show vbModal
  Exit Sub
Err1:
  MsgBox "非授权用户!", 48, "系统提示"
  End
End Sub