module_main.bas

不错的药房管理系统

Attribute VB_Name = "Module_Main"
 Option Explicit

'全局变量声明
Global Gado As ADODB.Connection         '全局数据库

Public Sub Main() '
    '同时只允许一个实例运行
    If App.PrevInstance = True Then End

    '打开数据库连接
    Set Gado = New ADODB.Connection
    Gado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
    Gado.CursorLocation = adUseClient
'    Gado.Properties("Jet OLEDB:Database Password").Value = "ninke"
    If StrConv(Dir(App.Path & "\db2.mdb"), vbLowerCase) = StrConv(Dir(App.Path & "\db2.mdb"), vbLowerCase) Then
        Gado.Open App.Path & "\db2.mdb"
    Else
        MsgBox "未找到Data.mdb文件!", vbCritical, "文件丢失"
        End
    End If
    
    
    frmMain.Show
'    frmLogin.Show vbModal
'frmSuplyer.Show
'frmJY.Show
'frmmedical.Show
'frmcustomer.Show
'frmSearch.Show
'frmSale.Show
'frmRk.Show
'frmReturn.Show
'frmSystem.Show
End Sub