Attribute VB_Name = "mdlPublic"
'--------------------------------
'時間:2001.11.12
'版權:北京用友軟件股份有限公司
'設計:章景峰
'編碼:章景峰
'說明:U8資金管理---業務對象
'--------------------------------
Option Explicit
Public con As New ADODB.Connection

Public Function FormatDate(dDate As Date) As String
    FormatDate = Format(dDate, "YYYY-MM-DD")
End Function

Public Function OpenConnection(con As ADODB.Connection, DataSourceName As String) As Boolean
    OpenConnection = False
    con.ConnectionString = DataSourceName
    con.Open
    OpenConnection = True
End Function

Public Sub CloseCon(con As ADODB.Connection)
    On Error Resume Next
    con.Close
End Sub

Public Function OpenRecordset(con As ADODB.Connection, rec As ADODB.Recordset, sql As String) As Boolean
    OpenRecordset = False
    rec.Open sql, con
    
    If Not (rec.EOF Or rec.BOF) Then
       OpenRecordset = True
    End If
End Function

Public Sub CloseRec(rec As ADODB.Recordset)
    On Error Resume Next
    rec.Close
End Sub