modconstant.bas

机房管理

Attribute VB_Name = "modConstant"
Option Explicit

' 自定义变量
Public SM_All  As String
Public SM_TEXT As String
Public ConData As String    '数据库
Public ConStr As String     '口令
Public sJH As String
Public sJE As Currency

Public StartJF As Date
Public EndJF As Date
Public JFJE As Currency
Public OnlineSJ As Long
Public swDJ As Currency
Public swF As Currency
Public sendJH As String
Public sDW As String

' 每个表单是否显示变量
Public FA As Boolean '关于对话框
Public FC As Boolean '结帐对话框
Public FCT As Boolean '消费对话框
Public FE As Boolean '换 机
Public FI As Boolean '消息
Public FL As Boolean 'Lock
Public FO As Boolean '选项
Public FS As Boolean '发送对话框

Public ShowPic As Integer '是否显示消息框
Public sCompany As String, lCompany As Integer

Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
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) As Long