首先你要在修改窗体布局你要修改内容的组件如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;
修改窗体为form2,数据集为table1
//创建修改窗体
form2:=tform2.Create(application);
//取出记录中的各条记录到修改控件......
form2.rqsr.Date:=table1.fieldbyname('日期').asdatetime;
//......
//显示修改窗体
form2.showmodal;