goodsdao.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 = "GoodsDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

'**************************************
'*    功 能 描 述 :商品数据库增加函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function new_goods(recSet As ADODB.Recordset, name As String, stripe As String, _
                                acronym As String, pattern As String, madein As String, _
                                    smallunit As String, bigunit As String, specification As String, switchrelation As String, prepriceo As Double, _
                                    prepricet As Double, prepriceth As Double, prepricef As Double, presetprice As Double, _
                                    memo As String) As Boolean
    
    Dim cmdProc As ADODB.Command                            ' 执行存储过程的命令
    new_goods = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                            ' 执行存储过程的命令的设置
    cmdProc.CommandText = "new_goods"                       ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = name                            ' 参数-商品名称
    cmdProc.Parameters(2) = stripe                          ' 参数-商品条码
    cmdProc.Parameters(3) = acronym                         ' 参数-商品简称
    cmdProc.Parameters(4) = pattern                         ' 参数-商品型号
    cmdProc.Parameters(5) = madein                          ' 参数-产地
    cmdProc.Parameters(6) = smallunit                       ' 参数-小单位
    cmdProc.Parameters(7) = bigunit                         ' 参数-大单位
    cmdProc.Parameters(8) = specification                   ' 参数-规格
    cmdProc.Parameters(9) = switchrelation                  ' 参数-转换关系
    cmdProc.Parameters(10) = prepriceo                      ' 参数-预售价1
    cmdProc.Parameters(11) = prepricet                      ' 参数-预售价2
    cmdProc.Parameters(12) = prepriceth                     ' 参数-预售价3
    cmdProc.Parameters(13) = prepricef                      ' 参数-预售价4
    cmdProc.Parameters(14) = presetprice                    ' 参数-预设进价
    cmdProc.Parameters(15) = memo                           ' 参数-备注
                                                            ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            new_goods = True
        Else
            new_goods = False
       End If
   End With
       
    Exit Function
    
Cwcl:
    new_goods = False
    Exit Function
End Function





'**************************************
'*    功 能 描 述 :关系数据库增加函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function new_relation(recSet As ADODB.Recordset, supplierId As String, goodsid As String) As Boolean
    
    Dim cmdProc As ADODB.Command                        ' 执行存储过程的命令
    new_relation = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                        ' 执行存储过程的命令的设置
    cmdProc.CommandText = "relation_add"                ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId                  ' 供应商编号
    cmdProc.Parameters(2) = goodsid                     ' 商品编号
                                                        ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            new_relation = True
        Else
            new_relation = False
        End If
   End With
       
    Exit Function
    
Cwcl:
    new_relation = False
    Exit Function
End Function


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



'**************************************
'*    功 能 描 述 :删除所选商品函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function goods_delete(recSet As ADODB.Recordset, goodsid As String) As Boolean
    
    Dim cmdProc As ADODB.Command                        ' 执行存储过程的命令
    goods_delete = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                        ' 执行存储过程的命令的设置
    cmdProc.CommandText = "goods_delete"                ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = goodsid                     ' 商品编号
    cmdProc.Parameters(2) = "1"                     ' 商品编号
                                                        ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            goods_delete = True
        Else
            goods_delete = False
        End If
   End With
       
    Exit Function
    
Cwcl:
    goods_delete = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :商品数据库修改函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function edit_goods1(recSet As ADODB.Recordset, name As String, stripe As String, _
                                acronym As String, pattern As String, madein As String, _
                                    smallunit As String, bigunit As String, specification As String, switchrelation As String, prepriceo As Double, _
                                    prepricet As Double, prepriceth As Double, prepricef As Double, presetprice As Double, _
                                    memo As String, goodsid As String) As Boolean
    
    Dim cmdProc As ADODB.Command                        ' 执行存储过程的命令
    edit_goods1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                        ' 执行存储过程的命令的设置
    cmdProc.CommandText = "edit_goods"        ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = name                            ' 参数-商品名称
    cmdProc.Parameters(2) = stripe                          ' 参数-条码
    cmdProc.Parameters(3) = acronym                         ' 参数-简称
    cmdProc.Parameters(4) = pattern                         ' 参数-型号
    cmdProc.Parameters(5) = madein                          ' 参数-产地
    cmdProc.Parameters(6) = smallunit                       ' 参数-小单位
    cmdProc.Parameters(7) = bigunit                         ' 参数-大单位
    cmdProc.Parameters(8) = specification                   ' 参数-规格
    cmdProc.Parameters(9) = switchrelation                  ' 参数-转换关系
    cmdProc.Parameters(10) = prepriceo                      ' 参数-预售价1
    cmdProc.Parameters(11) = prepricet                      ' 参数-预售价2
    cmdProc.Parameters(12) = prepriceth                     ' 参数-预售价3
    cmdProc.Parameters(13) = prepricef                      ' 参数-预售价4
    cmdProc.Parameters(14) = presetprice                    ' 参数-预设进价
    cmdProc.Parameters(15) = memo                           ' 参数-备注
    cmdProc.Parameters(16) = goodsid
                                                            ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    Exit Function
    
Cwcl:
    edit_goods1 = False
    Exit Function
End Function



'**************************************
'*    功 能 描 述 :删除供应商-商品关系表函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function relation_delete(recSet As ADODB.Recordset, goodsid As String, supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command                        ' 执行存储过程的命令
    relation_delete = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                        ' 执行存储过程的命令的设置
    cmdProc.CommandText = "relation_delete"             ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = goodsid
    cmdProc.Parameters(2) = supplierId
                                                        ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    Exit Function
    
Cwcl:
    relation_delete = False
    Exit Function
End Function




'**************************************
'*    功 能 描 述 :判断所填商品函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function judge_goods(recSet As ADODB.Recordset, name As String) As Boolean
    
    Dim cmdProc As ADODB.Command                        ' 执行存储过程的命令
    judge_goods = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                        ' 执行存储过程的命令的设置
    cmdProc.CommandText = "judge_goods"                ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = name                     ' 商品编号
                                                        ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl