usqydy.~dfm

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

object FSQYDY: TFSQYDY
  Left = 121
  Top = 217
  AutoScroll = False
  Caption = #36865#27668#21592#20449#24687
  ClientHeight = 453
  ClientWidth = 786
  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 = 39
    Width = 786
    Height = 414
    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 = []
    OnDblClick = DBGridEh1DblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = #32534#21495
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #36865#27668#21592
        Footer.Alignment = taCenter
        Footer.DisplayFormat = #20849'0'#20010
        Footer.FieldName = #36865#27668#21592'ID'
        Footer.Value = '0'
        Footer.ValueType = fvtCount
        Footers = <>
        Width = 77
      end
      item
        EditButtons = <>
        FieldName = #22320#22336
        Footers = <>
        Width = 186
      end
      item
        EditButtons = <>
        FieldName = #32852#31995#30005#35805
        Footers = <>
        Width = 429
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 786
    Height = 39
    ButtonHeight = 35
    ButtonWidth = 67
    Caption = 'ToolBar1'
    Images = MainForm.ImageList1
    ShowCaptions = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = '   '#22686#21152'   '
      ImageIndex = 19
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 67
      Top = 2
      Caption = #20462#25913
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 134
      Top = 2
      Caption = #21024#38500
      ImageIndex = 5
    end
    object ToolButton4: TToolButton
      Left = 201
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton5: TToolButton
      Left = 209
      Top = 2
      Caption = #25171#21360
      ImageIndex = 15
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 276
      Top = 2
      Caption = #36864#20986
      ImageIndex = 20
      OnClick = ToolButton6Click
    end
  end
  object DataSource1: TDataSource
    DataSet = DM.ADOQ_SQY
    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
end