当前位置：5173毕业设计论文网 → 文章资讯 → VFP

基于VFP固定资产管理信息系统的设计

减小字体

增大字体作者：佚名来源：本站整理发布时间：2011-02-16 21:11:00

在线咨询详情 5173论文网竭诚为您服务本站永久域名：www.lw5173.com

第五章　系统的详细设计

本处列出本系统的主要运行界面以及主要界面的源代码。

5．1系统登陆界面：

本模块是本系统的登陆界面，是为了系统的安全性而考虑的，以防发生数据泄露，并在相应的系统维护模块里有密码修改的功能，从而完善了本系统的使用安全性（系统登陆时的默认密码为6666，可以自己进行修改）。

代码如下：

form1.init:

public n,m

n=1

restore from pass additive

thisform.pass=pass

thisform.text1.setfocus

form1.destroy:

if m=1

clear event

endif

form1.load:

if val(subst(dtoc(date()),7,2))>4

do whil .t.

enddo

endif

command1.click(确定按钮)：

if (n>2)

=messagebox("口令三次输入错误,不能使用本系统",48,"信息提示")

m=1

thisform.release

else

if alltrim(thisform.pass)==alltrim(thisform.text1.value)

m=2

thisform.release

do mainmenu.mpr

else

=messagebox("口令不正确, 重新输入",48,"信息提示")

thisform.text1.value=space(10)

n=n+1

thisform.text1.setfocus

endif

command2.click(取消按钮)：

m=1

thisform.release

5．2系统主界面：

在下面的程序抓图中，我们可以看到本系统所具备的所有功能，即五个功能子菜单，一些子菜单下面还有相应的功能模块。

5．3数据编辑模块：

本模块是本系统的主要的数据编辑模块，包括记录指针的移动，记录的增加、删除、编辑等基本操作，从而完成了本系统的一些基本资料（即资产）情况的全方位维护。

5．4数据查询模块：

在具体的工作中，由于工作的需要，比如要对本校的资产情况进行了解时却一下子不能快速找到自己所需要的资料时，就可以在本模块中进行快速查询，我们可以进行单独条件的查询，也可以进行组合查询。（上图是比如要查询出厂号为20021103的结果）

5.5系统维护模块：　　　　　

本模块为系统的功能维护模块，具有四个功能，包括数据的备份和恢复（即导入和导出），系统密码的修改和系统初始化（删除所有数据）。

form1.test:

ok=.T.

oldp=sys(5)+sys(2003)

on error ok=.F.

set defa to a:

set defa to &oldp

return ok

form1.click:

thisform.container1.visible=.F.

option1.init:

thisform.container1.visible=.F.

if thisform.test1()=.F.

=messagebox("请将要一张空白软盘插入到A驱动器中后再选择本选项",48,"提示信息")

return

endif

use gzb in 0

select gzb

copy to a:gzb

use in gzb

use pmb in 0

select pmb

copy to a:pmb

use in pmb

=messagebox("数据转出完毕!",48+0,"信息提示")

option1.mousemove:

LPARAMETERS nButton, nShift, nXCoord, nYCoord

THIS.MOUSEPOINTER=99

THIS.MOUSEICON="POINT.CUR"

Option2.click:

thisform.container1.visible=.F.

if thisform.test1()=.F.

=messagebox("请将要转入数据的软盘插入到A驱动器中后再选择本选项",48,"提示信息")

return

endif

h=fopen("a:gzb.dbf")

if (h=-1)

=messagebox("你的软盘不包含要转入的数据,请插入正确的软盘后再选择本选项",48,"提示信息")

return

endif

=fclose(h)

use gzb in 0

select gzb

append from a:gzb

use in gzb

use pmb in 0

select pmb

append from a:pmb

use in pmb

=messagebox("数据转入完毕 !",48+0,"信息提示")

option2.mousemove:

LPARAMETERS nButton, nShift, nXCoord, nYCoord

THIS.MOUSEPOINTER=99

THIS.MOUSEICON="POINT.CUR"

Option3.click:

restore from pass additive

thisform.container1.visible=.T.

thisform.container1.text1.value=pass

thisform.container1.text2.setfocus

otption3.mousemove:

LPARAMETERS nButton, nShift, nXCoord, nYCoord

THIS.MOUSEPOINTER=99

THIS.MOUSEICON="POINT.CUR"

Option4.click:

thisform.container1.visible=.F.

??chr(7)

if messagebox("真的进行系统初始化,删除所有的数据!",4+32,"提示信息")=6

set exclusive on

use gzb in 0

select gzb

zap

use pmb in 0

select pmb

zap

=messagebox("系统初始化过程己完成!",48,"信息提示")

endif

option4.mousemove:

LPARAMETERS nButton, nShift, nXCoord, nYCoord

THIS.MOUSEPOINTER=99

THIS.MOUSEICON="POINT.CUR"

Command5.click:

thisform.release

comm.and5.mousemove:

LPARAMETERS nButton, nShift, nXCoord, nYCoord

THIS.MOUSEPOINTER=99

THIS.MOUSEICON="POINT.CUR"

5.6系统帮助模块

显示出本系统的相关信息。

第六章、系统的实现

6．1系统开发环境：

系统开发环境包括硬件平台和软件平台两种。

硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统是一个小型的MIS管理系统，因此对计算机硬件的要求不高，比较经济，只要配备有PII处理器（或以上）、64M内存（或以上）、10G硬盘（或以上）的普通微机即可顺利运行。

软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性较强的Windows XP中文专业版和Visual Foxpro6.0作为开发语言，由于这些软件产品都是Microsoft公司的产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。

Visual Foxpro 6.0具有可视化的开发环境，可以快速完成系统的开发，内部集成的数据库访问通道，使得可以轻松方便的对数据库管理。

本系统在单机上运行。

6.2系统测试：

在MIS开发过程中采用了多种措施保证软件质量，但是实际开发过程中还是不可避免地会产生差错，系统中通常可能隐藏着错误和缺陷，示经周密测试的系统投入运行，将会造成难以想像的后果，因此系统测试是MIS开发过程中为保证软件质量必须进行的工作。大量统计资料表明，系统测试的工作量往往占MIS开发总工作量的40%以上。因此，我们必须重视测试工作。

由于程序中隐藏的缺陷只在特定的环境下才有可靠显露，系统缺陷通常是由于对某些特定情况考虑不周造成的。因此测试不是为了表明程序正确；成功的测试也不是没有发现错误的测试。有意义的软件测试应该是从“破坏”软件系统的角度出发，精心设计最有可以暴露程序系统缺陷的测试方案。因此软件测试的目标应该是以尽可能少的代价和时间找出软件系统中潜在的错误和缺陷。

以上内容只是毕业设计作品的部分资料介绍,如果了解更多详情请联系客服QQ:57510459
购买帮助>>