mdlmain.bas

来自「企业资产管理信息系统」· BAS 代码 · 共 11 行

BAS
11
字号
Attribute VB_Name = "MdlMain"
Public constr As String '数据库联结字符串


Public Sub Main()
constr = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\database\资产管理系统97.mdb;"  '设定数据库
frmMain.Show '启动


End Sub

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?