const.bas

有线电视收费软件 数据库密码winter

Attribute VB_Name = "Const"
Option Explicit

Public sCon As String

Public LoginSucceeded As Boolean
Public CN As New ADODB.Connection


Public rectTOP As Double
Public rectLEFT As Double
Public rectWIDTH As Double
Public rectHEIGHT As Double

Public sQuerySQL As String  '创建查询语句

Public fdInfos As New Collection

Public Type sTableTitle
    sTitle As String
    sDept As String
    sInfo As String
    sOther As String
End Type
Public sTableHead As sTableTitle '表头的全局变量

Public Type tItem
    row As Integer
    col As Integer
    item As String
End Type

Public sPopedom As String
Public sOperator As String



Public Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Integer, ByVal lParam As Any) As Long

Public Declare Function FindWindowEx Lib "user32" Alias _
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 _
As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

'关于读取ini文件的API函数声明
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, 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 Const WM_USER = &H400
Public Const TB_SETSTYLE = WM_USER + 56
Public Const TB_GETSTYLE = WM_USER + 57
Public Const TBSTYLE_FLAT = &H800
Public Const TBSTYLE_LIST = &H1000


Public Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags 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

Public Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Public Const SWP_NOSIZE& = &H1
' 保持窗口大小
Public Const SWP_NOMOVE& = &H2
' 保持窗口位置
Public Const HWND_NOTOPMOST = -2
Public Const flags = SWP_NOSIZE Or SWP_NOMOVE