第11章在表单中使用数据表资料.pptVIP

11.3 在表单中操作表;② 编写代码。 在表单的Load事件代码中打开数据表：USE xs 在表单的Destroy事件代码中关闭数据表：USE 在命令按钮Command1的Click事件代码中打开编辑窗口： GO TOP EDIT 在命令按钮Command2的Click事件代码中打开浏览窗口： ;【例11-5】在上例的表单中使用数据环境。 设计步骤如下： ① 创建“数据环境”。选择新建表单，进入表单设计器。在系统菜单的“显示”子菜单中选择“数据环境”，或在表单设计器中单击鼠标右键，从弹出的快捷菜单中选择“数据环境”，或单击表单设计器中“数据环境”按钮（如图11-18），均可打开“数据环境设计器”窗口。 ;11.3.3 在表单中操作数据表 用表单设计器设计一个可以浏览和编辑数据表的程序。 【例11-6】设计一个操作数据表的表单，使之具有按记录浏览、编辑的功能。 例题：浏览数据表 设计步骤如下： ① 创建数据环境。选择新建表单，进入表单设计器。打开“数据环境设计器”窗口，在“数据环境”窗口中单击鼠标右键，在快捷菜单中选择“添加”，添加表单所要控制的数据表：xs.dbf，如图11-19所示。 ② 建立应用程序用户界面与设置对象属性。依次将表中“xh”、“xm”、“xb”等字段用鼠标拖拉至表单中。表单上出现相应的标签和文本框，如图11-20左所示。 然后增加一个命令按钮组CommandGroup1和一个标签Label1。修改各对象属性如图11-20右所示。;11.3.4 使用表格控件 虽然“浏览”窗口可以满足浏览数据的需要，但是缺乏对数据的有效控制。为了更好地控制数据的显示，可以使用表格（Grid）控件。 表格是一个容器对象，表格包含列。这些列除了包含列标题和控制外，每一个列还拥有自己的一组属性、事件和方法，即可以提供对表格单元的大量控制。 【例11-7】在例11-6的表单中增加一个浏览窗口。如图11-23所示。 设计步骤如下： ① 打开上例的表单文件，进入表单设计器。首先修改表单布局，并在表单上增加一个“表格”控件Grid1，如图11-24所示。;② 用鼠标右键单击Grid1，在弹出的快捷菜单中选择“生成器”，打开“表格生成器”。用鼠标单击“数据库和表”右边的命令按钮“...”，如图11-25左所示，可以选择数据表。 然后选择“可用字段”中的“学号”、“姓名”、“性别”和“总学分”等字段，按添加按钮，将其添加到“选定字段”列表中，如图11-25右所示。; 按“确定”退出表格生成器。运行表单，发现表格中的记录和文本框中的记录不同步。为此，重新打开“表单设计器”，继续修改表单。 ③ 修改事件代码。 编写表格Grid1的AfterRowColCHange事件代码： LPARAMETERS nColIndex THISFORM.Refresh 其中第一行是原有的。第二行表示当光标在表格中移动时，随时刷新表单。 在命令按钮组Command的Click事件代码最后增加一条命令： THISFORM.Grid1.SetFocus ; 设计步骤如下： ① 在“文件”菜单中选择“打开”或直接用鼠标单击“常用工具栏”中的“打开”按钮，选择例11-6的表单文件，进入表单设计器。 ② 增加页框。将表单中除标题和命令按钮组外的所有控件做“多重选定”（如图11-28）。;⑤ 编写代码。在例11-6的基础上增加如下代码： 页框pageFrame1中第一页page1的Activate事件代码： THIS.txtxh.SetFocus 页框pageFrame1中第二页page2的Activate事件代码： THIS.grdxs.SetFocus 第二页page2中表格Grdxs的AfterRowColChange事件代码： LPARAMETERS nColIndex THIS.Parent.Parent.Page1.Refresh ;另外修改命令按钮组CommandGroup1的Click事件代码： 在原代码后添加如下代码: IF THISFORM.PageFrame1.ActivePage = 2 THISFORM.PageFrame1.Page2.Grdxs.SetFocus ELSE THISFORM.Refresh ENDIF THISFORM.Refresh ;11.3.7 编辑表单的设计 【例11-10】修改例11-9，使之具有增加、删除、编辑记录的功能（如图11-35）;① 在表单上增加一个命令按钮组CommandGroup2，将其按钮个数属