general.bas

OA编程 源代码

Attribute VB_Name = "General"


Public rst As rdoResultset


'database details and information
Global Const gcDSN = "bkbtinfo"             'Name of ODBC connection
Global Const gcDATABASE_NAME = "bkbtinfo"   'Name of database to connect too
Public gclsDatabase As DataAccess           'Class containing methods for database access
Public Enum DATABASE_ENGINE_TYPES           'Enum type which identifies which database acces engine is being used
    eNONE = 0
    eDAO = 1
    eRDO = 2
    eADO = 3
End Enum

' const
Global Const DispLineNum = 10
Global Const TitleHeight = 1100
Global Const TreeViewChar = "A"


' variable
Public ChangeMade As Boolean
Public Return_Var As Integer
Public sql As String
Public SysPath As String
Public FirstFlag As Boolean
Public rstDomain As String

' default variable
Public DefFont As String
Public DefFontSize As Integer
Public DefStaticColor As String
Public DefDynamicColor As String

Public ProgName(6) As String
Public DocManage(4) As String
Public SystemTools(8) As String
Public SystemApp(7) As String
Public ContName(3) As String
Public FlowApp(2) As String
Public ColliName(1) As String
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long