clsleibie.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 = "clsLeiBie"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public LeiBieId As String
Public LbName As String
Public beizhu As String

Public Sub insert()
    MyDB.opendb
    
    sqlstmt = "insert into leibie (leibieID,lbname,beizhu)" _
    + "values('" + Trim(LeiBieId) + "','" + Trim(LbName) + "','" + Trim(beizhu) + "')"
    
    Dim isexe As Boolean
    Dim rsleibie As adodb.Recordset
    
    isexe = MyDB.exesql(sqlstmt, rsleibie, True)
    
    MyDB.closedb

End Sub
    
Public Sub update(ByVal oriname As String)
    MyDB.opendb
    sqlstmt = "update leibie set leibieid='" + Trim(LeiBieId) + "',lbname='" + Trim(LbName) _
    + "',beizhu='" + Trim(beizhu) + "' where lbname='" + Trim(oriname) + "'"
    
    Dim isexe As Boolean
    Dim rsleibie As adodb.Recordset
    
    isexe = MyDB.exesql(sqlstmt, rsleibie, True)
    
    MyDB.closedb
    
End Sub


Public Sub delete(ByVal tempname As String)
    MyDB.opendb
    
    sqlstmt = "delete  from leibie where lbname='" + Trim(tempname) + "'"
    
    Dim isexe As Boolean
    Dim rsleibie As adodb.Recordset
    isexe = MyDB.exesql(sqlstmt, rsleibie, True)
    
    MyDB.closedb
    
End Sub

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