vfp课程设计报告

简要介绍资料的主要内容,以获得更多的关注

VFP课程设计

设计人员：康艳，刘露露，刘艳红，杨柳，吴晶晶，邹敏

1.系统设计目标

该系统的具体任务就是设计一个家电行业个体户的管理系统，由计算机代替人工执行一系列诸如仓库管理，名片管理，销售发票的管理等操作。这样就有效解决了个体户管理混乱的问题，使日常销售程序化、有理化、自动化，从而达到提高个体户经营效率的目的。

设计的指导思想是一切为用户着想，界面要美观大方，操作尽量简单方便，而且作为一个实用的应用程序要有很好的容错性，在用户出现错误操作时能尽量及时给出提示，以便用户及时更正。

2.开发和运行环境

开发工具：Visual FoxPro 6.0

运行环境：Windows 2007 、Windows 2000、Windows XP

3.系统功能

系统数据初始化

仓库信息的添加 仓库信息的修改 仓库信息的删除 名片信息的添加 名片信息的修改 名片信息的删除 仓库信息报表浏览

简要介绍资料的主要内容,以获得更多的关注

仓库信息报表打印 名片报表浏览 密码修改

4.系统功能模块结构图

系统采用模块化程序设计方法，既便于系统功能的各种组合和

修改，又便于未参与开发的技术维护人员补充、修改。在系统功能分析的基础上，考虑Visual FoxPro 6.0程序编制的特点，得到如下所示的系统功能模块结构图。

系统功能模块结构图

简要介绍资料的主要内容,以获得更多的关注

6.数据库表设计结构

（1）仓库表如下：

设计过程如下

简要介绍资料的主要内容,以获得更多的关注

（2）名片表结构如下

设计过程如下

简要介绍资料的主要内容,以获得更多的关注

（3）发票表结构如下

简要介绍资料的主要内容,以获得更多的关注

设计过程如下

（4）密码表结构如下

简要介绍资料的主要内容,以获得更多的关注

7.主要模块的设计说明和程序代码

主程序代码

set talk off set stat off set dele on set safe off

set default to f:\软件\vfp2 do form f:\软件\vfp2\欢迎

欢迎界面

简要介绍资料的主要内容,以获得更多的关注

登陆界面

在该表单的数据环境中添加mm表，使其与mm内设置的用户名和密

简要介绍资料的主要内容,以获得更多的关注

码联系。

“确定”按钮的“click”事件中添加代码如下： public 用户 set exact on

x1=allt(thisform.text1.value) x2=allt(thisform.text2.value) locate for allt(密码表.姓名)==x1 if !found()

k= messageb("该用户不存在,请重新输入!",1+32+0,"友情提示") if k=1

thisform.text1.value="" thisform.text1.setfocus endif else

yh=allt(thisform.text1.value)

if alltr(密码表.密码)==alltr(thisform.text2.value) messageb("登录成功,欢迎使用!") thisform.release do form 主界面.scx else

k=messageb("密码有误，请重新输入!",1+32+256,"警告") if k=1

thisform.text2.value="" thisform.text2.setfocus endif endif endif

退出”按钮的“click”事件中添加代码如下：

x=messagebox('确认退出系统吗?',1+32+256,'友情提示') if x=1

thisform.release clear events else

thisform.text1.value="" thisform.text1.setfocus endif

系统主界面

简要介绍资料的主要内容,以获得更多的关注

销售单据”按钮的“click”事件代码如下：do form 销售单据.scx 密码设置”按钮的“click”事件代码如下：do form 密码设置.scx 仓库查询记录”按钮的“click”事件代码如下：do form 查询记录.scx 仓库记录添加”按钮的“click”事件代码如下：do form 记录添加.scx 仓库记录修改”按钮的“click”事件代码如下：do form 记录修改.scx 名片记录查询”按钮的“click”事件代码如下do form 记录查询修改.scx 名片记录添加”按钮的“click”事件代码如下do form 记录添加.scx 仓库记录修改”按钮的“click”事件代码如下do form 记录修改.scx 报表浏览打印”按钮的“click”事件代码如下do form 报表浏览打印.scx “退出系统”按钮的“click”事件代码如下：

x=messagebox('确认退出系统吗?',1+32+256,'确认退出') if x=1

thisform.release clear events endif

密码修改

简要介绍资料的主要内容,以获得更多的关注

表单中“密码保存”命令按钮的“click”事件代码如下： public 密码表

locate for alltr(密码表.姓名)=姓名

if alltr(密码表.密码)<>alltr(thisform.text1.value) messageb("原密码有误,请重新输入!") thisform.text1.value="" thisform.text1.setfocus return else

if alltr(thisform.text2.value)<>alltr(thisform.text3.value) messageb("新密码输入不一致，请重新输入!") thisform.text2.value="" thisform.text3.value="" thisform.text2.setfocus return else

replace密码表.密码 with alltr(thisform.text2.value) messageb("密码修改成功 ,请您记好新密码!") thisform.release endif endif

“返回主界面”按钮的“click”事件代码为：do form 主界面.scx

查询记录（以仓库信息查询为例）

简要介绍资料的主要内容,以获得更多的关注

对于仓库中的一些货物，有时需要按照型号、类型、品牌、仓库来查找对应的库存。该表单只需在选项按钮组中选择需要的查找方式，然后在文本框中输入查询条件，单击“查询”按钮就可以在表格中找到对应的记录。在该表单的数据环境中添加“ck”表。

“查询”按钮的“click”事件中添加的代码如下： do case

**选择按型号查询后的语句

case thisform.optiongroup1.value=1 sele ck

locate for alltr(ck.xh)==alltr(thisform.text1.value) if found()

sele all pp as 品牌,lx as 类型,xh as 型号,sl as 数量,ck as 仓库,jhrq as 进货日期,bz as 备注;

from ck order by 3 ;

where alltr(ck.xh)==alltr(thisform.text1.value) into cursor temp with thisform.grid1

.recordsourcetype=1 .recordsource="temp" .columncount=7

.column1.header1.caption="品牌"

简要介绍资料的主要内容,以获得更多的关注

.column2.header1.caption="类型" .column3.header1.caption="型号" .column4 …… 此处隐藏：5451字，全部文档内容请下载后查看。喜欢就下载吧 ……