edit_report.~pas

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

unit edit_report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask;

type
  Tedit_repor = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    t1: TMaskEdit;
    t2: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  edit_repor: Tedit_repor;

implementation
uses edit_record_report;
{$R *.dfm}

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

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

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

procedure Tedit_repor.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tedit_repor.BitBtn1Click(Sender: TObject);
var edit_record_repor:Tedit_record_repor;
begin
edit_record_repor:=Tedit_record_repor.Create(self);
if radiobutton1.Checked then
begin
edit_record_repor.Query1.Active:=false;
edit_record_repor.Query1.SQL.Clear;
edit_record_repor.Query1.SQL.Add('select * from cai_edit_record where (dan_xing=:mm) and (edit_date>=:aa) and (edit_date<=:bb)');
edit_record_repor.Query1.ParamByName('mm').AsString:='璹潦虫';
edit_record_repor.Query1.ParamByName('aa').AsDateTime:=strtodate(t1.Text);
edit_record_repor.Query1.ParamByName('bb').AsDateTime:=strtodate(t2.Text);
edit_record_repor.Query1.Prepare;
edit_record_repor.Query1.Active:=true;
edit_record_repor.QRLabel1.Caption:='璹潦虫';
edit_record_repor.QRLabel3.Caption:=label3.Caption;

edit_record_repor.QuickRep1.Prepare;
edit_record_repor.QuickRep1.Preview;
end
else
if radiobutton2.Checked then
begin
edit_record_repor.Query1.Active:=false;
edit_record_repor.Query1.SQL.Clear;
edit_record_repor.Query1.SQL.Add('select * from cai_edit_record where (dan_xing=:mm) and (edit_date>=:aa) and (edit_date<=:bb)');
edit_record_repor.Query1.ParamByName('mm').AsString:='叫潦虫';
edit_record_repor.Query1.ParamByName('aa').AsDateTime:=strtodate(t1.Text);
edit_record_repor.Query1.ParamByName('bb').AsDateTime:=strtodate(t2.Text);
edit_record_repor.Query1.Prepare;
edit_record_repor.Query1.Active:=true;
edit_record_repor.QuickRep1.Prepare;
edit_record_repor.QuickRep1.Preview;
end;


end;

procedure Tedit_repor.RadioButton1Click(Sender: TObject);
begin

 t1.SetFocus;
end;

procedure Tedit_repor.RadioButton2Click(Sender: TObject);
begin

 t1.SetFocus;
end;

procedure Tedit_repor.FormCreate(Sender: TObject);
begin
label3.Visible:=false;
end;

end.