clslinliaobumen.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 = "clslinliaobumen"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public bumenid As String
Public bumenname As String
Public quyu As String

Public Sub insert()
    MyDB.opendb
    sqlstmt = "insert into linliaobumen (bumenid,bumenname,quyu)" _
    + "values('" + Trim(bumenid) + "','" + Trim(bumenname) + "','" + Trim(quyu) + "')"
    
    Dim isexe As Boolean
    Dim rslinliaobumen As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rslinliaobumen, True)
    
    MyDB.closedb
    
End Sub

Public Sub update(ByVal oriname As String)
    
    MyDB.opendb
    sqlstmt = "update linliaobumen set bumenid='" + Trim(bumenid) + "',bumenname='" _
    + Trim(bumenname) + "',quyu='" + Trim(quyu) + "' where bumenname='" + Trim(oriname) + "'"
    Dim isexe As Boolean
    Dim rslinliaobumen As ADODB.Recordset
    
    isexe = MyDB.exesql(sqlstmt, rslinliaobumen, True)
    
    MyDB.closedb
    
End Sub
Public Sub delete(ByVal tempname As String)
    MyDB.opendb
    
    sqlstmt = "delete from linliaobumen where bumenname='" + Trim(tempname) + "'"
    
    Dim isexe As Boolean
    Dim rslinliaobumen As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rslinliaobumen, True)
    
    MyDB.closedb
      
End Sub

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