global.bas

来自「固定资产管理系统VB开发 已经测试」· BAS 代码 · 共 62 行

Attribute VB_Name = "Global"
'全局模块

Option Explicit

Public gConn As ADODB.Connection
Public gUser As New ClassUser

'程序的主入口:完成数据库的打开操作和主窗体的打开
Public Sub Main()

    Set gConn = New ADODB.Connection
    
    On Error GoTo err_handle
    
    gConn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"
    
    frmLogin.Show vbModal
    
    If frmLogin.LoginSucceeded = False Then
        
        Unload frmLogin
        
        gConn.Close
        Set gConn = Nothing
        Exit Sub
    End If
    
    Set gUser = New ClassUser
    
    gUser.loadDataByName (Trim(frmLogin.txtUserName))
    
    Unload frmLogin
    
    frmMain.Show
    
    Exit Sub
    
err_handle:
    MsgBox "连接数据库失败!"
    Set gConn = Nothing
    Exit Sub
    
End Sub


'通用的取日期函数
Public Function getDate(thedate As String) As String

    Dim frm As New frmGetDate
    
    frm.setDate thedate
    
    frm.Show vbModal
    
    getDate = frm.SelectDate
    
    Unload frm
    Set frm = Nothing
    
End Function