unit1.~pas

用友u821出库单的金额计算有时会出错。正数量与正单价相乘结果为负数。所以经常要手工在库中修改。此软件可以自动修改金额。由此软件中可以看出如何连接到用友的数据库。以及如何修改不正确的计算结果。

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    d1: TDateTimePicker;
    d2: TDateTimePicker;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
application.Terminate ;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var  sdate1,sdate2:string;
begin
sdate1:=datetostr(d1.DateTime);
sdate2:=datetostr(d2.DateTime);

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('update Rdrecords');
adoquery1.SQL.add(' Set iPrice=a.iUnitCost*a.iQuantity   From Rdrecords a,Rdrecord b   where a.Id=b.Id and b.bRdFlag=0 and b.dDate>='
        + ''''+sdate1+''''+' and b.dDate<='+''''+sdate2+'''');
adoquery1.ExecSQL ;
showmessage('操作已成功完成');

end;

end.