income.cls

Visual Basic + Oracle 9i数据库应用系统开发与实例（企业购销存管理系统）界面简洁,数据库完整,还不错~适合学生利用和使用!

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
'1 IncomeId  Int 收款单号
'2 OriId Int 原始单号（销售单号或采购退货单号）
'3 CltId Int 客户编号
'4 IncomeType  Varchar 20  收款类型，包括销售收款和采购退货收款
'5 PayWay  Varchar 20  付款方式（现金、支票、汇款）
'6 Amount  Decimal 15,2  收款金额
'7 OptDate Varchar 20  收款日期
'8 EmpName Varchar 50  经办人
'9 Memo  Varchar 200 摘要

Public IncomeId As Integer
Public OriId As Integer
Public CltId As Integer
Public IncomeType As String
Public PayWay As String
Public Amount As Single
Public OptDate As String
Public EmpName As String
Public Memo As String

Public Sub Init()
  IncomeId = 0
  OriId = 0
  CltId = 0
  IncomeType = ""
  PayWay = 0
  Amount = 0
  OptDate = ""
  EmpName = ""
  Memo = 0
End Sub

Public Function GetInfo(ByVal TmpIncomeId As Long) As Boolean
  If TmpIncomeId <= 0 Then
    GetInfo = False
    Init
    Exit Function
  End If
  
  IncomeId = TmpIncomeId
  DB_Connect
  
  SqlStmt = "SELECT * FROM Income WHERE IncomeId=" _
          + Trim(Str(TmpIncomeId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
    Exit Function
  Else
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Lench(ColVal), pcblench)
    OriId = Val(ColVal)

    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblench)
    CltId = Val(ColVal)

    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Lench(ColVal), pcblench)
    IncomeType = TrimStr(ColVal)

    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Lench(ColVal), pcblench)
    PayWay = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Lench(ColVal), pcblench)
    Amount = Val(ColVal)

    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Lench(ColVal), pcblench)
    OptDate = TrimStr(ColVal)

    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Lench(ColVal), pcblench)
    EmpName = TrimStr(ColVal)

    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 9, 1, ColVal, Lench(ColVal), pcblench)
    Memo = TrimStr(ColVal)
  End If
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  GetInfo = True
  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Income Values( INCOMEID.NEXTVAL," + Trim(OriId) _
     + "," + Trim(CltId) + ",'" + Trim(IncomeType) + "','" + Trim(PayWay) _
     + "'," + Trim(Str(Amount)) + ",'" + Trim(OptDate) + "','" _
     + Trim(EmpName) + "','" + Trim(Memo) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE Income SET IncomeType='" + Trim(IncomeType) _
          + "', OriId=" + Trim(Str(OriId)) + ",CltId=" + Trim(CltId) _
          + ", PayWay='" + Trim(PayWay) + "', Amount=" + Trim(Str(Amount)) _
          + ", OptDate='" + Trim(OptDate) + "', EmpName='" + Trim(EmpName) _
          + "', Memo='" + Trim(Memo) + "' WHERE IncomeId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub