mdlmain.bas

企业人事管理信息系统,采用ＶＢ开发企业人事管理信息系统

Attribute VB_Name = "MdlMain"
Public conStr As String
Public datStr As String
Public ActionType As String


Public Sub Main()
conStr = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\database\人事管理系统97.mdb;"
datStr = App.Path & "\database\人事管理系统97.mdb"

frmMain.Show


End Sub