cai_fu_kuan_report.~pas

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

unit cai_fu_kuan_report;

interface

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

type
  Tcai_fu_kuan_repor = class(TForm)
    Label3: TLabel;
    Button1: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Query1: TQuery;
    Query2: TQuery;
    ComboBox2: TComboBox;
    Table1: TTable;
    Label6: TLabel;
    t1: TMaskEdit;
    t2: TMaskEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(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
  cai_fu_kuan_repor: Tcai_fu_kuan_repor;

implementation
uses cai_fu_kuan,ying_fu_report;
{$R *.dfm}

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

procedure Tcai_fu_kuan_repor.Button1Click(Sender: TObject);
var cai_fu_kua:Tcai_fu_kua;
begin
cai_fu_kua:=Tcai_fu_kua.Create(self);
//
query2.Active:=false;
query2.SQL.Clear;
query2.SQL.Add('select gong_si_jian from gong_si' );
query2.Prepare;
query2.Active:=true;
cai_fu_kua.QRLabel1.Caption:=query2.FieldByName('gong_si_jian').AsString+cai_fu_kua.QRLabel1.Caption;
//
cai_fu_kua.sp1.Active:=false;
cai_fu_kua.sp1.ParamByName('@str1').AsString:=combobox1.Text;
cai_fu_kua.sp1.Prepare;
cai_fu_kua.sp1.Active:=true;
//cai_fu_kua.sp2.Active:=false;
//cai_fu_kua.sp2.ParamByName('@str1').AsString:=combobox1.Text;
//cai_fu_kua.sp2.Prepare;
//cai_fu_kua.sp2.Active:=true;
cai_fu_kua.QRLabel3.Caption:=label3.Caption;
cai_fu_kua.QuickRep1.Preview;
cai_fu_kua.Release;
end;

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

procedure Tcai_fu_kuan_repor.FormCreate(Sender: TObject);
begin
label3.Visible:=false;
combobox1.Text:='';
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select ding_gou_no from ding_gou_zhu where yes_or_re_qi=:kk');
query1.ParamByName('kk').AsString:='琌';
query1.Prepare;
query1.Active:=true;
combobox1.Items.Clear;
while not query1.Eof do begin
combobox1.Items.Add(query1.FieldByName('ding_gou_no').AsString);
query1.Next;
end;
t1.Text:=datetostr(date);
t2.Text:=datetostr(date);
while not Table1.Eof do begin
ComboBox2.Items.Add(Table1.FieldByName('gong_shang_name').AsString);
Table1.Next;
end;
combobox2.Text:='';
end;

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

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

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

procedure Tcai_fu_kuan_repor.t2KeyPress(Sender: TObject;
  var Key: Char);
var ying_fu_repor:Tying_fu_repor; 
  begin
ying_fu_repor:=Tying_fu_repor.Create(self);
if key=chr(13) then
begin
//
query2.Active:=false;
query2.SQL.Clear;
query2.SQL.Add('select gong_si_jian from gong_si' );
query2.Prepare;
query2.Active:=true;
ying_fu_repor.QRLabel1.Caption:=query2.FieldByName('gong_si_jian').AsString+ying_fu_repor.QRLabel1.Caption;
//
if combobox2.Text='' then
begin
ying_fu_repor.sp2.Active:=false;
ying_fu_repor.sp2.ParamByName('@str1').AsDateTime:=strtodate(t1.Text);
ying_fu_repor.sp2.ParamByName('@str2').AsDateTime:=strtodate(t2.Text);
ying_fu_repor.sp2.Prepare;
ying_fu_repor.sp2.Active:=true;
//
ying_fu_repor.DataSource1.DataSet:=ying_fu_repor.sp2;
ying_fu_repor.QRLabel21.Caption:='