📄 productcheckrecorddao.cls

📁 即时通讯
💻 CLS
📖 第 1 页 / 共 4 页
字号:
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkrecordvalue_jude"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = checkrecordid
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkrecordvalue_jude = True
        Else
            checkrecordvalue_jude = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkrecordvalue_jude = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :新增一条生产检验单记录
'*    输 入 参 数 :无
'*    输 出 能 数 :' '           -  没有新增成功
'*                 '...'          -  新增的检验记录的ID
'**************************************
Public Function NewCheckRecord(recSet As ADODB.Recordset, _
                                productionid As String, _
                                psId As String, _
                                productId As String, _
                                picino As String, _
                                serial As Double, _
                                checkDate As Date, _
                                checkEmployeeId As String, _
                                checkno As String, _
                                xdwc As Integer, _
                                cfwc As Integer, _
                                wg As Integer, _
                                gbfxhzy As Integer, _
                                hlwc As Integer, _
                                jyjl As Integer, _
                                heJianEmployeeId As String, produceId As String) As String
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    NewCheckRecord = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_new"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = productionid             ' 参数
    cmdProc.Parameters(2) = psId      ' 参数
    cmdProc.Parameters(3) = productId              ' 参数
    cmdProc.Parameters(4) = picino      ' 参数
    cmdProc.Parameters(5) = serial          ' 参数
    cmdProc.Parameters(6) = checkDate       ' 参数
    cmdProc.Parameters(7) = checkEmployeeId     ' 参数
    cmdProc.Parameters(8) = checkno          ' 参数
    cmdProc.Parameters(9) = xdwc             ' 参数
    cmdProc.Parameters(10) = cfwc      ' 参数
    cmdProc.Parameters(11) = wg              ' 参数
    cmdProc.Parameters(12) = gbfxhzy      ' 参数
    cmdProc.Parameters(13) = hlwc          ' 参数
    cmdProc.Parameters(14) = jyjl       ' 参数
    cmdProc.Parameters(15) = heJianEmployeeId
    cmdProc.Parameters(16) = produceId     ' 参数
    cmdProc.Parameters(17) = "OOOOO"          ' 参数
    
    ' 执行命令 把查询到的结果放在recSet中
'    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    NewCheckRecord = cmdProc.Parameters(17)

'    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
'    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    NewCheckRecord = ""
End Function
'**************************************
'*    功 能 描 述 :查找一个产品最大的产品序列号
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function FindMaxProductionSerial(recSet As ADODB.Recordset, _
                                      productionid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindMaxProductionSerial = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_find_max_serial"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = productionid

    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindMaxProductionSerial = True
        Else
            FindMaxProductionSerial = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindMaxProductionSerial = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据编号取得检验记录的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkrecord_findpicino(recSet As ADODB.Recordset, productionid As String, picino As String, serial As String, querytype As Integer) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkrecord_findpicino = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_findpicino"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = picino
    cmdProc.Parameters(2) = productionid
    cmdProc.Parameters(3) = serial
    cmdProc.Parameters(4) = querytype
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkrecord_findpicino = True
        Else
            checkrecord_findpicino = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkrecord_findpicino = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :根据编号取得检验记录的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkrecord_findbyid1(recSet As ADODB.Recordset, checkrecordid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkrecord_findbyid1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "checkrecord_findbyid2"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = checkrecordid
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkrecord_findbyid1 = True
        Else
            checkrecord_findbyid1 = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkrecord_findbyid1 = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :显示所有未检验记录或重新检验的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function production_showjy(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    production_showjy = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "production_showjy"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            production_showjy = True
        Else
            production_showjy = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    production_showjy = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :显示所有未核检记录的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function production_showhj(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    production_showhj = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "production_showhj"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            production_showhj = True
        Else
            production_showhj = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    production_showhj = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :根据编号取得核检记录的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function checkrecord_findpicinohj(recSet As ADODB.Recordset, productionid As String, picino As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    checkrecord_findpicinohj = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_findpicinohj"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = picino
    cmdProc.Parameters(2) = productionid
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            checkrecord_findpicinohj = True
        Else
            checkrecord_findpicinohj = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    checkrecord_findpicinohj = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :复制一条生产检验单记录
'*    输 入 参 数 :无
'*    输 出 能 数 :' '           -  没有新增成功
'*                 '...'          -  新增的检验记录的ID
'**************************************
Public Function CheckRecord_add(recSet As ADODB.Recordset, _
                                productionid As String, _
                                psId As String, _
                                productId As String, _
                                picino As String, _
                                serial As String, _
                                checkDate As Date, _
                                checkEmployeeId As String, _
                                checkno As String, _
                                xdwc As Integer, _
                                cfwc As Integer, _
                                wg As Integer, _
                                gbfxhzy As Integer, _
                                hlwc As Integer, _
                                jyjl As Integer, _
                                heJianEmployeeId As String, jybj As String, produceId As String) As String
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    CheckRecord_add = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "CheckRecord_add"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = productionid             ' 参数
    cmdProc.Parameters(2) = psId      ' 参数
    cmdProc.Parameters(3) = productId              ' 参数
    cmdProc.Parameters(4) = picino      ' 参数
    cmdProc.Parameters(5) = serial          ' 参数
    cmdProc.Parameters(6) = checkDate       ' 参数
    cmdProc.Parameters(7) = checkEmployeeId     ' 参数
    cmdProc.Parameters(8) = checkno          ' 参数
    cmdProc.Parameters(9) = xdwc             ' 参数
    cmdProc.Parameters(10) = cfwc      ' 参数
    cmdProc.Parameters(11) = wg              ' 参数
    cmdProc.Parameters(12) = gbfxhzy      ' 参数
    cmdProc.Parameters(13) = hlwc          ' 参数
    cmdProc.Parameters(14) = jyjl       ' 参数
    cmdProc.Parameters(15) = heJianEmployeeId     ' 参数
    cmdProc.Parameters(16) = "OOOOO"          ' 参数
    cmdProc.Parameters(17) = jybj
    cmdProc.Parameters(18) = produceId
    
    ' 执行命令 把查询到的结果放在recSet中
'    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    CheckRecord_add = cmdProc.Parameters(16)

'    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
'    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    CheckRecord_add = ""
End Function
'**************************************
'*    功 能 描 述 :根据编号取得检验记录的列表
'*    输 入 参 数 :无
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -