variable.bas

来自「办公用品管理系统」· BAS 代码 · 共 16 行

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'声明类模块变量
Public MyType As New Types     '类型对象
Public MyDep As New Department    '部门对象
Public MyDraw As New Draw      '领用对象
Public MyList As New DrawList  '明细对象
Public MyStore As New Store    '库存对象
Public MyIn As New StoreIn    '入库对象
Public MySupplier As New Supplier     '供应商对象
Public MyUser As New Users
Public CurUser As New Users