ukhfl.~dfm

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

object FKHFL: TFKHFL
  Left = 207
  Top = 235
  AutoScroll = False
  Caption = #23458#25143#21830#21697#20248#24800#20998#31867#20449#24687
  ClientHeight = 391
  ClientWidth = 648
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 648
    Height = 39
    ButtonHeight = 35
    ButtonWidth = 31
    Caption = 'ToolBar1'
    Images = MainForm.ImageList1
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = #22686#21152
      ImageIndex = 19
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 31
      Top = 2
      Caption = #20462#25913
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 62
      Top = 2
      Caption = #21024#38500
      ImageIndex = 5
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 93
      Top = 2
      Width = 90
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object Panel2: TPanel
      Left = 183
      Top = 2
      Width = 4
      Height = 35
      Color = clBlue
      TabOrder = 0
    end
    object ToolButton5: TToolButton
      Left = 187
      Top = 2
      Caption = #22686#21152
      ImageIndex = 19
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 218
      Top = 2
      Caption = #20462#25913
      ImageIndex = 1
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 249
      Top = 2
      Caption = #21024#38500
      ImageIndex = 5
    end
    object ToolButton8: TToolButton
      Left = 280
      Top = 2
      Caption = #36864#20986
      ImageIndex = 20
      OnClick = ToolButton8Click
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 39
    Width = 648
    Height = 352
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 185
      Height = 352
      Align = alLeft
      DataSource = DataSource1
      Flat = False
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = #20998#31867#32534#21495
          Footers = <>
          Width = 51
        end
        item
          EditButtons = <>
          FieldName = #20998#31867#21517#31216
          Footers = <>
          Width = 90
        end>
    end
    object Panel3: TPanel
      Left = 185
      Top = 0
      Width = 463
      Height = 352
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 463
        Height = 33
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 8
          Width = 120
          Height = 12
          Caption = #21830#21697#20248#24800#35814#32454#20449#24687#8230#8230
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 152
          Top = 8
          Width = 216
          Height = 12
          Caption = #21830#21697#20248#24800#26159#25351#21830#21697#20026#8220#22238#29942#8221#30340#25165#20248#24800#12290
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
      end
      object DBGridEh2: TDBGridEh
        Left = 0
        Top = 33
        Width = 463
        Height = 319
        Align = alClient
        DataSource = DataSource2
        Flat = False
        FooterColor = clWindow
        FooterFont.Charset = ANSI_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind]
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = #20998#31867#21517#31216
            Footers = <>
            Width = 78
          end
          item
            EditButtons = <>
            FieldName = #21830#21697#32534#21495
            Footers = <>
            Width = 73
          end
          item
            EditButtons = <>
            FieldName = #21697#21517#35268#26684
            Footers = <>
            Width = 119
          end
          item
            EditButtons = <>
            FieldName = #21333#20215#20248#24800
            Footers = <>
            Width = 68
          end
          item
            EditButtons = <>
            FieldName = #36816#36153#20248#24800
            Footers = <>
            Width = 74
          end>
      end
    end
    object DBEdit1: TDBEdit
      Left = 32
      Top = 136
      Width = 121
      Height = 20
      DataField = #20998#31867#32534#21495
      DataSource = DataSource1
      TabOrder = 2
      Visible = False
      OnChange = DBEdit1Change
    end
  end
  object DataSource1: TDataSource
    DataSet = DM.ADOQ_KHFL
    Left = 392
    Top = 8
  end
  object frxReport1: TfrxReport
    DataSet = frxDBDataset1
    DataSetName = 'frxDBDataset1'
    DotMatrixReport = False
    EngineOptions.MaxMemSize = 10000000
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = #32570#30465
    ReportOptions.CreateDate = 39089.534824490700000000
    ReportOptions.LastChange = 39089.534824490700000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 440
    Top = 8
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end>
    Variables = <>
    Style = <>
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      object ReportTitle1: TfrxReportTitle
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        Height = 86.929190000000000000
        ParentFont = False
        Top = 18.897650000000000000
        Width = 718.110700000000000000
        object Memo1: TfrxMemoView
          Align = baCenter
          Left = 250.708823335000000000
          Top = 2.519686670000000000
          Width = 216.693053330000000000
          Height = 40.314986670000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          HAlign = haCenter
          Memo.Strings = (
            #38376#24215#20449#24687)
          ParentFont = False
          VAlign = vaCenter
        end
      end
      object MasterData1: TfrxMasterData
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        Height = 18.897650000000000000
        ParentFont = False
        Top = 166.299320000000000000
        Width = 718.110700000000000000
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
        RowCount = 0
        object Memo2: TfrxMemoView
          Left = 3.779530000000000000
          Width = 58.582677170000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          DataField = #38376#24215#32534#21495
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            '[frxDBDataset1."'#38376#24215#32534#21495'"]')
        end
        object Memo3: TfrxMemoView
          Left = 62.252010000000000000
          Width = 162.519790000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          DataField = #38376#24215#21517#31216
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            '[frxDBDataset1."'#38376#24215#21517#31216'"]')
        end
        object Memo4: TfrxMemoView
          Left = 225.551330000000000000
          Width = 185.196970000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          DataField = #22320#22336
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            '[frxDBDataset1."'#22320#22336'"]')
        end
      end
      object PageFooter1: TfrxPageFooter
        Height = 71.811070000000000000
        Top = 385.512060000000000000
        Width = 718.110700000000000000
        object Memo5: TfrxMemoView
          Left = 105.826840000000000000
          Top = 21.417336670000000000
          Width = 206.614306670000000000
          Height = 30.236240000000000000
          GroupIndex = 0
          Memo.Strings = (
            '[COUNT(MasterData1)]')
        end
      end
      object Footer1: TfrxFooter
        Height = 117.165430000000000000
        Top = 207.874150000000000000
        Width = 718.110700000000000000
        object Memo6: TfrxMemoView
          Left = 204.094620000000000000
          Top = 37.795300000000000000
          Width = 206.614306670000000000
          Height = 30.236240000000000000
          GroupIndex = 0
          Memo.Strings = (
            '[COUNT(MasterData1)]')
        end
      end
    end
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    DataSource = DataSource1
    Left = 480
    Top = 8
  end
  object DataSource2: TDataSource
    DataSet = DM.ADOQ_SPYH
    Left = 328
    Top = 8
  end
end