ukhxx.dfm

已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码

object FKHXX: TFKHXX
  Left = 144
  Top = 126
  AutoScroll = False
  Caption = #23458#25143#20449#24687
  ClientHeight = 514
  ClientWidth = 807
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 100
    Width = 807
    Height = 268
    Hint = #21452#20987#36873#25321#35760#24405#65281
    Align = alTop
    DataSource = DataSource1
    Flat = False
    FooterColor = clInfoBk
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind]
    ReadOnly = True
    SumList.Active = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = #23458#25143#32534#21495
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #23458#25143#21517#31216
        Footer.Alignment = taCenter
        Footer.DisplayFormat = #20849'0'#20010
        Footer.ValueType = fvtCount
        Footers = <>
        Width = 119
      end
      item
        EditButtons = <>
        FieldName = #20998#31867#21517#31216
        Footers = <>
        Width = 65
      end
      item
        EditButtons = <>
        FieldName = #21306#22495#21517#31216
        Footers = <>
        Width = 116
      end
      item
        EditButtons = <>
        FieldName = #22320#22336
        Footers = <>
        Width = 116
      end
      item
        EditButtons = <>
        FieldName = #30005#35805
        Footers = <>
        Width = 97
      end
      item
        EditButtons = <>
        FieldName = #25276#37329
        Footer.Alignment = taCenter
        Footer.ValueType = fvtSum
        Footers = <>
        Width = 61
      end
      item
        EditButtons = <>
        FieldName = #27424#27454
        Footer.Alignment = taCenter
        Footer.ValueType = fvtSum
        Footers = <>
        Width = 57
      end
      item
        EditButtons = <>
        FieldName = #35746#27668#26085#26399
        Footers = <>
        Width = 82
      end
      item
        EditButtons = <>
        FieldName = #29992#25143#31867#22411
        Footers = <>
        Width = 52
      end
      item
        EditButtons = <>
        FieldName = #23458#25143#31867#22411
        Footers = <>
        Width = 52
      end
      item
        EditButtons = <>
        FieldName = #24320#25143#26085#26399
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #38050#29942#21495
        Footers = <>
        Width = 101
      end
      item
        EditButtons = <>
        FieldName = #21407#38050#29942#21495
        Footers = <>
        Width = 98
      end
      item
        EditButtons = <>
        FieldName = #22791#27880
        Footers = <>
        Width = 163
      end
      item
        EditButtons = <>
        FieldName = #26159#21542#21024#38500
        Footers = <>
        Width = 52
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 807
    Height = 39
    ButtonHeight = 35
    ButtonWidth = 67
    Caption = 'ToolBar1'
    EdgeOuter = esRaised
    Images = MainForm.ImageList1
    ShowCaptions = True
    TabOrder = 1
    object TBTADD: TToolButton
      Left = 0
      Top = 2
      Caption = '   '#22686#21152'   '
      ImageIndex = 19
      OnClick = TBTADDClick
    end
    object TBTEDIT: TToolButton
      Left = 67
      Top = 2
      Caption = #20462#25913
      ImageIndex = 1
      OnClick = TBTEDITClick
    end
    object TBTDEL: TToolButton
      Left = 134
      Top = 2
      Caption = #21024#38500
      ImageIndex = 5
      OnClick = TBTDELClick
    end
    object ToolButton4: TToolButton
      Left = 201
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object TBTFIND: TToolButton
      Left = 209
      Top = 2
      Caption = #26597#25214
      ImageIndex = 21
      OnClick = TBTFINDClick
    end
    object TBTSELECT: TToolButton
      Left = 276
      Top = 2
      Caption = #36873#25321
      ImageIndex = 22
      OnClick = DBGridEh1DblClick
    end
    object ToolButton9: TToolButton
      Left = 343
      Top = 2
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 21
      Style = tbsSeparator
    end
    object TBTPRINT: TToolButton
      Left = 351
      Top = 2
      Caption = #25910#25276#37329
      ImageIndex = 23
    end
    object TBTEXIT: TToolButton
      Left = 418
      Top = 2
      Caption = #36864#25276#37329
      ImageIndex = 24
    end
    object ToolButton1: TToolButton
      Left = 485
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 21
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 493
      Top = 2
      Caption = #25171#21360
      ImageIndex = 15
    end
    object ToolButton3: TToolButton
      Left = 560
      Top = 2
      Caption = #36864#20986
      ImageIndex = 20
      OnClick = ToolButton3Click
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 39
    Width = 807
    Height = 61
    Align = alTop
    BevelOuter = bvNone
    Color = clInfoBk
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 807
      Height = 61
      Align = alClient
      Caption = #26597#25214#26465#20214
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 16
        Width = 60
        Height = 12
        Caption = #23458#25143#32534#21495#65306
      end
      object Label2: TLabel
        Left = 222
        Top = 16
        Width = 60
        Height = 12
        Caption = #23458#25143#30005#35805#65306
      end
      object Label3: TLabel
        Left = 16
        Top = 38
        Width = 60
        Height = 12
        Caption = #23458#25143#21517#31216#65306
      end
      object Label4: TLabel
        Left = 222
        Top = 38
        Width = 60
        Height = 12
        Caption = #23458#25143#22320#22336#65306
      end
      object Label5: TLabel
        Left = 431
        Top = 16
        Width = 60
        Height = 12
        Caption = #29992#25143#31867#22411#65306
      end
      object Label6: TLabel
        Left = 431
        Top = 38
        Width = 60
        Height = 12
        Caption = #23458#25143#31867#22411#65306
      end
      object EdtKHBH: TEdit
        Left = 75
        Top = 11
        Width = 145
        Height = 20
        TabOrder = 0
        OnKeyDown = EdtKHBHKeyDown
      end
      object EdtKHDH: TEdit
        Left = 283
        Top = 11
        Width = 145
        Height = 20
        TabOrder = 1
        OnKeyDown = EdtKHDHKeyDown
      end
      object EdtKHMC: TEdit
        Left = 75
        Top = 35
        Width = 145
        Height = 20
        TabOrder = 2
        OnKeyDown = EdtKHMCKeyDown
      end
      object EdtKHDZ: TEdit
        Left = 283
        Top = 35
        Width = 145
        Height = 20
        TabOrder = 3
        OnKeyDown = EdtKHDZKeyDown
      end
      object CobYHLX: TComboBox
        Left = 488
        Top = 11
        Width = 145
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 4
      end
      object CobKHLX: TComboBox
        Left = 488
        Top = 35
        Width = 145
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 5
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 368
    Width = 807
    Height = 32
    Align = alTop
    BevelInner = bvLowered