Question

delphi与数据表之间修改和删除的操作

第一步：我数据库表中有ID,name,sex,三个字段，ID是自增+1的，我在From1界面中分别放了，edit1，edit2，edit3，三个编辑框和一个Button1按钮，edit1对应ID，edit2对应name,edit3对应sex,我想在edit1中输入ID，按button1按钮edit2和edit3会显示数据表中雨ID对应的一条内容！//第一步已经完成了！第二部：更具第一步输入ID显示name和sex字段的内容到edit2和edit3中，我想在放两个按钮进去，实现修改和删除的功能！请问怎么操作！？

Answer 1

第一步的答案已经和你说了。。。继续上面那部的设置。。放2个按钮。一个修改。一个删除 procedure TForm1.Button2Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 你的表 where ID='''+edit1.Text+'''');
open;
if eof then
application.MessageBox('无法找到输入所ID的信息','提示信息')
else
begin
close;
sql.Clear;
sql.Add('update 你的表 set name='''+edit2.Text+''',sex='''+edit3.Text+''' where id='''+edit1.Text+'''');
execsql;
end;
end;
end;
修改按钮。。先判断是否存在这个ID.。然后进行修改 procedure TForm1.Button3Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from 你的表 where ID='''+edit1.Text+'''');
open;
if eof then
application.MessageBox('无法找到输入所ID的信息','提示信息')
else if messagedlg('确定要删除吗',mtconfirmation,[mbyes,mbno],0)=6 then
begin
close;
sql.Clear;
sql.Add('delete from 你的表 where ID='''+edit1.Text+'''');
execsql;
end;
end;
end; 删除键。。OK、、下班。。哈哈