variable.bas

企业人员管理 前台是vb 后台是用sql server2000做的

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'服务器名称
Public ServerName As String
'读取表中列值的变量
Public ColVal As String
'部门数组
Public Arr_DepartName() As String
Public Arr_DepartDescribe() As String
Public Arr_DepartId() As Integer
'员工数组
Public Arr_StaffId() As Integer
Public Arr_StaffName() As String
'声明类模块变量
Public MyStaff As New Staff
Public CurStaff As New Staff   '当前员工信息的对象
Public SelStaff As New Staff   '选择员工信息的对象
Public MyDepart As New Departs
Public CurDepart As New Departs
Public MyChange As New Change
Public CurChange As New Change
Public MySalary As New Salary
Public MyUser As New Users
Public CurUser As New Users