visual foxpro 实用教程(第2版)(十一五国家规划)第05章 控件.pptVIP

5.7 页框和页 上述界面上, 使TxtBH、定位、追加、删除等对象放在表单上。 数据环境中两表的关联: 拖基本情况关联字段“编号”到工资情况以“编号”作为关键字的索引。 (2) 设置对象属性 页框(PageFrame1) 属性: PageCount=2 ActivePage=1 页(Page1和Page2)属性: Page1.Caption=基本情况 Page2.Caption=工资情况 图5.15 两表的关联数据环境 * 5.8 表格 表格(Grid) 是按行和列操作和显示的容器。一个表格对象包含若干列(Column)对象，每一个列对象包含一个表头(Header) 对象和一个或多个列数据操作对象。表头对象用于列的标题的显示内容和格式，数据操作对象是对列数据进行操作时所选用的控件。 一般自动加入一个文本框对象作为列数据操作对象，可加入其他控件对象。一个列中如有一个以上的数据操作对象，则应设置列对象的CurrentControl属性确定当前使用哪一个。 * 5.8 表格 * 5.8 表格 另外列可用InputMask,Format和Alignment等属性控制数据的输入内容、显示格式和对齐方式。进行有条件的格式编排，可使用一组动态格式设置属性。 在表格中不仅能显示字段数据，还可以在表格的列中嵌入文本框、复选框、下拉列表框、微调按钮和其他控件。 用户可以在“表单设计器”中交互地在表格中增删列和在列中交互式添加控件和删除已加入列的控件。 l???? 表格中列的选择 (1) 选择表格对象?按右键?在快捷菜单中选“编辑”?进入表格内对象的编辑。 (2) 单击表头即选择该列中的表头对象。单击列的非表头区即选择该列对象。 (3) 可设置列的ControlSource为相应的字段名 * 5.8 表格 l??表格中列的增删和移动 选择表格中的列, 按Del键删除该列。要增加列，仅需改变ColumnCount属性值。要改变列的相对位置，仅需选择列的表头拖动。 l??在列中添加控件 (1) 选择表格中的列。 (2) 选表单控件工具栏中的控件，然后单击列对象，则该控件便加入到该列中。 (3) 设置该列的CurrentControl属性设置为新加入的控件名。此时，在该列中可看到该控件的显示图标。 l??删除列中控件 (1) 在“属性”窗口的“对象”框中选择要移去的控件。 (2) 单击表格或表单标题, 按下Delete键即可删除该控件。 除了交互式地向表格列添加控件外，也可以通过编写代码在运行时添加控件。 AddObject方法在表格列中添加对象, RemoveObject方法删除表格中的对象。设置AllowHeaderSizing和AllowRowSizing属性为.T., 使运行时可改变表头和行的高度。 表格对象包含三层，表格中对象的完整引用层次如下： 表格上层引用.表格名.列名.表头名 表格上层引用.表格名.列名.操作数据对象名 也可根据上面层次关系进行相对引用。 * 5.8 表格 【例Ex_Grid】按姓名和部门过滤编辑基本情况数据。 (1)设计表单界面 图5.14 姓名和部门过滤编辑表单界面 * 5.8 表格 (2)?设置对象属性 Grid1.RecordSourceType=别名 Grid1. RecordSource=基本情况 Grid1.ColumuCount=8 Column1.ControlSource=基本情况.编号 Column1. Header.Caption=编号 …… 部门组合框属性: Name=cboBM cboBM.RowSourceType=字段 cboBM.RowSourceT=部门工资.部门名称 姓名文本框属性: Name=txtName 确定命令按钮属性: Name=cmdOk (3) 编写代码 * “确定”命令按钮Click事件 If !Empty(This.Parent.txtName.Value) Set filter to 基本情况.姓名=Trim(This.Parent.txtName.Value) This.Parent.grdJB.Refresh Return Endif If !Empty(This.Parent.cboBM.Value) bm=Trim(This.Parent.cboBM.Value) Select 部门工资 Locate For 部门名称=bm bmbh=部门编号 Select 基本情况 Set Filter To Left(基本情况.编号,2)=bmbh This.Parent.grdJB.Refresh Return Endif *