variable.bas

用ｖｂ编的一个商品库存管理系统

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'服务器名称
Public ServerName As String
'读取表中列值的变量
Public ColVal As String
'客户名称数组
Public Arr_Client() As String
'仓库名称数组
Public Arr_Store() As String
'产品类目数组
Public Arr_ProType() As String
'产品名称数组
Public Arr_Product() As String
'库存产品编号和产品数量数组
Public Arr_StoreProId() As Long
Public Arr_StoreProNum() As Integer
'类模块对象
Public MyUser As New Users  '用户对象
Public CurUser As New Users  '当前用户对象
Public MyClt As New Client  '客户对象
Public MyStore As New Storehouse  '仓库对象
Public MyProType As New ProType  '产品类别对象
Public MyPro As New Product  '产品对象
Public MyStorein As New StoreIn  '入库对象
Public MyTakeout As New TakeOut  '出库对象
Public MyProInStore As New ProInStore  '库存产品对象