在 VFP 命令窗口中输入并执行命令 ( 16 ) .FontSize=20,可以使 VFP 主窗口中输出文本的字号设置为 20。 13.某单位人力资源
管理系统中有人员档案表 RYB.DBF 和员工收入表 SRB.DBF,其结构分别如下:
某表单运行后如下图所示,其数据环境包含 RYB.DBF 和 SRB.DBF 表。表 单上有 3 个文本框,其对象名分别为 Textl、Text2 和 Text3,分别用于显示总收入、所 得税和实际收入。 列表框(Listl)的 InteractiveChange 事件代码的功能是: 当选中列表框中一名员工 时,表格(Gridl)中显示出该员工的收入项目、收入日期、金额和备注,且表格中数据 Text2 和 Text3 分别显示该员工的总收入、 所得税和实际收入。 (注: 只读, 文本框 Textl、 所得税计算的算法见代码。) (1)根据以上所示的表单,填写
列表框、表格和”退出”命令按钮的有关属 性值: ·列表框的 RowSourceType 属性值为”2-别名” ( 17 ) RowSource 属性值为 ColumnCount 属性值为 ( 18 ) ·表格的 ( 19 ) 属性值为.T.(实现数据只读) ·命令按钮的 Caption 属性值为 ( 20 ); (2)列表框 Listl 的 InteractiveChange 事件代码如下: cGh=ALLTRIM(THIS.Value) &;&;变量 cGh 已在表单的 Init 事件代码中设
置为公共变量 SELECT SUM(je) FROM srb WHERE gh=cGh INTO ( 21 &;&;变量 m 为数组 DO CASE &;&;根据该月份的总收入分段计算所得税 CASE m(1)>1600 AND m(1)<2101 nse=(m(1)-1600)*0.05 CASE m(1)>2100 AND m(1)<3601 nse=500*0.05+(m(1)-