清华大学出版社 TSINGHU 列表框(Lis 列表项|2样式|3布局4值 列表框生成器 框中续据阵象自由表,然后速定字段 [例7-3]在列表框中填充SB表的编号和 用此填充列表():表或视图中的字段 数据库和表① 可用字段) 名称两个字段要求选定列表框的任一项,就回础日 能使文本框中显示编号字段值。 庄主要设备 备注 (1)在表单中创建1个列表框控件和1个文本视图 商标 框控件。 帮助( (2)打开列表框生成器一一在列表项选项卡 (a 1) 的“用此填充列表”组合框中选定“表或视图中 的字段”选项一一如图7.4(a1)所示,通过对话按 Form1口区 钮选出SB表,然后将编号和名称字段从可用字段 列表添入选定字段列表中一按确定按钮。 16-2车床 037-2磨床 (3)List的 Interactive Change事件代码 038-1钻床 100-1 编写如下 101-1复印机 21n-1本 THISFORM. Text1. value=THIS Value &&将列表框选项值赋给文本框 图75列表框选项
列表框(List) 列表框生成器 [例7-3] 在列表框中填充SB表的编号和 名称两个字段,要求选定列表框的任一项,就 能使文本框中显示编号字段值。 (1) 在表单中创建1个列表框控件和1个文本 框控件。 (2) 打开列表框生成器——在列表项选项卡 的“用此填充列表”组合框中选定“表或视图中 的字段”选项——如图7.4(a1)所示,通过对话按 钮选出SB表,然后将编号和名称字段从可用字段 列表添入选定字段列表中—按确定按钮。 (3) List1的Interactive Change事件代码 编写如下: THISFORM.Text1.Value=THIS.Value && 将列表框选项值赋给文本框 图7.5 列表框选项 (a1)
组合框Como) TSINGHUA UNIVERSITY PRESS 下拉组合框 Style属性值0 下拉列表框 Style属性值1 控件值源的类型 表75列表框、组合框控件的值源类型 设置值值源类型 说 明 无 缺省值,运行时用 AddItem或 Addlistitem方法程序将数据分别填入列中 Row Source设置逗号分隔的数据项来分别填充列 0123456789 别名 Row Source设置表名,表由数据环境提供,用 ColumnCount确定字段数 SQL语句 Row Source设置 SQL SELECT命令选出记录,并可创建一个临时表或表 查询(.QPR)| Row Source设置一个.QPR文件名 数组 Row Source设置数组名 字段 Row Source设置逗号分隔的字段列表,首字段有表名前缀,表来自数据环境 文件 在 Row Source设置路径,可用通配符或掩码,结果以目录与文件名填充列 结构 在 Row Source设置表名,结果以字段名来填充列 弹出式菜单为与以前版本兼容而设
表7.5 列表框、组合框控件的值源类型 组合框(Combo) 下拉组合框Style属性值 0 下拉列表框 Style属性值1 控件值源的类型 设置值 值源类型 说 明 0 无 缺省值,运行时用AddItem或AddListItem方法程序将数据分别填入列中 1 值 RowSource设置逗号分隔的数据项来分别填充列 2 别名 RowSource设置表名,表由数据环境提供,用ColumnCount确定字段数 3 SQL语句 RowSource设置SQL SELECT命令选出记录,并可创建一个临时表或表 4 查询(.QPR) RowSource设置一个.QPR文件名 5 数组 RowSource设置数组名 6 字段 RowSource设置逗号分隔的字段列表,首字段有表名前缀,表来自数据环境 7 文件 在RowSource设置路径,可用通配符或掩码,结果以目录与文件名填充列 8 结构 在RowSource设置表名, 结果以字段名来填充列 9 弹出式菜单 为与以前版本兼容而设
例7-4试用BM表的代码来修改B表的部门学段。PR8。。 要求SB表在列表框显示,BMDM表在组合框显示;并且当 列表框确定一个记录后,便可用组合框的选项来替代SB表 的部门字段值。 以用琳MM表的代码来修改SB表的部门□口区 (1)在表单上创建2个标签,1个列表框和1个组合框。 请指定要修改的记录 (2)在数据环境中添加SB表和BMDM。 6-1 016-2 注意,若存在关联联线则将它取消。 (3)属性设置:见表7.7。 00-1微机 (4) Cobol的 InteractiveChange事件代码编写如下: 请选供代入的部门号 THISFORM. LISTI Refresh &&在组合框列表中选项并替代SB.部门后更新列表框的显示 (5) Forml的Init事件代码编写如下 3三车间 THISFORM. Combol Enabled=F &&使初始时不能操作组合框,只可在列表框先确定记录 (6)List1的 Interactive Change事件代码编写如下: 图76选项替代 THISFORM. Combol Enabled=. T &&列表框操作后即允许组合框操作 (7) List的Init事件代码编写如下: SET ORDER TO TAG编号 &&使列表按设备编号次序显示(假定SB表中该索引标识已存在
[例7-4] 试用BMDM表的代码来修改SB表的部门字段。 要求SB表在列表框显示, BMDM表在组合框显示；并且当 列表框确定一个记录后,便可用组合框的选项来替代SB表 的部门字段值。 (1) 在表单上创建2个标签,1个列表框和1个组合框。 (2) 在数据环境中添加SB表和BMDM。 注意，若存在关联联线则将它取消。 (3) 属性设置：见表7.7。 (4) Combo1的InteractiveChange 事件代码编写如下： THISFORM.LIST1.Refresh && 在组合框列表中选项并替代SB.部门后更新列表框的显示 (5) Form1的Init事件代码编写如下： THISFORM.Combo1.Enabled=.F. && 使初始时不能操作组合框,只可在列表框先确定记录 (6) List1的InteractiveChange 事件代码编写如下： THISFORM.Combo1.Enabled=.T. && 列表框操作后即允许组合框操作 (7) List1的Init事件代码编写如下： SET ORDER TO TAG 编号 && 使列表按设备编号次序显示(假定SB表中该索引标识已存在) 图7.6 选项替代