在delphi中修改语句

2025-05-19 02:49:32
推荐回答(2个)
回答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;

回答2:

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

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

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

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