frmcfault.frm

本系统是本着实用的原则开发的

VERSION 5.00
Begin VB.Form frmCFault 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "换机登记"
   ClientHeight    =   5115
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3525
   Icon            =   "frmCFault.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5115
   ScaleWidth      =   3525
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Caption         =   "换机登记"
      Height          =   4095
      Left            =   240
      TabIndex        =   2
      Top             =   240
      Width           =   3015
      Begin VB.ComboBox cboCPT 
         Height          =   300
         Left            =   1560
         Style           =   2  'Dropdown List
         TabIndex        =   10
         Top             =   360
         Width           =   1095
      End
      Begin VB.OptionButton OptOther 
         Caption         =   "其他原因"
         Height          =   375
         Left            =   360
         TabIndex        =   6
         Top             =   1110
         Width           =   1455
      End
      Begin VB.OptionButton OptFault 
         Caption         =   "计算机故障"
         Height          =   375
         Left            =   360
         TabIndex        =   5
         Top             =   1590
         Width           =   1455
      End
      Begin VB.TextBox txtFault 
         Height          =   1455
         Left            =   360
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   4
         Top             =   2430
         Width           =   2295
      End
      Begin VB.TextBox txtCPT_ID 
         Height          =   270
         Left            =   1800
         MaxLength       =   5
         TabIndex        =   3
         Top             =   720
         Visible         =   0   'False
         Width           =   1095
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "换机原因："
         Height          =   180
         Left            =   360
         TabIndex        =   9
         Top             =   750
         Width           =   900
      End
      Begin VB.Label lblFault 
         AutoSize        =   -1  'True
         Caption         =   "故障原因："
         Height          =   180
         Left            =   360
         TabIndex        =   8
         Top             =   2070
         Width           =   900
      End
      Begin VB.Label lblCPT_IDHH 
         AutoSize        =   -1  'True
         Caption         =   "机号："
         Height          =   180
         Left            =   360
         TabIndex        =   7
         Top             =   390
         Width           =   540
      End
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退 出"
      Height          =   375
      Left            =   2280
      TabIndex        =   1
      Top             =   4560
      Width           =   975
   End
   Begin VB.CommandButton cmdYes 
      Caption         =   "确 定"
      Height          =   375
      Left            =   1080
      TabIndex        =   0
      Top             =   4560
      Width           =   975
   End
End
Attribute VB_Name = "frmCFault"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsComputer As Recordset
Dim RSComputerFault As Recordset
Dim rsCardholderTemp As Recordset
Dim rsShangJi As Recordset
Dim itemx As ListItem
Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub cmdYes_Click()
'txtCPT_ID.Text = UCase(Left(txtCPT_ID.Text, 2)) & Right(txtCPT_ID.Text, 3)
Set rsCardholderTemp = New Recordset                                             '修整TbCardholderTemp的机号
rsCardholderTemp.Open "select * from TbCardholderTemp where  CPT_ID='" & cboCPT.Text & "'", Modmain.conn, 3, 2
If rsCardholderTemp.RecordCount = 0 Then
    MsgBox "没有该计算机或者该计算机为非使用计算机！", vbOKOnly + vbExclamation, "机房管理"
'    txtCPT_ID.Text = ""
'    txtCPT_ID.SetFocus
    cboCPT.ListIndex = -1
Exit Sub
End If
'If Trim(txtCPT_ID.Text) <> "" Then
If cboCPT.Text <> "" Then
If OptFault.Value = True Then                    '计算机故障
    If txtFault.Text <> "" Then
        Fault
    Else
        MsgBox "故障原因不能为空!", vbOKOnly + vbExclamation, "机房管理"
        txtFault.SetFocus
    End If
ElseIf OptOther.Value = True Then                                            '其他原因
    Other
End If
Else
        MsgBox "计算机ID不能为空!", vbOKOnly + vbExclamation, "机房管理"
        'txtCPT_ID.SetFocus
End If
End Sub

Private Sub Form_Load()
Dim aa As String
aa = "使用"
Set rsComputer = New Recordset
rsComputer.Open "select * from TbComputer where State = '" & aa & "'", Modmain.conn, 3, 2
While Not rsComputer.EOF
cboCPT.AddItem rsComputer.Fields!CPT_ID
rsComputer.MoveNext
Wend
rsComputer.Close
Set rsComputer = Nothing
OptOther.Value = True
txtFault.Enabled = False
End Sub

Private Sub OptFault_Click()
txtFault.Enabled = True
txtFault.SetFocus
End Sub

Private Sub OptOther_Click()
txtFault.Enabled = False
End Sub

Private Sub Fault()
                                                        
Dim aa As String
aa = "正常"
Set rsComputer = New Recordset
rsComputer.Open "select * from TbComputer where State = '" & aa & "' ", Modmain.conn, 3, 2
rsComputer.MoveFirst
rsComputer.Fields!State = "使用"
rsComputer.Update
Dim StrC_ID As String                                                        '产生下一个机号并修正其状态为使用
StrC_ID = rsComputer.Fields!CPT_ID
Dim row As String
row = rsComputer.Fields!row
Dim Tier As String
Tier = rsComputer.Fields!Tier
rsComputer.Close
Set rsComputer = Nothing

