maintenance.cls

来自「银行设备管理系统,采用VB+SQL实现,包含源程序及数据库备份,完美运行,完整无」· CLS 代码 · 共 150 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Maintenance"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public MnID As Long
Public DevNo As String
Public ReportDate As String
Public ArriveDate As String
Public SolveDate As String
Public Reason As String
Public ChangeAccessory As Integer
Public AccessoryList As String
Public Engineer As String
Public Amount As Long
Public Comment As String

Public Sub Init()
  MnID = 0
  DevNo = ""
  ReportDate = ""
  ArriveDate = ""
  SolveDate = ""
  Reason = ""
  ChangeAccessory = 0
  AccessoryList = ""
  Engineer = ""
  Amount = 0
  Comment = ""
End Sub

'删除维护信息
Public Sub Delete(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM Maintenance WHERE MnID=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

Public Function In_DB(ByVal TmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Maintenance WHERE MnID=" + Trim(TmpId)
  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 Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  '设置SELECT语句，读取编号为TmpId的记录
  SqlStmt = "SELECT * FROM Maintenance WHERE MnID=" + Trim(TmpId)
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    If IsNull(rs.Fields(0)) Then
      MnID = 0
    Else
      MnID = rs.Fields(0)
    End If
    If IsNull(rs.Fields(1)) Then
      DevNo = ""
    Else
      DevNo = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      ReportDate = ""
    Else
      ReportDate = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      ArriveDate = ""
    Else
      ArriveDate = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      SolveDate = ""
    Else
      SolveDate = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      Reason = ""
    Else
      Reason = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      ChangeAccessory = 0
    Else
      ChangeAccessory = rs.Fields(6)
    End If
    If IsNull(rs.Fields(7)) Then
      AccessoryList = ""
    Else
      AccessoryList = rs.Fields(7)
    End If
    If IsNull(rs.Fields(8)) Then
      Engineer = ""
    Else
      Engineer = rs.Fields(8)
    End If
    If IsNull(rs.Fields(9)) Then
      Amount = 0
    Else
      Amount = rs.Fields(9)
    End If
    If IsNull(rs.Fields(10)) Then
      Comment = ""
    Else
      Comment = rs.Fields(10)
    End If
    GetInfo = True
  End If
End Function
   
'插入分类
Public Sub Insert()
  SqlStmt = "INSERT INTO Maintenance VALUES('" + Trim(DevNo) + "','" + _
           Trim(ReportDate) + "','" + Trim(ArriveDate) + "','" + Trim(SolveDate) _
           + "','" + Trim(Reason) + "'," + Trim(ChangeAccessory) + ",'" + Trim(AccessoryList) _
           + "','" + Trim(Engineer) + "'," + Trim(Amount) + ",'" + Trim(Comment) + "')"
  SQLExt (SqlStmt)
End Sub
'更新数据
Public Sub Update(ByVal TmpId As Long)
   SqlStmt = "UPDATE Maintenance SET DevNo='" + Trim(DevNo) _
          + "', ReportDate='" + Trim(ReportDate) + "', ArriveDate='" + Trim(ArriveDate) _
          + "', SolveDate='" + Trim(SolveDate) + "', Reason='" + Trim(Reason) _
          + "', ChangeAccessory=" + Trim(ChangeAccessory) + ", AccessoryList='" _
          + Trim(AccessoryList) + "',Engineer='" + Trim(Engineer) + "',Amount=" _
          + Trim(Amount) + ",Comment='" + Trim(Comment) + "' Where MnID=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub