对考生目录下的数据库rate建立文件名为myf的表单。表单含有一个表格控件,用于显示用户查询的信息;表单上有一个按钮选项组,含有“外币浏览”、“个人持有量”和“个人资产”三个选项按钮:表单上有一个命令按钮,标题为“浏览”。 当选择“外币浏览”选项按钮并单击

admin2013-03-18  26

问题 对考生目录下的数据库rate建立文件名为myf的表单。表单含有一个表格控件,用于显示用户查询的信息;表单上有一个按钮选项组,含有“外币浏览”、“个人持有量”和“个人资产”三个选项按钮:表单上有一个命令按钮,标题为“浏览”。
当选择“外币浏览”选项按钮并单击“浏览”按钮时,在表格中显示“汇率”表的全部字段;选择“个人持有量”选项按钮并单击“浏览”按钮时,表格中显示“数量”表中的“姓名”,“汇率”表中的“外币名称”和“数量”表中的“持有数量”;选择“个人资产”选项按钮并单击“浏览”按钮时,表格中显示“数量”表中每个人的“总资产”  (每个人拥有的所有外币中的每种基准价*持有数量的总和)。单击“关闭”按钮退出表单。

选项

答案在命令窗口中输入命令:CREATE FORM myf,打开表单设计器,通过“表单控件”工具栏向表单添加1个表格、1个选项按钮组和2个命令按钮。 选中表单,在属性面板顶端的下拉框中选择Command1,修改该命令按钮控件的Caption属性值为“浏览”,以同样的方法将第二个命令按钮设置Caption属性值改为“关闭”,在属性面板顶端的下拉框中选择 (Optiongroup1),将其ButtonCount属性值改为3,右击选项按钮组,选择“编辑”快捷菜单命令,在此状态下(编辑状态下,控件四周出现蓝色框线),分别修改三个单选项的Caption属性值为“外币浏览”、“个人持有量”和“个人资产”。 双击命令按钮“浏览”,编写该控件的Click事件,程序代码如下: ******命令按钮Command1(浏览)的Click事件代码***** DO CASE CASE This form.Optiongroup1.Value=1 SELECT*; FROM汇率; INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" CASE Thisform.Optiongroup1.Value=2 SELECT数量.姓名,外币名称,持有数量; FROM数量,汇率; WHERE汇率.外币代码=数量.外币代码; INT OCURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" CASE Thisform.Optiongroup1.Value=3 SELECT姓名,SUM(持有数量*基准价)AS总资产; FROM汇率,数量; WHERE汇率,外币代码:数量.外币代码; GROUP BY姓名; INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" ENDCASE ******************************************************** 以同样的方法为“关闭”命令按钮编写Click事件代码:Thisform.Release。保存表单完成设计,运行结果如图所示。 [*]

解析
转载请注明原文地址:https://kaotiyun.com/show/cVsp777K
0

最新回复(0)