《PB课设设计销售系统》由会员分享，可在线阅读，更多相关《PB课设设计销售系统（19页珍藏版）》请在金锄头文库上搜索。
1、1设计题目美加玛超市管理系统2课程设计目的本课程设计是在VFP程序设计与应用课程后进行的一次全面综合训练。通过本程设计使我们都能够运用所学知识，独立完成简单的结构化程序设计或面向对象的程序设计，掌握编写较小应用软件的初步技能，掌握软件设计的基础知识和基本方法，为进一步学习其它计算机知识及今后使用或开发数据库应用程序奠定基础。具体操作中巩固Visual FoxPro基本操作（表、数据库的建立、数据处理）； 进一步学习和巩固Visual FoxPro程序设计的方法，了解用VFP开发项目的一般过程，培养运用Visual FoxPro解决实际问题的工作能力；掌握一个实际应用项目的开发过程，自主开发一个
2、小型管理系统。从实践应用中来真正掌握各种工具的功能及使用各种工具的技巧，并提高学生的动手编程能力和独立思考问题、解决问题的能力，以达到学习本门课程的预期目的。3系统分析3.1需求分析目前，无论公司还是企业对于货物都实行了信息化管理，以提高管理水平和工作效率，同时也可以以最大地减少手工操作带来的错误。于是，进销存管理信息系统便应运而生。在工厂中，产品的进销存涉及产品原料的采购、库存、投入生产、报损、甚至有时涉及到销售，同时对于产品也有相应的生产、库存、销售和报损等类似环节。在其他非生产性单位，如超市、商店等，则主要涉及到进货、库存、销售和报损等4个方面。本课程设计通过一个小型超市进销存管理系统的
3、例子，来讲述如何定制一个面向企业的或面向公司的进销存管理系统。在讲解和功能设计上以非生产性单位商品管理的4个方面为例，这些原理也同样适用于工厂的进销存管理。3.2功能分析3.2.1信息管理商品信息管理：用来管理系统中要用来进行进货、出货操作的商品信息，包括添加、修改、删除和查询信息。3.2.2日常操作商品进货操作和出货操作。3.2.3信息查询库存信息查询、进出货信息查询分别可以按照商品编号、商品名称等查询并将结果打印输出。3.2.4系统管理系统登录：用来验证登录的系统用户的合法性，只有合法的系统用户才能登录系统并使用系统功能。修改密码：为降低系统不安全性，有必要定期修改密码。3.2.5系统设计
4、思想通过完成这个超市管理系统，时间公司企业货物管理的稳定性、易操作性、可维护性、安全性等，从而达到提高货物管理效率的目的。3.2.6系统功能模块划分超市进销存管理系统信息管理日常操作信息管理系统管理商品信息管理商品进货操作商品出货操作进货记录查询出货记录查询库存记录查询登录系统修改密码退出系统图3.1 系统功能模块图4数据库设计4.1表包括商品信息表、进货信息表、出货信息表、库存信息表、用户信息表和系统设置表。4.2数据库逻辑结构设计（字段设计）数据库的概念结构设计完后，现在可以将上面的数据库概念结构转化为某种数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。使用Visual FoxPr
5、o开发时可以直接使用Visual Foxpro自带的数据库，本系统中使用各个数据表的字段设置如下。表2-1 商品信息表字段名类型宽度可否为空默认值说明商品编号字符型6否主索引字段条形码字符型14可商品名称字符型40否商品单位字符型6否商品单价浮动型6否1位小数产地字符型40类别字符型20说明备注型4表2-2 进货信息表字段名类型宽度可否为空默认值说明进货编号字符型10否主索引字段商品编号字符型6否普通索引字段进货数量浮动型8否1位小数进货单价浮动型8否1位小数进货时间日期时间型8否供货单位字符型40可经手人字符型20可说明备注型4表2-3 出货信息表字段名类型宽度可否为空默认值说明出货编号字符
6、型8否主索引字段商品编号字符型6否普通索引字段出货数量浮动型8否1位小数出货单价浮动型8否1位小数出货时间日期时间型8否接收人字符型20否经手人字符型20可说明备注型4表2-4 库存信息表字段名类型宽度可否为空默认值说明商品编号字符型6否主索引字段库存数量浮动型81位小数说明备注型4表2-5 用户信息表字段名类型宽度可否为空默认值说明用户名字符型20否主索引字段密码字符型20否1位小数表2-6 系统设置表字段名类型宽度可否为空默认值说明商品类别字符型20否主索引字段4.3建立表间永久性连接首先创建项目管理器，再创建数据库，进入数据库设计器，向数据库中添加表，并建立表间的永久性连接。如下图所示。
7、图3.1 Csdata数据库关系图由于“进货信息”、“出货信息”和“库存信息”表中的“商品编号”字段与“商品信息”表中的“商品信息”字段是相关联的，所以当在“商品信息”表中修改某一种商品的商品编号时，也应该相应地修改“进货信息”，“出货信息”和“库存信息”等表中的记录；当在“商品信息”表中删除某一商品时，也应该“进货信息”等表中删除相应记录；当在“进货信息”、“出货信息”和“库存信息”等表中插入一个不存在的商品编号时，应该禁止插入记录。如上所述的规则可以通过设置数据库的参照完整性来完成。选择级联，如下图。图3.2 参照完整性生成器5创建数据库表和索引文件5.1数据库表图5.1 商品信息表数据图
8、5-2 用户信息表5.2数据库索引文件在命令窗口依次执行以下命令：use 商品信息表index on 商品编号 to sy1browse6程序设计与调试及运行6.1.1创建系统主程序功能：如图6-1所示l 系统环境设置l 声明全局变量l 调用登录表单l 进入事务处理图6-1 系统主程序6.1.2创建系统表单作用如下：l 作为程序主窗口l 装载主菜单l 装载状态栏创建主表单界面 如下图所示。图6-2 主表单6.2创建系统管理模块6.2.1创建splash表单(1)界面 如下图所示 图6-3 splash表单(2)程序代码“splash”表单中计时器控件的“Timer”事件代码如下。*移动“欢迎使
9、用”标签*当标签移动到表单最右侧时IF THISFORM.label4.LEFT=THISFORM.WIDTH*移动到最左侧 THISFORM.label4.LEFT=0ELSE*向右移动1个像素 THISFORM.label4.LEFT=THISFORM.label4.LEFT+1ENDIF*使“超市进销存管理系统”变色*随机生成颜色i=INT(RAND()*255)j=INT(RAND()*255)k=INT(RAND()*255)*改变标签前景色THISFORM.label1.forecolor=rgb(i,j,k)“splash”表单中“进入”按钮的“Click”事件代码如下。*调用“
10、系统登录”表单DO FORM LogOn*退出“Splash”表单THISFORM.release6.2.2创建“系统登录”表单系统登录表单中确定按钮的功能设计师被单击时首先检测用户是否输入了用户名，然后再获取用户名与密码，再到用户信息表中查找是否存在于输入用户名和密码匹配的记录，如果找到则将登录的系统用户的用户名保存到全局变量中，退出当前表单，并且调用系统主表单；如果没有找到与输入的用户名和密码匹配的记录，则弹出错误的对话框，并且清空用户名和密码文本框等待用户重新输入。(1)界面 如下图所示图6-4 “系统登录”表单(2)程序代码系统登录表单中“确定”按钮的“Click”事件代码如下*精确比
11、较SET EXACT ON*判断是否输入了用户名IF ALLTRIM(THISFORM.TextUser.VALUE)=MESSAGEBOX(请输入用户名,48,进销存管理系统)THISFORM.TextUser.SetFocusReturnENDIF*获取输入的信息USER_N=ALLTRIM(THISFORM.TextUser.VALUE)USER_P=ALLTRIM(THISFORM.TextPass.VALUE)*定义逻辑变量is_user,用于判断是否为合法用户LOCAL Is_UserIs_User=.F.*遍历用表中中所有的记录*判断输入的用户名称和用户密码是否存在SELECT
12、用户信息GO TOPDO WHILE .NOT. EOF()*寻找与输入的用户名和密码匹配的记录Is_User=(USER_N=用户信息.用户名).AND.(USER_P=用户信息.密码)*如果找到IF IS_USEREXITELSESKIPENDIFENDDO*如果正确IF IS_USER*保存登录用户cCurUser=ALLTRIM(THISFORM.TextUser.Value)*调用主界面DO FORM MainForm*如果登录不正确ELSEMESSAGEBOX(用户名或用户密码不正确！,0+16,进销存管理系统)THISFORM.TextUser.Value=THISFORM.Te
13、xtPass.Value=THISFORM.TextUser.SetFocusENDIF*模糊比较SET EXACT OFF系统登录表单中“取消”按钮的功能设计师被单击时退出“登录系统”表单，清楚事件循环，并且退出Visual FoxPro。“取消”按钮的“Click”事件代码如下。*释放登录表单THISFORM.RELEASE*清除事件循环Clear EVENTS*退出Visual FoxProQUIT6.2.3创建“修改密码”表单(1)界面在表单中添加3个标签控件、4个文本框控件和2个按钮控件，设置这些控件的布局如下图所示。A. 修改首页图6-5 “修改密码”表单B弹出响应窗口图6-6 修改密码是弹出窗口(2)程序代码“修改密码”表单中“确定”按钮的“Click”事件代码如下。*精确比较SET EXACT ON*进入数据检查*检查原密码SELECT 用户信息表LOCATE FOR ALLTRIM(用户名)=ALLTRIM(THISFORM.txt用户名.Value); .
