clswuliaomulu.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 = "clswuliaomulu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public wlid As String
Public wldaihao As String
Public wlname As String
Public leibie As String
Public guige As String
Public wluntil As String
Public price As String
Public beizhu As String

Public Sub update(ByVal oriWLdaihao As String)
    MyDB.opendb
    sqlstmt = "update wuliaomulu set wlid='" + Trim(wlid) + "',wldaihao='" + Trim(wldaihao) + "',wlname='" + Trim(wlname) _
    + "',leibie='" + Trim(leibie) + "',guige='" + Trim(guige) + "',wluntil='" + Trim(wluntil) + "',price='" + Trim(price) _
    + "',beizhu='" + Trim(beizhu) + "'where wldaihao='" + Trim(oriWLdaihao) + "'"
    
    Dim isexe As Boolean
    Dim rswuliaomulu As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rswuliaomulu, True)
    
    MyDB.closedb

End Sub

Public Sub delete(ByVal tempdaihao As String)
    MyDB.opendb
    
    sqlstmt = "delete  from wuliaomulu where wldaihao='" + Trim(tempdaihao) + "'"
    
    Dim isexe As Boolean
    Dim rswuliaomulu As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rswuliaomulu, True)
    
    MyDB.closedb
    
End Sub

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

Public Sub inserts()
    MyDB.opendb
    
    sqlstmt = "insert into wuliaomulu (wlid,wldaihao,wlname,leibie,guige,wluntil,price,beizhu)" _
    + "values('" + Trim(wlid) + "','" + Trim(wldaihao) + "','" + Trim(wlname) + "','" + Trim(leibie) _
    + "','" + Trim(guige) + "','" + Trim(wluntil) + "','" + Trim(price) + "','" + Trim(beizhu) + "')"
    
    Dim isexe As Boolean
    Dim rswuliaomulu As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rswuliaomulu, True)
    
    MyDB.closedb
    
    
End Sub