if not UniMainModule.qryTypeCount.IsEmpty then
begin
UniMainModule.TypeCountSQL.Execute; //清空分类表,
//当用delete进行删除数据表记录时,用Query控件会提示SQL statement doesn't return rows,因为delete不能返回结果。所以用UniSQL控件解决问题。直接用上面这句可以正常运行,用下面这样就不行,不知道为什么?
with UniMainModule.TypeCountSQL do
begin
Close;
SQL.Clear;
SQL.Add('DELETE FROM typecount');
Execute; //提示非法操作,会话中断,程序直接运行不起来。
end;
end;
//while UniMainModule.qryTypeCount.RecordCount <> 0 do
{with UniMainModule.qryTypeCount do
begin
Close;
SQL.Clear;
SQL.Add('DELETE FROM typecount');
//Execute;
//Open;
end; }
end;