mdimain.bas

企业人事管理软件

Attribute VB_Name = "MdiMain"
Public constr As String
Public datstr As String
Public actiontype As String

Public Sub main()

constr = "PROVIDEER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\人事管理系统97.mdb;"
datstr = App.Path & "\人事管理系统97.mdb;"
frmMain.Show

End Sub