const.bas

来自「把数据改成本地数据」· BAS 代码 · 共 24 行

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


'类模块对象
Public MyDB As New ClsDB
Public MySalesman As New ClsSalesman
Public MyCustomer As New ClsCustomer
Public MyDeliver As New ClsDeliver
Public MySalseItem As New ClsSalseItem
Public MyCO As New ClsCO




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


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