Set rsComputer = New Recordset                        '将要换的计算机设为故障机
rsComputer.Open "select * from TbComputer where CPT_ID='" & cboCPT.Text & "'", Modmain.conn, 3, 2
rsComputer.Fields!State = "故障"
rsComputer.Update
rsComputer.Close
Set rsComputer = Nothing


Set RSComputerFault = New Recordset                        '保存故障信息                                        '修整TbCardholderTemp的机号
RSComputerFault.Open "select * from TbComputerFault", Modmain.conn, 3, 2
RSComputerFault.AddNew
RSComputerFault.Fields!CPT_ID = cboCPT.Text
RSComputerFault.Fields!Date = Date
RSComputerFault.Fields!Memo = txtFault.Text
RSComputerFault.Update

Set rsCardholderTemp = New Recordset                                             '修整TbCardholderTemp的机号
rsCardholderTemp.Open "select * from TbCardholderTemp where  CPT_ID='" & cboCPT.Text & "'", Modmain.conn, 3, 2
Dim STRCH_ID As String
STRCH_ID = rsCardholderTemp.Fields!CH_ID
rsCardholderTemp.Fields!CPT_ID = StrC_ID
rsCardholderTemp.Update

Set rsShangJi = New Recordset                                             '修整Tbshangji的机号
rsShangJi.Open "select * from TbShangJi where  CPT_ID='" & cboCPT.Text & "'and End_Time is null", Modmain.conn, 3, 2
rsShangJi.Fields!CPT_ID = StrC_ID
rsShangJi.Update


Set itemx = frmmain.lvwPerson.FindItem(STRCH_ID, , , lvwPartial)       '改变lvwPweson控件的计算机ID值
itemx.SubItems(9) = StrC_ID

MsgBox "请到" & row & "排" & Tier & "列" & StrC_ID & "上机"                    '提醒用户换后的机号

Dim bb As String
bb = "使用"
Set rsComputer = New Recordset
rsComputer.Open "select * from TbComputer where State = '" & bb & "'", Modmain.conn, 3, 2
cboCPT.Clear
While Not rsComputer.EOF
    cboCPT.AddItem rsComputer.Fields!CPT_ID
    rsComputer.MoveNext
Wend
rsComputer.Close
Set rsComputer = Nothing

End Sub

Private Sub Other()
                                                        
Dim aa As String
aa = "正常"
Set rsComputer = New Recordset
rsComputer.Open "select * from TbComputer where State = '" & aa & "' ", Modmain.conn, 3, 2
rsComputer.MoveFirst
rsComputer.Fields!State = "使用"
rsComputer.Update
Dim StrC_ID As String                                                        '产生下一个机号并修正其状态为使用
StrC_ID = rsComputer.Fields!CPT_ID
Dim row As String
row = rsComputer.Fields!row
Dim Tier As String
Tier = rsComputer.Fields!Tier
rsComputer.Close
Set rsComputer = Nothing

Set rsComputer = New Recordset                        '将要换的计算机设为正常机,供其余人使用
rsComputer.Open "select * from TbComputer where CPT_ID='" & cboCPT.Text & "'", Modmain.conn, 3, 2
rsComputer.Fields!State = "正常"
rsComputer.Update
rsComputer.Close
Set rsComputer = Nothing



Set rsCardholderTemp = New Recordset                                             '修整TbCardholderTemp的机号
rsCardholderTemp.Open "select * from TbCardholderTemp where  CPT_ID='" & cboCPT.Text & "'", Modmain.conn, 3, 2
Dim STRCH_ID As String
STRCH_ID = rsCardholderTemp.Fields!CH_ID
rsCardholderTemp.Fields!CPT_ID = StrC_ID
rsCardholderTemp.Update

Set rsShangJi = New Recordset                                             '修整Tbshangji的机号
rsShangJi.Open "select * from TbShangJi where  CPT_ID='" & cboCPT.Text & "'and End_Time is null", Modmain.conn, 3, 2
rsShangJi.Fields!CPT_ID = StrC_ID
rsShangJi.Update


Set itemx = frmmain.lvwPerson.FindItem(STRCH_ID, , , lvwPartial)       '改变lvwPweson控件的计算机ID值
itemx.SubItems(9) = StrC_ID

MsgBox "请到" & row & "排" & Tier & "列" & StrC_ID & "上机"                    '提醒用户换后的机号

Dim bb As String
bb = "使用"
Set rsComputer = New Recordset
rsComputer.Open "select * from TbComputer where State = '" & bb & "'", Modmain.conn, 3, 2
cboCPT.Clear
While Not rsComputer.EOF
    cboCPT.AddItem rsComputer.Fields!CPT_ID
    rsComputer.MoveNext
Wend
rsComputer.Close
Set rsComputer = Nothing

End Sub