variable.bas

vb与access数据库的操作实例

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'定义表示选中部门数据的全局变量
Public FocusDepName As String
Public Focuskey As String
Public FocusDepBh As Long
'部门数组
Public Arr_DepName() As String      '保存部门名称
Public Arr_DepDescribe() As String  '部门功能描述
Public Arr_DepId() As Integer       '部门编号
'员工数组
Public Arr_EmpId() As Integer       '员工编号
'声明类模块变量，每个对象用于操作相应的表
Public MyEmp As New Employees       '员工对象
Public CurEmp As New Employees      '当前员工对象
Public UpperEmp As New Employees    '选择的上级员工对象
Public MyDep As New Departments     '部门对象
Public CurDep As New Departments    '当前部门对象
Public MyCheck As New CheckIn       '考勤对象
Public MyEva As New Evaluation      '考评对象
Public MyExp As New Experience      '工作经历对象
Public MyFam As New Family          '家庭成员对象
Public MyUser As New Users          '用户对象
Public CurUser As New Users         '当前用户对象