Attribute VB_Name = "Const"
'保存執(zhí)行SQL語句的字符串
Public SqlStmt As String
'聲明寫入ini文件的API函數(shù)
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

'定義數(shù)組用來裝載信息
Public Arr_Item() As String
'部門數(shù)組
Public Arr_DepName() As String
Public Arr_DepDescribe() As String
Public Arr_DepId() As Integer
'員工數(shù)組
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