module1.bas

针对各种管理系统提供有的VB源代码

Attribute VB_Name = "Module1"
Global Const LISTVIEW_MODE0 = "大图标"
Global Const LISTVIEW_MODE1 = "小图标"
Global Const LISTVIEW_MODE2 = "列表"
Global Const LISTVIEW_MODE3 = "详细资料"
Public conn As String
Public fMainForm As frmMain


Sub Main()

    conn = App.Path & "\manager.mdb"
    
    frmSplash.Show
    frmSplash.Refresh
    Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash


    fMainForm.Show
End Sub