bas_database.bas

生产计划管理等信息 可以查询计划完成情况等

Attribute VB_Name = "Bas_Database"
Public Declare Function SkinH_Attach Lib "SkinH_VB6.dll" () As Long

Public ConStr As String
Public SQL As String

Public DBConn As ADODB.Connection
Public LocalDB As ADODB.Connection

Public rs As ADODB.Recordset
Public rstmp As ADODB.Recordset

Public Font_Name, Font_Size As String

'系统从此加载
Sub Main()
If App.PrevInstance = False Then

    SkinH_Attach
    
    Set DBConn = New ADODB.Connection
    Set LocalDB = New ADODB.Connection
    Set rs = New ADODB.Recordset
    Set rstmp = New ADODB.Recordset
    
    '读取连接配置值
    ConStr = GetIniInfo(App.Path & "\sys.ini", "用户配置", "connectionstring")
    Font_Name = GetIniInfo(App.Path & "\sys.ini", "用户配置", "字体名称")
    Font_Size = GetIniInfo(App.Path & "\sys.ini", "用户配置", "字体大小")
'    MsgBox ConStr

    If TestConnectString(ConStr) = False Then
       DBTestConnect.Show
    Else
       MainForm.Show
    End If
    
End If
End Sub

Private Function TestConnectString(ByVal ConnectingString As String) As Boolean
'判断数据库的连接
    TestConnectString = False
    On Error GoTo ErrMsg
    
    If DBConn.State = 1 Then DBConn.Close
    DBConn.Open ConnectingString
    
    TestConnectString = True
    
    Exit Function
ErrMsg:
      TestConnectString = False
      MsgBox Err.Description & vbCrLf & vbCrLf & "提示：请检查数据库配置！", vbInformation, "数据库连接失败"

End Function


'===========================================================================================================