cai_jue_report.~pas

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

unit cai_jue_report;

interface

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

type
  Tcai_jue_repor = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button3: TButton;
    Label3: TLabel;
    Query1: TQuery;
    t1: TMaskEdit;
    t2: TMaskEdit;
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(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_jue_repor: Tcai_jue_repor;

implementation
uses cai_jue_dan;
{$R *.dfm}

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

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

procedure Tcai_jue_repor.Button1Click(Sender: TObject);
var cai_jue_da:Tcai_jue_da;
begin
cai_jue_da:=Tcai_jue_da.Create(self);
//
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select gong_si_jian from gong_si' );
query1.Prepare;
query1.Active:=true;
cai_jue_da.QRLabel1.Caption:=query1.FieldByName('gong_si_jian').AsString+cai_jue_da.QRLabel1.Caption;
//
cai_jue_da.Query1.Active:=false;
cai_jue_da.Query1.SQL.Clear;
cai_jue_da.Query1.SQL.Add('select * from ding_gou_zhu where jue_dan_date>=:ll and jue_dan_date<=:jj');
cai_jue_da.Query1.SQL.Add('order by jue_dan_date');
cai_jue_da.Query1.ParamByName('ll').AsDateTime:=strtodate(t1.Text);
cai_jue_da.Query1.ParamByName('jj').AsDateTime:=strtodate(t2.Text);
cai_jue_da.Query1.Prepare;
cai_jue_da.Query1.Active:=true;
cai_jue_da.QRLabel3.Caption:=label3.Caption;
cai_jue_da.QRLabel18.Caption:=t1.Text;
cai_jue_da.QRLabel19.Caption:=t2.Text;

cai_jue_da.QuickRep1.Preview;
cai_jue_da.Release;

end;

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

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

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

end.