frmcomputerfault.frm

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

VERSION 5.00
Begin VB.Form frmComputerFault 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "故障原因登记"
   ClientHeight    =   3240
   ClientLeft      =   6045
   ClientTop       =   2835
   ClientWidth     =   4020
   Icon            =   "frmComputerFault.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   216
   ScaleMode       =   0  'User
   ScaleWidth      =   268
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdExit 
      Caption         =   "退　出"
      Height          =   375
      Left            =   2880
      TabIndex        =   3
      Top             =   2760
      Width           =   855
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "保　存"
      Height          =   375
      Left            =   1680
      TabIndex        =   2
      Top             =   2760
      Width           =   855
   End
   Begin VB.TextBox txtMemo 
      Height          =   1575
      Left            =   360
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   960
      Width           =   3375
   End
   Begin VB.Label lblCPT_idList 
      AutoSize        =   -1  'True
      Caption         =   "Label1"
      Height          =   180
      Left            =   1680
      TabIndex        =   5
      Top             =   240
      Width           =   540
   End
   Begin VB.Label lblCPT_id 
      AutoSize        =   -1  'True
      Caption         =   "计算机ID："
      Height          =   180
      Left            =   360
      TabIndex        =   4
      Top             =   240
      Width           =   900
   End
   Begin VB.Label lblMemo 
      AutoSize        =   -1  'True
      Caption         =   "故障原因："
      Height          =   180
      Left            =   360
      TabIndex        =   0
      Top             =   600
      Width           =   900
   End
End
Attribute VB_Name = "frmComputerFault"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''                                                                ''
''Filename       frmComputerFault.frm                             ''
''                                                                ''
''Created On     2004.2.22                                        ''
''                                                                ''
''Description    故障原因登记窗体                                 ''
''                                                                ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsComputer As Recordset
Dim rsComputerFault As Recordset

Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdSave_Click()
If Trim(txtMemo.Text) = "" Then
    MsgBox "故障原因不能为空", vbOKOnly + vbExclamation, "机房管理"
    txtMemo.SetFocus
    ElseIf MsgBox("确实要保存吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
        SaveInfo
        Unload Me
End If
End Sub

Private Sub Form_Load()
Set rsComputer = New Recordset
rsComputer.Open "select * from TbComputer where CPT_id='" & frmComputer.strItem & "'", Modmain.conn, 3, 2

Set rsComputerFault = New Recordset
rsComputerFault.Open "select * from TbComputerfault", Modmain.conn, 3, 2

lblCPT_idList.Caption = rsComputer.Fields!cpt_id

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''设置正常机为故障机                                              ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub SaveInfo()
    rsComputerFault.AddNew                      '保存故障原因等信息
    rsComputerFault.Fields("CPT_ID") = rsComputer.Fields!cpt_id
    rsComputerFault.Fields("Date") = Date
    rsComputerFault.Fields("Memo") = Trim(txtMemo.Text)
    rsComputerFault.Update
    
    MsgBox "保存成功", vbOKOnly + vbInformation, "机房管理"    '保存完毕并提醒
    rsComputer.Fields!State = "故障"              '设置该计算机的状态为故障
    rsComputer.Update
End Sub
Private Sub txtMemo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    SendKeys "{tab}"
End If
End Sub