clsgongyingshang.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 = "clsgongyingshang"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public GyId As String
Public GyDaihao As String
Public GyName As String
Public GyLinkman As String
Public GyAddress As String
Public GyEmail As String
Public GyPhone As String
Public GyFox As String

Public Sub insert()
    MyDB.opendb
    
    sqlstmt = "insert into gyshang (gyid,gydaihao,gyname,gylinkman,gyaddress,gyemail,gyphone,gyfox)" _
    + "values('" + Trim(GyId) + " ' ,'" + Trim(GyDaihao) + " ','" + Trim(GyName) + " ','" + Trim(GyLinkman) + "','" _
    + Trim(GyAddress) + "','" + Trim(GyEmail) + "','" + Trim(GyPhone) + "','" + Trim(GyFox) + "')"
    
    Dim isexe As Boolean
    Dim rsgyshang As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rsgyshang, True)
    
    MyDB.closedb
      
End Sub


Public Sub update(ByVal oriname As String)
    MyDB.opendb
    
    sqlstmt = "update gyshang set gyid='" + Trim(GyId) + "',gydaihao='" + Trim(GyDaihao) _
    + "',gyname='" + Trim(GyName) + "',gylinkman='" + Trim(GyLinkman) + "',gyaddress='" + Trim(GyAddress) _
    + "',gyemail='" + Trim(GyEmail) + "',gyphone='" + Trim(GyPhone) + "',gyfox='" + Trim(GyFox) + "' where gydaihao='" + Trim(oriname) + "'"
    
    
    Dim isexe As Boolean
    Dim rsgyshang As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rsgyshang, True)
    
    MyDB.closedb
       
End Sub

Public Sub delete(ByVal Tempname As String)
    MyDB.opendb
    sqlstmt = "delete from gyshang where gydaihao='" + Trim(Tempname) + "'"
    
    Dim isexe As Boolean
    Dim rsgyshang As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rsgyshang, True)
    
    MyDB.closedb
    
End Sub


Public Function IN_DB(ByVal Tempname As String) As Boolean

    MyDB.opendb
    sqlstmt = "select gydaihao from gyshang where gydaihao='" + Trim(Tempname) + "'"
    
    Dim isexe As Boolean
    Dim rsgyshang As ADODB.Recordset
    isexe = MyDB.exesql(sqlstmt, rsgyshang, False)
    
    If rsgyshang.RecordCount <> 0 Then
        IN_DB = True
    Else
        IN_DB = False
    End If
    
    MyDB.closedb
    
End Function