clslinliaoman.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 = "clslinliaoman"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public YgId As String
Public YgName As String
Public bumen As String
Public Zhiwu As String
Public LinTell As String
Public Beizhu As String

Public Sub insert()

    MyDB.opendb
    
    sqlstmt = "insert into linliaoman (ygid,ygname,bumen,zhiwu,LinTell,beizhu)" _
    + "values('" + Trim(YgId) + "','" + Trim(YgName) + "','" + Trim(bumen) + "','" _
    + Trim(Zhiwu) + "','" + Trim(LinTell) + "','" + Trim(Beizhu) + "')"
    
    Dim isexe As Boolean
    Dim rslinliaoman As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rslinliaoman, True)
    
    MyDB.closedb

End Sub

Public Sub update(ByVal oriygid As String)
    MyDB.opendb
    
    sqlstmt = "update linliaoman set ygid='" + Trim(YgId) + "',ygname='" + Trim(YgName) _
    + "',bumen='" + Trim(bumen) + "',zhiwu='" + Trim(Zhiwu) + "',linTell='" + Trim(LinTell) _
    + "',beizhu='" + Trim(Beizhu) + "' where ygid='" + Trim(oriygid) + "'"
    
    Dim isexe As Boolean
    Dim rslinliaoman As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rslinliaoman, True)
    
    MyDB.closedb
End Sub

Public Sub delete(ByVal tempygid As String)
    MyDB.opendb
    sqlstmt = "delete from linliaoman where ygid='" + Trim(tempygid) + "'"
    
    Dim isexe As Boolean
    Dim rslinliaoman As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rslinliaoman, True)
    
    MyDB.closedb
    
End Sub

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