清华大学出版社 TSINGHUA UNIVERSITY PRESS (5)在 Forml(SBD1.SCX)的Init事件代码中增加公共变量jh: PUBLIC yh, mc(10, 1), jlh &&公共变量jh用来表示记录号 COPY T0 aRRAY mC Fields sb.名称&&保持原样 &保持原样 (6) Forml(SBBD.SCX)中 Command1的 Click事件代码编写如下: DO FORM sbbd2 &&调用子表单 Go jIh &记录指针指向在子表单中指定的记录 THISFORM. Refresh &&父表单更新 (7) Forml(SBD2.SCX)中 Commandl的 Click事件代码编写如下: jh= THISFORM. TextI. Value&文本框值赋给公共变量(可事先在文本框中键入一个数) THISFORM. Release &&释放Form1(SBBD2.SCX) (8) Forml(SBBD1SCX)的 UNload事件代码编写如下: release ilh &&清除公共变量jh,程序运行结束公共变量不会自动清除 表81“查页”属性设置 表单文件对象属性 属性值 说明 SBBD1. SCX Form1 ShowWindow 本表单作为顶层表单显示在桌面上 Command1 Caption 查页 SBBD2. SCX Form1 Caption 输入 ShowWindow 1 本表单作为顶层表单的子表单 Labell Caption 请输入记录号 Text1 Value 供键入记录号,设置初值1 Command1 Caption 确定(5) 在Form1(SBBD1.SCX)的Init事件代码中增加公共变量jlh： PUBLIC yh,mc(10,1),jlh && 公共变量jlh用来表示记录号 COPY TO ARRAY mc FIELDS sb.名称 && 保持原样 GO 1 && 保持原样 (6) Form1(SBBD1.SCX)中Command1的Click事件代码编写如下： DO FORM sbbd2 && 调用子表单 GO jlh && 记录指针指向在子表单中指定的记录 THISFORM.Refresh && 父表单更新 (7) Form1(SBBD2.SCX)中Command1的Click事件代码编写如下： jlh=THISFORM.Text1.Value && 文本框值赋给公共变量(可事先在文本框中键入一个数) THISFORM.Release && 释放Form1(SBBD2.SCX) (8) Form1(SBBD1.SCX)的Unload事件代码编写如下： RELEASE jlh && 清除公共变量jlh,程序运行结束公共变量不会自动清除 表单文件 对 象 属 性 属性值 说 明 SBBD1.SCX Form1 ShowWindow 2 本表单作为顶层表单显示在桌面上 Command1 Caption 查页 SBBD2.SCX Form1 Caption 输入 ShowWindow 1 本表单作为顶层表单的子表单 Label1 Caption 请输入记录号： Text1 Value 1 供键入记录号,设置初值1 Command1 Caption 确定 表8.1 “查页”属性设置