mdimain.bas

来自「企业人事管理软件」· BAS 代码 · 共 13 行

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