使用表单设计用户界面.pptVIP

(c) “最后一个”按钮的“Click”事件代码： go bottom 使末记录为当前记录 refresh thisform (d) “添加”按钮的“Click”事件代码： append blank 在表尾添加一空记录，并使其为当前记录 refresh thisform (e) “删除”按钮的“Click”事件代码： delete 给当前记录打上删除标记 choice=messagebox(确实要删除此记录吗？, 0+17+0, 系统提示) 弹出提示框 if choice = 1 如果选择“确定” pack 删除有删除标记的记录 else 如果选择“取消” recall 恢复删除标记的记录 endif refresh thisform (f) “退出”按钮的“Click”事件代码： release thisform 从内存中释放表单 ⑧ 保存表单，供以后使用。 ⑨ 运行表单，操作：表单→执行表单。 图10-5 添加控件后的职工信息表单 10.3 设置表单的数据环境 10.3.1 向数据环境中添加表或视图 ① 在数据环境设计器中单击鼠标右键，在弹出菜单中选择“添加”。 ② 在“添加表或视图”对话框中，从列表中选择一个表和视图(如果当前没有打开的数据库，可以单击“其他”来选择表)。 ③ 单击“添加”。 例7 向职工信息表单的数据环境中加入工资表，具体步骤为： ① 在职工信息表单数据环境设计器的弹出菜单中，选择“添加”。 ② 在“添加表或视图”对话框中，从列表中选择工资表。 ③ 单击“添加”。 例8 将该表单数据环境中职工表的使用方式设置为独占，具体步骤为： ① 在职工信息表单数据环境设计器中选中“职工”表。 ② 右击鼠标，在弹出菜单中选择“属性”。 ③ 将Exclusive属性值设为“.T.”(真)。 10.3.2 为数据环境设计关系 1．永久关系 永久关系只可能存在于数据库表之间。这种关系是在数据库设计器中建立的，并作为数据库的一部分保存。在查询设计器、视图设计器或表单的数据环境设计器中使用表时，永久关系将作为表间的默认链接。 在表间创建永久关系的方法： ① 打开数据库设计器。 ② 将一个表的索引拖到另一个表相匹配的索引上，前者为父表，后者为子表。建立关系的父表索引必须为主索引或候选索引。如果表没有建立索引，则需要将其在表设计器中打开，并创建索引。 ③ 这时两表之间有一直线相连，即为创建的关系。可以对该关系进行删除、编辑等操作。 2．临时关系 如果数据环境的两个表之间没有永久关系，可以设置它们的临时关系。设置方法是：将字段从父表拖到子表中相匹配的索引标识上。 例9 在创建的职工信息表单的数据环境中创建关系，使职工表的职工号与工资表的职工号建立链接，具体步骤为： ① 在职工信息表单数据环境设计器中选中职工表的职工号字段。 ② 拖动该字段到工资表的职工号字段上。 ③ 释放鼠标，由于工资表中的职工号字段没有索引标识，系统提示如下信息： 您在“工资”表中选定的字段没有与之相关的索引。要建立 关系，此索引必须存在。请按“确定”建立该索引。 ④ 按“确定”。系统首先建立工资表的“职工号”索引，然后给两表建立关系。 3．在数据环境中编辑关系 在数据环境中可对以上两种关系进行操作，如删除、编辑关系的属性等。 删除关系：单击两表的连线，按Delete键即可。 编辑关系属性的步骤如下： ① 单击连线(选择关系)。 ② 单击鼠标右键，选择弹出菜单中的“属性”项。 ③ 如果父表与子表的关系是一对多，则将OneToMany属性设置为“.T.”(真)，否则设置为“.F.”(假)。用户可根据需要修改相应的属性。 10.3.3 向表单中添加表字段