const.bas

来自「ERP工程管理子系统,用于ERP编程者参考.」· BAS 代码 · 共 31 行

Attribute VB_Name = "Const"
'声明写入ini文件的API函数
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lpFilenchame As String) As Long
Public Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFilenchame As String) As Long

'定义服务器参数常量
Public Server As String
Public User As String
Public Password As String

'声明类模块变量
Public MyDB As New ClsDB
Public MySalesman As New ClsSalesman
Public MyBuyer As New ClsBuyer
Public MyItem As New ClsItem
Public MyBOM As New ClsBOM


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

'保存执行SQL语句的字符串
Public SqlStmt As String