“密钥违规” ClientDataSet 中的自动增量字段 [Delphi]

Question

这是我的第三个问题，到目前为止，回复很好^^

我在浏览、编辑数据方面没有任何问题，但插入......

这是我的疑问： 在财务/股票软件中，我有一个用于创建新订单的表格，
当然，我需要在 t_orders 表中插入新行
并在 t_orderitems 表中插入项目，其中 orderId 字段链接到 t_orders 中的行

CREATE TABLE `t_orders` (
    `orderId` INT(10) UNSIGNED NOT NULL AUTO_INCREMENT,
    `clientId` INT(10) UNSIGNED NOT NULL,
    ...)

CREATE TABLE `t_orderitems` (
    `orderitemId` INT(10) UNSIGNED NOT NULL AUTO_INCREMENT,
    `orderId` INT(10) UNSIGNED NOT NULL,
    ...)

--> INDEXES AND FOREIGN KEYS OMITTED <--

如何将 itemorders 添加到网格并最终添加到“FinalizeOrder”中按钮 单击

• 在 t_orders 中创建订单
• 在链接到该订单的 t_orderitems 中插入

项目 使用 ADO 建立连接。

我不确定是否可以这样做，那么我应该怎么做？

编辑：我尝试使用嵌套的 ClientDataSets，它可以部分工作，但我仍然不知道如何获取插入的订单 ID

edit2:
现在我遇到了另一个问题，我无法将多个项目添加到 ClientDataSet 中。
因为 OrderItemId 对于所有项目都是空的（我只能在数据库插入时获取该值），所以当我尝试添加第二个项目时，它会给我密钥冲突，有什么想法吗？？

如果我将 Updatemode 设置为某项与 upWhereKeyOnly 不同并将 pfInKey 设置为 False 它可以工作，但我不认为这是一个选项

有什么想法吗？

提前致谢！
亚瑟.

Answer 1

我假设您有一个 ADO 数据集，可以从数据库获取数据并链接到网格？你需要做的是一个中间层。

创建一个 TClientDataset 并将其连接到 ADO 数据集，然后将网格连接到客户端数据集。当收到新订单时，对客户端数据集调用 Append 并将新订单的数据插入其中。这将使其显示在网格上。当您想要将更改保存到数据库时，请在客户端数据集上调用.Update。它将使用链接到的 ADO 数据集将更新发送到数据库。查看 TClientDataset 上的文档，了解如何设置这一切的说明；这是最近版本中为数不多的真正有很好记录的内容之一。

要更新多个表，请查看有关主/详细信息关系的文档，并使用两个像这样相互链接的数据集。

Answer 2

如果您在应用程序中的两个数据集之间建立主从关系，ADO 可以自动处理它。这意味着，一旦您向主数据集（orders）插入新记录，您就可以在详细数据集（order_items）中插入新记录，而无需指定 order_id，因为主数据集中当前记录的 order_id 将被自动检索，并且插入新插入的详细信息数据集记录中。

要在数据集之间建立主/详细关系，如果您使用 AdoTable 作为详细数据集，则可以将其 MasterSource 设置为连接到主数据集的数据源，并使用 MasterFields 属性定义两个数据集之间的关系。
如果您使用 AdoDataset 或 AdoQuery，则应将详细数据集中的 DataSource 属性设置为连接到主数据集的数据源。然后，您必须使用与主数据集中的关键字段同名的 SQL 参数在详细数据集的 SQL 语句中添加 WHERE 子句。在您的情况下，它会是这样的：

SELECT * FROM t_orderitems WHERE OrderID = :OrderID

现在您可以在详细数据集的 MasterFields 属性中设置关系。

由于您的订单可以有多个商品，因此您可以在详细数据集 (order_items) 中将 LockType 设置为 ltBatchOptimistic，这样一旦插入新商品，就不会立即将其发送到数据库。使用 ltBatchOptimistic 意味着您的更改将暂时保存在客户端内存中，直到您调用 UpdateBatch 方法。 UpdateBatch 将所有更改发送到数据库。

如果要取消订单，则必须调用 CancelBatch 方法取消对明细数据集的修改，并手动删除主数据集中已创建的订单记录。

Answer 3

谢谢 RRUZ，这并不完全是我想要的（我仍然必须在插入之前手动设置所有 orderitems OrderId），但会这样做

with DataModule1.ADOQuery1 do
begin
  SQL.Text := 'SELECT LAST_INSERT_ID()';
  Open();
  First();
  LastInsertId := Fields[0].Value;
  Close();
end;

Answer 4

已解决 http://edn.embarcadero.com/article/20847