gpublic.bas

采用VB6.0开发,是一个简单的人事管理系统.

Attribute VB_Name = "gPublic"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/17
'描    述：企事业单位人事管理系统 Ver 2007
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
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