新手刚学习,要实现的功能是把我更新后的数据显示在edit里面搞了半天学会了更新,显示就不知道怎么弄了。需要那些控件,怎么写
下面是更新的代码,控件就只有几个Edit跟ADOConnection1
procedure TForm1.Button2Click(Sender: TObject);
var
  SQLs:string;
  sSQL1: String;
begin
if (trim(Edit2.Text) <> '') or (trim(Edit2.Text) <>'')or(trim(Edit2.Text)<>'') then
begin
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('更新完成');end;
end;