继电保护实验五 菜单、表单、报表设计操作指南_20131217

1、实验五 菜单、表单、报表设计(设计性实验)实验内容及步骤任务1 菜单设计任务1-1 利用菜单设计器建立下拉菜单，包括如下菜单：数据维护、查询、打印和退出，其中，数据维护菜单包括“浏览记录”和“修改记录”，打印菜单包括“设备表”和“设备价格表”两项，数据维护菜单的“浏览记录”菜单项能用来打开一个设备浏览窗口。操作：1）打开菜单设计器窗口：键入MODIFY MENU SB“新建”。2）设置菜单栏页：在菜单设计器窗口填入4个菜单项“数据维护（子菜单）”、“查询”、“打印（子菜单）”、“退出”。3）为“数据维护”菜单建立选项：点击“数据维护”行某处“创建”子菜单页建立两个菜单项“浏览记录”和“修改记录

2、”。4）为“浏览记录”菜单项定义快捷键：选定“浏览记录”菜单行的“选项”列按钮设置CRTL+X为快捷键“确定”按钮返回“菜单设计器”窗口选定“菜单级”组合框“菜单栏”选项返回菜单栏页。5）为“打印”子菜单建立两个选项，并设置公共过程：选定“打印”菜单行的“创建”按钮在子菜单页建立“设备表”和“设备价格表”两个菜单项，“结果”列组合框都选用“菜单项#”；选定“显示”菜单的“菜单选项”命令在“菜单选项”对话框的“过程”编辑框内输入代码，比如：键入“?尚未完成”进行提示。6）设置菜单程序的初始化代码：“显示”菜单“常规选项”命令“常规选项”对话框选定“设置”复选框在弹出的“设置”编辑窗口键入如下代码

3、：CLEAR ALLCLEARKEYBOARD Ctrl+F4 && 关闭命令窗口MODIFY WINDOW SCREEN TITLE 设备管理系统USE SB7）定义“退出”菜单项功能：在菜单栏页中选定“退出”菜单项的“创建”或“编辑”按钮，在过程编辑窗口输入如下代码：USE MODIFY WINDOW SCREENSET SYSMENU TO DEFAULT &&恢复系统菜单的默认配置ACTIVATE WINDOW COMMAND8）保存菜单定义：“文件”菜单“保存”生成SB.MNX 和 SB.MNT文件。注意：菜单文件保存在自己的默认工作目录。9）生成菜单

4、程序：“菜单”菜单“生成”选定“生成菜单”对话框“生成”按钮生成菜单程序SB.MPR。10）运行菜单程序：执行命令DO SB.MPR。任务1-2建立一个具有撤消和剪贴板功能的快捷菜单，供浏览SB表时使用。操作：1）打开“快捷菜单设计器”窗口：“文件”菜单“新建”命令在“新建”对话框选定“菜单选项”按钮“新建文件”按钮“快捷菜单”按钮“快捷菜单设计器”窗口。2）插入系统菜单项：在“快捷菜单设计器窗口”中选定“插入栏”按钮在“插入系统菜单栏”对话框中选定“粘贴”选项，并选定“插入”按钮类似地插入“复制”“剪切”“撤消”选项“关闭”按钮返回“快捷菜单设计器”窗口。3）生成菜单程序：“菜单”菜单“生成

5、”命令保存菜单文件E7-3.MNX和菜单备注文件E7-3.MNT在“生成菜单”对话框中选定“生成”按钮生成菜单程序E7-3.MPR。4）编写如下调用程序E7-3.PRG：CLEAR ALL PUSH KEY CLEARON KEY LABEL RIGHTMOUSE DO E7-3.MPRUSE SBBROWSEUSEPUSH KEY CLEAR5）运行调用程序及快捷菜单程序：在命令窗口键入DO E7-3，屏幕即会出现一个设备浏览窗口。选定任何数据后，右击会弹出快捷菜单，进行相应的操作。任务2表单设计任务2-1创建一个用于按照部门维护设备的涉及BMDM和SB两张表的表单。操作：1）打开“表单向导

6、”对话框：“工具”菜单“向导”子菜单“表单”命令在“向导选取”对话框中选定“一对多表单向导”选项“一对多表单向导”对话框。 2）从父表中选定字段：单击“一对多表单向导”对话框中“数据库和表”区域的对话按钮在“打开”对话框中选定BMDM表将“可用字段”列表框的所有字段移到“选定字段”列表框中，并将名称字段移到代码字段之上“下一步”按钮。 3）从子表中选定字段：在“数据库和表”组合框下的列表框中选定SB表将“可用字段”列表框中除部门字段外的所有字段移到“选定字段”列表框中“下一步”按钮。4）关联表：在关联设置对话框中选择两表中的关联字段（此处采取默认设置）“下一步”按钮。5）选择表单样式：在“选择

