VisualFoxPro程序设计教程课件作者刘瑞新第11章节.pptVIP

对于复制回来的“多重选定”可以作为一个整体来调整其位置，也可以分别调整各个控件的大小和位置。然后将Page1的Caption属性改为“基本情况”，如图11-29右所示。 ④ 编辑第二页。单击标题Page2，进入第二页。单击“数据环境”按钮，打开“数据环境”窗口。将鼠标指针指向表文件名xs，然后按下鼠标左键，将其拖至Page2中，如图11-30所示。 Page2中自动出现一个包含了xs.dbf中的所有字段的表格控件grdxs。关闭“数据环境”窗口并调整表格的大小和位置，然后开始修改grdxs。 用鼠标右键单击grdxs，在弹出的快捷菜单中选择“编辑”，grdxs的周围出现浅绿色的边界。在属性窗口中修改grdxs的列对象数属性ColumnCount为7（原值为9，是xs.dbf中的字段数），可以将“照片”和“说明”两个字段从表格中删去。 将鼠标指向表格的第一行——列标题处，可以拖动鼠标修改列的宽度。也可以在属性窗口中修改该列的宽度属性Width。 尽可能将所需要显示的字段长度都调整到可以看到，就可以在属性窗口中将grdxs的ScrollBars属性改为2 – 垂直。 再将Page2的Caption属性改为“浏览”，如图11-31所示。 ⑤ 编写代码。在例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事件代码： n = THIS.Value DO CASE CASE n = 1 GO TOP THISFORM.butt(.f.) CASE n = 2 SKIP –1 IF BOF() GO TOP THISFORM.butt(.f.) ENDIF THIS.Buttons(3).Enabled = .T. THIS.Buttons(4).Enabled = .T. CASE n = 3 SKIP 1 IF EOF() GO BOTTOM THISFORM.butt(.T.) ENDIF THIS.Buttons(1).Enabled = .T. THIS.Buttons(2).Enabled = .T. CASE n = 4 GO BOTTOM THISFORM.butt(.T.) ENDCASE IF THISFORM.PageFrame1.ActivePage = 2 THISFORM.PageFrame1.Page2.Grdxs.SetFocus ELSE THISFORM.Refresh ENDIF THISFORM.Refresh 表单运行结果如图11-27所示。 设计方法如下： ① 修改界面。首先，在表单的页框中增加一个选项按钮组OptionGroup1，然后用鼠标右键单击选项按钮组OptionGroup1，从弹出的快捷菜单中选择“生成器”（如图11-33）。 在“选项组生成器”中修改“标题”，并将“按钮布局”改为水平，“边框样式”改为：无，然后按“确定”按钮退出选项组生成器（参见第6章）。 最后增加一个标签Label1，并将其Caption属性改为性别，将复选框“chkxb”的Visible属性改为：.F. – 假。适当调整其他控件的位置，如图11-34所示。 11.3.6 逻辑字段的控制技巧 【例11-9】修改上例，使用“选项按钮组”控制“性别”字段xb（如图11-32）。 ② 修改事件代码。 选项按钮组optiongroup1的InteractiveChange事件代码： THIS.Parent.chkxb.Value=IIF(THIS.Value=1,.T.,.F.) 复选框（chkxb）的Refresh事件代码： THIS.Parent.OptionGroup1.Value=IIF(THIS.Value=.t.,1,2) 在例11-9的基础上进行修改，具体步骤如下： 11.3.7 编辑表单的设计 【例11-10】修改例11-9，使之具有增加