2998基于vfp的超市进销存管理系统

2998基于vfp的超市进销存管理系统内容摘要：

供货单位字符型40可经手人字符型20可单位备注型4“出货信息”表的字段设置如下：字段名类型宽度可否为空默认值说明出货编号字符型8否主索引字段商品编号字符型6否普通索引字段出货数量浮动型8否1位小数出货单价浮动型8否1位小数出货时间日期时间型8否接收人字符型20否经手人字符型20可说明备注型4“库存信息”表的字段设置如下：字段名类型宽度可否为空默认值说明商品编号字符型6否主索引字段库存数量浮动型81位小数说明备注型4“用户信息”表的字段设置如下：字段名类型宽度可否为空默认值说明用户名字符型20否主索引字段密码字符型20否1位小数“系统设置“表的字段设置如下：字段名类型宽度可否为空默认值说明商品类别字符型20否主索引字段 数据库结构的实现 在需求分析、概念结构设计的继承上得到数据库的逻辑结构之后，我们就可以在visual Fox Pro数据库系统中实现该逻辑结构。 实现数据库的逻辑结构的方式是直接使用visual Fox Pro的项目管理器来实现。 下面将以本例中Jxcdata数据库为实例，来说明.在Visual Foxpro主窗口选择【文件】—【新建】菜单，打开“新建”对话框。 在此对话框中的“文件类型”选项组中选中“项目”选项后单击【新建文件】按钮，打开“创建”对话框，在此对话框中选择项目文件的保存位置并输入项目名称，单击【保存】按钮可保存项目并完成一个Visual Foxpro项目的创建。 项目创建完成以后即可打开项目管理器，如下图：新建数据库如图所示：在项目管理器中选择Data 选项卡，在目录树中打开Jxcdata数据库，选中“本地视图”项，单击[新建]按钮，在打开的“新建本地视图”对话框中单击新建视图按钮，即可打开视图设计器来设计本地视图。 设置好的视图Inview，Outview,Storeview输出结果分别如下： xxx大学毕业设计 第4章 各个功能模块的创建4 各个功能模块的创建 建立功能模块的目的在于：一个是使用者能简单明了地掌握软件功能，另 个是未开发的人贝也能轻松地进行维护。 根据本软件的特点，本系统将分为3个功能模块．它们是：信息管理模块、日常操作模块、信息查询模块。 在进入各个功能模块前，应该给用户提供一个选择的界面，即系统的主界面。 下面按系统计开发顺序逐一介绍。 系统菜单的设计 系统主菜单的功能在于引导用户进入不同的功能模块。 本系统主菜单的界面为简单起见，设计界面如图所示。 界面的系统菜单又包含三个子菜单，分别为“日常操作”、“信息查询”、“系统管理”，引导进入个同的功能模块。 本例中的系统主菜单的结构如下表所示：菜单菜单项结果命令信息管理(\A)商品信息管理(\P)命令Do form proAdmin日常操作(\D)商品进货操作(\I)命令DO FORM Iinact\_商品出货操作(\O)命令DO FORM OutAct信息查询(\S)进货信息查询(\I)命令DO FORM Inseach\_出货信息查询(\O)命令DO FORM OutSeach\_库存信息查询(\S)命令DO FORM StoreSearch系统管理(\M)修改密码(\M)命令DO FORM SetPass\_关于系统(\A)DO \_退出系统(\E)CLEAR EVENTS“Splash”表单“Splash”表单是程序中比较常见的一种界面，一般作为程序的第一个界面显示给用户，在该界面中显示程序的名称，创建人，版本等信息。 “Splash”表单布局如下所示：“Splash”表单中计时器控件Time事件代码为：*——移动欢迎使用标签*——当标签移动到表单最右侧时IF = *移动到最左侧 =THISFORM. +1ENDIF*使“超市进销存管理系统”变色*随机生成颜色i=tnt(RAND()*255)j=tnt(RAND()*255)k=tnt(RAND()*255) 身份验证界面的设计 因为本系统的特殊性，本系统各处会涉及到密码即身份验证。 如用户身份验证等。 用户身份验证界面设计 “系统登录表单”的用户验证界面如图所示。 接下来，我们为各控件填写事件响应。 “系统登录“表单中“确定”按钮的“Click”事件代码：*精确比较SET EXACT ON*判断是否输入用户名IF ALLTRIM（）“” MESSAGEBOX(“请输入用户名”，48，“进销存管理系统”) ReturnENDIF*获取输入的信息USER__N=ALLTRIM()USER__P=ALLTRIM()*定义逻辑变量is_user,用于判断是否为合法用户LOCAL IsUuserIsUuser=.F.*遍历用表中所有的记录*判断输入的用户名称和用户密码是否存在SELECT用户信息GO TOPDO () *寻找与输入的用户名和密码匹配的记录 IS User=(USER_N=).AND.(USER_P=) *如果找到 IF IS_USER EXIT ELSE SKIP ENDIF ENDDO *如果正确 IF IS——USER *保存登录用户 cCurUser=ALLTRIM() *调用主界面 DO FORM MainForm *推出当前表单 *如果登录不正确ELSE MESSAGEBOX(“用户名或用户密码不正确!”,0+16,”进销存管理系统”)=”” =”” ENDIF*模糊比较SER EXACT OFF“ 取消”按钮的”Click”事件代码如下:*释放登录表单*清除事件循环Clear EVENTS*退出Visual FoxProQUIT至此,”系统登录”表单创建完成。 创建“修改密码”表单首先要创建表单界面，在表单中添加3个 标签控件，4个 文本框控件，2个按钮控件，布局如下：然后向“修改密码”表单中添加“确定”按钮的“Click”事件代码如下：SET EXACT ON*进入数据检查*检查原密码SELECT 用户信息LOCATE FOR ALLTRIM(用户名)=ALLTRIM()。 .(密码)=ALLTRIM()() MESSAGEBOX(“原密码错误,请重新输入”,48”进销存管理系统”)RETURNENDIF*如果”密码”栏为空IF EMPTY(ALLTRIM()).(ALLTRIM())MESSAGEBOX(“密码不能为空”,48,”进销存管理系统”)RETURNENDIF*如果两次密码不一致IF ALLTRIM()ALLTRIM()MESSAGEBOX(“密码与确认密码不一致”,48,”进销存管理系统”)RETURNENDIF*获取表单中各数据项的值sName=ALLTRIM()sPass=ALLTRIM()*确定对话框YN=MESSAGEBOX(“确定保存”,4+32,”进销存管理系统”)*如果确认IF YN=6*修改密码UPDATE 用户信息 SET 密码=sPass WHERE 用户名=sNameMESSAGEBOX(“密码修改成功”,64,”进销存管理系统”)ENDIFSTE EXACT OFF“修改密码”表单中”取消”按钮的功能设计是被单击退出当前表单,该按钮的”Click”时间代码如下: 信息管理模块设计本模块由“商品信息管理”功组成，该功能由“商品信息管理”和“输入查询条件”表单完成。 “商品信息管理”表单“商品信息管理”表单界面如下图：“商品信息管理”表单中的“CheckEmpty”方法代码如下：*如果商品信息为空 IF EOF().().ORRECCOUNT()=0=.F.=.F. =.F. =.F.=.F.=.F. =.F.=.F. ReturnENDIF*—如果“商品消息”表只有一条记录IF RECCOUNT（。