clswuliaorc.cls

一个ERP系统可以用来学习之用

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clswuliaoRc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public Rcid As String
Public RcNo As String
Public GXdaihao As String
Public Wldaihao As String
Public Rcshuliang As String
Public price As String
Public jine As String
Public Cfdidian As String
Public Rcman As String
Public RcDate As String

Public Sub insert()
    MyDB.opendb
    
    sqlstmt = "insert into wuliaorc(rcid,rcno,gxdaihao,wldaihao,rcshuliang,price,jine,cfdidian,rcman,rcdate)" _
    + "values('" + Trim(Rcid) + "','" + Trim(RcNo) + "','" + Trim(GXdaihao) + "','" + Trim(Wldaihao) + "','" + Trim(Rcshuliang) _
    + "','" + Trim(price) + "','" + Trim(jine) + "','" + Trim(Cfdidian) + "','" + Trim(Rcman) + "','" + Trim(RcDate) + "')"
    
    Dim isexe As Boolean
    Dim RswuliaoRc As ADODB.Recordset
    
    isexe = MyDB.exesql(sqlstmt, RswuliaoRc, True)
    
    MyDB.closedb
    
End Sub

Public Sub update(ByVal oriRcID As String)
    MyDB.opendb
    
    sqlstmt = "update wuliaorc set rcid='" + Trim(Rcid) + "',rcno='" + Trim(RcNo) + "',gxdaihao='" + Trim(GXdaihao) _
    + "',wldaihao='" + Trim(Wldaihao) + "',rcshuliang='" + Trim(Rcshuliang) + "',price='" + Trim(price) _
    + "',jine='" + Trim(jine) + "',cfdidian='" + Trim(Cfdidian) + "',rcman='" + Trim(Rcman) + "',rcdate='" + Trim(RcDate) + "'"
    
    Dim isexe As Boolean
    Dim RswuliaoRc As ADODB.Recordset
    
    isexe = MyDB.exesql(sqlstmt, RswuliaoRc, True)
    
    MyDB.closedb
    
End Sub

Public Sub delete(ByVal tempid As String)
    
    MyDB.opendb
    
    sqlstmt = "delete from wuliaorc where rcid='" + Trim(tempid) + "'"
    
    Dim isexe As Boolean
    Dim RswuliaoRc As ADODB.Recordset
    
    isexe = MyDB.exesql(sqlstmt, RswuliaoRc, True)
    
    MyDB.closedb
End Sub


Public Function in_db(ByVal tempid As String) As Boolean
    
    MyDB.opendb
    
    sqlstmt = "select rcid from wuliaorc where rcid='" + Trim(tempid) + "'"
    
    Dim isexe As Boolean
    Dim RswuliaoRc As ADODB.Recordset
    
    isexe = MyDB.exesql(sqlstmt, RswuliaoRc, False)
    
    If RswuliaoRc.RecordCount <> 0 Then
        in_db = True
    Else
        in_db = False
    End If
    
    MyDB.closedb
    
End Function