cha_cai_gou_month_jue.~pas

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

unit cha_cai_gou_month_jue;

interface

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

type
  Tcha_cai_gou_month_ju = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    cha_cai_gou_month_ju: TDBGrid;
    Button1: TButton;
    DataSource1: TDataSource;
    sp1: TStoredProc;
    sp2: TStoredProc;
    t1: TMaskEdit;
    t2: TMaskEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton2KeyPress(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
  cha_cai_gou_month_ju: Tcha_cai_gou_month_ju;

implementation

{$R *.dfm}

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

procedure Tcha_cai_gou_month_ju.Button2Click(Sender: TObject);
begin
 close;
end;

procedure Tcha_cai_gou_month_ju.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked then
begin
sp1.Active:=false;
sp1.ParamByName('@str1').AsDateTime:=strtodate(t1.Text);
sp1.ParamByName('@str2').AsDateTime:=strtodate(t2.Text);
sp1.Prepare;
sp1.Active:=true;
DataSource1.DataSet:=sp1;
end;
if RadioButton2.Checked then
begin
sp2.Active:=false;
sp2.ParamByName('@str1').AsDateTime:=strtodate(t1.Text);
sp2.ParamByName('@str2').AsDateTime:=strtodate(t2.Text);
sp2.Prepare;
sp2.Active:=true;
DataSource1.DataSet:=sp2;
end;
end;

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

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

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

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

end.