7、表单样式”窗口点击“凹陷式”样式和“文本按钮”类型“下一步”按钮。6）排序记录：省略该步骤，直接选定“下一步”按钮。7）设置“完成”对话框：“完成”对话框“请键入标题”文本框中输入“部门设备表”“完成”按钮在“另存为”对话框中输入表单文件名BMSB.SCX“保存”按钮生成BMSB.SCX和BMSB.SCT备注文件。 8）执行表单：“程序”菜单“运行”命令“表单”选项列表选定BMSB.SCX“运行”按钮。任务2-2在列表框中填充SB表的编号和名称两个字段，要求选定列表框中的任何一项，就能在文本框中显示编号字段。操作：1）创建表单，并添加1个列表框控件List1和1个文本框控件Text1。2）在数

8、据环境对话框中添加SB表。 3）打开列表框生成器（右键单击列表框控件，从弹出菜单中选择“生成器”）在列表项选项卡的“用此填充列表”组合框中选定“表或视图中的字段”选项选出SB表，将编号和名称字段添入选定字段列表“确定”按钮。4）List1的Interactive Change事件（鼠标左键双击List1控件，打开该控件的代码编辑窗口）。代码编写如下：Thisform.Text1.Value=This.Value &&事件执行时属性赋值5）运行表单。任务2-3 第一，先根据课本P175的例6-3利用表单设计器设计表单SBQ.SCX：操作：（1）打开表单设计器：命令窗口输入MODI

9、FY FORM SBQ出现标题为SBQ.SCX的“表单设计器”窗口。（2）产生快速表单：“表单”菜单“快速表单”命令在“表单生成器”对话框的“字段选取”选项卡中选出SB.DBF及需要的字段在“样式”选项卡中选取“浮雕式”样式“确定”按钮生成快速定义表单窗口。 （3）执行表单：右击表单窗口空白处调出快捷菜单选定“执行表单”命令是否保存？是运行结果。第二，以SBQ.SCX为基础，设计能修改SB表数据的表单。要求如下（参见课本P216的例7-10）：A）若输入编号代码为全零，或以9开头给予信息提示（动作部分）；B）在名称1文本框之下添加一个组合框，以便既可在文本框中修改名称，也可在组合框中选用名称；

10、C）将部门1文本框设置为只读，然后在其右侧添加一个列表框，并使在列表框中选取的部门显示在该文本框中；D）删除价格1文本框，然后添加一个微调控件来替代它，使价格直接输入或微调；E）使主要设备1复选框的标题随其值而变化，值为.T.时显示为主要设备，否则显示非主要设备；F）在窗口右上角添加两个标签，分别用来显示“第”和“页”字样，在这两个标签中间添加一个文本框用来显示记录号；G）添加命令按钮组，其中包含3个命令按钮，分别用于使记录指针下移一个记录、上移一个记录和关闭表单；H）在表单中添加两条下缘发亮的线条。操作（控件调整属性设置动作编码）：1）复制表单并打开表单设计器：MODIFY FORM SBQ

11、“文件”菜单的“另存为”命令键入文件名“sbxg”保存按钮。 第一部分 控件调整及属性设置2）按要求调整以下控件：按图7-11（课本P216）移动控件位置：添加combo1组合框控件和List1列表框控件。添加线条：一条灰线下面一条白线，紧靠在一起。注意调整线条line的Bordercolor属性。在表单底部居中创建包含下页、上页和退出命令按钮的命令按钮组：点击表单控件工具栏中的“命令按钮组”控件，将其放置在表单下部。右键单击该控件，从弹出菜单中选择“生成器”命令，进入“命令组生成器”界面。按下图所示进行调整。 窗口右上角添加Label1和Label2两个标签和Text1文本框。属性按下表设置

12、：对象属性属性值说明Label1Caption第指定标签标题Label2Caption页指定标签标题Text1ControlSourceyh与公共变量yh绑定以显示页号BorderStyle0无设置为无边框BackStyle0透明设置为与表单底色相同删除价格1文本框，添加一个微调控件（Spinner1）替代它，并将其ControlSource属性与SB.价格绑定，使价格直接输入或微调； 调整控件后的表单设计界面如下图所示（红色圈标志有改动之处）： 3）将部门1文本框设置为只读（在文本框生成器或属性窗口均可设置）；4）数据环境设置：在数据环境中添加BMDM表，并取消SB表与它的关联（避免记录指针

