cldata.cls

物流管理系统实例程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Dim DeCkgl As DataEnvCkwlgl

Public Sub OpenDbCon(ByVal strDz As String)
    On Error Resume Next
    '创建新的数据环境对象
    Set DeCkgl = New DataEnvCkwlgl
    DeCkgl.contCkwlgl.ConnectionString = _
     "Provider=Microsoft.Jet.OLEDB.4.0;" & _
     "Persist Security Info=False;" & _
     "Data Source=" & strDz & "\CKGL.MDB"
     
    '打开新的连接
    DeCkgl.contCkwlgl.Open
    
End Sub

Public Sub CloseDbCon()
    On Error Resume Next
    '关闭连接
    DeCkgl.contCkwlgl.Close
    
    '释放的数据环境对象
    Set DeCkgl = Nothing
End Sub

Public Function rsGZRYDL(ByVal strZyID As String, ByVal strMM As String) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.GZRYDL strZyID, strMM
    Set rsGZRYDL = DeCkgl.rsGZRYDL
End Function

Public Function rsGZRYDJ() As ADODB.Recordset
    On Error Resume Next
    DeCkgl.rsGZRYDJ.Open
    Set rsGZRYDJ = DeCkgl.rsGZRYDJ
End Function

Public Function rsWPLBDJ() As ADODB.Recordset
    On Error Resume Next
    DeCkgl.rsWPLBDJ.Open
    Set rsWPLBDJ = DeCkgl.rsWPLBDJ
End Function

Public Function rsWPLBQD() As ADODB.Recordset
    On Error Resume Next
    DeCkgl.rsWPLBQD.Open
    Set rsWPLBQD = DeCkgl.rsWPLBQD
End Function

Public Function rsWPDJ(ByVal strLb As String) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WPDJ strLb
    Set rsWPDJ = DeCkgl.rsWPDJ
End Function

Public Sub InsWL(ByVal lngWp As Long, ByVal strLx As String, ByVal intSl As Integer, _
 ByVal strZyID, ByVal dtRq As Date, strSm As String, blTz As Boolean)
    On Error Resume Next
    DeCkgl.InsWL lngWp, strLx, intSl, strZyID, dtRq, strSm, blTz
End Sub

Public Function rsWPKCL(ByVal lngWpID As Long) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WPKCL lngWpID
    Set rsWPKCL = DeCkgl.rsWPKCL
End Function

Public Function rsWLCX_WPLBQD() As ADODB.Recordset
    On Error Resume Next
    DeCkgl.rsWLCX_WPLBQD.Open
    Set rsWLCX_WPLBQD = DeCkgl.rsWLCX_WPLBQD
End Function

Public Function rsWLCX_JSRQD() As ADODB.Recordset
    On Error Resume Next
    DeCkgl.rsWLCX_JSRQD.Open
    Set rsWLCX_JSRQD = DeCkgl.rsWLCX_JSRQD
End Function

Public Function rsWLCX_WPQD(ByVal strLb As String, ByVal strJsr As String) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WLCX_WPQD strLb, strJsr
    Set rsWLCX_WPQD = DeCkgl.rsWLCX_WPQD
End Function

Public Function rsWLCX_WLLXQD(ByVal lngWpID As Long, ByVal strJsr As String) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WLCX_WLLXQD lngWpID, strJsr
    Set rsWLCX_WLLXQD = DeCkgl.rsWLCX_WLLXQD
End Function

Public Function rsWPQKCX(ByVal lngWpID As Long) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WPQKCX lngWpID
    Set rsWPQKCX = DeCkgl.rsWPQKCX
End Function

Public Function rsWLCX(ByVal lngWpID As Long, ByVal strLx As String, _
 ByVal strJsr As String, ByVal dtRQ1 As Date, ByVal dtRQ2 As Date) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WLCX lngWpID, strLx, strJsr, dtRQ1, dtRQ2
    Set rsWLCX = DeCkgl.rsWLCX
End Function

Public Function rsWLHZ_SL_LB(ByVal dtRQ1 As Date, ByVal dtRQ2 As Date) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WLHZ_SL_LB dtRQ1, dtRQ2
    Set rsWLHZ_SL_LB = DeCkgl.rsWLHZ_SL_LB
End Function

Public Function rsWLHZ_JZ_LB(ByVal dtRQ1 As Date, ByVal dtRQ2 As Date) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WLHZ_JZ_LB dtRQ1, dtRQ2
    Set rsWLHZ_JZ_LB = DeCkgl.rsWLHZ_JZ_LB
End Function

Public Function rsWLHZ_SL_WP(ByVal dtRQ1 As Date, ByVal dtRQ2 As Date) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WLHZ_SL_WP dtRQ1, dtRQ2
    Set rsWLHZ_SL_WP = DeCkgl.rsWLHZ_SL_WP
End Function

Public Function rsWLHZ_JZ_WP(ByVal dtRQ1 As Date, ByVal dtRQ2 As Date) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WLHZ_JZ_WP dtRQ1, dtRQ2
    Set rsWLHZ_JZ_WP = DeCkgl.rsWLHZ_JZ_WP
End Function

Public Sub DelWL(ByVal strLx As String, ByVal dtRQ1 As Date, ByVal dtRQ2 As Date)
    On Error Resume Next
    DeCkgl.DelWL strLx, dtRQ1, dtRQ2
End Sub

Public Sub InsWL_SJFH(ByVal strLx As String, ByVal dtRQ1 As Date, ByVal dtRQ2 As Date)
    On Error Resume Next
    DeCkgl.InsWL_SJFH strLx, dtRQ1, dtRQ2
End Sub

Public Sub UpdataWL(ByVal strSm As String, ByVal strJsr As String, ByVal dtNewRQ As Date)
    On Error Resume Next
    DeCkgl.UpdataWL strSm, strJsr, dtNewRQ
End Sub

Public Function rsWlcsTj_WpID(ByVal lngWpID As Long) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WlcsTj_WpID lngWpID
    Set rsWlcsTj_WpID = DeCkgl.rsWlcsTj_WpID
End Function

Public Function rsWlcsTj_ZyID(ByVal strJsr As String) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WlcsTj_ZyID strJsr
    Set rsWlcsTj_ZyID = DeCkgl.rsWlcsTj_ZyID
End Function

Public Function rsWpzsTj_WpLB(ByVal strWpLB As String) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.WpzsTj_WpLB strWpLB
    Set rsWpzsTj_WpLB = DeCkgl.rsWpzsTj_WpLB
End Function

Public Function rsGzryYzmm(ByVal strZyID As String, ByVal strMM As String) As ADODB.Recordset
    On Error Resume Next
    DeCkgl.GzryYzmm strZyID, strMM
    Set rsGzryYzmm = DeCkgl.rsGzryYzmm
End Function

Public Sub UpdataMm(ByVal strZyID As String, ByVal strYMM As String, ByVal strXMM As String)
    On Error Resume Next
    DeCkgl.UpdataMm strZyID, strYMM, strXMM
End Sub

Public Sub CkBeginTrans()
    On Error Resume Next
    DeCkgl.contCkwlgl.BeginTrans
End Sub

Public Sub CkCommitTrans()
    On Error Resume Next
    DeCkgl.contCkwlgl.CommitTrans
End Sub

Public Sub CkRollbackTrans()
    On Error Resume Next
    DeCkgl.contCkwlgl.RollbackTrans
End Sub