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

VFP超市商品销售管理系统

减小字体

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

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

4系统实现

4.1软件开发工具与运行环境

本系统是采用Visual FoxPro 6.0制作的，是当今比较流行的可视化工具,它不像Visual Basic 6.0一样需要借助其它的数据库来完成某个软件开发。它有自带的数据库，不仅可以简化数据库管理，而且能使应用程序的开发流程更为合理。Visual FoxPro 6.0使组织数据、定义数据库规则和建立应用程序等工作变得简单易行。利用可视化的设计工具和向导，用户可以快速创建表单和打印报表等。Visual FoxPro 6.0还提供了一个集成化的系统开发环境。它不仅支持过程式编程技术，而且在语言方面作了强大的扩充，支持面向对象可视化编程技术，并拥有功能强大的可视化程序设计工具。目前，Visual FoxPro 6.0是用户收集信息、查询数据、创建集成数据库系统，进行实用系统开发较为理想的工具软件^[8]。此系统运行范围非常广泛，对于一般的操作系统它都可以运行，比如：Windows 98、Windows 2000、Windows XP等操作系统。

4.2系统功能模块的实现

1、系统首页功能的实现

系统主页表单用来显示本系统的设计者,主要功能就是调用本系统的登录表单，它由主程序启动，当用户单击“进入”按钮后，将打开系统登录表单，当用户单击“取消”按钮时，系统就会退出Visual Foxpro 6.0表单。运行结果如图4.1所示：

图4.1系统首页表单

在运行时我们可以看见一些特殊的效果，如：“欢迎使用”可以向右慢慢移动。我们只要在表单中加一时钟，并在时钟的timer事件中编如下代码：

if thisform.label4.left=thisform.width

thisform.label4.left=0

else

thisform.label4.left=thisform.label4.left+1

endif

我们还可以看见大标题“超市商品管理系统”在不断的闪不同的颜色，这只要在时钟的timer事件中编如下代码：

i=int(rand()*255)

j=int(rand()*255)

k=int(rand()*255)

thisform.label1.forecolor=rgb(i,j,k)

如点击“进入”则只需在表单的“进入”按钮的“click”事件中编如下代码：

do form logon

2、系统登录功能的实现

每个系统都有自己的用户名和密码，以防他人偷窥。同样本系统主要是为用户的方便管理，如查看月收入、月支出等。所以本系统也有它的专用密码。只有拥有此密码的用户才有权去观赏此系统。此登录表单的运行

3、系统主界面功能的实现

主表单的作用如下：

(1)作为程序主窗口。

(2)装载主菜单。

(3)装载状态栏。

在这里，每个功能模块上的图片都能不断变化，因为它们都是用flash制作的。只要当用户输入正确的户名和密码时，点击“确定”按钮就会调用此表单。语句为：

do form 主程序.scx

4、商品信息管理功能的实现

商品信息管理功能主要实现商品编辑、查询等功能。

在此表单中，使用了2个自定义表单属性“oldrecord”和“formmode”：

(1)“oldrecord”属性：初始值为0，用来保存表单状态改变之前，“商品信息”表

中的记录指针的位置。

(2)“formmode”属性：初始值为.F.,用来标记表单中记录的修改情况。

另外还自定义2个表单方法“checkempty”和“setmode”：

(1)“checkempty”方法：用来检测“商品信息”表是否为空，以及该表中的记录指

针的位置，并根据情况对表单的控件属性做出相应的操作。

(2)“setmode”方法：根据自定义属性“formmode”的值来设置表单中控件的属性。

调用此表单的语句当然也不例外：

do form proadmin

5、商品信息查询功能的实现

从商品信息管理表单中看出我们可以对商品进行浏览、查询、修改等，当我们点击“查询”按钮时，弹出一对话框，在这里我们可以按多种字段进行查询商品。

6、商品进货功能的实现

“超市商品管理系统”中的日常操作模块包括“商品进货操作”和“商品出货操作”功能，分别由“商品进货操作”“商品出货操作”表单来完成。但进货操作和出货操作过程基本相同，在这里我们只介绍“商品进货操作”过程。

“商品进货操作”表单主要用来进行商品进货操作，其具体的运行结果如图4.6所示：

在这里，我们需要创建autoadd函数，因为“超市商品管理系统”的“进货信息”表中的“进货编号”定为一个10位的编号，其中前6位由当前系统日期的“年”“月”“日”各2位数字组成，后4位从“0001”开始递增。“autoadd”函数的作用是将类似于“00000XX”形式的字符串递增。实现此过程的具体代码如下：

*---作用：使“00000XX”形式的编号自动加1

FUNCTION AUTOADD(NCODE)

*---获取字符串长度

nlen=nlen(ncode)

*---将字符型转换为数值型，即获取非0部分的数值

ncode=val(ncode)

*---非0部分数字加1

ncode=ncode+1

*---转换为字符型

ncode=alltrim(str(ncode))

*---获取转换后的字符串的长度

nlength=len(ncode)

*---在数字之前加上前置“0”

nzero=“0000000000”

ncode=substr(nzero,1,nlen-nlength)+ncode

return ncode

endfunc

7、进货信息查询功能的实现

“超市商品管理系统”中的信息查询模块由“进货信息查询”、“出货信息查询”、“库存信息查询”3个功能组成，分别由“进货记录查询”、“出货记录查询”、“库存记录查询”3个表单完成。因为它们3个的过程基本相同，所以我们这里只介绍“进货信息查询”表的实现过程。“进货信息查询”表单用来在“进货信息”表中查询进货记录，由于在“进货信息”表中所含的信息太少，所以使用“进货信息”和“商品信息”表创建了“inview”视图作为查询对象。

在这里要注意的是“进货信息查询”表单在初始化时设定声明一个全局变量来保存查询条件，并且将该全局变量赋初值，然后选择“inview”视图所在的工作区，清除其中可能存在的过滤条件，最后刷新表单。即此表单的“init”事件代码如下：

*——声明全局变量保存查询条件

PUBLIC SearchFilter

*——初始值为“.T.”

SearchFilter=“.T.”

*——清除“InView”视图中可能存在的过滤条件

SELECT InView

SET FILTER TO

THISFORM.Refresh