shu_ju_zheng_li.~pas

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

unit shu_ju_zheng_li;

interface

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

type
  Tshu_ju_zheng_l = class(TForm)
    StaticText1: TStaticText;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Animate1: TAnimate;
    Button6: TButton;
    Table1: TTable;
    Query1: TQuery;
    Table2: TTable;
    Query2: TQuery;
    Table3: TTable;
    Query3: TQuery;
    GroupBox1: TGroupBox;
    procedure Button6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shu_ju_zheng_l: Tshu_ju_zheng_l;

implementation

{$R *.dfm}

procedure Tshu_ju_zheng_l.Button6Click(Sender: TObject);
begin
close;
end;

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

procedure Tshu_ju_zheng_l.Button1Click(Sender: TObject);
 var xy:string; i:integer;
begin
table1.First;
Animate1.Active:=true;
i:=0;
while not table1.Eof do begin
xy:=table1.FieldByName('qing_gou_no').AsString;
query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from qing_gou_wei_chong where qing_gou_no=:vfr');
query1.ParamByName('vfr').AsString:=xy;
query1.Prepare;
query1.Active:=true;
if (query1.FieldByName('qing_gou_no').AsString='') or (query1.FieldByName('qing_gou_no').AsString=null) then
begin
i:=i+1;
table1.Delete;

end;
table1.Next;
if table1.Eof then
begin
Animate1.Active:=false;
StaticText1.Caption:='';
StaticText1.Caption:='Τ'+inttostr(i)+'眎礚