mdlmain.bas

自来水公司的一个管理系统

Attribute VB_Name = "mdlMain"
Option Explicit

Sub main()
   Dim i As Long
   
   gblnLoginSucceeded = False
   gTitleHeight = 600
   gCountPrecision = Jiao   '计费精度为角
   frmWelcom.Show
   DoEvents
   
   On Error GoTo ConnectErr
   Set gConnect = New ADODB.Connection
   gConnect.ConnectionString = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Data Source=water"
   gConnect.Open
   On Error GoTo 0  '清除错误陷阱
   
   For i = 1 To 30000000  '模拟实际的数据加载等耗时操作
   Next i
   
   Unload frmWelcom
   gstrCurOperatorID = ""
   gstrCurOperatorName = ""
   frmMain.Show
   If gblnLoginSucceeded = False Then
        Unload frmMain
        End
   End If
   Set gMainFormRefer = frmMain
   Exit Sub

ConnectErr:
    MsgBox "数据库连接失败，请检查数据源设置是否正确，以及网络是否正常工作！" & Chr(13) & Err.Description, vbOKOnly + vbExclamation, "警告"
    On Error GoTo 0  '清除错误陷阱
    Unload frmWelcom
    End
    
End Sub