const.bas

直接执行本子系统时

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


'类模块对象
Public MyDB As New ClsDB
Public MyBusinessman As New ClsBusinessman
Public MyBuyer As New ClsBuyer
Public MyPurchaseItem As New ClsPurchaseItem
Public MyPO As New ClsPO


'定义数组用来装载信息
Public Arr_Item() As String


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