6

我是 Delphi 中数据库和 db 的新手，通过在线教学材料了解两者。我正在努力解决现实生活与我找到的例子之间的差异。具体来说，考虑常见的 Books 和 Authors 多对多关系。假设您有一个 Book 表（book_id、book_title 等）、一个 Author 表（author_id、author_name 等）和一个 AuthorBook 连接表。所有三个表都将具有唯一的 ID，自动生成，作为主键。

示例始终以已插入各自表中的作者和书籍信息开头。但是，在现实生活中，我认为您会尝试同时将记录插入两个表中，即，用户会看到一个表单或网格，其中包含输入书名及其作者的位置。假设数据感知控件、底层 Access 数据库（或其他可通过 SQL 更改的东西），如何在 Delphi 中编写类似的代码？

4

2 回答 2

7

如果您从这些表格开始。. .

create table books (
  book_id integer primary key,
  book_title varchar(15) not null
);

create table authors (
  author_id integer primary key,
  author_name varchar(15) not null
);

create table book_authors (
  book_id integer not null references books (book_id),
  author_id integer not null references authors (author_id),
  primary key (book_id, author_id)
);

. . . 如果你需要同时插入一本新书和一个新作者，你可以像这样执行一个 SQL 事务。

begin transaction;
insert into books values (1, 'First book');
insert into authors values (1, 'First author');
insert into book_authors (book_id, author_id) values (1, 1);
commit;

使用单个事务可以保证所有三个插入都写入数据库，或者一个都不写入。替代品是

  • 在数据库中构建一个可更新的视图，连接所有三个表，并插入到视图中，
  • 在数据库中编写存储过程，并通过存储过程插入，以及
  • 分别插入到每个表中，这假设即使您不知道作者，这本书的存在也很重要，反之亦然。（这可能是我为书籍和作者所做的。）

如果您要为现有作者添加新书，您将执行稍有不同的事务。

begin transaction;
insert into books values (2, 'Second book');
insert into book_authors (book_id, author_id) values (2, 1);
commit;

我想 Delphi 就像这里的任何其他客户端语言一样。您将引用数据感知控件的某些属性，而不是文字整数，可能是“值”或“文本”属性。您将在按钮的“单击”事件中执行事务。

如果 Delphi 足够“数据感知”——使用绑定到数据库中的列和行的控件，比如 Access 的本机控件——你可能不需要执行任何 SQL 或做任何特殊的事情来保存任何自动 ID 号到 dbms生成；它将可以通过控件的属性之一访问。（Access 的表单和控件具有高度的数据感知能力；这就是它们的工作方式。）但是，如果您必须这样做，并且您正在使用 Microsoft 的 OLEDB 提供程序来访问 Access，您可以使用它select @@identity来获取通过您的连接使用的最后一个 ID 号。

于 2012-06-17T19:42:53.797 回答
1

如果使用 SQL，请执行以下操作（伪代码）

startTransaction;
INSERT INTO Book VALUES('Book1');
bookID:=SELECT LastAutoInc FROM #Dummy;
INSERT INTO Author VALUES('Author1');
authorID:=SELECT LastAutoInc FROM #Dummy;
INSERT INTO BookAuthor VALUES(bookID, autherID);
commit;

关键是在事务LastAutoInc中使用函数（或数据库中的等效函数）。

于 2012-06-18T01:06:42.143 回答