fu_kuan_fen_lei.pas

来自「采购管理系统：delphi+sql实现了企业采购自动化作业流程」· PAS 代码 · 共 73 行

unit fu_kuan_fen_lei;

interface

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

type
  Tfu_kuan_fen_le = class(TForm)
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    Button3: TButton;
    Query1: TQuery;
    Query2: TQuery;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Label1: TLabel;
    t1: TMaskEdit;
    t2: TMaskEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(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 t1KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fu_kuan_fen_le: Tfu_kuan_fen_le;

implementation
uses fu_kuan_fen_lei_report;
{$R *.dfm}

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

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

procedure Tfu_kuan_fen_le.Button2Click(Sender: TObject);
var fu_kuan_fen_lei_repor:Tfu_kuan_fen_lei_repor;
begin
fu_kuan_fen_lei_repor:=Tfu_kuan_fen_lei_repor.Create(self);
if  RadioButton1.Checked then
begin
fu_kuan_fen_lei_repor.sp1.Active:=false;
fu_kuan_fen_lei_repor.sp1.ParamByName('@str1').AsDateTime:=strtodate(t1.Text);
fu_kuan_fen_lei_repor.sp1.ParamByName('@str2').AsDateTime:=strtodate(t2.Text);
fu_kuan_fen_lei_repor.sp1.Prepare;
fu_kuan_fen_lei_repor.sp1.Active:=true;
fu_kuan_fen_lei_repor.QRLabel3.Caption:=label1.Caption;
fu_kuan_fen_lei_repor.QRLabel16.Caption:='