新手刚学习,要实现的功能是把我更新后的数据显示在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;
下面是更新的代码,控件就只有几个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;
解决方案 »
- 悲摧了,问问题没人理,自己解决,帖子还不能取消,大家来领分啊
- 个人比较棘手问题,请大家都来思考。。。
- 求sql语句???
- combobox组件能一下选择2个以上值吗?
- 通过程序来更改本机的工作级名称!高手高高手一定要相助啊(附源码)
- 怎么样实现重起和关机?
- 俺是初学者,求教各位大侠…………在线等候!!!
- 招Delphi程序员,地点:广州
- 100分 如何在系统找一个进程。加急!!!加急!!!加急!!!我想加很多的分可系统只让我加100
- delphi中delphi中Left side cannot be assigned to
- 如何在WebBrowser中判断默认网页是否打开(或存在),否则,打开指定的网页
- BDGRID控件中,如何获取,我当前点击的行和列
再用几个DBEDIT显示值
就OK了