yin_cai_report.pas

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

unit yin_cai_report;

interface

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

type
  Tyin_cai_repor = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label2: TLabel;
    Query1: TQuery;
    Label3: TLabel;
    Query2: TQuery;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yin_cai_repor: Tyin_cai_repor;

implementation
uses cai_report2, data_cai;
{$R *.dfm}

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

procedure Tyin_cai_repor.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tyin_cai_repor.BitBtn2Click(Sender: TObject);
var
 shu_re,xiewu,huo_bi,bi_bue,sum_money,gong_no:string;
 ss: TBookmark;
 i,j,n:integer;
 sum_money_:real;
begin
//xiewu,bigmonth,Smallmonth,wei1,qianwei1:string; qianwei,dianweizhi,qian :integer;small:real;
cai_report20:=Tcai_report20.Create(self);
cai_report20.QRLabel57.Visible:=false;
cai_report20.QRLabel47.Visible:=false;
cai_report20.QRLabel4.Caption:=label4.Caption;
cai_report20.QRLabel74.Caption:=label7.Caption;
cai_report20.QRLabel3.Caption:=label8.Caption;

//
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select *  from gong_si' );
query1.Prepare;
query1.Active:=true;
cai_report20.QRLabel19.Caption:=query1.FieldByName('gong_si_chuan').AsString;
cai_report20.QRLabel1.Caption:=query1.FieldByName('adress').AsString;
cai_report20.QRLabel37.Caption:=query1.FieldByName('phone').AsString;
cai_report20.QRLabel39.Caption:=query1.FieldByName('fax').AsString;
//cai_report20.QRLabel3.Caption:=query1.FieldByName('adress').AsString;
cai_report20.QRLabel70.Caption:=query1.FieldByName('english_name').AsString;
cai_report20.QRLabel11.Caption:=label5.Caption+'['+label6.Caption+']';
//
shu_re:=edit1.Text;
cai_report20.Table1.Active:=false;
cai_report20.Table1.IndexFieldNames:='ding_gou_no';
cai_report20.Table1.Active:=true;
if cai_report20.Table1.FindKey([shu_re]) then
begin
if  cai_report20.Table1.FieldByName('yes_or_no').AsString='琌' then
begin
ss:=cai_report20.Table1.GetBookmark;
cai_report20.Table1.GotoBookmark(ss);
xiewu:=cai_report20.Table1.FieldByName('ding_gou_no').asstring;
gong_no:=cai_report20.Table1.FieldByName('chang_shang_no').asstring;
cai_report20.Table1.Filter:='ding_gou_no='+quotedstr(shu_re);


cai_report20.sp2.Active:=false;
cai_report20.sp2.ParamByName('@str1').AsString:=edit1.Text;
cai_report20.sp2.Prepare;
cai_report20.sp2.Active:=true;


cai_report20.Table1.FreeBookmark(ss);

cai_report20.StoredProc1.Active:=false;
cai_report20.StoredProc1.ParamByName('@str1').AsString:=edit1.Text;
cai_report20.StoredProc1.Prepare;
cai_report20.StoredProc1.Active:=true;
//
cai_report20.sp3.Active:=false;
cai_report20.sp3.ParamByName('@str1').AsString:=edit1.Text;
cai_report20.sp3.Prepare;
cai_report20.sp3.Active:=true;
sum_money_:=cai_report20.StoredProc1.FieldByName('羆刹').AsFloat+cai_report20.sp3.FieldByName('