间的联系，如下图所示。

设置表单的数据环境，添加表 Bank、User、Card 和Userall，设置各表之

表 单 的 数 据 环 境

为表单设置Init 事件代码： public lastuser,lastcard * 声明全局变量lastuser,lastcard sele bank

lastuser=alltrim(bank.last_user) lastcard=alltrim(bank.last_card) ? 将表bank 中的值赋给相应变量 2. 存款

20

存款功能是账户管理中必不可少的一项功能，其模拟过程与现实生活一样，由管理员输入账户的账号或卡号、存款金额。此子页面的界面如图7-17 所示。 向页面中添加控件，如下图所示。 设置其属性，如表 7-9 所示。

存 款 子 页 面

为 OptionGroup（组合框）控件设置外观，如下表所示：

if this.option1.value=1 * 如果账户栏被选中

thisform.pageframe1.page1.text1.enabled=.T. * 将账号栏对应的文本框设为可用

thisform.pageframe1.page1.text2.enabled=.F. thisform.pageframe1.page1.text1.setfocus else

* 如果卡号栏被选中

thisform.pageframe1.page1.text2.enabled=.T. * 将卡号栏对应的文本框设为可用

? 更换选项时清空两个文本框中的信息

添加 4 个Text（文本框）控件，设置外观属性，如下表所示

21

Text1 的InteractiveChange 事件代码为： select user

locate for user.user_id=this.value * 在表user 中查找匹配的记录

this.parent.text4.value=user.user_all

* 将相应记录的“存款”字段写入Text4（文本框4）中 Text2 的InteractiveChange 事件代码为： select card

locate for card.card_id=this.value * 在表card 中查找匹配的记录

this.parent.text4.value=card.user_all

* 将相应记录的“存款”字段写入Text4（文本框4）中 这两个 InteractiveChange 事件代码的功能分别为通过获得“用户账号”和“用户卡号”

的方式直接动态的显示用户的相关信息。

取款、开户、销户、修改信息、办卡、挂失卡的页面设计和存款的相似，在这里就不一一举出了。具体界面如下图所示。 3.取款子页面的设计

取 款 子 页 面

22

4.开户子页面的设计

开 户 子 页 面

5.销户子页面的设计

销 户 子 页 面

23