commbas.bas

vb实现的全面质量管理系统

Attribute VB_Name = "CommBas"
Option Explicit

Public GlobalCon As New ADODB.Connection
Public RoleID As String  '当前用户的角色
Public RolePass As String '当前用户的角色的口令字
Public AdoConnectionStr As String 'ADO连接字符串
Public NowFormName As String    '当前的窗体代码
Public NowUserFuncQx As String  '用户使用的权限
Public FormPath As String  '当前使用的系统缺省路径