毕业设计（论文）报告纸
”’”+’and’
endif endfor
*这一段“for?endfor”语句的功能是通过if语句判继将 *所有查询条件不为空的字段名内容用“=”连接，
*各查询条件之间用“and”连接组成一个新字符串存在局部变量“condition”中
condition= left(condition,len(condition)-5) condition=alltrim(condition)
*通过两个函数“left()和alltrim()”去掉“Condition”字符串中尾部多余的字节和前后的 *空格
select * form ystzsj where &condition
*利用宏功能，将局部变量“condition”中存的字符串为查询条件，查找符合的记录
for i=2 to 38 step 2
str1=alltrim(thisform.Pageframe1.Page1.controls(i-1).name) str2=substr(str1,4)
thisform.Pageframe1.Page1.controls(i-1).controlsource=’ystzsj..’+str2
thisform.Pageframe1.Page1.controls(i-1).enabled=.f. endfor
*将Page1上各“Text”控件的“controlsource”属性与“ystzsj”表中的相应字段建立联系
在“Command3”的“Click”事件中添加代码如下： SET MULTILOCKS ON
cursorsetprop(\for i=2 to 38 step 2
thisform.Pageframe1.Page1.controls(i-1).controlsource=’’ thisform.Pageframe1.Page1.controls(i-1).enabled=.T. endfor
16
毕业设计（论文）报告纸
*通过循环语句继开“Page1”中各“Text”控件的“controlsource”属性，同时将其置为可用 ed=.f.
*置与数据库有关的按钮为不可用，以防误操作。 将表单保存后整个原始台帐数据查询模块就建立起来了。 5.5初始化模块设计
该模块的主要功能是使用可以定期清空数据库表内容，同时也能保存表结构。以便新数据的输入，防止旧数据对新数据产生不必要的影响，为用户节省更多的磁盘空间，本模块可利用一个表单实现其功能。
该模块的设计如下。
首先新建一表单Form1，保存为“czh”。修改其“Caption”属性为“初始化数据表单”，“Desktop”属性设置为“.T.-True”。为该 表单添加1个“Container1”控件、1个“Image1”控件，2个“Command”控件和2个“Labe1”控件。
在“Container1”控件上添加2个“Check”控件。
各控件的主要属性表略。
下面为各事件添加代码。
在“Command1”控件的“Check”事件中添加代码如下： if thisform.container1.check1.value=1 use jlqjgl\\database\\ystzsj exclusive
delete all pack use endif
if thisform.container1.check2.value=1
use jlqjgl\\database\\ bmhlsj delete all pack use endif
*将选定的数据表格清空。
在在“Command2”控件的“Check”事件中添加代码如下： thisform.release
17
毕业设计（论文）报告纸
将该表单保存后这一模块就建立好了。 5.6数据录入模块设计
该模块的功能是初始化后进行新数据的输入，只有将数据写入到相应的数据表中才能对它们进行查询、修改、打印等操作。本模块利用在一个表单中设置3个不同标签页来实现其功能。
该模块的设计步骤如下：
首先新建一个表单Form1,保存为“sjlr”。修改该表单的“Caption”的属性为“数据输入界面”，“Desktop” 属性设置为“.T.-True”。为该表单添加1个“Pageframe1”控件。
在“Pageframe1”控件上添加3个“Command”控件。
参考原始数据查询模块中数据表的添加方法，为该表单添加“ystzsj”数据表。 在“Pageframe1”控件上单击鼠标右键选择“Edit(编辑)”，激活“Page1”控件。将“Data Enviroment(数据环境)”中表“sytzsj”中各字段用鼠标拖放至“Page1”上，并调整各控件相对位置使页面美观。
修改““Pageframe1””控件中“Pagecount”属性为“1”。 “Command”控件和“Page”控件的“Caption” 属性如表略。 thisform.release
“Pageframe1”控件中其它“Page”页各事件中代码与“Page1”中类似，本设计不再一一列出。然后将表单“ystzk”、“jxjdk”和“bmsyk”保存后，这一模块就建立好了。
5.7数据修改模块设计
数据更新模块的主要功能是为用户提供一个修改已录入数据的窗口。这一模块的界面设计如下。
5.7.1首先创建一个“Fy.vcx”导航条的子类设计如下：
A.在项目管理器中选择“Classes(类)”选项卡， B.选择新建“New(新建)”，出现一个类对话框，
C.在“Class Name(类名)”框中键入fy,“Based On（派生于）”框中选择“Command Group(按钮组)”，存储框中填入要存的路径。单击“OK（确定）”按钮进入设计窗口。
D.在属性窗口中修改Buttoncount(按钮数目)属性，使其值为4，这时出现了4个按钮，将按钮拖动到适当的位置，并根据需要修改每个按钮的Caption属性，使其为“上一个”、“第一个”、“下一个”、“最后一个”。
18
毕业设计（论文）报告纸
E.在按钮“上一个”的Click事件中输入如下代码： skip-1 *记录后退一个 if bof() *如已为第一个记录
messagebox(“已是第一个记录”,48,“信息窗口”) *当已为第一个记录时,显示提示信息 this.parent.commend1.enabled=.f. this.parent.commend2.enabled=.f. skip
*记录前进一个，使之仍显示第一个记录
else
this.parent.commend1.enabled=.t. this.parent.commend2.enabled=.t.
endif
this.parent.commend3.enabled=.f. this.parent.commend4.enabled=.f. *根据状况设置各按钮的可用状态 thisform.refresh 功能：向前翻页
F.在按钮“第一个”的Click事件中输入如下代码：
goto top
*到第一个记录
this.parent.commend1.enabled=.f. this.parent.commend3.enabled=.t. this.parent.commend4.enabled=.t. *根据状况设置各按钮的可用状态 thisform.refresh
功能：翻页至第一个记录。
●在按钮“下一个”的Click事件中输入如下代码： skip *记录前进一个
19
毕业设计（论文）报告纸
if eof() *如已为最后一个记录
messagebox(“已是最后一条记录”,48,”信息窗口”) skip-1 *记录后退一个，使之仍为显示最后一个记录 d=.t.
*根据状况设置各按钮的可用状态 thisform.refresh 功能：向后翻页
●在按钮“最后一个”的Click事件中输入如下代码： goto bottom *到最后一个记录
this.parent.commend3.enabled=.f. this.parent.commend1.enabled=.t.
this.parent.commend2.enabled=.t. *根据状况设置各按钮的可用状态 thisform.refresh
功能：翻页至最后一个记录
以上就是一个具有翻页功能的fy子类就创建出来了。
其次新建一个表单Form1,保存为“sjxg”。修改该表单的“Caption”的属性为“数据输入界面”，“Desktop” 属性设置为“.T.-True”。为该表单添加1个“Pageframe1”控件。
在“Pageframe1”控件上添加3个“Command”控件。
参考原始数据查询模块中数据表的添加方法，为该表单添加“ystzsj”1个数据表。
在“Pageframe1”控件上单击鼠标右键选择“Edit(编辑)”，激活“Page1”控件。将“Data Enviroment(数据环境)”中表“sytzsj”中各字段用鼠标拖放至“Page1”上，并调整各控件相对位置使页面美观。
然后单击“ Form Controls” 窗口中的“View Classes”按钮，在弹出的菜单中选择“Add(添加)”，在弹出的对话框中创建类“Fy.vcx”。这时“Form Controis”中的控件修改““Pageframe1””控件中“Pagecount”属性为“1”。的样子，单击“Fy”，
20