databas.bas

一套企业设备管理系统源代码,所有的业务单据和流程都可以自定义,业务报表也可以通过SQL的存储过程来定义.

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 frmInfoMsg
 FInfoProcName As String '//存储过程名称
 FInfoTitleStr As String '//标题信息
 FInfoTitleVar As Variant '//标题信息字符组
 FInfoTitleMin As Long
 FInfoTitleMax As Long
 
 FInfoAlignStr As String '//标题对齐方式
 FInfoAlignVar As Variant '//对齐方式
 FInfoAlignMin As Long
 FInfoAlignMax As Long
 
 FInfoShowStr As String '//标题显示设置
 FInfoShowVar As Variant
 FInfoShowMin As Long
 FInfoShowMax As Long
 
 FInfoTypeStr As String '//类型设置
 FInfoTypeVar As Variant
 FInfoTypeMin As Long
 FInfoTypeMax As Long
 
 
 FInfoDecStr As String
 FInfoDecVar As Variant
 FInfoDecMin As Long
 FInfoDecMax As Long
 
 FInfoCols As String
 FInfoColsVar As Variant
 FInfoColsMin As Long
 FInfoColsMax As Long
 
 FInfoWidthStr As String
 FInfoWidthVar As Variant
 FInfoWidthMin As Long
 FInfoWidthMax As Long
End Type

Public Type cPara
 ResLibIco As String
 CellBkBmp As Long
 CellPrjFont As Long
 CellFontColor As Long
 CellBkColor As Long
 CellLkFontColor As Long
 CellLkBkColor As Long
 TreeValue As Long
 ChooseMulSign As Boolean
 ParentID As Long
 TreeID As Long
 ChoiceID As Long
 frmInfo As frmInfoMsg
 frmInfoColl As Collection
 RetChoice As New Collection
 RetMulChoice As New Collection
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 BaseItem As Object
Public SysPara As cPara
Public RecInfo As RectangleInfo
Public TreeData As New Collection
Public TreeID As New Collection
Public FormInfo As New Collection
Public QueryInfo As Collection
Public ThisForm As New ChoiceInfo.frmMain
Public ThisCls As New ChoiceInfo.BaseLib