productschemedao.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 = "ProductSchemeDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :生产计划单的数据库操作类
'*    功 能 描 述 :生产计划单的所有数据库操作这里完成
'*    程序员姓名  : 陈齐国
'*    最后修改人  : 陈齐国
'*    最后修改时间:2005/09/05
'**************************************
Option Explicit
'**************************************
'*    功 能 描 述 :取得所有生产计划单的列表
'*    输 入 参 数 :queryType   -  0 查找设计中的计划单
'*                                1
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindSchemeByType(recSet As ADODB.Recordset, _
                                 queryType As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindSchemeByType = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "productScheme_findAll"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = queryType             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindSchemeByType = True
        Else
            FindSchemeByType = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindSchemeByType = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据生产计划单编号找到生产计划单
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindSchemeById(recSet As ADODB.Recordset, _
                              schemeId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindSchemeById = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "productScheme_findById"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = schemeId             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindSchemeById = True
        Else
            FindSchemeById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindSchemeById = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :新增一条生产计划单记录
'*    输 入 参 数 :无
'*    输 出 能 数 :""  -  没有新增成功
'*                 "." -  返回新增记录的ID
'**************************************
Public Function NewProductScheme(recSet As ADODB.Recordset, _
                       productionid As String, _
                       name As String, _
                       specification As String, _
                       singlenum As Integer, _
                       totalNum As Integer, _
                       costprice As Double, _
                       totalMoney As Double, _
                       makeBillDate As Date, _
                       beginSchemeDate As Date, _
                       finishSchemeDate As Date, _
                       groupno As String, _
                       memo As String, _
                       billNo As String, _
                       materialType As String) As String
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    NewProductScheme = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "productScheme_new"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = productionid             ' 参数
    cmdProc.Parameters(2) = name                     ' 参数
    cmdProc.Parameters(3) = specification            ' 参数
    cmdProc.Parameters(4) = singlenum                ' 参数
    cmdProc.Parameters(5) = totalNum                 ' 参数
    cmdProc.Parameters(6) = costprice                ' 参数
    cmdProc.Parameters(7) = totalMoney               ' 参数
    cmdProc.Parameters(8) = makeBillDate             ' 参数
    cmdProc.Parameters(9) = beginSchemeDate          ' 参数
    cmdProc.Parameters(10) = finishSchemeDate        ' 参数
    cmdProc.Parameters(11) = groupno                 ' 参数
    cmdProc.Parameters(12) = memo                    ' 参数
    cmdProc.Parameters(13) = billNo                  ' 参数
    cmdProc.Parameters(14) = "00000"                 ' 参数
    cmdProc.Parameters(15) = materialType            ' 参数

    
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    NewProductScheme = cmdProc.Parameters(14)

    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    NewProductScheme = ""
End Function
'**************************************
'*    功 能 描 述 :修改一条生产计划单记录
'*    输 入 参 数 :无
'*    输 出 能 数 :true  -  成功
'*                 false -  失败
'**************************************
Public Function ModifyProductScheme(recSet As ADODB.Recordset, _
                       productionid As String, _
                       name As String, _
                       specification As String, _
                       singlenum As Integer, _
                       totalNum As Integer, _
                       costprice As Double, _
                       totalMoney As Double, _
                       makeBillDate As Date, _
                       beginSchemeDate As Date, _
                       finishSchemeDate As Date, _
                       groupno As String, _
                       memo As String, _
                       billNo As String, _
                       schemeId As String, _
                       materialType As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    ModifyProductScheme = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "productScheme_modify"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = productionid             ' 参数
    cmdProc.Parameters(2) = name                     ' 参数
    cmdProc.Parameters(3) = specification            ' 参数
    cmdProc.Parameters(4) = singlenum                ' 参数
    cmdProc.Parameters(5) = totalNum                 ' 参数
    cmdProc.Parameters(6) = costprice                ' 参数
    cmdProc.Parameters(7) = totalMoney               ' 参数
    cmdProc.Parameters(8) = makeBillDate             ' 参数
    cmdProc.Parameters(9) = beginSchemeDate          ' 参数
    cmdProc.Parameters(10) = finishSchemeDate        ' 参数
    cmdProc.Parameters(11) = groupno                 ' 参数
    cmdProc.Parameters(12) = memo                    ' 参数
    cmdProc.Parameters(13) = billNo                  ' 参数
    cmdProc.Parameters(14) = schemeId                ' 参数
    cmdProc.Parameters(15) = materialType            ' 参数

    
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    ModifyProductScheme = True

    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Set cmdProc = Nothing
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    Set cmdProc = Nothing
    ModifyProductScheme = False
End Function
'**************************************
'*    功 能 描 述 :删除一条生产计划单记录
'*    输 入 参 数 :无
'*    输 出 能 数 :true  -  成功
'*                 false -  失败
'**************************************
Public Function DeleteProductScheme(schemeId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    DeleteProductScheme = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "productScheme_delete"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = schemeId             ' 参数

    
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    DeleteProductScheme = True

    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Set cmdProc = Nothing
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    Set cmdProc = Nothing
    DeleteProductScheme = False
End Function

'=====================================================================================================

'**************************************
'*    功 能 描 述 :新增一条生产计划单的物料记录
'*    输 入 参 数 :无
'*    输 出 能 数 :""  -  没有新增成功
'*                 "." -  返回新增记录的ID
'**************************************
Public Function NewSchemeMaterial(recSet As ADODB.Recordset, _
                        psId As String, _
                        bomName As String, _
                        processName As String, _
                        totalfee As Double, _
                        fee As Double, _
                        bomCost As Double, _
                        totalCost As Double, _
                        quantity As Double, _
                        finish As Double, _
                        bomId As String, _
                        materialType As String, _
                        materialId As String, _
                        madeBillNum As Integer) As String
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    NewSchemeMaterial = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection