global.bas

有一些基本的操作

Attribute VB_Name = "Global"
    '用于返回登陆结果
    Public bResult As Boolean
    '登陆用户的ID
    Public UserId As String
    Public formGoodInfo As frmGoodInfo
    Public formSupplyInfo As frmSupplyInfo
    Public formClientInfo As frmClientInfo
    Public formOrderList As frmOrderList
    Public formSellList As frmSellList
    Public formDepotSearch As frmDepotSearch
    Public formManage As frmManage
    
    '主函数
    Public Sub main()
        Dim formLogin As New frmLogin
        formLogin.Show vbModal
        Dim formMain As New frmMain
        formMain.Show
    End Sub