以下代码是统计一定条件的记录,显示在DBGRID中,第一次点击‘统计’按钮,没有问题,但第二次点击时数据库里的相关记录被删除了,为什么StatSQL:='Select dbo.T_CarManage.RecordID,dbo.T_CarManage.Card_code,dbo.T_CarManage.DriverId,dbo.T_CarManage.DriverName,dbo.T_CarManage.owner AS Expr1,'+
'dbo.T_CarManage.Allow1,dbo.T_CarManage.Allow2,dbo.T_CarManage.Allow3,dbo.T_CarManage.G_Team,dbo.T_Study.RecordID,dbo.T_Study.nianfen '+
'From dbo.T_CarManage INNER JOIN dbo.T_Study ON dbo.T_CarManage.RecordID=dbo.T_Study.RecordID Where T_Study.nianfen = '''+trim(edtyear.Text)+''''+
' and T_CarManage.G_team like '''+Trim(cbbteam.Text)+'%'''+
' and T_Study.daohui =''' +inttostr(RecNum)+'''';
SetAdoLink(adostart,StatSQL);//SQL语句连接数据库的函数
with adostart do
begin
first;
for i:=1 to recordcount do
begin
Id:=fieldbyname('RecordId').value;
SetAdoLink(adonumber,'select * from T_Study WHERE RecordId='''+ID+'''');
IF adonumber.RecordCount <>num then adostart.delete;
next;
end;
end;
'dbo.T_CarManage.Allow1,dbo.T_CarManage.Allow2,dbo.T_CarManage.Allow3,dbo.T_CarManage.G_Team,dbo.T_Study.RecordID,dbo.T_Study.nianfen '+
'From dbo.T_CarManage INNER JOIN dbo.T_Study ON dbo.T_CarManage.RecordID=dbo.T_Study.RecordID Where T_Study.nianfen = '''+trim(edtyear.Text)+''''+
' and T_CarManage.G_team like '''+Trim(cbbteam.Text)+'%'''+
' and T_Study.daohui =''' +inttostr(RecNum)+'''';
SetAdoLink(adostart,StatSQL);//SQL语句连接数据库的函数
with adostart do
begin
first;
for i:=1 to recordcount do
begin
Id:=fieldbyname('RecordId').value;
SetAdoLink(adonumber,'select * from T_Study WHERE RecordId='''+ID+'''');
IF adonumber.RecordCount <>num then adostart.delete;
next;
end;
end;
解决方案 »
- SQL操作的问题
- 帮忙看看 fastreport 页脚合计问题
- 最好的数据库解决办法,库存,来者都有分,问题好的得100
- 树型checkbox设置权限问题
- 想找几个专业的好友,一起交流学习学习
- 对与Oracle数据库来说是用BDE好还是用ADO好?
- 为什么delphi6的qreport不能调整打印线的宽度,在线等候,答对给50分
- 怎样把delpi做的程序封装成一个类或做成一个模板可以被别人继承
- Delphi我想写一段很长是数进变量~那变量类型要用什么啊?
- 请问Delphi的Form有没有类似VB的一开始显示的位置的属性选择,屏幕居中或所有者居中,还有Delphi的copy paster cut 为什么不是ctrl+c ctrl+v ctrl+x,能改吗?
- indy delphi6可以上传XML文件吗?
- 如何确定一个弹出窗口关闭后再执行其他操作?
改改你的设计吧