Question

在delphi中修改语句

在delphi中修改一条记录，点击修改按钮后，跳出另一个窗体进行修改 ，代码如何编写，请大神们给我详细点的答案，不要光说原理，我理解不了

Answer 1

首先你要在修改窗体布局你要修改内容的组件如edit1,edit2,edit3等再添加确定修改按钮Button1然后添加Query1组件。将Query1连接到你的数据库。点击确定修改按钮后添加如下代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close ;
Query1.SQL.Clear ;
Query1.SQL.Text:='update 需要修改的表.DB set 修改内容=:a , 修改内容=:b where 条件=:tiaojian';
Query1.ParamByName('tiaojian').Value:=Edit1.Text ;
Query1.ParamByName('a').Value:=Edit2.Text ;
Query1.ParamByName('b').Value:=Edit3.Text;
Query1.ExecSQL ;
showmessage('修改成功');
end;

Answer 2

修改窗体为form2，数据集为table1

//创建修改窗体
form2:=tform2.Create(application);

//取出记录中的各条记录到修改控件......
form2.rqsr.Date:=table1.fieldbyname('日期').asdatetime;
//......

//显示修改窗体
form2.showmodal;