?? mdlpublic.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -