main.bas

来自「电子皮带秤计量管理系统.完成电子皮带秤的自动计量工作,和销售管理系统配合使用更佳」· BAS 代码 · 共 18 行

   Attribute VB_Name = "mainSub"
'CODE Manger By BcodeXRose
'Module2
Option Explicit
'##################################################################
'## 过程名称：Main
'## 参数： 无
'##################################################################
Public Sub Main()
    Dim i As Integer
    Call OnlyOne
    frmSplash.Show
    '    Call InitSystem
    '    SysLoad (False)
    
End Sub