const.bas

这是一个利用VB编写的中小企业ERP。功能比较全

Attribute VB_Name = "Const"
'保存执行SQL语句的字符串
Public SqlStmt As String
'声明写入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 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'定义数组用来装载信息
Public Arr_Item() As String
'部门数组
Public Arr_DepName() As String
Public Arr_DepDescribe() As String
Public Arr_DepId() As Integer
'员工数组
Public Arr_EmpId() As Integer


Public Server As String
Public User As String
Public Password As String
'声明类模块变量
Public MyUsers As New ClsUsers
Public MyDB As New ClsDB
Public MyDatabaseSet As New ClsDatabaseSet
Public MySalesman As New ClsSalesman
Public MyBuyer As New ClsBuyer
Public MyItem As New ClsItem
Public MyBOM As New ClsBOM
Public MyBusinessman As New ClsBusinessman
Public MyPurchaseItem As New ClsPurchaseItem
Public MyPO As New ClsPO
Public MyCustomer As New ClsCustomer
Public MyDeliver As New ClsDeliver
Public MySalseItem As New ClsSalseItem
Public MyCO As New ClsCO
Public MyStoreRoom As New ClsStoreRoom
Public MyStoreIn As New ClsStoreIn
Public MyTakeOut As New ClsTakeOut
Public MyEmp As New ClsEmployees
Public CurEmp As New ClsEmployees
Public UpperEmp As New ClsEmployees
Public MyDep As New ClsDepartment
Public CurDep As New ClsDepartment
Public MyCheck As New ClsCheckIn
Public MyEva As New ClsEvaluation
Public MyExp As New ClsExperience
Public MyFam As New ClsFamilyMember
Public MySal As New ClsSalary
Public MyRule As New ClsSalaryRules
Public MyBusiness As New ClsBusiness