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

Public ReceiptId As String
Public ContractId As String
Public ReceiptType As String
Public Amount As Single
Public Cashier As String
Public IncomeDate As String
Public Memo As String

Public Sub Init()
  ReceiptId = ""
  ContractId = ""
  ReceiptType = ""
  Amount = 0
  Cashier = ""
  IncomeDate = ""
  Memo = ""
End Sub

Public Sub GetInfo(ByVal TmpReceiptId As String)
  Dim rs As New ADODB.Recordset
  
  ReceiptId = TmpReceiptId
  If TmpReceiptId = "" Then
    Init
    Exit Sub
  End If
  
  SqlStmt = "SELECT * FROM Income WHERE ReceiptId='" + Trim(TmpReceiptId) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    ' 合同编号
    If IsNull(rs.Fields(1)) Then
      ContractId = ""
    Else
      ContractId = Trim(rs.Fields(1))
    End If
    ' 发票类型
    If IsNull(rs.Fields(2)) Then
      ReceiptType = ""
    Else
      ReceiptType = Trim(rs.Fields(2))
    End If
    ' 金额
    If IsNull(rs.Fields(3)) Then
      Amount = 0
    Else
      Amount = rs.Fields(3)
    End If
    ' 经办人
    If IsNull(rs.Fields(4)) Then
      Cashier = ""
    Else
      Cashier = Trim(rs.Fields(4))
    End If
    ' 发生日期
    If IsNull(rs.Fields(5)) Then
      IncomeDate = ""
    Else
      IncomeDate = Trim(rs.Fields(5))
    End If
    ' 备注
    If IsNull(rs.Fields(6)) Then
      Memo = ""
    Else
      Memo = TrimStr(ColVal)
    End If
  Else
    Init
  End If
  rs.Close
End Sub

Public Function In_DB(ByVal TmpReceiptId As String) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT ReceiptId FROM Income WHERE ReceiptId='" + Trim(TmpReceiptId) + "'"
  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 Income VALUES('" + Trim(ReceiptId) + "','" _
            + Trim(ContractId) + "','" + Trim(ReceiptType) + "'," _
            + Trim(Str(Amount)) + ",'" + Trim(Cashier) _
            + "','" + Trim(IncomeDate) + "','" + Trim(Memo) + "')"
  SQLExt (SqlStmt)
End Sub

Public Function SumIncome(ByVal TmpContractId As String) As Single
  Dim rs As New ADODB.Recordset
  If TmpContractId = "" Then
    SumIncome = 0
    Exit Function
  End If
  SqlStmt = "SELECT ISNULL(Sum(Amount),0) FROM Income WHERE ContractId='" + Trim(TmpContractId) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    SumIncome = rs.Fields(0)
  Else
    SumIncome = 0
  End If
  rs.Close
End Function


'更新地域数据
Public Sub Update(ByVal TmpReceiptId As String)
  SqlStmt = "UPDATE Income SET ReceiptId='" + Trim(ReceiptId) _
          + "',ReceiptType='" + Trim(ReceiptType) _
          + "',Amount=" + Trim(Str(Amount)) + ",Cashier='" _
          + Trim(Cashier) + "',IncomeDate='" + Trim(IncomeDate) _
          + "',Memo='" + Trim(Memo) _
          + "' WHERE ReceiptId='" + Trim(TmpReceiptId) + "'"
  SQLExt (SqlStmt)
End Sub