if Application.Messagebox('确认要删除吗?', '系统提示你', MB_OKCancel+MB_ICONInformation)=idok then
begin
try
With DM.Query_BaseInfo Do
Begin
Close;
SQL.Clear;
SQL.Add('Delete From BaseInfo Where Gtin=:Gtin_name');
ParamByName('Gtin_Name').AsString:=edit1.Text ;
Prepare;
ExecSQL;
Application.Messagebox('删除数据信息成功', '系统提示你', MB_OK+MB_ICONERROR);
// Exit;
End;
except On E:Exception Do
Begin
Application.Messagebox('删除数据信息失败', '系统提示你', MB_OK+MB_ICONERROR);
Exit;
End;
end;
end
else
begin
Abort;
end;
功能是可以实现(数据可以被删除,可是表却被关闭后打不开了,所以就会出现异常情况。
begin
try
With DM.Query_BaseInfo Do
Begin
Close;
SQL.Clear;
SQL.Add('Delete From BaseInfo Where Gtin=:Gtin_name');
ParamByName('Gtin_Name').AsString:=edit1.Text ;
Prepare;
ExecSQL;
Application.Messagebox('删除数据信息成功', '系统提示你', MB_OK+MB_ICONERROR);
// Exit;
End;
except On E:Exception Do
Begin
Application.Messagebox('删除数据信息失败', '系统提示你', MB_OK+MB_ICONERROR);
Exit;
End;
end;
end
else
begin
Abort;
end;
功能是可以实现(数据可以被删除,可是表却被关闭后打不开了,所以就会出现异常情况。
解决方案 »
- AB RSLink 参数
- 程序运行没问题,提示 unable to invoke code completion due to errors in source code ?怎么解决
- 请问哪位大侠有关于编程绘制人体模型的源代码呀(最好是delphi的)
- 关于用dspack2.3中的directshow做播放器的问题?高手请进!!!!
- 对数据模块的疑问
- 有关QuickRep的几个问题
- 求 Delphi XE2 能用的 InfoPower 和 1stClass 控件
- 在Delphi中程序实现数据库表导成数据库脚本
- 怎么这种功能?有人会么?
- cxgrid复杂表头实现
- 读 存 取WORD模板,应用程序执行的时间长,速度慢!
- 第一次用quick report ,问一个简单的问题。
你说的对,我是用它来显示数据,依你的办法怎么说呢,
JoeSong(蓝血人)仁兄:
是不是要
Query_Base:TQuery;
Query_base:TQuery.Create(self);
Query_base.DatabaseName:='';
Query_base.clear;
Query_base.sql.clear;
Query_base.sql.add();
然后就执行以下的程序,是吗?
Query_base := TQuery.Create(self);
Query_base.DatabaseName:='';
Query_base.close; //这里是Close
Query_base.sql.clear;
Query_base.sql.add();