qing_gou_rep.~pas

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

unit qing_gou_rep;

interface

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

type
  Tqing_gou_re = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    Table1: TTable;
    ComboBox1: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure CheckBox1Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qing_gou_re: Tqing_gou_re;

implementation
uses qing_gou_report,qing_gou_report2,qing_gou_report3;
{$R *.dfm}

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

procedure Tqing_gou_re.Button1Click(Sender: TObject);
var qing_gou_repor:Tqing_gou_repor;
begin
if edit1.Text<>'' then
begin
qing_gou_repor:=Tqing_gou_repor.Create(self);
qing_gou_repor.StoredProc1.Active:=false;
qing_gou_repor.StoredProc1.ParamByName('@str1').AsString:=edit1.Text;
qing_gou_repor.StoredProc1.Prepare;
qing_gou_repor.StoredProc1.Active:=true;
qing_gou_repor.QRLabel17.Caption:=label4.Caption;
qing_gou_repor.QuickRep1.Preview;
qing_gou_repor.Release;
end;
if  (maskedit1.Text<>'')and (maskedit2.Text<>'')and (not checkbox1.Checked) then
begin
qing_gou_report22:=Tqing_gou_report22.Create(self);
qing_gou_report22.StoredProc1.Active:=false;
qing_gou_report22.StoredProc1.ParamByName('@str1').AsDateTime:=strtodate(maskedit1.Text);
qing_gou_report22.StoredProc1.ParamByName('@str2').AsDateTime:=strtodate(maskedit2.Text);
qing_gou_report22.StoredProc1.Prepare;
qing_gou_report22.StoredProc1.Active:=true;
qing_gou_report22.QRLabel17.Caption:=label4.Caption;
qing_gou_report22.QRLabel22.Caption:=maskedit1.Text;
qing_gou_report22.QRLabel23.Caption:=maskedit2.Text;
qing_gou_report22.QuickRep1.Preview;
qing_gou_report22.Release;
end;
if  (checkbox1.Checked) and (combobox1.Text<>'') then
begin
qing_gou_report33:=Tqing_gou_report33.Create(self);
qing_gou_report33.StoredProc1.Active:=false;
qing_gou_report33.StoredProc1.ParamByName('@str1').AsDateTime:=strtodate(maskedit1.Text);
qing_gou_report33.StoredProc1.ParamByName('@str2').AsDateTime:=strtodate(maskedit2.Text);
qing_gou_report33.StoredProc1.ParamByName('@str3').AsString:=combobox1.Text;
qing_gou_report33.StoredProc1.Prepare;
qing_gou_report33.StoredProc1.Active:=true;
qing_gou_report33.QRLabel17.Caption:=label4.Caption;
qing_gou_report33.QRLabel22.Caption:=maskedit1.Text;
qing_gou_report33.QRLabel23.Caption:=maskedit2.Text;
qing_gou_report33.QRLabel25.Caption:=combobox1.Text;
qing_gou_report33.QuickRep1.Preview;
qing_gou_report33.Release;


end;
end;

procedure Tqing_gou_re.FormCreate(Sender: TObject);
begin
edit1.Text:='';
label4.Visible:=false;
combobox1.Text:='';
combobox1.Enabled:=false;
while not Table1.Eof do begin
ComboBox1.Items.Add(Table1.FieldByName('bu_men_name').AsString);
Table1.Next;
end;
end;

procedure Tqing_gou_re.FormActivate(Sender: TObject);
begin
maskedit1.Text:=datetostr(date);
maskedit2.Text:=datetostr(date);
edit1.SetFocus;
end;

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

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

procedure Tqing_gou_re.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
maskedit2.SetFocus;
end;

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

procedure Tqing_gou_re.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
begin
combobox1.Enabled:=true;
combobox1.SetFocus;
end
else
combobox1.Enabled:=false;
end;

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

procedure Tqing_gou_re.Button2Click(Sender: TObject);
var qing_gou_repor:Tqing_gou_repor;
begin
if edit1.Text<>'' then
begin
qing_gou_repor:=Tqing_gou_repor.Create(self);
qing_gou_repor.StoredProc1.Active:=false;
qing_gou_repor.StoredProc1.ParamByName('@str1').AsString:=edit1.Text;
qing_gou_repor.StoredProc1.Prepare;
qing_gou_repor.StoredProc1.Active:=true;
qing_gou_repor.QRLabel17.Caption:=label4.Caption;
qing_gou_repor.QuickRep1.Print;
qing_gou_repor.Release;
end;
if  (maskedit1.Text<>'')and (maskedit2.Text<>'')and (not checkbox1.Checked) then
begin
qing_gou_report22:=Tqing_gou_report22.Create(self);
qing_gou_report22.StoredProc1.Active:=false;
qing_gou_report22.StoredProc1.ParamByName('@str1').AsDateTime:=strtodate(maskedit1.Text);
qing_gou_report22.StoredProc1.ParamByName('@str2').AsDateTime:=strtodate(maskedit2.Text);
qing_gou_report22.StoredProc1.Prepare;
qing_gou_report22.StoredProc1.Active:=true;
qing_gou_report22.QRLabel17.Caption:=label4.Caption;
qing_gou_report22.QRLabel22.Caption:=maskedit1.Text;
qing_gou_report22.QRLabel23.Caption:=maskedit2.Text;
if qing_gou_report22.PrintDialog1.Execute then
qing_gou_report22.QuickRep1.Print;
qing_gou_report22.Release;
end;
if  (checkbox1.Checked) and (combobox1.Text<>'') then
begin
qing_gou_report33:=Tqing_gou_report33.Create(self);
qing_gou_report33.StoredProc1.Active:=false;
qing_gou_report33.StoredProc1.ParamByName('@str1').AsDateTime:=strtodate(maskedit1.Text);
qing_gou_report33.StoredProc1.ParamByName('@str2').AsDateTime:=strtodate(maskedit2.Text);
qing_gou_report33.StoredProc1.ParamByName('@str3').AsString:=combobox1.Text;
qing_gou_report33.StoredProc1.Prepare;
qing_gou_report33.StoredProc1.Active:=true;
qing_gou_report33.QRLabel17.Caption:=label4.Caption;
qing_gou_report33.QRLabel22.Caption:=maskedit1.Text;
qing_gou_report33.QRLabel23.Caption:=maskedit2.Text;
qing_gou_report33.QRLabel25.Caption:=combobox1.Text;
if qing_gou_report33.PrintDialog1.Execute then
qing_gou_report33.QuickRep1.Print;
qing_gou_report33.Release;


end;
end;

end.