当前位置: 代码迷 >> Delphi >> 初学者写的程序帮忙看下哪里出错的
  详细解决方案

初学者写的程序帮忙看下哪里出错的

热度:5588   发布时间:2013-02-25 00:00:00.0
菜鸟写的程序帮忙看下哪里出错的

Delphi(Pascal) code
unit Unit1;interfaceusesWindows, 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;beginif (trim(Edit2.Text) <> '') or (trim(Edit2.Text) <>'')or(trim(Edit2.Text)<>'') thenbeginsSQL :='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;beginif (trim(Edit13.Text) <> '') or (trim(Edit14.Text) <>'')or(trim(Edit15.Text)<>'') thenbeginsSQL2 :='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.
  相关解决方案