cai_gou_gen.dfm

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

        BandType = 4
      end
    end
    object ppFooterBand1: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 6615
      mmPrintPosition = 0
      object ppLabel19: TppLabel
        UserName = 'Label19'
        Caption = #21015#21360#26085#26399':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #32048#26126#39636
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3387
        mmLeft = 1196
        mmTop = 794
        mmWidth = 12954
        BandType = 8
      end
      object ppSystemVariable1: TppSystemVariable
        UserName = 'SystemVariable1'
        VarType = vtDateTime
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #32048#26126#39636
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3440
        mmLeft = 14552
        mmTop = 794
        mmWidth = 33073
        BandType = 8
      end
      object ppLabel21: TppLabel
        UserName = 'Label21'
        Caption = #21046#34920#20154':   '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #32048#26126#39636
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3440
        mmLeft = 240771
        mmTop = 794
        mmWidth = 14288
        BandType = 8
      end
      object ppLabel22: TppLabel
        UserName = 'Label22'
        Caption = 'Label22'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #32048#26126#39636
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3440
        mmLeft = 256646
        mmTop = 794
        mmWidth = 10054
        BandType = 8
      end
      object ppLabel23: TppLabel
        UserName = 'Label23'
        Caption = 'Page: '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #32048#26126#39636
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3440
        mmLeft = 121179
        mmTop = 1323
        mmWidth = 8731
        BandType = 8
      end
      object ppSystemVariable2: TppSystemVariable
        UserName = 'SystemVariable2'
        VarType = vtPageNo
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #32048#26126#39636
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3440
        mmLeft = 130440
        mmTop = 1323
        mmWidth = 3704
        BandType = 8
      end
      object ppLabel28: TppLabel
        UserName = 'Label28'
        Caption = 'OF'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #32048#26126#39636
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3440
        mmLeft = 137584
        mmTop = 1323
        mmWidth = 2910
        BandType = 8
      end
      object ppSystemVariable3: TppSystemVariable
        UserName = 'SystemVariable3'
        VarType = vtPageCount
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Name = #32048#26126#39636
        Font.Size = 8
        Font.Style = []
        Transparent = True
        mmHeight = 3440
        mmLeft = 146579
        mmTop = 1323
        mmWidth = 8996
        BandType = 8
      end
    end
  end
  object ppBDEPipeline1: TppBDEPipeline
    DataSource = DataSource1
    UserName = 'BDEPipeline1'
    Left = 28
    Top = 121
    object ppBDEPipeline1ppField1: TppField
      FieldAlias = 'qing_gou_no'
      FieldName = 'qing_gou_no'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 0
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField2: TppField
      FieldAlias = 'qing_gou_date'
      FieldName = 'qing_gou_date'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 1
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField3: TppField
      FieldAlias = 'wu_no'
      FieldName = 'wu_no'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 2
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField4: TppField
      FieldAlias = 'wu_name'
      FieldName = 'wu_name'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 3
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField5: TppField
      FieldAlias = 'wu_gui'
      FieldName = 'wu_gui'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 4
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField6: TppField
      FieldAlias = 'qing_shu_liang'
      FieldName = 'qing_shu_liang'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 5
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField7: TppField
      FieldAlias = 'qing_gou_bumen'
      FieldName = 'qing_gou_bumen'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 6
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField8: TppField
      FieldAlias = 'shenbumen'
      FieldName = 'shenbumen'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 7
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField9: TppField
      FieldAlias = 'ding_gou_no'
      FieldName = 'ding_gou_no'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 8
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField10: TppField
      FieldAlias = 'chang_shang_name'
      FieldName = 'chang_shang_name'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 9
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField11: TppField
      FieldAlias = 'ding_gou_date'
      FieldName = 'ding_gou_date'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 10
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField12: TppField
      FieldAlias = 'caidw'
      FieldName = 'caidw'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 11
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField13: TppField
      FieldAlias = 'qty'
      FieldName = 'qty'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 12
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField14: TppField
      FieldAlias = 'qty99'
      FieldName = 'qty99'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 13
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField15: TppField
      FieldAlias = 'ding_gou_ren'
      FieldName = 'ding_gou_ren'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 14
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField16: TppField
      FieldAlias = 'qdw'
      FieldName = 'qdw'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 15
      Searchable = False
      Sortable = False
    end
    object ppBDEPipeline1ppField17: TppField
      FieldAlias = 'jiao_ji'
      FieldName = 'jiao_ji'
      FieldLength = 0
      DataType = dtNotKnown
      DisplayWidth = 0
      Position = 16
      Searchable = False
      Sortable = False
    end
  end
  object mqry: TQuery
    DatabaseName = 'vvv'
    SQL.Strings = (
      'execute dingview :dept')
    Left = 26
    Top = 50
    ParamData = <
      item
        DataType = ftString
        Name = 'dept'
        ParamType = ptInput
      end>
    object mqryqing_gou_no: TStringField
      FieldName = 'qing_gou_no'
      FixedChar = True
      Size = 12
    end
    object mqryqing_gou_date: TDateTimeField
      FieldName = 'qing_gou_date'
    end
    object mqrywu_no: TStringField
      FieldName = 'wu_no'
      FixedChar = True
      Size = 18
    end
    object mqrywu_name: TStringField
      FieldName = 'wu_name'
      FixedChar = True
      Size = 40
    end
    object mqrywu_gui: TStringField
      FieldName = 'wu_gui'
      FixedChar = True
      Size = 40
    end
    object mqryqing_shu_liang: TFloatField
      FieldName = 'qing_shu_liang'
    end
    object mqryqing_gou_bumen: TStringField
      FieldName = 'qing_gou_bumen'
      FixedChar = True
      Size = 10
    end
    object mqryshenbumen: TStringField
      FieldName = 'shenbumen'
      Size = 30
    end
    object mqryding_gou_no: TStringField
      FieldName = 'ding_gou_no'
      FixedChar = True
      Size = 16
    end
    object mqrychang_shang_name: TStringField
      FieldName = 'chang_shang_name'
      FixedChar = True
      Size = 10
    end
    object mqryding_gou_date: TDateTimeField
      FieldName = 'ding_gou_date'
    end
    object mqrycaidw: TStringField
      FieldName = 'caidw'
      FixedChar = True
      Size = 16
    end
    object mqryqty: TFloatField
      FieldName = 'qty'
    end
    object mqryqty99: TFloatField
      FieldName = 'qty99'
    end
    object mqryding_gou_ren: TStringField
      FieldName = 'ding_gou_ren'
      FixedChar = True
      Size = 10
    end
    object mqryqdw: TStringField
      FieldName = 'qdw'
      FixedChar = True
      Size = 10
    end
    object mqryjiao_ji: TDateTimeField
      FieldName = 'jiao_ji'
    end
    object mqryjiao_yi_no: TStringField
      FieldName = 'jiao_yi_no'
      FixedChar = True
      Size = 15
    end
  end
  object DataSource1: TDataSource
    DataSet = mqry
    Left = 19
    Top = 23
  end
end