ugpxx.dfm

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

object FGPXX: TFGPXX
  Left = 223
  Top = 244
  Width = 785
  Height = 516
  Caption = #38050#29942#20449#24687
  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 DBGridEh1: TDBGridEh
    Left = 0
    Top = 97
    Width = 777
    Height = 392
    Hint = #21452#20987#36873#25321#35760#24405#65281
    Align = alClient
    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 = []
    Columns = <
      item
        EditButtons = <>
        FieldName = #38050#29942#21495
        Footers = <>
        Width = 85
      end
      item
        EditButtons = <>
        FieldName = #38376#24215#21517#31216
        Footers = <>
        Width = 95
      end
      item
        EditButtons = <>
        FieldName = #23458#25143#21517#31216
        Footer.Alignment = taCenter
        Footer.DisplayFormat = #20849'0'#20010
        Footer.Value = '0'
        Footer.ValueType = fvtCount
        Footers = <>
        Width = 84
      end
      item
        EditButtons = <>
        FieldName = #30041#29942#26085#26399
        Footers = <>
        Width = 97
      end
      item
        EditButtons = <>
        FieldName = #38050#29942#24180#24230
        Footers = <>
        Width = 55
      end
      item
        EditButtons = <>
        FieldName = #21830#21697#32534#21495
        Footers = <>
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = #21697#21517#35268#26684
        Footers = <>
        Width = 82
      end
      item
        EditButtons = <>
        FieldName = #29983#20135#21378#23478
        Footers = <>
        Width = 82
      end
      item
        EditButtons = <>
        FieldName = #26816#27979#26085#26399
        Footers = <>
        Width = 98
      end
      item
        EditButtons = <>
        FieldName = #26816#39564#38050#21360
        Footers = <>
        Width = 116
      end
      item
        EditButtons = <>
        FieldName = #38050#29942#31867#22411
        Footers = <>
        Width = 93
      end
      item
        EditButtons = <>
        FieldName = #29983#20135#26631#20934#21495
        Footers = <>
        Width = 129
      end
      item
        EditButtons = <>
        FieldName = #21046#36896#21333#20301#35768#21487#32534#21495
        Footers = <>
        Width = 163
      end
      item
        EditButtons = <>
        FieldName = #21046#36896#38050#21360
        Footers = <>
        Width = 119
      end
      item
        EditButtons = <>
        FieldName = #29983#20135#25209#21495
        Footers = <>
        Width = 101
      end
      item
        EditButtons = <>
        FieldName = #36136#37327#35777#20070
        Footers = <>
        Width = 130
      end
      item
        EditButtons = <>
        FieldName = #21512#26684#35777
        Footers = <>
        Width = 110
      end
      item
        EditButtons = <>
        FieldName = #29366#24577
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #26159#21542#21024#38500
        Footers = <>
        Width = 49
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 777
    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 ToolButton9: TToolButton
      Left = 276
      Top = 2
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 21
      Style = tbsSeparator
    end
    object TBTPRINT: TToolButton
      Left = 284
      Top = 2
      Caption = #25171#21360
      ImageIndex = 15
    end
    object TBTEXIT: TToolButton
      Left = 351
      Top = 2
      Caption = #36864#20986
      ImageIndex = 20
      OnClick = TBTEXITClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 39
    Width = 777
    Height = 58
    Align = alTop
    BevelOuter = bvNone
    Color = clInfoBk
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 777
      Height = 58
      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 = 26
        Top = 14
        Width = 36
        Height = 12
        Caption = #38050#29942#21495
      end
      object Label2: TLabel
        Left = 13
        Top = 36
        Width = 48
        Height = 12
        Caption = #23458#25143#21517#31216
      end
      object Label3: TLabel
        Left = 230
        Top = 13
        Width = 48
        Height = 12
        Caption = #21830#21697#21517#31216
      end
      object Label4: TLabel
        Left = 231
        Top = 36
        Width = 48
        Height = 12
        Caption = #38376#24215#21517#31216
      end
      object Label5: TLabel
        Left = 440
        Top = 15
        Width = 48
        Height = 12
        Caption = #38050#29942#29366#24577
      end
      object Label6: TLabel
        Left = 430
        Top = 36
        Width = 60
        Height = 12
        Caption = #26816#27979#26085#26399'<='
      end
      object EdtGPH: TEdit
        Left = 67
        Top = 10
        Width = 161
        Height = 20
        TabOrder = 0
      end
      object EdtKHMC: TEdit
        Left = 68
        Top = 32
        Width = 160
        Height = 20
        TabOrder = 1
      end
      object CobSPMC: TComboBox
        Left = 282
        Top = 10
        Width = 145
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 2
      end
      object CobMDMC: TComboBox
        Left = 282
        Top = 32
        Width = 145
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 3
      end
      object CobGPZT: TComboBox
        Left = 494
        Top = 10
        Width = 145
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        ItemIndex = 0
        TabOrder = 4
        Text = #20840#37096
        Items.Strings = (
          #20840#37096
          #31354#29942
          #37325#29942
          #39547#30041
          #32500#20462
          #26816#39564#19981#21512#26684
          #25253#24223)
      end
      object DtTJZRQ: TDateTimePicker
        Left = 494
        Top = 32
        Width = 146
        Height = 20
        Date = 39150.851211527780000000
        Time = 39150.851211527780000000
        TabOrder = 5
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = DM.ADOQ_GP
    Left = 560
    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 = 504
    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 = 528
    Top = 8
  end
end