ugys.dfm

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

object FGYS: TFGYS
  Left = 281
  Top = 224
  Width = 696
  Height = 480
  Caption = #20379#24212#21830#20449#24687
  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 = 73
    Width = 688
    Height = 380
    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 = #20379#36135#21830#32534#21495
        Footers = <>
        Width = 65
      end
      item
        EditButtons = <>
        FieldName = #20379#36135#21830#21517#31216
        Footer.Alignment = taCenter
        Footer.DisplayFormat = #20849'0'#20010
        Footer.ValueType = fvtCount
        Footers = <>
        Width = 147
      end
      item
        EditButtons = <>
        FieldName = #32852#31995#20154
        Footers = <>
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = #32852#31995#30005#35805
        Footers = <>
        Width = 76
      end
      item
        EditButtons = <>
        FieldName = #20256#30495
        Footers = <>
        Width = 68
      end
      item
        EditButtons = <>
        FieldName = #22320#22336
        Footers = <>
        Width = 98
      end
      item
        EditButtons = <>
        FieldName = #32463#33829#33539#22260
        Footers = <>
        Width = 98
      end
      item
        EditButtons = <>
        FieldName = #24320#25143#38134#34892
        Footers = <>
        Width = 110
      end
      item
        EditButtons = <>
        FieldName = #38134#34892#24080#21495
        Footers = <>
        Width = 135
      end
      item
        EditButtons = <>
        FieldName = #22791#27880
        Footers = <>
        Width = 129
      end
      item
        EditButtons = <>
        FieldName = #26159#21542#21024#38500
        Footers = <>
        Width = 55
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 688
    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
    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 = #25171#21360
      ImageIndex = 15
    end
    object TBTEXIT: TToolButton
      Left = 418
      Top = 2
      Caption = #36864#20986
      ImageIndex = 20
      OnClick = TBTEXITClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 39
    Width = 688
    Height = 34
    Align = alTop
    BevelOuter = bvNone
    Color = clInfoBk
    TabOrder = 2
    object Label1: TLabel
      Left = 7
      Top = 10
      Width = 120
      Height = 12
      Caption = #26597#25214#26465#20214#20379#24212#21830#32534#21495#65306
    end
    object Label2: TLabel
      Left = 265
      Top = 10
      Width = 72
      Height = 12
      Caption = #20379#24212#21830#21517#31216#65306
    end
    object EdtSPBH: TEdit
      Left = 125
      Top = 7
      Width = 137
      Height = 20
      TabOrder = 0
      OnKeyDown = EdtSPBHKeyDown
    end
    object EdtPMGG: TEdit
      Left = 337
      Top = 7
      Width = 253
      Height = 20
      TabOrder = 1
      OnKeyDown = EdtPMGGKeyDown
    end
  end
  object DataSource1: TDataSource
    DataSet = DM.ADOQ_GYS
    Left = 624
    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 = 544
    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 = 576
    Top = 8
  end
end