module1.bas

一个小型的进销存管理软件,数据采用ACCE

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