variable.bas

来自「本系统实现了软件项目开发的流程管理和控制」· BAS 代码 · 共 25 行

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'读取表中列值的变量
Public ColVal As String
'员工姓名数组
Public Arr_Ename() As String
'项目编号、名称数组
Public Arr_ProjId() As Long
Public Arr_ProjName() As String
'模块数组
Public Arr_Mod() As String
'类模块的对象
Public MyProj As New Proj  '工程对象
Public CurProj As New Proj  '当前选择的工程对象
Public MyDoc As New Document  '文档对象
Public MyMod As New Modules  '功能模块对象
Public MyPr As New PrTable  '报错对象
Public MyRep As New Report  '项目报告对象
Public MySum As New Summary  '项目总结对象
Public MyTeam As New Team  '项目组对象
Public MyUser As New Users  '用户对象
Public CurUser As New Users  '当前用户对象