global.bas

来自「这是一个进销管理系统」· BAS 代码 · 共 21 行

BAS
21
字号
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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?