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

admin2013-06-14  30

问题 对考生目录下的数据库ratemanger建立文件名为rateform的表单,表单标题为“外币持有情况查看”。表单含有一个表格控件,用于显示用户查询的信息;表单上有一个选项按钮组,含有“外币浏览”、“各人持有量”和“各人资产”三个选项按钮;表单上有两个命令按钮,标题分别为“查看”和“退出”。
   ①当选择“外币浏览”选项按钮并单击“查看”按钮时,在表格中显示rate_h1表的全部字段。
   ②选择“各人持有量”选项按钮并单击“查看”按钮时,表格中显示rate_s1表中的“姓名”,rate_h1表中的“外币名称”和rate_s1表中的“持有数量”。
   ③选择“各人资产”选项按钮并单击“查看”按钮时,表格中显示rate_s1表中每个人的“总资产”(每个人拥有的所有外币中的每种外币的“基准价”ד持有数量”的总和)。
   单击“退出”按钮退出表单

选项

答案步骤1:单击工具栏的[新建]按钮,在[新建]对话框的[文件类型]区选择[表单]单选按钮,再单击[新建文件],打开表单设计器新建表单。此时单击表单,在[属性]窗口设置“Caption”为“外币持有情况查看”。单击[表单控件]窗口的“表格”控件,在表单中单击添加选项表格。利用相同的方法添加“选项按钮组”。在[窗口]中设置“ButtonCount”为“3”,然后右击“选项按钮组”选择“编辑”,单击“option1”,在[属性]窗口中设置“Caption”为“外币浏览”;单击“option2”,在[属性]窗口中设置“Caption”为“个人持有量”;单击“option3”,在[属性]窗口中设置“Caption”为“个人资产”。单击[表单控件]窗口的“命令按钮”,单击表单添加命令按钮,在[属性]窗口中设置“Caption”为“查看”。同样的方法设置[退出]命令按钮。 步骤2:右击表单选择“数据环境”,在[添加表或视图]中选择“rate_h1”,再单击[添加]按钮,选择“rate_s1”,接着单击[添加]按钮,再单击[关闭]按钮。 步骤3:右击[查看]按钮选择“代码”,编写命令按钮的Click事件代码。 DO CASE CASE THISFORM.OPTIONGROUP1.VALUE=1 THISFORM.GRID1.COLUMNCOUNT=3 THISFORM.GRID1.COLUMN1.HEADER1.CAPTION="姓名" THISFORM.GRID1.COLUMN2.HEADER1.CAPTION="外币代码" THISFORM.GRID1.COLUMN3.HEADER1.CAPTION="持有数量" THISFORM.GRID1.RECORDSOURCETYPE=4 THISFORM.GRID1.RECORDSOURCE="SELECT * FROM RATE HL INTO CURSOR TEMP" CASE THISFORM.OPTIONGROUP1.VALUE=2 THISFORM.GRID1.COLUMNCOUNT=3 THISFORM.GRID1.COLUMN1.HEADER1.CAPTION="姓名" THISFORM.GRID1.COLUMN2.HEADER1.CAPTION="外币名称" THISFORM.GRID1.COLUMN3.HEADER1.CAPTION="持有数量" THISFORM.GRID1.RECORDSOURCETYPE=4 THISFORM.GRID1.RECORDSOURCE="; SELECT RATE_SL.姓名,RATE_HL.外币名称,RATE_SL.持有数量; FROM RATE_HL INNER JOIN RATE_SL; ON RATE_SL.外币代码=RATE_HL.外币代码; ORDER BY RATE_SL.姓名 INTO CURSOR TEMP" CASE THISFORM.OPTIONGROUP1.VALUE=3 THISFORM.GRID1.COLUMNCOUNT=2 THISFORM.GRID1.COLUMN1.HEADER1.CAPTION="姓名" THISFORM.GRID1.COLUMN2.HEADER1.CAPTION="总资产" THISFORM.GRID1.RECORDSOURCETYPE=4 THISFORM.GRID1.RECORDSoURCE="; SELECT RATE_SL.姓名,SUM (RATE_HL.基准价* RATE_SL.持有数量) AS 总资产; FROM RATE_HL INNER JOIN RATE_SL; ON RATE_SL.外币代码=RATE_HL.外币代码; GROUP BY RATE_SL.姓名; ORDER BY RATE_SL.姓名 INTO CURSOR TEMP" ENDCASE THISFORM.REFRESH 右击[关闭]按钮选择“代码”,编写命令按钮的Click事件代码,如下所示。 THISFORM.RELEASE 步骤4:单击工具栏的[保存]按钮,名为“rateform”。右击表单,选择“执行表单”即可。

解析
转载请注明原文地址:https://jikaoti.com/ti/ZBT0FFFM
0

最新回复(0)