cai_gou_report_month.~pas

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

unit cai_gou_report_month;

interface

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

type
  Tcai_gou_report_mont = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    GroupBox2: TGroupBox;
    Button1: TButton;
    Button3: TButton;
    Label1: TLabel;
    Query1: TQuery;
    t1: TMaskEdit;
    t2: TMaskEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cai_gou_report_mont: Tcai_gou_report_mont;

implementation
uses cai_gou_month_report;
{$R *.dfm}

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

procedure Tcai_gou_report_mont.FormCreate(Sender: TObject);
begin
t1.Text:=datetostr(date);
t2.Text:=datetostr(date);
label1.Visible:=false;
end;

procedure Tcai_gou_report_mont.Button1Click(Sender: TObject);
var cai_gou_month_repor:Tcai_gou_month_repor;
begin
cai_gou_month_repor:=Tcai_gou_month_repor.Create(self);
//
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select gong_si_jian from gong_si' );
query1.Prepare;
query1.Active:=true;
cai_gou_month_repor.QRLabel1.Caption:=query1.FieldByName('gong_si_jian').AsString+cai_gou_month_repor.QRLabel1.Caption;
//
cai_gou_month_repor.StoredProc1.Active:=false;
cai_gou_month_repor.StoredProc1.ParamByName('@str1').AsDateTime:=strtodate(t1.Text);
cai_gou_month_repor.StoredProc1.ParamByName('@str2').AsDateTime:=strtodate(t2.Text);
cai_gou_month_repor.StoredProc1.Prepare;
cai_gou_month_repor.StoredProc1.Active:=true;
cai_gou_month_repor.QRLabel4.Caption:=t1.Text;
cai_gou_month_repor.QRLabel5.Caption:=t2.Text;
cai_gou_month_repor.QRLabel17.Caption:=label1.Caption;

cai_gou_month_repor.QuickRep1.Preview;
cai_gou_month_repor.Release;

end;

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

procedure Tcai_gou_report_mont.t1KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
datetimepicker2.SetFocus;
end;

procedure Tcai_gou_report_mont.t2KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=chr(13) then
button1.SetFocus;
end;

end.