gpublic.bas

储存系统

Attribute VB_Name = "gPublic"
Public Const gXtmc = "华辉电器批发查询系统" '系统名称
Public gXhcd As Integer '序号传递
Public newFlag As Integer '新建标志
Sub Main()
    If App.PrevInstance = True Then
        MsgBox "程序已经运行！", vbCritical, "错误！"
        End
    End If
    '如果ini不存在就新建
'If Dir(App.Path & "\set.ini") = "" Then
'    Call WriteIni("Skin", "key", "200")
'    Call WriteIni("Skin", "Line", "1")
'End If
    '如果文件夹不存在就新建
If Dir(App.Path & "\backup", vbDirectory) = "" Then
    MkDir (App.Path & "\backup")
End If
If Dir(App.Path & "\photos", vbDirectory) = "" Then
    MkDir (App.Path & "\photos")
End If
MDIfrm.Show
End Sub