fen_shi_report.pas

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

unit fen_shi_report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, DBTables, Mask, ppCtrls, ppPrnabl,
  ppClass, ppDB, ppBands, ppCache, ppDBPipe, ppDBBDE, ppComm, ppRelatv,
  ppProd, ppReport, ppVar;

type
  Tfen_shi_repor = class(TForm)
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button3: TButton;
    Label4: TLabel;
    Query1: TQuery;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    t1: TMaskEdit;
    t2: TMaskEdit;
    Button2: TButton;
    MQry: TQuery;
    CdsRpt: TQuery;
    CdsRpttypes: TStringField;
    CdsRptqty1: TFloatField;
    CdsRptqty2: TFloatField;
    CdsRptqty3: TFloatField;
    CdsRptqty4: TFloatField;
    CdsRptqty5: TFloatField;
    CdsRptqty6: TFloatField;
    CdsRptqty7: TFloatField;
    CdsRptqty8: TFloatField;
    CdsRptqty9: TFloatField;
    CdsRptqty10: TFloatField;
    CdsRptqty11: TFloatField;
    CdsRptqty12: TFloatField;
    CdsRpttotals: TFloatField;
    ppReport1: TppReport;
    ppBDEPipeline1: TppBDEPipeline;
    DataSource1: TDataSource;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLine1: TppLine;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLine2: TppLine;
    ppLine3: TppLine;
    ppLine4: TppLine;
    ppLine5: TppLine;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppLabel19: TppLabel;
    ppLine6: TppLine;
    ppLine7: TppLine;
    ppLine8: TppLine;
    ppDBText1: TppDBText;
    ppLine9: TppLine;
    ppLine10: TppLine;
    ppLine11: TppLine;
    ppLine12: TppLine;
    ppLine13: TppLine;
    ppLine14: TppLine;
    ppLine15: TppLine;
    ppLine16: TppLine;
    ppLine17: TppLine;
    ppLine18: TppLine;
    ppLine19: TppLine;
    ppLine20: TppLine;
    ppLine21: TppLine;
    ppLine22: TppLine;
    ppLine23: TppLine;
    ppLine24: TppLine;
    ppLine25: TppLine;
    ppLine26: TppLine;
    ppLine27: TppLine;
    ppLine28: TppLine;
    ppLine29: TppLine;
    ppLine30: TppLine;
    ppLine31: TppLine;
    ppLabel20: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppSummaryBand1: TppSummaryBand;
    ppLine32: TppLine;
    ppLine33: TppLine;
    ppLabel21: TppLabel;
    ppLine34: TppLine;
    ppLine35: TppLine;
    ppLine36: TppLine;
    ppLine37: TppLine;
    ppLine38: TppLine;
    ppLine39: TppLine;
    ppLine40: TppLine;
    ppLine41: TppLine;
    ppLine42: TppLine;
    ppLine43: TppLine;
    ppLine44: TppLine;
    ppLine45: TppLine;
    ppLine46: TppLine;
    ppLine47: TppLine;
    ppLine48: TppLine;
    ppLine49: TppLine;
    ppLabel23: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppDBCalc2: TppDBCalc;
    ppDBCalc3: TppDBCalc;
    ppDBCalc4: TppDBCalc;
    ppDBCalc5: TppDBCalc;
    ppDBCalc6: TppDBCalc;
    ppDBCalc7: TppDBCalc;
    ppDBCalc8: TppDBCalc;
    ppDBCalc9: TppDBCalc;
    ppDBCalc10: TppDBCalc;
    ppDBCalc11: TppDBCalc;
    ppDBCalc12: TppDBCalc;
    ppDBCalc13: TppDBCalc;
    ppDBText14: TppDBText;
    ppLabel22: TppLabel;
    ppLabel24: TppLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton2KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton3KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton4KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton5KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton6KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton7KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton8KeyPress(Sender: TObject; var Key: Char);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure ppLabel5GetText(Sender: TObject; var Text: String);
    procedure ppDBText1GetText(Sender: TObject; var Text: String);
    procedure ppLabel22GetText(Sender: TObject; var Text: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fen_shi_repor: Tfen_shi_repor;

implementation
uses fen_shi_qing_report,ding_gou_report_fen, data_cai;
{$R *.dfm}

procedure Tfen_shi_repor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfen_shi_repor.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tfen_shi_repor.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
t1.SetFocus;
end;

procedure Tfen_shi_repor.FormCreate(Sender: TObject);
begin
combobox1.Text:='';
label4.Visible:=false;
t1.Text:=datetostr(date);
t2.Text:=datetostr(date);
end;

procedure Tfen_shi_repor.FormActivate(Sender: TObject);
begin
combobox1.SetFocus;
end;

procedure Tfen_shi_repor.Button1Click(Sender: TObject);
begin
if combobox1.ItemIndex=0 then
begin
fen_shi_qing_repor:=Tfen_shi_qing_repor.Create(self);
//
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select gong_si_jian from gong_si' );
query1.Prepare;
query1.Active:=true;
fen_shi_qing_repor.QRLabel1.Caption:=query1.FieldByName('gong_si_jian').AsString+fen_shi_qing_repor.QRLabel1.Caption;
//
if RadioButton1.Checked then
begin
fen_shi_qing_repor.QRLabel24.Caption:='摸