求助，
刚学中用DELPHI写了一个简单的数据增加、修改、删除的小程序，
遇到一些问题，请高手帮我解决一下，
实现功能：
1　查询，按不同数据段查询（此项功能已实现）
2　选添加，按确定则添加一个记录，（问题：按确定重复写了两条记录）
3 　选修改　按确定则修改其中记录，（按确定没有作用）
4 　删除，则删除其中记录，(可能程序没有写好，没有实现，帮我看看程序哪个不对，帮我改一下)
源程序用附件传上来：请高手帮我改改，实现数据增加、修改、删除功能，传到这里就行了，谢谢各位达人
另外，我想问一个我用的是ACCESS建的数据库，如用SQL在数据读写上有哪些不一样的

传上来，让别人帮你看看。

我可以回答你的问题！

但是这种问题最好是不要问，还是自己想比较好，都是一些比较简单的问题！～好了不说废话了，我给你说你错在那里了！～
1，问题：按确定重复写了两条记录

你用SQL语句这样写！～adoquery.sql.add(select * from 表格)

然后赋值给数据库字段！

4 　删除，则删除其中记录！～

要删除必须先得到这个数据的ID才能删除

知道怎么得到ID吗？

我给你一段代码你看看！

//删除选中的记录
procedure TForm1.Button3Click(Sender: TObject);
var
str:string;
iid:string;
begin
//得到dbgrid某行记录的id
iid:=dm.ADOQuery3.fieldbyname('yh_id').asstring;
if id_no=application.MessageBox(pchar('真的要删除ID='+iid+'数据吗？'),'确认信息',mb_YesNo) then
exit;
try
Dm.ADOQuery1.Close;
Dm.ADOQuery1.SQL.Clear;
str:='delete from yh_table where yh_id='+iid;
Dm.ADOQuery1.SQL.Add(str);
Dm.ADOQuery1.ExecSQL;
showmessage('数据删除成功');
//在dbgrid中显示数据
dm.ADOQuery3.Close;
dm.ADOQuery3.SQL.Clear;
dm.ADOQuery3.SQL.Add('select * from yh_table');
dm.ADOQuery3.Open;
except
end;
end;

谢谢达人，