gpublic.bas

一套源代码完整的企事业人事管理系统

Attribute VB_Name = "gPublic"
'Download by http://www.codefans.net
Public Const gXtmc = "企业人事管理系统" '系统名称

Public gCzy As String '操作员
Public gCzyqx As String '操作员权限
Public gXhcd As Integer '序号传递
Public newFlag As Integer '新建标志
Public gGsmc As String '公司名称
Public gGzid As Integer '工资 ID传递


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
frmLogin.Show
End Sub