在考生文件夹下,完成如下简单应用: (1)打开程序文件progerr.prg,按文件中给出的功能要求改正其中的错误,以文件名prognew.prg重新保存该文件并运行程序。 (2)建立如图所示顶层表单,表单文件名为myform.scx,表单控件名为myfo

admin2013-10-25  52

问题 在考生文件夹下,完成如下简单应用:
(1)打开程序文件progerr.prg,按文件中给出的功能要求改正其中的错误,以文件名prognew.prg重新保存该文件并运行程序。
(2)建立如图所示顶层表单,表单文件名为myform.scx,表单控件名为myform,表单标题为"顶层表单"。
为顶层表单建立菜单mymenu。菜单栏如图所示(无下拉菜单),单击"退出"菜单时,关闭释放此顶层表单,并返回到系统菜单(在过程中完成)。
     

选项

答案(1)【操作步骤】 打开程序文件progerr.prg,修改程序如下: 第1处改为:CREATE view viewes AS SELECT 职工号,SUM(金额) AS 总金额 FROM orders GROUP BY 职工号 第2处改为:SELECT * FROM viewes WHERE 总金额>=30000 ORDER BY 总金额 DESC INTO DBF newtable 以prognew.prg为文件名另存文件并运行。 (2)【操作步骤】 步骤1:单击常用工具栏中的"新建"按钮,文件类型选择"菜单"。 步骤2:在"新建菜单"对话框中选择"菜单"按钮,在菜单设计器中的"菜单名称"中依次输入"文件"、"编辑"和"退出"这三个主菜单项。 步骤3:在"退出"主菜单的"结果"中选择"过程"并输入下列语句: myform.release set sysmenu to default 步骤4:单击"显示"菜单中的"常规选项"命令,在"常规选项"对话框中选中"顶层表单"复选框。 步骤5:单击工具栏上"保存"按钮,在弹出"保存"对话框中输入"mymenu"即可。 步骤6:在"菜单设计器"窗口下,选择"菜单"菜单中的"生成"命令,生成"mymenu.mpr"文件。 步骤7:单击常用工具栏中的"新建"按钮,文件类型选择"表单",打开表单设计器。单击工具栏上"保存"按钮,在弹出"保存"对话框中输入"myform"即可。 步骤8:在表单的"属性"对话框的ShowWindow处选择"2-作为顶层表单",在Name处输入"myform",在Caption处输入"顶层表单"。双击"Init Event",在"myform.Init"编辑窗口中输入"do mymenu.mpr with this ,’xxx’",启动菜单命令。双击"Destroy Event",在"myform.Destroy"编辑窗口中输入"release menu xxx extended",在表单退出时释放菜单。操作完毕后运行表单。

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

最新回复(0)