mdlmain.bas

来自「论文加vb开发的原代码」· BAS 代码 · 共 16 行

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