global.bas

关于工业设备型号数量库存价格等信息的管理系统的课程设计

Attribute VB_Name = "Global"
'全局模块

Option Explicit

Public gConn As ADODB.Connection
Public gUser As New ClassUser

'程序的主入口:完成数据库的打开操作和主窗体的打开
Public Sub Main()
    Dim Conn As String
    Set gConn = New ADODB.Connection
    
    On Error GoTo err_handle
    
    Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
    App.Path & "\database\DeviceMIS.mdb" & ";Persist Security Info=False"

    gConn.Open Conn
    
    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