conproduct.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 = "ConProduct"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public ProId As String
Public ContractId As String
Public UnitPrice As Single
Public Quantity As Integer
Public DeliveryDate As String
Public Memo As String

Public Sub Init()
  ProId = ""
  ContractId = ""
  UnitPrice = 0
  Quantity = 0
  DeliveryDate = ""
  Memo = ""
End Sub

'删除
Public Sub Delete(ByVal TmpContractId As String, _
                  ByVal TmpProId As String)
  SqlStmt = "DELETE FROM ConProduct WHERE ContractId='" + Trim(TmpContractId) _
          + "' And ProId='" + Trim(TmpProId) + "'"
  SQLExt (SqlStmt)
End Sub

Public Sub GetInfo(ByVal TmpContractId As String, _
                   ByVal TmpProId As String)
                   
  Dim rs As New ADODB.Recordset
  ContractId = TmpContractId
  ProId = TmpProId
  If TmpProId = "" Or TmpContractId = "" Then
    Init
    Exit Sub
  End If
  
  SqlStmt = "SELECT * FROM ConProduct WHERE ContractId='" + Trim(TmpContractId) _
          + "',ProId='" + Trim(TmpProId) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    ' 产品单价
    If IsNull(rs.Fields(2)) Then
      UnitPrice = 0
    Else
      UnitPrice = Val(rs.Fields(2))
    End If
    ' 产品数量
    If IsNull(rs.Fields(3)) Then
      Quantity = 0
    Else
      Quantity = Val(rs.Fields(3))
    End If
    ' 交货日期
    If IsNull(rs.Fields(5)) Then
      DeliveryDate = ""
    Else
      DeliveryDate = Trim(rs.Fields(5))
    End If
    ' 备注
    If IsNull(rs.Fields(6)) Then
      Memo = ""
    Else
      Memo = Trim(rs.Fields(6))
    End If
  Else
    Init
  End If
  rs.Close
End Sub

Public Function In_DB(ByVal TmpContractId As String, _
                      ByVal TmpProId As String) As Boolean

  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT ProId FROM ConProduct WHERE ContractId='" + Trim(TmpContractId) _
          + "' And ProId='" + Trim(TmpProId) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    In_DB = True
  Else
    In_DB = False
  End If
  rs.Close
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO ConProduct VALUES('" + Trim(ContractId) + "','" _
            + Trim(ProId) + "'," + Trim(Str(UnitPrice)) + "," _
            + Trim(Str(Quantity)) + ",'" _
            + Trim(DeliveryDate) + "','" + Trim(Memo) + "')"
  SQLExt (SqlStmt)
End Sub

'更新地域数据
Public Sub Update(ByVal TmpContractId As String, _
                  ByVal TmpProId As String)
  SqlStmt = "UPDATE ConProduct SET ProId='" + Trim(ProId) _
          + "',Quantity=" + Trim(Str(Quantity)) _
          + ",UnitPrice=" + Trim(Str(UnitPrice)) + ",DeliveryDate='" _
          + Trim(DeliveryDate) + "',Memo='" + Trim(Memo) _
          + "' WHERE ContractId='" + Trim(TmpContractId) _
          + "' And ProId='" + Trim(TmpProId) + "'"
  SQLExt (SqlStmt)
End Sub