📄 const.bas
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -