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

Public PayId As Integer
Public OriId As Integer
Public CltId As Integer
Public PayType 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()
  PayId = 0
  OriId = 0
  CltId = 0
  PayType = ""
  PayWay = 0
  Amount = 0
  OptDate = ""
  EmpName = ""
  Memo = 0
End Sub

Public Function GetInfo(ByVal TmpPayId As Long) As Boolean
  If TmpPayId <= 0 Then
    GetInfo = False
    Init
    Exit Function
  End If
  
  PayId = TmpPayId
  DB_Connect
  
  SqlStmt = "SELECT * FROM Payment WHERE PayId=" _
          + Trim(Str(TmpPayId))
  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)
    PayType = 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 Payment Values( PAYID.NEXTVAL, " + Trim(OriId) _
     + "," + Trim(CltId) + ",'" + Trim(PayType) + "','" + 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 Payment SET PayType='" + Trim(PayType) _
          + "', OriId=" + Trim(Str(OriId)) + ", CltId=" + Trim(CltId) _
          + ", PayWay='" + Trim(PayWay) _
          + "', Amount=" + Trim(Str(Amount)) + ", OptDate='" _
          + Trim(OptDate) + "', EmpName='" + Trim(EmpName) _
          + "', Memo='" + Trim(Memo) + "' WHERE PayId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub