注册 登录
编程论坛 Delphi论坛

求助,刚学用DELPHI写了一个简单的数据增加、修改、删除的小程序,没有实现

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

3 回复
#2
ysp_19842006-04-11 09:12

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

#3
yuxue19852006-04-13 10:43

我可以回答你的问题!

但是这种问题最好是不要问,还是自己想比较好,都是一些比较简单的问题!~好了不说废话了,我给你说你错在那里了!~
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;

#4
s_a_p_2006-04-17 16:54

谢谢达人,

1