www.pudn.com > vb625557712344.rar > Driver.cls, change:2004-08-16,size:4055b

VERSION 1.0 CLASS 
BEGIN 
  MultiUse = -1  'True 
  Persistable = 0  'NotPersistable 
  DataBindingBehavior = 0  'vbNone 
  DataSourceBehavior  = 0  'vbNone 
  MTSTransactionMode  = 0  'NotAnMTSObject 
END 
Attribute VB_Name = "Driver" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB_PredeclaredId = False 
Attribute VB_Exposed = False 
'1 Id 数字 长整型 自动编号 
'2 Name  文本 50 驾驶员姓名 
'3 Sex 文本 10 性别 
'4 Age 数字 整型 年龄 
'5 IdCard  文本 20 身份证号 
'6 Telephone  文本 50 电话 
'7 Address 文本 50 地址 
'8 LicenseNo 文本 50  驾驶证号 
'9 EngageDate 文本 20 聘用时间 
'10 Status 文本 20 状态 
 
Public Id As Long 
Public Name As String 
Public Sex As String 
Public Age As Integer 
Public IdCard As String 
Public Telephone As String 
Public Address As String 
Public LicenseNo As String 
Public EngageDate As String 
Public Status As String 
 
Public Sub Init() 
  Id = -1 
  Name = "" 
  Sex = "男" 
  Age = 18 
  IdCard = "" 
  Telephone = "" 
  Address = "" 
  LicenseNo = "" 
  EngageDate = "" 
  Status = "" 
End Sub 
 
'删除Driver数据 
Public Sub Delete(ByVal TmpId As Long) 
  SqlStmt = "Delete FROM Driver WHERE Id=" + Trim(TmpId) 
  SQLExt (SqlStmt) 
End Sub 
 
Public Function GetInfo(ByVal TmpId As Long) As Boolean 
  Dim rs As New ADODB.Recordset 
   
  SqlStmt = "SELECT * FROM Driver WHERE Id=" + Trim(TmpId) 
  Set rs = QueryExt(SqlStmt) 
  If rs.EOF = True Then 
    GetInfo = False 
    Exit Function 
  Else 
    If IsNull(rs.Fields(0)) Then 
      Id = 0 
    Else 
      Id = rs.Fields(0) 
    End If 
    If IsNull(rs.Fields(1)) Then 
      Name = "" 
    Else 
      Name = rs.Fields(1) 
    End If 
    If IsNull(rs.Fields(2)) Then 
      Sex = "男" 
    Else 
      Sex = rs.Fields(2) 
    End If 
    If IsNull(rs.Fields(3)) Then 
      Age = 18 
    Else 
      Age = rs.Fields(3) 
    End If 
    If IsNull(rs.Fields(4)) Then 
      IdCard = "" 
    Else 
      IdCard = rs.Fields(4) 
    End If 
    If IsNull(rs.Fields(5)) Then 
      Telephone = "" 
    Else 
      Telephone = rs.Fields(5) 
    End If 
    If IsNull(rs.Fields(6)) Then 
      Address = "" 
    Else 
      Address = rs.Fields(6) 
    End If 
    If IsNull(rs.Fields(7)) Then 
      LicenseNo = "" 
    Else 
      LicenseNo = rs.Fields(7) 
    End If 
    If IsNull(rs.Fields(8)) Then 
      EngageDate = "" 
    Else 
      EngageDate = rs.Fields(8) 
    End If 
    If IsNull(rs.Fields(9)) Then 
      Status = "" 
    Else 
      Status = rs.Fields(9) 
    End If 
  End If 
  GetInfo = True 
End Function 
'判断是否已经存在此驾驶号 
Public Function In_DB(ByVal TmpId As Long) As Boolean 
  Dim rs As New ADODB.Recordset 
  SqlStmt = "SELECT * FROM Driver WHERE Id=" + Trim(TmpId) 
  Set rs = QueryExt(SqlStmt) 
  If Not rs.EOF Then 
    In_DB = True 
  Else 
    In_DB = False 
  End If 
End Function 
 
Public Sub Insert() 
  '设置INSERT语句 
  SqlStmt = "INSERT INTO Driver(Name,Sex,Age,IdCard,Telephone,Address," & _ 
     "LicenseNo,EngageDate,Status)" & _ 
     " Values('" + Trim(Name) + "','" + Trim(Sex) + "'," & _ 
     Trim(Age) + ",'" + Trim(IdCard) + "','" + Trim(Telephone) + "','" & _ 
     Trim(Address) + "','" + Trim(LicenseNo) + "','" + Trim(EngageDate) + "','" & _ 
     Trim(Status) + "')" 
  '执行SQL语句 
  SQLExt (SqlStmt) 
End Sub 
'更新驾驶员信息 
Public Sub Update(ByVal TmpId As Long) 
  '设置UPDATE语句 
  SqlStmt = "Update Driver Set Name='" + Trim(Name) + "',Sex='" + Trim(Sex) _ 
     + "',Age=" + Trim(Age) + ",IdCard='" + Trim(IdCard) _ 
     + "',Telephone='" + Trim(Telephone) + "',Address='" + Trim(Address) _ 
     + "',LicenseNo='" + Trim(LicenseNo) + "'," + "EngageDate='" + Trim(EngageDate) + "'," _ 
     + "Status='" + Trim(Status) + "' " _ 
     + " WHERE Id=" + Trim(TmpId) 
  '执行SQL语句 
  SQLExt (SqlStmt) 
End Sub 
'更改驾驶员状态 
Public Sub UpdateStatus(ByVal TmpId As Long) 
  '设置UPDATE语句 
  SqlStmt = "Update Driver Set Status='" + Trim(Status) + "'" _ 
          + " WHERE Id=" + Trim(TmpId) 
  '执行SQL语句 
  SQLExt (SqlStmt) 
End Sub