uneumt.dfm

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

object Eumt_Frm: TEumt_Frm
  Left = 56
  Top = 129
  Width = 920
  Height = 579
  BorderIcons = [biSystemMenu]
  Caption = #35774#22791#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object TrV: TTreeView
    Left = 0
    Top = 0
    Width = 233
    Height = 552
    Align = alLeft
    AutoExpand = True
    HideSelection = False
    Images = ImageList1
    Indent = 19
    PopupMenu = PopMsrNo
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    OnAddition = TrVAddition
    OnClick = TrVClick
    OnMouseDown = TrVMouseDown
    Items.Data = {
      030000001E0000000000000000000000FFFFFFFFFFFFFFFF0000000001000000
      05C9E8B1B8311D0000000100000001000000FFFFFFFFFFFFFFFF000000000100
      000004B2BFBCFE1D0000000200000002000000FFFFFFFFFFFFFFFF0000000000
      00000004B2E2B5E31E0000000000000000000000FFFFFFFFFFFFFFFF00000000
      0100000005C9E8B1B8321E0000000100000001000000FFFFFFFFFFFFFFFF0000
      00000000000005B2BFBCFE311E0000000000000000000000FFFFFFFFFFFFFFFF
      000000000000000005C9E8B1B833}
  end
  object Page1: TPageControl
    Left = 233
    Top = 0
    Width = 679
    Height = 552
    ActivePage = TabSheet3
    Align = alClient
    BiDiMode = bdLeftToRight
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MultiLine = True
    ParentBiDiMode = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Style = tsFlatButtons
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #26426#32452
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 671
        Height = 121
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label3: TLabel
          Left = 280
          Top = 34
          Width = 65
          Height = 13
          Caption = #26426#32452#21517#31216#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label19: TLabel
          Left = 64
          Top = 34
          Width = 65
          Height = 13
          Caption = #26426#32452#32534#21495#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Edit3: TEdit
          Left = 352
          Top = 30
          Width = 217
          Height = 21
          BiDiMode = bdLeftToRight
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          ParentBiDiMode = False
          ParentFont = False
          TabOrder = 0
        end
        object Edit19: TEdit
          Left = 128
          Top = 30
          Width = 129
          Height = 21
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          ParentFont = False
          TabOrder = 1
        end
        object ToolBar1: TToolBar
          Left = 2
          Top = 80
          Width = 667
          Height = 39
          Align = alBottom
          ButtonHeight = 36
          ButtonWidth = 55
          Caption = 'ToolBar1'
          Images = ImageList2
          ShowCaptions = True
          TabOrder = 2
          object ToolButton1: TToolButton
            Left = 0
            Top = 2
            Width = 7
            Caption = 'ToolButton1'
            ImageIndex = 7
            Style = tbsSeparator
          end
          object TbnEmAdd: TToolButton
            Left = 7
            Top = 2
            Hint = #26032#22686
            Caption = #26032#22686
            ImageIndex = 0
            OnClick = TbnEmAddClick
          end
          object TbnEmEdit: TToolButton
            Left = 62
            Top = 2
            Hint = #20462#25913
            Caption = #20462#25913
            ImageIndex = 1
            OnClick = TbnEmEditClick
          end
          object TbnEmView: TToolButton
            Left = 117
            Top = 2
            Hint = #26597#30475
            Caption = 'view'
            ImageIndex = 2
            Visible = False
          end
          object TbnEmDel: TToolButton
            Left = 172
            Top = 2
            Hint = #21024#38500
            Caption = #21024#38500
            ImageIndex = 3
            OnClick = TbnEmDelClick
          end
          object TbnEmCancel: TToolButton
            Left = 227
            Top = 2
            Hint = #21462#28040
            Caption = #21462#28040
            ImageIndex = 4
            OnClick = TbnEmCancelClick
          end
          object TbnEmSave: TToolButton
            Left = 282
            Top = 2
            Hint = #20445#23384
            Caption = #20445#23384
            ImageIndex = 5
            OnClick = TbnEmSaveClick
          end
          object TbnEmFirst: TToolButton
            Left = 337
            Top = 2
            Hint = #31532#19968#26465#35760#24405
            Caption = #31532#19968#26465
            ImageIndex = 7
            OnClick = TbnEmFirstClick
          end
          object TbnEmPrior: TToolButton
            Left = 392
            Top = 2
            Caption = #19978#19968#26465
            ImageIndex = 8
            OnClick = TbnEmPriorClick
          end
          object TbnEmNext: TToolButton
            Left = 447
            Top = 2
            Hint = #19979#19968#26465#35760#24405
            Caption = #19979#19968#26465
            ImageIndex = 9
            OnClick = TbnEmNextClick
          end
          object TbnEmLast: TToolButton
            Left = 502
            Top = 2
            Hint = #26368#21518#19968#26465#35760#24405
            Caption = #26368#21518#19968#26465
            ImageIndex = 10
            OnClick = TbnEmLastClick
          end
          object TbnEmExit: TToolButton
            Left = 557
            Top = 2
            Hint = #36864#20986
            Caption = #20851#38381
            ImageIndex = 6
            OnClick = TbnEmExitClick
          end
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 121
        Width = 671
        Height = 400
        Align = alClient
        DataSource = DS1
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ReadOnly = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid1CellClick
        OnColEnter = DBGrid1ColEnter
        OnColumnMoved = DBGrid1ColumnMoved
        OnDrawColumnCell = DBGrid1DrawColumnCell
        OnDblClick = DBGrid1DblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'EUPETNNO'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'EUPETNO'
            Title.Caption = #26426#32452#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'EUPETNAME'
            Title.Caption = #26426#32452#21517#31216
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = #35774#22791
      ImageIndex = 1
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 671
        Height = 153
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label1: TLabel
          Left = 288
          Top = 20
          Width = 65
          Height = 13
          Caption = #35774#22791#21517#31216#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13