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

zhangzhen_927116 2010-12-28 11:16:15

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.