毕业设计（论文）报告纸
为表单添加该控件。“Command”控件和“Page”控件的“Caption” 属性表略。
5.8数据备份模块设计
这一模块的主要功能是将数据库中的表备份到指定的路径中，以防止数据的丢失，同时可在数据库中的表损坏时恢复表，避免更大的损失。这一模块也是通过设计一个表单来实现的。
为了实现该模块的设计，需要首先自建一个继承于OutLine类的“ActiveX”控件，名称为“OleOutLine”。
首先单击菜单条中的“New(新建)”按钮，在弹出的对话框中选择类（“class”），单击“New(新建)”按钮，创建一个新类，创建过程如下：
在弹出的对话框中的“Class Neme(类名)”中填写“outline”；在“Based on(派生于)”中单击右侧按钮选择“OleControl”；在“Store in(存储于)”中填写存储路径名，本系统为“c:\\program files\\microsoft visual\\vfp98\\jlqjgl”。单击“OK（确定）”在弹出的对话框中的左侧单选框中选择“Insert Control_Type”框中选择“OutLine Control”然后单击“OK（确定）”按钮。
这样就完成了一个新控件的建立过程，该控件将保存在选定的路径中。 下面为该控件添加一些事件。
为该控件新建事件的步骤为：首先单击菜单中的“Class(类)”，在弹出的菜单中选择“NEW Method?(新建方法程序)”，在弹出的对话框中“Name(名称)”框中填写所要添加的事件名即可。
.
*置“备份文件”按钮为可用 release path2 release m.cDir
在“Command2”的“Click”事件中添加代码如下： close all
*关闭所有工作区中已被打开的数据库、表和索引文件 local path1
*定义局部变量“path1”
path1=alltrim(thisform.text1.value) *为局部变量“path1”赋值 if len(path1)=2
21
毕业设计（论文）报告纸
path1=path1+’\\’ endif
*如果路径名为盘符根目录，则应在文件名后加“\\”否则备份文件时会出错 if thisform.container1.check1.value=1 *如果用户选择了“check1”
copy file jlqjgl\\ystzsj.dbf to &path1 *将相应文件备份至选定目录 thisform.command2.enabled=.f. *置“备份文件”按钮为不可用 release path1
open database jlqjg\\jlqjgl.dbc exclusive *以独占方式打开数据库“jlqjgl.dbc”
在“Command3”的“Click”事件中添加代码如下： thisform.release
*将该表单保存后这一模块就建立好了，数据备份模块设计完成。 5.9打印模块设计
该模块的主要功能是打印数据报表的界面并提供打印预览功能。界面都包括了需要打印的报表，下面介绍打印界面中“原始台帐数据表”、“检修检定数据表”、“部门使用数据表”和“封存器具数据表”报表的设计方法。
首先设计打印界面的设计，这一界面通过一个表单的设计实现。打印界面的基本设计方法与控件的使用与前面的表单设计大同小异，其设计结果和控件中相应的代码。
在“打印”按钮的“Click”事件中添加代码如下： do form jlqjg\\sjby *打开下级表单
在“返回”按钮的“Click”事件中添加代码如下： thisform.release
“打印”按钮打开的是“打印界面”，该打印也是通过一个表单设计实现的，该界面的设计结果如下：
在“预览”按钮的“Click”事件中添加代码如。 *释放该表单
至此打印模块各界面设计结果，下面介绍“原始台帐数据”、“检修检定数据”、“部
22
毕业设计（论文）报告纸
门使用数据”和“封存台帐数据”报表的设计。
首先在“Project Manager(项目管理器)”中选择“Documents(文档)”页，在其中选择“reports(报表)”，单击右侧“New(新建)”按钮新建一报表，保存为“tz”。
然后单击菜单的“report(报表)”按钮，在弹出的下拉菜单中选择第一项“Title/Summary?”，在弹出的对话框中选择“Title band”并按下“OK(确定)”。这时出在新建的报表上方多出了一栏“Title”。
目前报表设计器中共分标题带区“Title（标题带区）”、“Page header( 页标头带区)”、“Detail(细节带区)”和“Page footer(页注脚带区)”共4个带区，每个带区在设计时的主要功能如下：
● “Title（标题带区）”：放置标题、日期等围绕标题内容的矩形框，每个报表打印一次。
● “Page header( 页标头带区)”：放置列标题，每页打印一次。 ● “Detail(细节带区)”：放置数据和描述性文本。每个分组打印一次。 ● “Page footer(页注脚带区)”：放置日期、页号等。每页打印一次。 在菜单栏中选择“View(视图)”，在下拉菜单中选中“ Grid Lines(网格线)”打开网格。
利用报表工具栏中的控件在报表设计器中设计报表。 设计步骤如下：
在标题带区添加1个“Labe1”控件，内容添加为“原始台帐数据报表”；添加1个“Field”控件，在弹出的对话框中单击表达式右侧按钮，在弹出的对话框中选择函数“Date()”。
用同样的方法为页注脚带区也添加1个“Field”控件，表达式为”第”+alltrim(str(_pageno))+”页”返回当前页的数值，str()函数将数值表达式值转换为字符串，alltrim()函数则去掉字符串首尾的空格。
“Page header( 页标头带区)”和“Detail(细节带区)”的设计参见报表设计结果。与表单的数据环境设置一样，将表“tz”添加到该表中。将报表中对应的字段利用“Field”控件添加到报表的细节区中，保存文件后，“原始台帐数据报表”的报表就建立好了。将“检修检定数据”、“部门使用数据”和“封存器具数据”报表一一设计并保存文件后，打印模块的全部功能就设计完毕了。 5.10代码设计
本系统代码设计包括启动的主程序、设置系统执行的配置环境程序和恢复环境配置的程序。
23
毕业设计（论文）报告纸
主程序
主程序是应用程序的主文件，即应用系统的第一个执行程序。该程序的功能包括 （1） 确认安装目录并设定其为默认目录。这样在执行所有的表单、报表、程序、
菜单时就不用在加绝对路径。 （2） 声明应用系统执行的配置环境。 （3） 执行第一个用户界面。
（4） 设置Visual Foxpro 6.0的桌面环境。 （5） 设置读取程序的开始点。
（6） 执行应用程序结束时系统环境还原程序。
建立方法为：在项目管理器的代码页中选择“Program(程序)”，在单击“New(新建)”按钮，在弹出的程序框中编写代码
主程序中代码如下：
******************************** *应用系统主程序 *程序名称：MATN.PRG
******************************** LOCAL,lcProgram LcSys16=SYS(16)
LcProgram=SUBSTR(lcSys16,AT(“:”,lcSys16)-1) CD LEFT(lcProgram,RAT(“\\”,lcProgram)) DEACTIVATE WINDOW “PROJECT MANAGER” Do jlqjgl\\setting Do form jlqjgl\\welcome _screen.caption=” _screen.left=-10000 READ EvENTS DO jlqjgl\\reset 代码设计说明。
● 使用“LOCAL”定义2个局部变量。
● 使用系统参数“SYS（16）”返回当前正在运行的程序名，包括路径。 ● 使用AT()函数返回第一个字符串在第二个字符串中首次出现的数字位置。本系统地“.”在程序名中的位置。
24
毕业设计（论文）报告纸
● SUBSTR()函数返回在另一个字符串。其中逗号后的数字表明在指定字符串中的开始位置。
● RAT() 函数返回在另一个字符中最后出现第一个字符串的位置。 ● LEFT()函数从一个字符串中的最左端返回指定数目的字符。
● DEACTIVATE WINDOW “PROJECT MANAGER”语句可以把项目管理器关闭。 ● 使用DO命令执行程序setting.prg，设置执行期间的配置程序。 ● 使用DO FORM执行系统的第一个界面程序。
● 执行READ EVENTS指令开始读取事件程序，让程序开始运行起来。 ● 当执行了CLEAR EVENTS事件程序后。通过DO命令执行一个配置还原程序reset,还原 系统配置。
程序Setting.prg是用来设置环境配置的，它包括关掉系统菜单，允许显示运行结果，隐藏状态栏等一系列有利于程序运行的设置。 Setting.prg程序的代码如下： ******************************** *环境配置程序
*程序名称：SETTING.PRG
******************************** set sysmenu off set sysmenu to set status bar off set notify off set clock status set palette off set escape on
set keycomp to windows set carry on set confirm on set exact on set near on set ansi off set lock on
25