tong_shi_report.pas

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

unit tong_shi_report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, DBTables, Mask;

type
  Ttong_shi_repor = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button3: TButton;
    Query1: TQuery;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    t1: TMaskEdit;
    t2: TMaskEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tong_shi_repor: Ttong_shi_repor;

implementation
 uses qing_gou_report_tong,ding_gou_report_tong;
{$R *.dfm}

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

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

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

procedure Ttong_shi_repor.Button1Click(Sender: TObject);
begin
qing_gou_report_ton:=Tqing_gou_report_ton.Create(self);
ding_gou_report_ton:=Tding_gou_report_ton.Create(self);
if combobox1.ItemIndex=0 then
begin

//
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select gong_si_jian from gong_si' );
query1.Prepare;
query1.Active:=true;
qing_gou_report_ton.QRLabel1.Caption:=query1.FieldByName('gong_si_jian').AsString+qing_gou_report_ton.QRLabel1.Caption;
//
if RadioButton1.Checked then
begin
qing_gou_report_ton.QRLabel18.Caption:='摸