databas.bas

系统主控台 1、功能菜单 文件：设置（数据参数、修改密码、系统参数）、注销、退出 帮助：关于、注册、在线升级 2、功能按钮 执行、注销、退出 3、控制台 设置 参数设置：数据

Attribute VB_Name = "DataBas"
Option Explicit

'//TreeView背景API声明
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Public Type PAINTSTRUCT
    hDC As Long
    fErase As Long
    rcPaint As RECT
    fRestore As Long
    fIncUpdate As Long
    rgbReserved As Byte
End Type

Public Declare Function BeginPaint Lib "user32" (ByVal hWnd As Long, lpPaint As PAINTSTRUCT) As Long
Public Declare Function EndPaint Lib "user32" (ByVal hWnd As Long, lpPaint As PAINTSTRUCT) As Long
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long
Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long
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
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Public Declare Function InvalidateRect Lib "user32" (ByVal hWnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long

Public Const WM_PAINT = &HF
Public Const WM_ERASEBKGND = &H14
Public Const WM_HSCROLL = &H114
Public Const WM_VSCROLL = &H115
Public Const WM_MOUSEWHEEL = &H20A

Public Const GWL_STYLE = -16&
Public Const TVM_SETBKCOLOR = 4381&
Public Const TVM_GETBKCOLOR = 4383&
Public Const TVS_HASLINES = 2&
'//

Public Type cPara
 ResLibIco As String
 ParentID As Long
 ChoiceID As Long
 MapColStr As String
 MapTypeStr As String
 TreeID As Long
 '---------------
 TShowSign As Variant
 TAlign As Variant
 TWidth As Variant
 TTitle As Variant
 MapCol As Variant
 MapType As Variant
 '---------------
 cMin As Long
 cMax As Long
 '---------------
 Title As String
 SqlProName As String
 ParaCount As Long
 frmTitle As String
 '---------------
 QueryStr As String
 '---------------
 RetChoice As New Collection
 RetMulChoice As New Collection
 '---------------
 MulChoice As Boolean
End Type

Private Type RectangleInfo
 Left As Long
 Top As Long
 Right As Long
 Bottom As Long
End Type

Public BaseDllLib As Object
Public BaseClass As Object
Public ItemText As Object
Public SysPara As cPara
Public RecInfo As RectangleInfo
Public TreeData As New Collection
Public TreeID As New Collection
Public ListSqlCmdParaName As New Collection
Public ListSqlCmdParaType As New Collection
Public ThisForm As New ChoiceItem.frmMain
Public ThisCls As New ChoiceItem.BaseLib