dbExpress 设计问题

Question

有没有人知道（或想知道）为什么 TSqlDataset 有一个 commandtext 属性（字符串）而 TSqlQuery 有一个 sql 属性（tstrings）？

考虑sql语句

select id, name from
table
order by name

如果我使用 TSqlQuery，那么我可以通过访问 sql[1] 动态更改查询中的表名，但如果我使用的是 TSqlDataset（如果我需要双向数据集，我必须这样做，数据集是连接的到提供者，然后到 tclientdataset），我必须逐字设置命令文本字符串。虽然上面的例子是微不足道的，但当 sql 语句涉及更多时，它可能是一个问题。

更新： 从到目前为止的cmets和答案来看，我似乎被误解了。我不太关心提高组件的运行时性能（当查询需要一秒钟时，一毫秒有什么关系），但我确实关心程序员（即我）和维护程序的能力。在现实生活中，我有以下存储在 TSqlQuery 中的查询：

select dockets.id, dockets.opendate, customers.name, statuses.statname,
dockets.totalcost, dockets.whopays, dockets.expected, dockets.urgent,
(dockets.totalcost - dockets.billed) as openbill,
(dockets.totalcost - dockets.paid) as opencost,
location.name as locname, dockets.attention,
statuses.colour, statuses.disporder, statuses.future, dockets.urgcomment
from location, statuses, dockets left join customers
on dockets.customer = customers.id
where dockets.location = location.id
and dockets.status = statuses.id

我没有计算字符串中的字符数，但我确定超过 255 个，因此排除了将查询存储在简单字符串中。在某些情况下，我想通过添加行“and statuses.id = 3”或“and customers.id = 249”来过滤显示的数据量。如果查询存储为 TStrings，那么我可以在基本查询中添加虚拟行“and 1 = 1”，然后根据需要更新该行。但是查询是一个长字符串，我无法轻松访问它的结尾。

我目前正在做的（代替更好的解决方案）是创建另一个 TSqlDataSet，并将其命令文本设置为默认的 TSqlDataSet 的命令文本，同时附加额外的条件。

Answer 1

1) TSQLQuery 是为了与 BDE TQuery 兼容。 BDE TQuery 具有SQL: TStrings 属性。 TSQLDataSet 应该用于新应用程序。

2) 虽然SQL: TStrings 对某些任务很有用，但它也容易出错。程序员经常忘记在再次填充之前清除 SQL 属性。此外，如果您的查询很大，SQL 的填充可能会导致性能下降。因为在每个SQL.Add(...) 调用 dbExpress 代码都会在 ParamCheck 为 True 时解析查询。这可以通过使用BeginUpdate / EndUpdate 或将 ParamCheck 设置为 False 来解决。但请注意，将 ParamCheck 设置为 False 会停止自动创建参数。

SQLQuery1.SQL.BeginUpdate;
try
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add('SELECT * FROM');
  SQLQuery1.SQL.Add('Orders');
finally
  SQLQuery1.SQL.EndUpdate;
end;

CommandText 没有此类问题。

3) 您可以使用Format 函数来构建动态SQL 字符串：

var
  sTableName: String;
...
sTableName := 'Orders';
SQLDataSet1.CommandText := Format('select * from %s', [sTableName]);

4) 其他数据访问库，如AnyDAC，有macro variables，简化了动态查询文本构建。例如：

ADQuery1.SQL.Text := 'SELECT * FROM &TabName';
ADQuery1.Macros[0].AsRaw := 'Orders';
ADQuery1.Open;

Answer 2

我不得不说 TSqlQuery 使用 TStrings（Delphi 2010 中的 TWideStrings），因为它更加灵活。

假设您的查询是：

Select
Item1,
Item2,
Item3,
Item4
FROM MyTable

• 它更容易阅读
• 您可以复制并粘贴到外部查询工具中，它保持格式不变
• 注释部分很容易

Select
Item1,
/*
Item2,
Item3,
*/
Item4
FROM MyTable

• 您可以轻松添加项目

Select
Item1,
Item2,
Item2a,
Item2b,
Item3,
Item3a,
Item3b,
Item4
FROM MyTable

尝试对一组连续的字符执行此操作，这些字符永远在一个长行中，并且在编辑窗口内没有换行符，该编辑窗口总是很小，无法查看，不允许包装文本等等等。

只需 0.02 美元。