const.bas

erp中的库存管理子系统,Vb代码编写

Attribute VB_Name = "Const"
'保存执行SQL语句的字符串
Public SqlStmt As String


'类模块对象
Public MyDB As New ClsDB
Public MyStoreRoom As New ClsStoreRoom
Public MyStoreIn As New ClsStoreIn
Public MyTakeOut As New ClsTakeOut
'定义数组用来装载信息
Public Arr_Item() As String


Public Server As String
Public User As String
Public Password As String