dan_ju_shuo.pas

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

unit dan_ju_shuo;

interface

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

type
  Tdan_ju_shu = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Table1: TTable;
    Table2: TTable;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dan_ju_shu: Tdan_ju_shu;

implementation

{$R *.dfm}

procedure Tdan_ju_shu.Button1Click(Sender: TObject);
var tei_date:Tdatetime;xx,www,rr,rr1,rr2,rr3:string;
begin
//
table1.First;
while not table1.Eof do begin
xx:=table1.FieldByName('yes_or_shou').AsString;
www:=table1.FieldByName('qing_gou_computerno').AsString;
rr1:=midstr(www,6,2);
rr2:=midstr(www,8,2);
rr3:=midstr(www,2,4);
rr:=rr3+'/'+rr1+'/'+rr2;
tei_date:=strtodate(rr);
if  ((xx='