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