📄 module1.bas
字号:
Attribute VB_Name = "Module1"
Public db As ADODB.Connection
Public Rs As Recordset
Public Dbconnect As String
Public KHFlag, SPFlag As Integer
Public KHZL_KHMC As String
Public IDlist As Collection
Public Sub DbLoad()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\datebase\kaifa.mdb; Persist Security Info=False"
End Sub
Private Sub Main()
If App.PrevInstance = True Then MsgBox "程序已经在运行!", 64: Exit Sub
Call DbLoad
MDIFrmmain.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -