liu_lan_dan_jia.~pas

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

unit liu_lan_dan_jia;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids,
  StdCtrls;

type
  Tliu_lan_dan_ji = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    SpeedButton3: TSpeedButton;
    DataSource1: TDataSource;
    sp1: TStoredProc;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  liu_lan_dan_ji: Tliu_lan_dan_ji;

implementation
 uses cai_jia_report;
{$R *.dfm}

procedure Tliu_lan_dan_ji.SpeedButton3Click(Sender: TObject);
begin
close;
end;

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

procedure Tliu_lan_dan_ji.SpeedButton1Click(Sender: TObject);
var cai_jia_repor:Tcai_jia_repor;
begin
cai_jia_repor:=Tcai_jia_repor.Create(self);
cai_jia_repor.sp1.Active:=false;
cai_jia_repor.sp1.ParamByName('@str1').AsString:=label1.Caption;
cai_jia_repor.sp1.Prepare;
cai_jia_repor.sp1.Active:=true;
cai_jia_repor.QuickRep1.Preview;
end;

procedure Tliu_lan_dan_ji.FormCreate(Sender: TObject);
begin
label1.Visible:=false;
label2.Visible:=false;
end;

end.