variable.bas

职工工资管理系统

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'连接字符串
Public Conn As String
'选择保险的项目和关键字
Public sInsuItems As String
Public sInsuKeys As String
'读取表中列值的变量
Public ColVal As String
'分类数组
Public Arr_Type() As String
Public Arr_Id() As Long
'用户数组
Public Arr_User() As String         '用户名
'类模块对象
Public MyUser As New mima             '用户对象
Public CurUser As New mima            '当前用户对象
Public MyLog As New SysLog          '日志对象