第三节 使用视图 - 尝试二
那么,是不是在这种情况下视图是没有用处呢? 你是不是要向它们投降了? 而不准备进行更多尝试了。上面的问题是视图是由两个表组成,而且你没有控制 Visual FoxPro 如何插入或更新记录。在图书馆数据库方案中,有一些你必须遵循的特殊规则。
作为一个可选的方法,表单 MEMBVEW2.SCX 使用三个视图而不是两个。视图 vMemberTable,vAdultTable 和 vJuvenileTable 都是基于单个的 SQL Server 表。
载入表单
表单仍然是以无数据方式打开。三个视图都是以 NoData 选项打开并设置为开放式行缓存。
三个视图都基于想同的共享连接。视图的 ConnectHandle 属性保存着视图使用的连接的句柄该句柄将会被立即使用。
* 视图使用的连接句柄是什么?
ThisForm.nHandle = CursorGetProp("ConnectHandle", ;
"vMemberTable")
定位一个成员
当用户想要查看一个新的成员的信息时,他们仍然需要提供一个 member ID 并按下 Locate。该表单中的代码与早期版本稍稍不同的是,Member 视图首先被 requery。如果没有找到记录你立即知道 ID 是无效的。Adult 视图其次被 requery。如果没有找到记录则成员肯定是一个少年。
保存修改
在早期版本的表单中,当用户按下 Save时,简单地发布一条 TableUpdate()。正象你所看到的一样,对于特定结构的表那是不够的。该版本的表单采用了一种更复杂但更成功的方法。如果用户当前添加了一条记录,保存按钮的 Click 事件代码的前半段将运行。
If ThisForm.lAddMode = .T.
Wait Window "保存新成员信息..." NoWait
代码首先添加新成员到 Member 表。然后添加一条记录到 Adult 表。两个表都可能添加一条新记录,也可能都不添加。因此必须启动一个事务处理。连接的 Transactions 属性用于控制事务处理过程。在表单的 Load 方法中,保存了视图的连接句柄到表单的 nHandle 属性中。SQLSetProp() 使用它来启动一个事务处理。
* 开始一个事务处理
= SQLSetProp(ThisForm.nHandle, "Transactions", 2)
vMemberTable 视图被选定并发布一条 TableUpdate()。若无问题则新成员的名字信息已添加到 Member 表中。并且成员会有一个成员 ID。如果 TableUpdate() 失败用户会看到发生了什么事并用 SQLRollback() 函数回滚事务处理。
* 添加新成员到 member 表
Select vMemberTable
If Not TableUpdate()
ThisForm.ShowError
* 回滚事务处理
= SQLRollback(ThisForm.nHandle)
Return
Endif
如果 TableUpdate() 成功则添加一条新记录到 Member 表中。接着是找出分配了什么成员 ID。SQLExec() 用于发送一条 Select 语句到 SQL Server。该 Select 取回 @@Identity 的值, 它保存了最后插入到表中的 Identity 值。在我们的情况下是成员 ID。SQLExec() 使用视图使用的相同的连接句柄。这是有效的,因为它不需要另一个与 SQL Server 的连接。
* 找出新成员的 member_no
If SQLExec(ThisForm.nHandle, "Select @@identity")< 0
<略去的代码>
在 vAdultTable 视图中的 member_no 被 @@Identity 的值替换。这强制保持 Member 与 Adult 表间的关系。注意这包括了修改 Adult 表的主关键字段。没有其它选择。该成员的终止日期设置为从本日起一年的时间,并用TableUpdate() 来保存该信息到 Adult 表。如果发生错误事务处理回滚。这会删除 Member 表中的记录。
* 添加新成员到 adult 表
Select vAdultTable
* member_no 是主关键字但因足够的理由在视图中更新。
* 终止日期是从今日起一年时间。
Replace member_no With sqlresult.exp, ;
expr_date With DToT(GoMonth(Date(),12))
If Not TableUpdate()