mdlpublic.bas

u8

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