13、随列表框的选定选项移动）；5）部分控件的属性设置：所有标签字体设置为宋体，10号字，其它属性见下表：对象属性属性值说明Form1Caption设备表维护设置表单标题栏标题Combo1Style2下拉列表框指定组合框类型RowSourceType5数组指定值源类型为数组RowSourcemc指定数组名，数组在表单Init事件建立List1RowSourceType2别名定值源类型为表，由数据环境提供RowSourceBmdm指定表名ColumnCount2确定列数BoundColumn1默认值，第1列有效Check1ControlSourceSB.主要设备复选框与 SB.主要设备绑定 第二部分

14、动作编码 Form1的Init事件代码：Public array mc(10,1) Copy To Array Mc Fields Sb.名称go 1 Form1的Refresh事件代码：yh=recno() && 表单刷新时用变量yh存储当前记录号 编号1文本框的Valid事件代码：if This.Value<="000-0" or This.Value>="9" Messagebox("超出范围！") Endif Combo1的Click事件代码（使用户可在组合框中选用所需名称）： Thisform.名

15、称1.Value=This.Valuejlh=Recno()Copy To Array Mc Fields SB.名称Thisform.Combo1.Numberofelements=Reccount()Go jlh List1的Click事件代码：Thisform.部门1.Value=This.Value 复选框主要设备1的InteractiveChange事件代码：If This.ValueThis.Caption="主要设备"elseThis.Caption="非主要设备"endif复选框主要设备1的Refresh事件代码：If Evaluate(

16、This.Controlsource)This.Caption="主要设备"elseThis.Caption="非主要设备"endif 命令按钮组Commandgroup1的Click事件代码：do case case this.value=1 if Recno()<Reccount() skip endif Thisform.refresh case this.value=2 If Recno()>1 skip-1 endif Thisform.Refresh Case This.value=3 Thisform.releaseendcas

17、e最后，运行表单，结果如下图所示：任务3报表设计任务3-1 利用快速制表功能，为SB.DBF设计一个包括编号、名称和价格的报表，并具有正确的表格线。操作：1）打开报表设计器窗口：命令窗口键入MODIFY REPORT SBJGB，打开报表设计器窗口。2）设置数据源：在报表设计器窗口右键调出快捷菜单，选定“数据环境”命令，在数据环境设计器窗口添加SB表。3）启动快速制表：选定报表设计器窗口选定“快速报表”命令显示快速报表对话框。注意：报表设计器窗口的细节带区为空时才能点击快速报表命令。 4）设置快速报表属性：选定快速报表对话框的“字段”按钮在字段选择器中依次选出编号、名称和价格3个字段选定“确定

18、”按钮返回快速报表对话框选定“确定”按钮返回报表设计器窗口。5）调整各报表带区的高度：移动报表控件建立表名画出表格线。首先把页标头带区高度加大，然后添加标签控件“设备价格表”（调整好字体大小和粗体格式）。然后添加线条控件，2条水平线条和4条垂直线条（设置好合适的线条宽度）。可以随时预览各控件的布局，以便调整到合适位置。然后调节细节带区的控件位置，可以采用“复制粘贴”的方式，把页标头带区的水平线条和垂直线条复制并移动到细节带区合适位置。1条水平线条和4条垂直线条。并把页注脚带区的日期和页码控件删掉。得到下图的格式和预览结果。6）保存报表定义：“文件”菜单“保存”选项产生报表文件SBJGB.FRX

19、及其备注文件SBJGB.FRT。7）报表预览：“显示”菜单或快捷菜单预览报表。程序中如果需要调用设计好的报表，只需要在相应控件的相应事件代码中添加代码：REPORT FROM * PREVIEW &&*表示报表名任务3-2 打印如下图所示的主要设备的设备役龄表，要求包括记录序号和设备役龄，部门在打印时使用汉字部门名。提示：本题设计到多表数据环境，而且需要自定义报表设计中的报表变量和域控件。操作：1）打开“报表设计器”窗口：MODIFY REPORT SBYL。2）设置数据环境：在数据环境中添加SB表和BMDM表，并使SB.部门与BMDM.代码关联。3）定义快速报表：“报表”菜单“快速报表”命令在“快速报表”对话框中选定“字段”按钮在“字段选择器”对话框的SB表中挑选编号、名称、部门3个字段“确定”按钮返回“快速报表”对话框“确定”按钮返回“报表设计器”窗口出现编号、名称、部门标签（页标头带区）和字段控件（细节带