fen_shi_report.dfm

采购管理系统：delphi+sql实现了企业采购自动化作业流程

object fen_shi_repor: Tfen_shi_repor
  Left = 176
  Top = 125
  Width = 353
  Height = 348
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #20998#26178#22577#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 18
    Top = 172
    Width = 39
    Height = 13
    Caption = #26085#26399#24478':'
  end
  object Label3: TLabel
    Left = 175
    Top = 172
    Width = 15
    Height = 13
    Caption = #21040':'
  end
  object Label4: TLabel
    Left = 16
    Top = 184
    Width = 32
    Height = 13
    Caption = 'Label4'
  end
  object GroupBox1: TGroupBox
    Left = 32
    Top = 16
    Width = 273
    Height = 137
    Caption = #36984#25799#38917#30446
    TabOrder = 1
    object Label2: TLabel
      Left = 22
      Top = 27
      Width = 27
      Height = 13
      Caption = #38917#30446':'
    end
    object RadioButton1: TRadioButton
      Left = 5
      Top = 70
      Width = 57
      Height = 17
      Caption = #21253#35037#39006
      TabOrder = 0
      OnKeyPress = RadioButton1KeyPress
    end
    object RadioButton2: TRadioButton
      Left = 67
      Top = 71
      Width = 65
      Height = 17
      Caption = #38750#29983#29986#39006
      TabOrder = 1
      OnKeyPress = RadioButton2KeyPress
    end
    object RadioButton3: TRadioButton
      Left = 144
      Top = 72
      Width = 57
      Height = 17
      Caption = #21270#24037#39006
      TabOrder = 2
      OnKeyPress = RadioButton3KeyPress
    end
    object RadioButton4: TRadioButton
      Left = 212
      Top = 72
      Width = 57
      Height = 17
      Caption = #27169#20855#39006
      TabOrder = 3
      OnKeyPress = RadioButton4KeyPress
    end
    object RadioButton5: TRadioButton
      Left = 5
      Top = 104
      Width = 57
      Height = 17
      Caption = #37329#23660#39006
      TabOrder = 4
      OnKeyPress = RadioButton5KeyPress
    end
    object RadioButton6: TRadioButton
      Left = 67
      Top = 104
      Width = 65
      Height = 17
      Caption = #37197#20214#39006
      TabOrder = 5
      OnKeyPress = RadioButton6KeyPress
    end
    object RadioButton7: TRadioButton
      Left = 144
      Top = 104
      Width = 65
      Height = 17
      Caption = #20854#23427#39006
      TabOrder = 6
      OnKeyPress = RadioButton7KeyPress
    end
    object RadioButton8: TRadioButton
      Left = 212
      Top = 104
      Width = 57
      Height = 17
      Caption = #20840#37096
      TabOrder = 7
      OnKeyPress = RadioButton8KeyPress
    end
  end
  object ComboBox1: TComboBox
    Left = 96
    Top = 40
    Width = 113
    Height = 21
    ItemHeight = 13
    TabOrder = 0
    Text = 'ComboBox1'
    OnKeyPress = ComboBox1KeyPress
    Items.Strings = (
      #35531#36092#21934
      #37319#36092#21934)
  end
  object Button1: TButton
    Left = 104
    Top = 203
    Width = 110
    Height = 25
    Caption = #21015#21360
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button3: TButton
    Left = 104
    Top = 270
    Width = 110
    Height = 25
    Caption = #36864#20986
    TabOrder = 3
    OnClick = Button3Click
  end
  object t1: TMaskEdit
    Left = 64
    Top = 169
    Width = 95
    Height = 21
    EditMask = '9999/99/99;1;_'
    MaxLength = 10
    TabOrder = 4
    Text = '    /  /  '
    OnKeyPress = t1KeyPress
  end
  object t2: TMaskEdit
    Left = 192
    Top = 169
    Width = 95
    Height = 21
    EditMask = '9999/99/99;1;_'
    MaxLength = 10
    TabOrder = 5
    Text = '    /  /  '
    OnKeyPress = t2KeyPress
  end
  object Button2: TButton
    Left = 104
    Top = 236
    Width = 109
    Height = 25
    Caption = #20998#39006#32113#35336#34920
    TabOrder = 6
    OnClick = Button2Click
  end
  object Query1: TQuery
    DatabaseName = 'vvv'
    Left = 16
    Top = 224
  end
  object MQry: TQuery
    DatabaseName = 'vvv'
    Left = 20
    Top = 264
  end
  object CdsRpt: TQuery
    CachedUpdates = True
    DatabaseName = 'vvv'
    RequestLive = True
    SQL.Strings = (
      'select * from purrpt')
    Left = 52
    Top = 265
    object CdsRpttypes: TStringField
      FieldName = 'types'
      Origin = 'AA.purrpt.types'
      Size = 1
    end
    object CdsRptqty1: TFloatField
      FieldName = 'qty1'
      Origin = 'AA.purrpt.qty1'
    end
    object CdsRptqty2: TFloatField
      FieldName = 'qty2'
      Origin = 'AA.purrpt.qty2'
    end
    object CdsRptqty3: TFloatField
      FieldName = 'qty3'
      Origin = 'AA.purrpt.qty3'
    end
    object CdsRptqty4: TFloatField
      FieldName = 'qty4'
      Origin = 'AA.purrpt.qty4'
    end
    object CdsRptqty5: TFloatField
      FieldName = 'qty5'
      Origin = 'AA.purrpt.qty5'
    end
    object CdsRptqty6: TFloatField
      FieldName = 'qty6'
      Origin = 'AA.purrpt.qty6'
    end
    object CdsRptqty7: TFloatField
      FieldName = 'qty7'
      Origin = 'AA.purrpt.qty7'
    end
    object CdsRptqty8: TFloatField
      FieldName = 'qty8'
      Origin = 'AA.purrpt.qty8'
    end
    object CdsRptqty9: TFloatField
      FieldName = 'qty9'
      Origin = 'AA.purrpt.qty9'
    end
    object CdsRptqty10: TFloatField
      FieldName = 'qty10'
      Origin = 'AA.purrpt.qty10'
    end
    object CdsRptqty11: TFloatField
      FieldName = 'qty11'
      Origin = 'AA.purrpt.qty11'
    end
    object CdsRptqty12: TFloatField
      FieldName = 'qty12'
      Origin = 'AA.purrpt.qty12'
    end
    object CdsRpttotals: TFloatField
      FieldName = 'totals'
      Origin = 'AA.purrpt.totals'
    end
  end
  object ppReport1: TppReport
    AutoStop = False
    DataPipeline = ppBDEPipeline1
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.Orientation = poLandscape
    PrinterSetup.PaperName = 'A4 210 x 297 '#20844#37328
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 210079
    PrinterSetup.mmPaperWidth = 296863
    PrinterSetup.PaperSize = 9
    DeviceType = 'Screen'
    OutlineSettings.CreateNode = True
    OutlineSettings.CreatePageNodes = True
    OutlineSettings.Enabled = True
    OutlineSettings.Visible = False
    PreviewFormSettings.WindowState = wsMaximized
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 53
    Top = 201
    Version = '7.03'
    mmColumnWidth = 0
    DataPipelineName = 'ppBDEPipeline1'
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 30427
      mmPrintPosition = 0
      object ppLabel1: TppLabel
        UserName = 'Label1'
        Caption = #37319#36092#20998#39006#32113#35336#34920
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #27161#26999#39636
        Font.Size = 22
        Font.Style = []
        Transparent = True
        mmHeight = 9260
        mmLeft = 94721
        mmTop = 5556
        mmWidth = 57679
        BandType = 0
      end
      object ppLine1: TppLine
        UserName = 'Line1'
        Weight = 0.75
        mmHeight = 265
        mmLeft = 794
        mmTop = 19315
        mmWidth = 280459
        BandType = 0
      end
      object ppLine2: TppLine
        UserName = 'Line2'
        Weight = 0.75
        mmHeight = 265
        mmLeft = 794
        mmTop = 30163
        mmWidth = 280459
        BandType = 0
      end
      object ppLine3: TppLine
        UserName = 'Line3'
        Position = lpRight
        Weight = 0.75
        mmHeight = 10583
        mmLeft = 281517
        mmTop = 19315
        mmWidth = 265
        BandType = 0
      end
      object ppLine4: TppLine
        UserName = 'Line4'
        Position = lpLeft
        Weight = 0.75
        mmHeight = 10583
        mmLeft = 1058
        mmTop = 19579
        mmWidth = 265
        BandType = 0
      end
      object ppLine5: TppLine
        UserName = 'Line5'
        Position = lpLeft
        Weight = 0.75
        mmHeight = 10848
        mmLeft = 26194
        mmTop = 19579
        mmWidth = 265
        BandType = 0
      end
      object ppLabel6: TppLabel
        UserName = 'Label6'
        Caption = #39006#21029' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #27161#26999#39636
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 3440
        mmTop = 25665
        mmWidth = 8890
        BandType = 0
      end
      object ppLabel7: TppLabel
        UserName = 'Label7'
        Caption = #26376#20221
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #27161#26999#39636
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 14552
        mmTop = 20108
        mmWidth = 7112
        BandType = 0
      end
      object ppLabel8: TppLabel
        UserName = 'Label8'
        Caption = '1'#26376
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #27161#26999#39636
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 33867
        mmTop = 23548
        mmWidth = 5334
        BandType = 0
      end
      object ppLabel9: TppLabel
        UserName = 'Label9'
        Caption = '2'#26376' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #27161#26999#39636
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 45773
        mmTop = 23548
        mmWidth = 7144
        BandType = 0
      end
      object ppLabel10: TppLabel
        UserName = 'Label10'
        Caption = '3'#26376' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #27161#26999#39636
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 63500
        mmTop = 23548
        mmWidth = 6615
        BandType = 0
      end
      object ppLabel11: TppLabel
        UserName = 'Label11'
        Caption = '4'#26376' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #27161#26999#39636
        Font.Size = 10
        Font.Style = []
        Transparent = True
        mmHeight = 4233
        mmLeft = 78846
        mmTop = 23548
        mmWidth = 6085
        BandType = 0
      end
      object ppLabel12: TppLabel
        UserName = 'Label12'
        Caption = '5'#26376' '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #27161#26999#39636
        Font.Size = 10
        Font.Style = []
        Transparent = True