VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Company"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Id  數(shù)字 長整型 公司編號
'2 Company  文本 長度 50  公司名稱
'3 Telephone  文本 長度 50 聯(lián)系電話
'4 ZipCode 文本 長度 8  郵政編碼
'5 Fax 文本 長度 50 傳真
'6 Address 文本 長度 50 地址
'7 Email 文本 長度 50 電子郵件
'8 Contact 文本 長度 50 聯(lián)系人
'9 TypeId 數(shù)字 整型 公司種類，1-表示汽車銷售商；2-表示保險公司
'10 Comment 備注  描述

Public Id As Long
Public Company As String
Public Telephone As String
Public ZipCode As String
Public Fax As String
Public Address As String
Public Email As String
Public Contact As String
Public TypeId As Integer
Public Comment As String

Public Sub Init()
  Company = ""
  Telephone = ""
  ZipCode = ""
  Fax = ""
  Address = ""
  Email = ""
  Contact = ""
  TypeId = 1
  Comment = ""
End Sub

'刪除公司信息
Public Sub Delete(ByVal Tmpid As Long)
  SqlStmt = "DELETE FROM Company WHERE Id=" + Trim(Tmpid)
  SQLExt (SqlStmt)
End Sub

Public Function In_DB(ByVal TmpTid As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Company WHERE TypeId=" + Trim(Str(TmpTid))
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function
Public Function GetInfo(ByVal Tmpid As Integer) As Boolean
  Dim rs As New ADODB.Recordset
  
  '設(shè)置SELECT語句，讀取編號為TmpId的記錄
  SqlStmt = "SELECT * FROM Company WHERE Id=" + Trim(Tmpid)
  '將結(jié)果集讀取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF Then
    '如果結(jié)果集為空，則初始化
    Init
    GetInfo = False
  Else
    '將結(jié)果集中的數(shù)據(jù)賦值到成員變量中
    If IsNull(rs.Fields(0)) Then
      Id = 0
    Else
      Id = rs.Fields(0)
    End If
   
    If IsNull(rs.Fields(1)) Then
      Company = ""
    Else
      Company = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      Telephone = ""
    Else
      Telephone = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      ZipCode = ""
    Else
      ZipCode = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      Fax = ""
    Else
      Fax = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      Address = ""
    Else
      Address = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      Email = ""
    Else
      Email = rs.Fields(6)
    End If
    If IsNull(rs.Fields(7)) Then
      Contact = ""
    Else
      Contact = rs.Fields(7)
    End If
    
    If IsNull(rs.Fields(8)) Then
      TypeId = 1
    Else
      TypeId = rs.Fields(8)
    End If
    If IsNull(rs.Fields(9)) Then
      Comment = ""
    Else
      Comment = rs.Fields(9)
    End If
    GetInfo = True
  End If
End Function

'插入公司
Public Sub Insert()
  SqlStmt = "INSERT INTO Company(Company,Telephone,Fax,ZipCode,Address," & _
          "Email,Contact,TypeId,Comment) VALUES('" + Trim(Company) + "','" & _
          Trim(Telephone) + "','" + Trim(Fax) + "','" + Trim(ZipCode) + "','" & _
          Trim(Address) + "','" + Trim(Email) + "','" + Trim(Contact) + "'," & _
          Trim(TypeId) + ",'" + Trim(Comment) + "')"
  SQLExt (SqlStmt)
End Sub
'更新數(shù)據(jù)
Public Sub Update(ByVal Tmpid As Long)
   SqlStmt = "UPDATE Company SET Company='" + Trim(Company) & _
          "',Telephone='" + Trim(Telephone) + "',Fax='" + Trim(Fax) + "'," & _
          "ZipCode='" + Trim(ZipCode) + "',Address='" + Trim(Address) + "',Email='" & _
          Trim(Email) + "',Contact='" + Trim(Contact) + "',Comment='" & _
          Trim(Comment) + "' Where Id = " + Trim(Str(Tmpid))
  SQLExt (SqlStmt)
End Sub