小弟要删除数据库中的记录,具体语句如下:
procedure TForm1.Button2Click(Sender: TObject);
var a,b,c,d,e,f,g:string;
begin
if (not query1.Eof) then
begin
if application.MessageBox('是否要删除此纪录?','提示',mb_okcancel)=1 then
begin
with query1 do
begin
a:=fieldbyname('recmac').AsString;
b:=fieldbyname('rectime').AsString;
c:=fieldbyname('recstr').AsString;
d:=fieldbyname('spname').AsString;
e:=fieldbyname('isexe').AsString;
f:=fieldbyname('isCancle').AsString;
g:=fieldbyname('isreturn').AsString;
close;
sql.Clear;
sql.Add('delete from SpLogin where recmac=:a and rectime=:b and recstr=:c and spname=:d and isexe=:e and iscancle=:f and isreturn=:g');
parambyname('a').AsString:=a;
parambyname('b').AsString:=b;
parambyname('c').AsString:=c;
parambyname('d').AsString:=d;
parambyname('e').AsString:='';
parambyname('f').AsString:='';
parambyname('g').AsString:='';
execsql
open;
end end
end
else showmessage('没有可删除的记录')
end;
其中IsExe,IsCancle,IsReturn的值为bit型,希望各位大哥能帮小弟结决,小弟下午要交!!
procedure TForm1.Button2Click(Sender: TObject);
var a,b,c,d,e,f,g:string;
begin
if (not query1.Eof) then
begin
if application.MessageBox('是否要删除此纪录?','提示',mb_okcancel)=1 then
begin
with query1 do
begin
a:=fieldbyname('recmac').AsString;
b:=fieldbyname('rectime').AsString;
c:=fieldbyname('recstr').AsString;
d:=fieldbyname('spname').AsString;
e:=fieldbyname('isexe').AsString;
f:=fieldbyname('isCancle').AsString;
g:=fieldbyname('isreturn').AsString;
close;
sql.Clear;
sql.Add('delete from SpLogin where recmac=:a and rectime=:b and recstr=:c and spname=:d and isexe=:e and iscancle=:f and isreturn=:g');
parambyname('a').AsString:=a;
parambyname('b').AsString:=b;
parambyname('c').AsString:=c;
parambyname('d').AsString:=d;
parambyname('e').AsString:='';
parambyname('f').AsString:='';
parambyname('g').AsString:='';
execsql
open;
end end
end
else showmessage('没有可删除的记录')
end;
其中IsExe,IsCancle,IsReturn的值为bit型,希望各位大哥能帮小弟结决,小弟下午要交!!
解决方案 »
- 分辨浏览器输入url,如果是汉字就zh转到百度搜索
- 希望就一个算法讨论一下!估计最好的结果是没有结果,但是有一些好的想法提出来
- 急!用delphi打开Excel文件,修改后,在Delphi中如何保存????
- 一个线程函数供多个createThread()使用,这样设计有没有错?
- 大家帮忙
- 哪里有<<Delphi6从入门到精通>>的电子图书下载?
- 有没有宁波的朋友? 欢迎进来聊聊。
- 巨简单请看看如何添加删除,修改
- >>>>关于Image字段的一些问题的困惑《〈〈〈〈〈
- 字段加密??马上给分 在先等待!!!!!!!!!!!!!
- 关于在sql2000中输入汉子的问题急急急!
- csdn里blog用法?
begin
if application.MessageBox('是否要删除此纪录?','提示',mb_okcancel)=1 then
begin
with query1 do
begin
Delete;
end;
end;
end
else showmessage('没有可删除的记录')
end;
用soundbug(兼职乞丐) 的方法不是很好吗?
query1.first;
while not query1.eof do
query1.delete;
我才用苯办法的
你的意思我不太明白!