frmcomputer.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmComputer 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "计算机信息维护"
   ClientHeight    =   5940
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7365
   Icon            =   "frmComputer.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5940
   ScaleWidth      =   7365
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.ImageList ImgComputerLL 
      Left            =   3000
      Top             =   2280
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   3
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmComputer.frx":000C
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmComputer.frx":08E8
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmComputer.frx":0C04
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   11
      Top             =   0
      Width           =   7365
      _ExtentX        =   12991
      _ExtentY        =   741
      ButtonWidth     =   609
      ButtonHeight    =   582
      Appearance      =   1
      ImageList       =   "ImgComputerLL"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   6
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   4
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Find"
            Object.ToolTipText     =   "打印计算机信息"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   4
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "print"
            Object.ToolTipText     =   "打印故障信息"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   4
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "Add"
            Object.ToolTipText     =   "添加"
            ImageIndex      =   1
         EndProperty
      EndProperty
   End
   Begin VB.TextBox txtCPT_MemoDis 
      Height          =   2775
      Left            =   5160
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   10
      Top             =   2880
      Width           =   1935
   End
   Begin MSComctlLib.ListView lvwComputer 
      Height          =   5175
      Left            =   120
      TabIndex        =   0
      Top             =   480
      Width           =   4815
      _ExtentX        =   8493
      _ExtentY        =   9128
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      SmallIcons      =   "ImgComputer"
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin MSComctlLib.ImageList ImgComputer 
      Left            =   3240
      Top             =   5520
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   5
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmComputer.frx":0F20
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmComputer.frx":17FC
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmComputer.frx":2A80
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmComputer.frx":335C
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmComputer.frx":3C38
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Label lblCPT_Memo 
      AutoSize        =   -1  'True
      Caption         =   "计算机描述："
      Height          =   180
      Left            =   5160
      TabIndex        =   9
      Top             =   2400
      Width           =   1080
   End
   Begin VB.Label lblStateDis 
      AutoSize        =   -1  'True
      Height          =   180
      Left            =   6240
      TabIndex        =   8
      Top             =   1920
      Width           =   90
   End
   Begin VB.Label lblState 
      AutoSize        =   -1  'True
      Caption         =   "状态："
      Height          =   180
      Left            =   5160
      TabIndex        =   7
      Top             =   1920
      Width           =   540
   End
   Begin VB.Label lblTierDis 
      AutoSize        =   -1  'True
      Height          =   180
      Left            =   6240
      TabIndex        =   6
      Top             =   1440
      Width           =   90
   End
   Begin VB.Label lblTier 
      AutoSize        =   -1  'True
      Caption         =   "列号："
      Height          =   180
      Left            =   5160
      TabIndex        =   5
      Top             =   1440
      Width           =   540
   End
   Begin VB.Label lblRowDis 
      AutoSize        =   -1  'True
      Height          =   180
      Left            =   6480
      TabIndex        =   4
      Top             =   480
      Width           =   90
   End
   Begin VB.Label lblRow 
      AutoSize        =   -1  'True
      Caption         =   "行号："
      Height          =   180
      Left            =   5160
      TabIndex        =   3
      Top             =   960
      Width           =   540
   End
   Begin VB.Label lblCPT_IDDis 
      AutoSize        =   -1  'True
      Height          =   180
      Left            =   6240
      TabIndex        =   2
      Top             =   840
      Width           =   90
   End
   Begin VB.Label lblCPT_ID 
      AutoSize        =   -1  'True
      Caption         =   "计算机ID："
      Height          =   180
      Left            =   5160
      TabIndex        =   1
      Top             =   480
      Width           =   900
   End
   Begin VB.Menu MnuComputer 
      Caption         =   "计算机"
      Visible         =   0   'False
      Begin VB.Menu mnuAdd 
         Caption         =   "添加计算机"
      End
      Begin VB.Menu mnuEdit 
         Caption         =   "修改计算机"
      End
      Begin VB.Menu mnuDelete