第二节 使用视图 - 尝试一
第一种创建图书馆应用程序的方法是使用远程视图。视图易于设置，可以参数化，因此可以一次只返回一个或少量的记录，支持行缓存和表缓存以及事务处理。拥有这些内置的能力，只有在疏忽的的情况下你才不会考虑使用视图来创建客户服务器应用程序。
视图
在图书馆数据库中(Visual FoxPro 版) 你可以找到远程视图 vAdultMember 和 vJuvenileMember。下面的 SQL 语句用于定义这两个视图：
SELECT Member.member_no, Member.lastname, Member.firstname, ; Member.middleinitial, Adult.street, Adult.city, ; Adult.state, Adult.zip, Adult.phone_no, Adult.expr_date ;FROM dbo.adult Adult, dbo.member Member ;WHERE Adult.member_no = Member.member_no ; AND Member.member_no = ?nMemberIDSELECT Member.member_no, Member.lastname, Member.firstname, ; Member.middleinitial, Juvenile.adult_member_no, ; Juvenile.birth_date, Adult.street, Adult.city, Adult.state, ; Adult.zip, Adult.phone_no, Adult.expr_date ;FROM dbo.adult Adult, dbo.juvenile Juvenile, ; dbo.member Member ;WHERE Adult.member_no = Juvenile.adult_member_no ; AND Juvenile.member_no = Member.member_no ; AND Member.member_no = ?nMemberID
两个视图是非常直截了当的。成员的名字在 Member 表中地址在 Adult 表中。少年的出生日期和担保人可以在 Juvenile 表中找到。两个视图基于相同的连接,并确定各表的主关键字、标记其它字段是可更新的以使它们是可修改的。这些出现在视图设计器中的更新条件标签中。
载入表单
表单 MEMBVIEW.SCX 使用了这两个视图。以下是表单的 Load 方法代码。因为两个视图是用 NoData 选项打开,所以表单最初没有载入数据。然后设置视图游标为开放式行缓存。
Open Database libraryUse vAdultMember In 0 NoData= CursorSetProp("Buffering", DB_BUFOPTRECORD, ; "vAdultMember")Use vJuvenileMember In 0 NoData= CursorSetProp("Buffering", DB_BUFOPTRECORD, ; "vJuvenileMember" 定位一个成员
用户可以输入一个成员的 ID 并按下定位按钮。这样做就向视图所需的参数 nMemberID 提供一个值。以下是定位按钮的 Click 事件代码：
nMemberID = Val(ThisForm.txtMemberID.Value)Select vAdultMember= ReQuery()If RecCount("vAdultMember") = 0 Select vJuvenileMember = ReQuery() If RecCount("vJuvenileMember") = 0 lcMessage = "设有该 ID 成员。" = MessageBox(lcMessage , MB_ICONINFORMATION)<略去的代码> 代码首先检查用户是否修改了数据。然后保存输入的 ID 到变量 nMemberID 中。Adult 视图首先被请求。如果没有找到该 ID 则请求 Juvenile 视图。如果没有找到该 ID 的记录则该 ID 是无效的。如果找到了则该成员的信息显示在表单中。
添加一个成员
当用户单击 Add 按钮时他们会得到一外空的表单。在用户按下 Save 按钮前记录并未被保存。Add 按钮的 Click 事件中的代码首先检查用户是否修改了当前成员的信息。如果没有记录改变则发布一个 TableRevert()。然后添加一个空记录到视图中并刷新表单。用户可以在空的记录上输入成员信息。当用户按政 Save 时，Visual FoxPro 将发送新的记录到 SQL Server。
保存修改
视图的一个好的功能是后端为你处理这些。TableUpdate() 函数用于保存对视图的修改到源表中。Visual FoxPro 自动处理这一点。以下是 Save 按钮的 Click 代码：
If TableUpdate() = MessageBox(lcMessage, MB_ICONINFORMATION)Else ThisForm.ShowErrorEndif
取决于当前成员是成年人或少年 ，vAdultMember 或 vJuvenileMember 视图被选定。然后发布一个 TableUpdate()。如果成功，数据被保存。否则向用户显示发生了什么问题。 注意因为使用了 TableUpdate()，它可以处理新添加的成员或对成员信息的修改。
删除一个成员
要删除后端上的一条记录只需在视图中删除它。以下是 Delete 按钮的 Click 事件代码：
Select (ThisForm.cViewInUse)DeleteIf TableUpdate() = MessageBox("This member has been deleted.", ; MB_ICONINFORMATION) Append Blank……Else ThisForm.ShowError =TableRevert()Endif 在询问用户确认删除选定视图的记录后，记录从视图中删除并发布 TableUpdate() 。如果成功，记录从后端删除。否则，向用户显示错误原因。
问题
Visual FoxPro 不是奇妙的吗? 客户服务器是多么的容易，你可能会想? 该表单是非常简单和易于使用。但这里有三个问题。
不能添加新成员
要测试这些问题，单击 Add 按钮，添加一个新成员并单击 Save。很快你会看到如图2所示的信息。
图 2 添加成员时的错误信息
在按下 Add 按钮时，一个空记录添加到 vAdultMember 视图游标中。该视图由两个表组成，Adult 和 Member。在按下 Save 按钮时，Visual FoxPro 发送 name 信息到 Member 表。SQL Server 自动提供 member ID。因此很好。Visual FoxPro 也发送地址信息到 Adult 表。但关于成员的 ID，它没有发送任何东西。该字段保持为空，这是非法的并造成 TableUpdate() 失败。
要处理这一问题，新记录需要首先添加到 Member 表，并且结果 ID 需要根据地址信息放到 Adult 表。没有理由认为 Visual FoxPro 的视图知道这些。为什么会这样? Visual FoxPro 不知道是什么 ID ，且不知道在 Adult 表中发送它。
不能删除成员
在图书馆数据库中(SQL Server 版) 在 Adult 和 Juvenile 表及 Member 和 Loan 间有着参照完整性。如果一个成员负责有少年成员或她/他还有未还清的借书，你就不能删除他/她。你可以期望 SQL Server 拒绝该删除并发送加一个错误提示。
但是，如果一个成员没在相关少年和借书，你可以删除一个他/她。试着这样做你会看到一条如下图所示的错误信息。
图 3 删除成员时的错误信息
该错误，如果你理解 SQL Server 语言，它告诉你 Adult 和 Member 表间参照完整性冲突。这将会在试着在删除 Adult 记录前删除 Member 记录时发生。这明显的是发生在视图中。对于删除处理记录，必须首先删除 Adult 然后删除 Member。但是，Visual FoxPro 如何知道这些？
不可理解的错误信息
如果你想删除一个负责有少年的成员，你会被终止。如果你想删除一个借有图书的成员，你会被终止。但是，SQL Server 将发送回 Visual FoxPro 一个类似于图 3 的错误信息。这些信息对于用户来说是完全不能理解的。
考虑另一个示例。Adult 表具有以下约束检查定义：
ALTER TABLE adult WITH NOCHECK ADD CONSTRAINT phone_no_rule CHECK (phone_no LIKE '(206)[0-9][0-9][0-9]-[0-9][0-9][0-9][0-9]')
这些约束强制电话号码以 206 区号开始。如果插入或更新的记录的电话号码违反了这个规则，数据将被拒绝。但是，用户看到的怪异的提示信息如下图所示。
图 4 检查约束违反错误信息
