菜鸟写的程序帮忙看下哪里出错的

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, wwdbedit;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ADOConnection1: TADOConnection;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button3: TButton;
    Button4: TButton;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    GroupBox2: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Button5: TButton;
    Button6: TButton;
    ADODataSet1: TADODataSet;
    wwDBEdit1: TwwDBEdit;
    wwDBEdit2: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    wwDBEdit4: TwwDBEdit;
    wwDBEdit5: TwwDBEdit;
    wwDBEdit6: TwwDBEdit;
    wwDBEdit7: TwwDBEdit;
    wwDBEdit8: TwwDBEdit;
    wwDBEdit9: TwwDBEdit;
    wwDBEdit10: TwwDBEdit;
    wwDBEdit11: TwwDBEdit;
    wwDBEdit12: TwwDBEdit;
    wwDBEdit13: TwwDBEdit;
    wwDBEdit14: TwwDBEdit;
    wwDBEdit15: TwwDBEdit;
    wwDBEdit16: TwwDBEdit;
    ADODataSet2: TADODataSet;
    procedure Button2Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
  sSQL: String;
  sSQL1: String;
begin
if (trim(Edit2.Text) <> '') or (trim(Edit2.Text) <>'')or(trim(Edit2.Text)<>'') then 
 
begin

sSQL :='update MAINAN SET VEN=''' + Edit2.Text + ''',CUR=''' + Edit3.Text + ''' WHERE PANNO=''' + Edit1.Text + '''';
ADOConnection1.Execute(sSQL);
  ShowMessage('上表更新完成');


sSQL1 :='UPDATE ANT SET VEN=''' + Edit2.Text + ''',CUR=''' + Edit3.Text + ''' , RATE=''0'',TAXUP=(SELECT round((TAXUP/1.17)/0.85,2) FROM ANT WHERE PANNO=''' + Edit1.Text + '''),UP=(SELECT round((TAXUP/1.17)/0.85,2) FROM ANT WHERE PANNO=''' + Edit1.Text + ''') WHERE PANNO=''' + Edit1.Text + '''' ;
ADOConnection1.Execute(sSQL1);
  ShowMessage('下表更新完成');

   ADODataSet1.CommandText:='select TAXUP,UP,RATE from ANT WHERE PANNO='''+Edit1.Text+'''';
   

    wwDBEdit1.Text:= ADODataSet1.FieldByName('TAXUP').AsString;
    wwDBEdit2.Text:= ADODataSet1.FieldByName('UP').AsString;
    wwDBEdit3.Text:= ADODataSet1.FieldByName('RATE').AsString;

end;
end;




procedure TForm1.Button6Click(Sender: TObject);
var
 sSQL2: String;
  sSQL3: String;
begin
if (trim(Edit13.Text) <> '') or (trim(Edit14.Text) <>'')or(trim(Edit15.Text)<>'') then
begin

sSQL2 :='UPDATE MAINPO SET VEN=''' + Edit14.Text + ''',CUR=''' + Edit13.Text + ''' WHERE PORNO=''' + Edit15.Text + '''' ;
ADOConnection1.Execute(sSQL2);
  ShowMessage('上表更新完成');


sSQL3 :='UPDATE POT SET VEN=''' + Edit14.Text + ''',CUR=''' + Edit13.Text + ''' , RATE=''0'',TAXUP=(SELECT round((TAXUP/1.17)/0.85,2) FROM ANT WHERE PANNO=''' + Edit15.Text + '''),UP=(SELECT round((TAXUP/1.17)/0.85,2) FROM ANT WHERE PANNO=''' + Edit15.Text + ''') WHERE PORNO=''' + Edit15.Text + '''' ;
ADOConnection1.Execute(sSQL3);
  ShowMessage('下表更新完成');

  ADODataSet2.CommandText:='select TAXUP,UP,RATE from ANT WHERE PANNO='''+Edit15.Text+'''';
  ADODataSet2.Active := true;

    wwDBEdit4.Text:= ADODataSet1.FieldByName('TAXUP').AsString;
    wwDBEdit5.Text:= ADODataSet1.FieldByName('UP').AsString;
    wwDBEdit6.Text:= ADODataSet1.FieldByName('RATE').AsString;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
       ADODataSet1.CommandText:='select TAXUP,UP,RATE,CUR,VEN FROM ANT WHERE PANNO='''+ Edit1.Text +'''';
       ADODataSet1.Active:=true;

      wwDBEdit7.Text:= ADODataSet1.FieldByName('VEN').AsString;
      wwDBEdit8.Text:= ADODataSet1.FieldByName('CUR').AsString;
      wwDBEdit9.Text:= ADODataSet1.FieldByName('TAXUP').AsString;
      wwDBEdit10.Text:= ADODataSet1.FieldByName('UP').AsString;
      wwDBEdit11.Text:= ADODataSet1.FieldByName('RATE').AsString;

end;

procedure TForm1.Button5Click(Sender: TObject); 
 
begin
       ADODataSet2.CommandText:='select TAXUP,UP,RATE,CUR,VEN FROM POT WHERE PORNO='''+ Edit15.Text +'''';
       ADODataSet2.Active:=true;

      wwDBEdit12.Text:= ADODataSet1.FieldByName('VEN').AsString;
      wwDBEdit13.Text:= ADODataSet1.FieldByName('CUR').AsString;
      wwDBEdit14.Text:= ADODataSet1.FieldByName('TAXUP').AsString;
      wwDBEdit15.Text:= ADODataSet1.FieldByName('UP').AsString;
      wwDBEdit16.Text:= ADODataSet1.FieldByName('RATE').AsString;
end;

end.

在运行的时候不会出错，但是再更新的时候报错了
错误信息是
[解决办法]
该回复于2011-01-05 09:02:42被版主删除