cuseless.cls

一个vb编的计算机机房管理系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CUseless"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private m_sEid As String
Private m_dUlTime As Date
Private m_sCause As String


'取得和设置属性值

Public Property Get Eid() As String
  Eid = m_sEid
End Property

Public Property Let Eid(ByVal vEid As String)
  m_sEid = vEid
End Property
Public Property Get UlTime() As Date
  UlTime = m_dUlTime
End Property

Public Property Let UlTime(ByVal vUlTime As Date)
  m_dUlTime = vUlTime
End Property
Public Property Get Cause() As String
  Cause = m_sCause
End Property

Public Property Let Cause(ByVal vCause As String)
  m_sCause = vCause
End Property

'公共方法

Public Sub Insert()                             '添加纪录
'SelectEid
Connect "w"
sqlstr = "select * from Useless where Eid='" & Eid & "'"
rs.Open sqlstr
con.BeginTrans
If rs.EOF Then
  'rs.Fields("ctype") = ctype
  If Eid = "" Then                                 '设备ID为空
     MsgBox "设备ID不能为空！"
     con.RollbackTrans
     Disconnect
     Exit Sub
  End If                                                        '添加新纪录
  
'  Connect "w"
'  sqlstr = "select * from Useless where Eid='" & Eid & "'"
'  rs.Open sqlstr
'  con.BeginTrans
  rs.AddNew
  rs.Fields("eid") = Eid
  rs.Fields("UlTime") = UlTime
  rs.Fields("Cause") = Cause
  rs.Update
  MsgBox "新设备ID为：" & Eid & "报废信息添加成功！"
  con.CommitTrans
  EquipmentDelete Eid                                  '删除报废表
  Exit Sub
Else
  MsgBox "设备ID为：" & Eid & " 的报废已经在数据库中，不能重复添加！"       '不能添加已有记录
  con.RollbackTrans
  Disconnect
  Exit Sub
End If
End Sub
Public Sub Modify()                                     '修改纪录
Connect "w"
sqlstr = "select * from Useless where eid='" & Eid & "'"
rs.Open sqlstr
con.BeginTrans
If rs.EOF Then
   MsgBox "未找到设备ID为： " & Eid & " 的报废信息！"           '未找到纪录
   con.RollbackTrans
   Disconnect
   Exit Sub
ElseIf Eid = "" Or Cause = "" Then                                        '设备ID或者报废原因为空
   MsgBox "设备ID或者报废原因不能为空！"
   con.RollbackTrans
   Disconnect
   Exit Sub
Else                                                             '修改已有记录
  rs.Fields("UlTime") = UlTime
  rs.Fields("Cause") = Cause
  rs.Update
  MsgBox "设备ID为：" & Eid & " 的报废数据更新成功！"
  con.CommitTrans
  Disconnect
  Exit Sub
End If
End Sub
Public Sub Delete()                                           '删除纪录
  Connect "w"
  Dim m_iMsgbox As Integer
  sqlstr = "select * from Useless where Eid='" & Eid & "'"
  rs.Open sqlstr
  con.BeginTrans
  If Eid = "" Then
     MsgBox "设备ID不能为空！"
     con.RollbackTrans
  ElseIf rs.EOF Then
     MsgBox ("未找到设备ID为：" & Eid & " 相关报废信息！请检查后再继续！") '未找到纪录
     con.RollbackTrans
  Else                                                     '
     m_iMsgbox = MsgBox("确定要删除该报废信息吗？", vbYesNo + vbExclamation + vbDefaultButton2, "提示")
     If m_iMsgbox = vbYes Then
        rs.Delete                                  ' 成功删除已有纪录
        rs.UpdateBatch
        con.CommitTrans
        MsgBox ("设备ID为：" & Eid & " 的报废信息成功被删除！")
     Else
     con.RollbackTrans
     End If
   End If
   Disconnect
End Sub
Public Sub DeleteAll()                                '清空所有记录
   Dim m_iMsgbox As Integer
   Connect "w"
    m_iMsgbox = MsgBox("确定要清空所有报废信息吗？", vbYesNo + vbExclamation + vbDefaultButton2, "提示")
    If m_iMsgbox = vbYes Then
       con.Execute "Truncate Table Useless"             '清空所有记录
       MsgBox "清空报废信息成功！"
    End If
    Disconnect
End Sub
Public Function GetEids() As String()                                     '取得设备ID号以再ListBox中显示
   Dim GetEid As CPublic
   Set GetEid = New CPublic
   GetEids = GetEid.GetListIDs("Equipment", "Eid")
End Function
Public Sub Query(ByVal str As String)
   Connect "r"
   If str = "" Then
     sqlstr = "select Eid as 设备ID,UlTime as 报废时间,Cause as 报废原因 from Useless"
   Else
     sqlstr = "select Eid as 设备ID,UlTime as 报废时间,Cause as 报废原因 from Useless where Eid ='" & Eid & "'"
   End If
     rs.Open sqlstr
   If Eid = "" Then
      Disconnect
      Exit Sub
   End If
   Disconnect
End Sub
 Public Sub EquipmentDelete(ByVal vEid As String)
     '该方法用删除已报废设备在设备表中的纪录
      Disconnect
      Dim Equipment As CEquipment
      Set Equipment = New CEquipment
          sqlstr = "select * from Equipment where Eid='" & vEid & "'"
          Connect "r"
          rs.Open sqlstr
          If rs.EOF Then
             MsgBox ""
             Disconnect
             Exit Sub
          End If
          Equipment.Eid = vEid
          Equipment.ConfigID = rs.Fields("ConfigID")
          Equipment.State = rs.Fields("State")
          Equipment.StartTime = rs.Fields("StartTime")
          Equipment.UseTimeDay = rs.Fields("UseTimeDay")
          Equipment.UseTime = rs.Fields("UseTime")
          If IsNull(rs.Fields("Place")) Then
             Equipment.Place = "A"
          Else
             Equipment.Place = rs.Fields("Place")
          End If
          Disconnect
          Equipment.Delete
 End Sub