const.bas

一个ERP系统可以用来学习之用

Attribute VB_Name = "const"
Public sqlstmt As String

Public Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public server As String
Public user As String
Public Password As String



Public MyDB As New clsdb
Public mydatabaseset As New clsdatabaseset

Public myusers As New clsusers

'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

Public mygyshang As New clsgongyingshang
Public myLeiBie As New clsLeiBie
Public Mywlml As New clswuliaomulu
Public Mylinliaobumen As New clslinliaobumen
Public mylinliaoman As New clslinliaoman