supplier.cls

主要是基本的办公用品管理操作界面, 包含基本信息管理、办公用品管理

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Supplier"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public SId As Long
Public SName As String
Public Tel As String
Public Address As String
Public Contact As String
Public Memos As String

Public Sub Init()
  SId = 0
  SName = ""
  Tel = 0
  Address = ""
  Contact = ""
  Memos = 0
End Sub

Public Sub Delete(ByVal TmpSId As Long)
  SqlStmt = "DELETE FROM Supplier WHERE SId=" + Trim(Str(TmpSId))
  SQLExt (SqlStmt)
End Sub

'获取指定的信息
Public Sub GetInfo(ByVal TmpSId As Long)
  Dim rs As New ADODB.Recordset
  SId = TmpSId
  
  SqlStmt = "SELECT * FROM Supplier WHERE SId=" + Trim(Str(TmpSId))
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    SName = Trim(rs.Fields(1))      '名称
    If IsNull(rs.Fields(2)) Then    '电话
      Tel = ""
    Else
      Tel = Trim(rs.Fields(2))
    End If
    If IsNull(rs.Fields(3)) Then    '地址
      Address = ""
    Else
      Address = Trim(rs.Fields(3))
    End If
    If IsNull(rs.Fields(4)) Then    '联系人
      Contact = ""
    Else
      Contact = Trim(rs.Fields(4))
    End If
    If IsNull(rs.Fields(5)) Then    '备注
      Memos = ""
    Else
      Memos = Trim(rs.Fields(5))
    End If
  Else
    Init
  End If
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO Supplier(SName,Tel,Address,Contact,Memos)" _
          + " Values('" + Trim(SName) + "','" + Trim(Tel) _
          + "','" + Trim(Address) + "','" _
          + Trim(Contact) + "','" + Trim(Memos) + "')"
          
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal OriSId As Long)
  SqlStmt = "UPDATE Supplier Set SName='" + Trim(SName) _
          + "',Tel='" + Trim(Tel) + "',Address='" _
          + Trim(Address) + "',Contact='" + Trim(Contact) _
          + "',Memos='" + Trim(Memos) + "' WHERE SId=" + Trim(Str(OriSId))
  SQLExt (SqlStmt)
End Sub