unperplan.dfm

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

object PerPlan_frm: TPerPlan_frm
  Left = 20
  Top = 113
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20010#20154#35745#21010#23433#25490
  ClientHeight = 586
  ClientWidth = 978
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 289
    Width = 978
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object ListView1: TListView
    Left = 0
    Top = 73
    Width = 978
    Height = 216
    Align = alTop
    Columns = <
      item
        Caption = #26426#32452#32534#21495
        Width = 60
      end
      item
        Caption = #26426#32452#21517#31216
        Width = 75
      end
      item
        Caption = #35774#22791#32534#21495
        Width = 60
      end
      item
        Caption = #35774#22791#21517#31216
        Width = 135
      end
      item
        Caption = #27979#28857#32534#21495
        Width = 60
      end
      item
        Caption = #27979#28857#21517#31216
        Width = 70
      end
      item
        Caption = #27979#37327#39033#30446
        Width = 65
      end
      item
        Caption = #19979#38480#25253#35686#20540
        Width = 73
      end
      item
        Caption = #19978#38480#25253#35686#20540
        Width = 73
      end
      item
        Caption = #20449#24687#38062
        Width = 120
      end
      item
        Caption = #28857#26816#26085#26399
        Width = 118
      end
      item
        Caption = #24207#21495
        Width = 60
      end>
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    GridLines = True
    HideSelection = False
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 0
    ViewStyle = vsReport
    OnDblClick = ListView1DblClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 978
    Height = 73
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 226
      Top = 18
      Width = 60
      Height = 13
      Caption = #31649#29702#35745#21010#65306
    end
    object Label2: TLabel
      Left = 50
      Top = 18
      Width = 39
      Height = 13
      Caption = #19987#19994#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 32
      Top = 49
      Width = 52
      Height = 13
      Caption = #24403#21069#35745#21010
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 736
      Top = 49
      Width = 65
      Height = 13
      Caption = #27979#28857#24635#25968#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Cbx_Specialty: TComboBox
      Left = 98
      Top = 15
      Width = 113
      Height = 19
      Style = csOwnerDrawFixed
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 0
      OnClick = Cbx_SpecialtyClick
    end
    object Cbx_Plan: TComboBox
      Left = 290
      Top = 14
      Width = 113
      Height = 21
      Style = csDropDownList
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ItemHeight = 13
      TabOrder = 1
      OnClick = Cbx_PlanClick
    end
    object Button1: TButton
      Left = 439
      Top = 13
      Width = 80
      Height = 23
      Caption = #22686#21152#35745#21010
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 532
      Top = 13
      Width = 80
      Height = 23
      Caption = #21024#38500#35745#21010
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button7: TButton
      Left = 718
      Top = 13
      Width = 80
      Height = 23
      Caption = #36864#20986
      TabOrder = 4
      OnClick = Button7Click
    end
    object Button2: TButton
      Left = 625
      Top = 13
      Width = 80
      Height = 23
      Caption = #20445#23384#35774#32622
      TabOrder = 5
      OnClick = Button2Click
    end
  end
  object ListView2: TListView
    Left = 0
    Top = 292
    Width = 978
    Height = 294
    Align = alClient
    Columns = <
      item
        Caption = #26426#32452#32534#21495
        Width = 70
      end
      item
        Caption = #26426#32452#21517#31216
        Width = 80
      end
      item
        Caption = #35774#22791#32534#21495
        Width = 70
      end
      item
        Caption = #35774#22791#21517#31216
        Width = 180
      end
      item
        Caption = #27979#28857#32534#21495
        Width = 80
      end
      item
        Caption = #27979#28857#21517#31216
        Width = 130
      end
      item
        Caption = #27979#37327#39033#30446
        Width = 80
      end
      item
        Caption = #19979#38480#25253#35686#20540
        Width = 80
      end
      item
        Caption = #19978#38480#25253#35686#20540
        Width = 80
      end
      item
        Caption = #20449#24687#38062
        Width = 120
      end>
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    HideSelection = False
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
    ParentFont = False
    ParentShowHint = False
    PopupMenu = PopupMenu2
    ShowHint = True
    TabOrder = 2
    ViewStyle = vsReport
  end
  object Edit1: TEdit
    Left = 296
    Top = 48
    Width = 121
    Height = 21
    TabOrder = 3
    Text = 'Edit1'
    Visible = False
  end
  object DS: TDataSource
    DataSet = DM.AQ5
    Left = 579
    Top = 216
  end
  object PopupMenu1: TPopupMenu
    Left = 56
    Top = 144
    object N11: TMenuItem
      Caption = #19978#31227' '#8593
      OnClick = N11Click
    end
    object N12: TMenuItem
      Caption = #19979#31227' '#8595
      OnClick = N12Click
    end
    object N14: TMenuItem
      Caption = #20840#36873
      OnClick = N14Click
    end
    object N1: TMenuItem
      Caption = #21024#38500
      ShortCut = 46
      OnClick = ListView1DblClick
    end
    object N13: TMenuItem
      Caption = #21047#26032
      ShortCut = 116
      OnClick = N13Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #20462#25913#28857#26816#26085#26399
      OnClick = Button4Click
    end
    object N5: TMenuItem
      Caption = #20445#23384#35774#32622
      OnClick = Button2Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N6: TMenuItem
      Caption = #23548#20986#35745#21010
      OnClick = N6Click
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 128
    Top = 352
    object N7: TMenuItem
      Caption = #27979#28857' ----> '#24403#21069#20010#20154#35745#21010
      OnClick = N7Click
    end
    object N15: TMenuItem
      Caption = #20840#36873
      OnClick = N15Click
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N9: TMenuItem
      Caption = #26597#25214#27979#28857
      OnClick = N9Click
    end
    object N10: TMenuItem
      Caption = #23548#20986#27979#28857
      OnClick = N10Click
    end
  end
end