sysini.bas

智能仓库管理系统

Attribute VB_Name = "SysIni"
Public gDSN As String          '用来存放连接数据库的DSN名称
Public gDBPath As String       '用来存放数据库的路径
Public gQuerySQL As String     '用来存放将要执行的查询语句的条件部分
Public gUser As String          '用来存放进入系统的用户名
Public gLoginStatus As String  '用来存放登录窗口出现的情况
Public gStart As Boolean       '用来标记欢迎窗口的的状况
Public gPurview As String      '用来存放登录用户的权限
Public gSQL As String          '用来存放报表的查询语句
Public gTaxisSQL As String    ' 用来存放将要执行的查询语名的排序部分
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
'将窗口置于Z序列的顶部
Public Const HWND_TOPMOST = -1
'显示窗口
Public Const SWP_SHOWWINDOWS = &H40


Public Function StrToSQL(ByVal strValue As String) As String  '替换SQL语句中的'符号
    StrToSQL = Replace(strValue, "'", "''")
End Function

Public Sub Main()
  On Error GoTo MainErr
    If App.PrevInstance Then
        MsgBox "程序正在运行！"
        End
    End If
   ' gDBPath = App.Path & "\Freight.mdb"
    frmSplash.Show
    
    frmSplash.MousePointer = 11
    frmSplash.Refresh
    
    frmSplash.Refresh
    frmSplash.Refresh
    frmSplash.MousePointer = 0
    
    FrmLogin.Show 1
    frmMain.Show
    Exit Sub
MainErr:
 gStart = True
 MsgBox Err.Number & "--" & Err.Description
End Sub