超市销售数据库管理系统研讨.doc

超市销售数据库管理系统研讨652020年5月29日文档仅供参考数据库课程设计实习报告超市销售数据库管理系统(如果有需要,我能够提供数据库配套源程序,请留言给我)学 院:同济系(部):机械与电气信息工程系专 业:计算机科学与技术姓 名:学 号:指导教师:构建工具:Microsoft Access 实习地点:同济实习时间: .6.25 .7.17摘要超市的日常管理工作往往是很复杂,很繁琐的,再加上管理的货物种类繁多,因此超市管理必须实现计算机化。超市进销存管理系统是用计算机对超市货物的库存和货物的进出进行管理的一种计算机应用技术,在计算机还未普及之前超市的库存管理都是由工作人员手工书写的方式来操作的,那样很容易出现差错而造成不必要的损失。现在一般的超市都采用计算机进行智能化管理,用计算机作为管理工具能够帮助管理员进行更有效、更快捷的超市库存管理工作。超市进销存管理系统是典型的管理信息系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用系统的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的数据库。而对于后者则要求应用系统功能完备、易使用等特点。超市进销存管理系统要实现的功能非常多,最重要的是对货物的管理,包括货物的买入(进货)、货物的卖出(销货)、货物的存储(库存)。本系统采用Microsoft Access 数据库进行开发。基本实现了对货物的管理工作,另外添加了一些很人性化的操作提示,里面附有详细的图表及文字说明。目 录1 绪论51.1 项目背景51.2 项目意义51.3 可行性研究62 开发环境72.1 系统环境72.2 开发工具简介72.2.1 Access简介72.2.2 主要用途72.2.3软件特性83 系统分析93.1 系统整体功能分析93.2 系统开发的特点103.3 系统需求分析104 数据库项目设计114.1数据库概念设计E-R图114.1.1实体与属性及实体之间的联系114.1.2数据库的部分E-R图124.2数据库的逻辑表结构设计144.3 表之间的逻辑联系194.4数据库的完整性和安全性204.4.1数据库的完整性204.4.2数据库的安全性215 详细设计215.1 用户登录模块设计215.2 用户注册模块设计225.3 主界面设计245.3.1 商品管理模块设计255.3.2 销售管理模块设计335.3.3 人事管理模块设计385.3.4 统计查询模块设计415.3.5 打印预览模块设计436 总结457 致谢468 参考文献471 绪论1.1 项目背景随着现代科学技术的迅猛发展,计算机技术已经渗透到各个领域,成为各行业必不可少的工具,特别是Internet技术的推广和信息高速公路的建立,使IT产业在市场竞争中越发显示出其独特的优势,步入信息化时代,有巨大的数据信息等待加工处理和传输,这使得对数据库的进一步开发和利用显得尤为迫切。作为国内市场的一些中小型超市,它们在信息化过程中的步伐要落后于大中型超市,而对于这些企业的资源管理,信息的存储和处理也显得迫切需要,要适应市场竞争,就需要有高效的处理方式和管理方法,因此加快超市的信息化进程是必不可少的。中国的超市在20世纪90年代初期形成,现在已经成为中国零售业的一种重要形态,为国民经济的发展发挥了重要的作用。随着经济的快速发展,超市的经营管理也变得愈加复杂,早期的售货员站柜台的形式早已不能满足现有销售业的发展,这样就迫切地需要引入新的管理技术。超市形态具有种种优点,但在当前状况下,它仍存在零售业所共有的落后的一面,如:不能有效地管理每种商品,收款结算速度慢,容易出现营业差错,不宜进行商品调价,盘点效率低等,而且在超市日常管理中,商品的进、销、存等决策以经验为主,缺乏实时分析功能,管理人员对及时传递资料的要求始终得不到满足。超市日常所需要处理的数据量也逐渐增大,商业运转的中间环节也越来越多,原始的人工管理已无法应对这复杂的市场。超市进销存管理系统依靠现代化的计算机信息处理技术来管理超市,从而节省了大量的人力、物力,改进了员工的工作条件,减轻了劳动强度,而且能够快速对商品的进、销、存等状况和各种反馈信息进行分析,使管理人员快速对市场的变化做出相应的决策,加快超市经营管理效率。1.2 项目意义随着超市商品的大量增加,其管理难度越来越大。在计算机技术飞速发展的今天,将计算机这一信息处理器应用到超市的日常管理已是势在必然。于是,超市进销存管理系统便应运而生。这也为超市管理带来前所未有的改变,同时为企业带来意想不到的经济效益和社会效益。这主要体现在以下几个方面:(1) 极大的提高了超市工作人员的工作效率,避免了以往入出存流程繁琐、杂乱和周期长等弊端。(2) 超市进销存管理实现了操作自动化和信息电子化,全面提高了超市的管理水平。(3) 基于超市进销存管理的全面自动化,能够大大减少入库管理、出库管理及库存管理中的漏洞,能够节约大量管理开支,增加企业的收入。1.3 可行性研究管理系统是一个信息化、智能化和先进管理理念的集合体。而管理是一个动态过程,在其运行过程中要采取多项措施。因此在管理中获得经济效益是一个综合效益,要对它进行直接定量的分析是比较困难的。一般新系统带来的经济效益是次要的,其最主要的表现就是减少了企业管理费用和人力开支。而其它一些繁琐的事务都经过新系统来加以分析解决,不但节省了大量的时间,还为企业的各项决策提供了宝贵的资料,为企业带来巨大的经济效益。超市的管理基础工作和各项管理制度比较健全,执行严格,原始数据采集完整,保存良好。本系统开发仅需要计算机一台,系统本身对硬件和软件的要求都不高且系统兼容性很强,平台的移植性也很好。在外部条件上有同学的帮助,而且方便上网查找资料,同时还有老师的热心指导等,这也增加了我完成该系统的可能性。如今,各种进销存系统的开发已经相当成熟,出现了几大主流的开发语言和工具,都能够非常有效的支持开发这样一个系统。同时作为本系统,也有许多成功的进销存管理系统的经验能够借鉴,另外现在超市的经营者大多具备电脑基本操作知识,对于必要的专业操作经短期培训即可。因此从技术的角度来说,也是可行的。本系统采用基于Windows的图形用户界面,而该系统是大家熟悉的操作系统,对于那些有一般的计算机知识的人员就能够轻松上手。而整个超市管理系统采用最友好的交互界面,简洁明了,不需要对数据库进行深入的了解。综合以上方面的研究,无论是从经济上或者技术上还是操作上开发本系统都是可行的。2 开发环境2.1 系统环境开发及测试的系统环境,我选择了Microsoft Windows 7。要开发数据库项目,首先必须要求有合适的数据库软件,我选择了Microsoft Access 数据库开发系统。2.2 开发工具简介2.2.1 Access简介Access 是微软公司推出的基于Windows的桌面关系数据库管理系统(RDBMS,即Relational Database Management System),是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象;提供了多种向导、生成器、模板,把数据存储、数据查询、界面设计、报表生成等操作规范化;为建立功能完善的数据库管理系统提供了方便,也使得普通用户不必编写代码,就能够完成大部分数据管理的任务。 Access能够存取 Access/Jet、Microsoft SQL Server、Oracle(甲骨文软件公司),或者任何 ODBC 兼容数据库内的资料。熟练的软件设计师和资料分析师利用它来开发应用软件,而一些不熟练的程序员和非程序员的进阶用户则能使用它来开发简单的应用软件。虽然它支援部分面向对象(OOP)技术,可是未能成为一种完整的面向对象开发工具。2.2.2 主要用途Microsoft Access在很多地方得到广泛使用,例如小型企业,大公司的部门,和喜爱编程的开发人员专门利用它来制作处理数据的桌面系统。它也常被用来开发简单的WEB应用程序这些应用程序都利用ASP技术在Internet Information Services运行比较复杂的WEB应用程序则使用PHP/My SQL或者ASP/Microsoft SQL Server 它的使用方便程度和强大的设计工具为初级程序员提供许多功能。不过,这种便于使用可能使人误解。这类开发者都是没有在应用或者数据设计方面训练的办公室从业人员。因此许多人以为这样的开发者能够创造可用的系统,但也有很多人认为工具本身的局限性产生了这样的误导。 一些专业的应用程序开发人员使用 Access 用作 快速应用开发,特别是给街道上的推销员制作一个初型或独立应用程序的工具。可是如果是透过网络存取数据的话,Access 的可扩放性并不高因此当程序被较多使用者使用时,她们的选择多会是倾向于一些客户端-服务器为本的方案,例如 Oracle、DB2、Microsoft SQL Server、Windows Share Point Services、Post g re SQL、My SQL、Alpha Five、Max D B,或者File maker。无论如何,不少 Access 的功能(表单,报告,序列和VB代码)能够用作其它数据库的后期应用,包括 JET(档案为主的数据库引擎,Access 缺省使用)、Microsoft SQL Server、Oracle和任何其它跟ODBC兼容的产品。这种方法允许开发者把一个成熟的应用的数据移动到一台更大功率的服务器而没有已经在适当的位置牺牲发展。 2.2.3软件特性与一般的RDBMS完全不同,它缺乏数据库触发和预存程序。自从MS Access (Jet 4.0),开发人员能够在查询中设定参数,这跟预存程序很相似的,但这些”预存程序”只能处理一个程序当资料表内数据发生变化时,它确实允许形式包含被引发的代码,使用是普通的透过查询和其它技术在进入营运储存的程序在方面RDBMS支援这些的。 进入可提供的编程语言,当时在另一个内产品Microsoft Office家具,微软公司应用的Visual Basic。两个数据库进入讯息库COM组成部分被提供:这笔遗产数据存取物体(DAO),用进入和新只可提供ActiveX数据对象(忙乱)。 Microsoft Access容易被应用于小的工程,可是如果设计的不好对大工程是无用的。 全部数据库质问,形式和报告被储存在数据库里,而且与相关的模型的理想协调,没有与她们做一个身体上组织的阶层的可能性。 一种设计技术是把进入应用在数据和计划之间进行分发。一数据库应该只包含桌子和关系,当另一个将有全部计划时,形式,报告和质问和对第一个数据库桌子的连接。令人遗憾,当连结时,进入允许没有有关的道路,因此那些发展环境作为这种生产环境有相同的道路应该(虽然你写你们自己的能动态连接程序常规在里VBA那搜出能一定背面结束档案以透过这个目录树搜寻,如果它发现这条电流通路它不能)。 这种技术也允许开发者在不同的档案中分申请,因此一些架构是可能的。3 系统分析在系统的开发前,首先要进行相应的系统分析,从中获得解决方案。本章就是先对系统的整体需求进行分析,然后在此基础上来划分系统的组成模块,完成系统的整体架构的设计。3.1 系统整体功能分析本系统根据其具体功能,设计其功能模块如图3-1所示。登陆界面主界面商品信息管理商品管理销售管理人事管理打印预览统计查询商品库存管理订单管理运货商管理会员信息管理雇员信息管理各类数据综合查询各类数据统计基本数据打印预览综合数据打印预览图3-1 系统功能模块图整个前台模块是本系统最重要的模块,它提供了超市管理平台的日常管理操作,能够满足普通用户和管理员对商品库存信息查询等的需求,而删除、修改信息则只有管理员权限操作,普通用户也不能进行用户管理操作。3.2 系统开发的特点本系统开发的目标是一个界面清晰、易理解、易使用的,能够满足用户对超市的日常管理工作。在以往系统开发经验的基础上,结合其它进销存管理系统的特点,对本系统应具有的功能特点总结如下:(1) 管理员能够对商品进行增删查改和对数据进行更新。(2) 具有很强的兼容性,能够在任何操作系统的电脑上使用。(3) 采用Access 数据库,使系统框架更完整,更容易更新。3.3 系统需求分析需求分析是对系统将要实现的功能的大致描述,能够把设计系统的基本思路都列出来,它在系统开发中起着重要的作用。下面分别介绍。(1) 商品管理功能模块此功能模块作用是:管理员能够进行商品库存信息进行查看、修改和删除,还能够对新增加的商品进行入库操作,能够经过输入商品的编号进行有目的的查看商品库存信息。同时,管理员能够经过输入商品编号或商品名称等进行查询商品信息,还能够经过选择商品类别进行商品信息的查询,另外还能够对商品信息进行增加、删除和修改操作。(2) 销售管理功能模块此功能模块的主要功能是对商品订单信息以及运货商信息进行管理。管理员能够借此更快的了解和掌握商品的销售信息。能够产生新订单,而且对订单信息进行增加、删除和修改操作。不同类别的用户权限不同。(3) 人事管理功能模块此功能模块主要是对超市会员以及雇员进行管理,管理员能够对会员和雇员信息进行查看、修改和删除。(4) 统计查询功能模块此功能模块是方便超市管理人员对超市营业情况进行数据分析,能够把商品信息表、进货信息表和销售信息表进行导出,在Excel表格中更利于分析数据。(5) 打印预览功能模块此功能模块是方便超市管理人员对超市营业最新情况以及历史资料的报表进行打印得到纸质版资料。(6) 登陆功能模块用户使用本系统要进行身份验证,验证成功后方可进入,系统登陆模块图如图3-2所示。登录界面用户密码是否正确是否进入主界面取消登录开始结束图3-2 管理员后台系统登陆流程图4 数据库项目设计4.1数据库概念设计E-R图4.1.1实体与属性及实体之间的联系E-R模型的组成元素有:实体、属性、联系。E-R模型用E-R图表示。实体是用户工作环境中所涉及的事务,属性是对实体特征的描述。(1) 模型中的实体相当于实体集、一个表,而不是单个实体或表中的一行。实体用矩形框表示,实体名称标注在矩形框内。用菱形表示实体间的联系,菱形框内写上联系名,用无向边把菱形分别与有关实体相连接,在无向边旁标上联系的类型。(2) 属性是实体的性质。用椭圆框表示,与实体之间用一条线相连表的主码是关键属性。(3) 不同的实体集经过外键建立它们之间的联系。4.1.2数据库的部分E-R图(1) 商品的实体图如下图4-1所示。商品编号商品名称商品单价商品类别商品图片商品供应商计量单位图4-1 商品实体图(2) 会员的实体图如下图4-2所示。会员编号会员姓名会员地址城市省份国家性别电话邮政编码会员图4-2 会员实体图(3) 订单与订单明细之间的E-R图如下图4-3所示。订单编号雇员编号地址运货费用会员编号合计订购日期订单管理商品单价订单编号商品名称商品数量订单明细商品编号单项小计备注图4-3 订单与订单明细E-R图(4) 雇员的实体图如下图4-4所示雇员雇员编号职务姓名性别家庭地址雇用时间联系电话图4-4 雇员实体图4.2数据库的逻辑表结构设计根据上面的数据库概念设计,把相应的E-R图转化成与数据模型相符合的逻辑结构。本系统是以Access 为后台数据库,在Access 上直接建立名为超市销售管理系统的数据库。其中包括以下表:商品, 供应商, 会员, 雇员, 运货商, 订单,订单明细,商品类别,商品库存信息。下面将具体介绍数据库中各个表的结构。商品表如图4-5所示。图4-5 商品表商品信息表如表4-5 所示。表4-5 商品表字段名称数据类型字段长度是否为空备注商品编号长整形10否主键类别名称文本50否商品名称文本50否供应商文本50否单位文本50否单价货币50是供应商表如图4-6所示。图4-6 供应商表供应商表如表4-6 所示。表4-6 供应商表字段名称数据类型字段长度是否为空备注供应商编号数字10否供应商文本50否主键联系人姓名文本50否联系人头衔文本50否地址文本50否邮政编码文本50是电话文本50否城市文本50否国家文本50否会员表如图4-7所示。图4-7 会员表会员表如表4-1所示。表4-1 会员表字段名称数据类型字段长度是否为空备注会员编号数字20否主键会员姓名文本50否性别文本50否地址文本50否城市文本50否国家文本50是电话文本50是雇员表如图4-8所示。图4-8 雇员表雇员表如表4-8 所示。表4-8 雇员表字段名称数据类型字段长度是否为空备注雇员编号数字10否主键姓名文本20否性别文本50否职务文本50否雇用日期日期/时间否地址文本50是家庭电话文本50否国家文本50否备注文本50否运货商表如图4-9所示。图4-9 运货商表运货商表如表4-9所示。 表4-9 运货商表字段名称数据类型字段长度是否为空备注运货商编号数字10否主键公司名称文本50否电话文本50是订单表如图4-10所示。图4-10 订单表订单表如表4-10 所示。表4-10 订单表字段名称数据类型字段长度是否为空备注订单编号数字10否主键雇员编号数字20否会员编号数字50否订购日期日期/时间否运货费用货币50否接收人文本r50是合计货币50否送达地址文本50否所在国家文本50否订单明细表如图4-11所示。图4-11 订单明细表订单明细表如表4-11所示。表4-11 订单明细表字段名称数据类型字段长度是否为空备注订单编号数字20否主键商品编号数字20否商品名称文本50否商品数量数字50否商品单价货币50否单项总价货币50否商品类别表如图4-12所示。图4-12 商品类别表商品类别表如表4-12所示。 表4-12 商品类别表字段名称数据类型字段长度是否为空备注类别编号数字10否类别名称文本50否主键说明文本50是商品库存信息表如图4-13所示。图4-13 商品库存信息表商品库存表如表4-13所示。 表4-13 商品库存表字段名称数据类型字段长度是否为空备注商品编号数字o10否商品名称文本50否库存量数字50是4.3 表之间的逻辑联系表之间建立的关联如图4-14所示。图4-14 表之间的关联4.4数据库的完整性和安全性4.4.1数据库的完整性数据库的完整性是指数据的正确性和相容性。数据库管理系统(DBMS)用一定的机制来检查数据库中的数据是否满足规定的条件完整性约束条件,数据的约束条件是语义的体现,将作为模式的一部分存入数据库中。本系统中经过定义表与表之间的外键联系有助于实现完整性规则,另外经过主键约束也实现了其完整性规则。4.4.2数据库的安全性数据库的安全性是指保护数据库以防止不合法的使用所造成的数据泄漏、更改或破坏。在数据库系统中,大量的数据集中存放,而且为许多用户直接共享,是宝贵的信息资源,系统的安全保护措施就显得更为重要,它保护数据库防止恶意的破坏和非法的存取。 本系统设置了数据库密码,而且采用鉴定用户的方法实现数据库的安全,在登录数据库时,系统让用户表示自己的身份,经过输入用户名和密码,系统进行核实,鉴别此用户员是否为合法用户,若是,系统进一步核实用户身份,一般要求用户选择角色,系统经过角色来鉴别用户身份,而且要选择正确的角色才允许用户登陆。5 详细设计5.1 用户登录模块设计用户登入对话框设计:当用户输入正确的用户名和密码,才能够登陆到系统。若密码错误就弹出提示,不能进入系统。登录界面如图5-1所示图 5-1 登录界面【登录】按钮的处理代码如下:Private Sub Command7_Click()Dim temp As StringDim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetIf Trim(Me!Text0) = Or Trim(Me!Text2) = Then MsgBox 用户名称和密码不能为空,请重新输入!, vbOKOnly, 系统提示Else temp = select * from 用户注册信息 where 用户名= & Trim(Me!Text0) & and 密码= & Trim(Me!Text2) & rs.Open temp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic If rs.RecordCount 0 Then DoCmd.Close DoCmd.OpenForm 主界面, acNormal, , , acFormReadOnly, acWindowNormal Else MsgBox 用户名或密码有错!, vbOKOnly, 系统提示 End Ifrs.CloseSet rs = NothingEnd IfEnd Sub5.2 用户注册模块设计能够注册新用户,并带有用户名检验的功能。注册界面如图5-2所示。图5-2 注册界面【确认】按钮的处理代码如下:Private Sub 确认_Click()If IsNull(Me.用户名) Then MsgBox 不能为空! DoCmd.GoToControl 用户名 Exit Sub End If If IsNull(Me.登录密码) Then MsgBox 不能为空! DoCmd.GoToControl 登录密码 Exit Sub End IfIf Me.登录密码 = Me.密码确认 Then Dim strSQL As String strSQL = INSERT INTO 用户注册信息(用户名,密码) strSQL = strSQL & VALUES( & Me.用户名 & , & Me.登录密码 & ) DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True MsgBox 已注册成功!密码为 & Me.登录密码 & ,请牢记!, vbInformation, 温馨提醒 DoCmd.Close DoCmd.OpenForm 登陆 Else MsgBox 密码与重复密码不一致,请检查!, vbInformation, 系统提醒 Me.登录密码 = Null Me.密码确认 = Null DoCmd.GoToControl 登录密码 End IfEnd Sub【用户名检验】按钮的处理代码如下:Private Sub 检验_Click()If Me.用户名 = DLookup(用户名, 用户注册信息, 用户名= & Me.用户名 & ) ThenMsgBox 该用户名已存在,请重新输入!Me.用户名 = NullDoCmd.GoToControl 用户名ElseMsgBox 该用户名能够使用!DoCmd.GoToControl 登录密码End IfEnd Sub5.3 主界面设计前台客户使用的主页面一共由五个子页面构成:商品管理、销售管理、人事管理、统计查询、打印预览,另外还有辅助功能模块,分别是:关于系统和退出系统。前台主界面如图5-3所示。图5-3 前台主界面5.3.1 商品管理模块设计商品管理功能模块的作用是管理员能够对商品信息以及库存信息进行增加、查询、修改和删除。商品管理界面如图5-4所示。图5-4 商品管理界面5.3.1.1 商品信息管理子模块设计该子模块针对商品信息的处理。点击【商品信息管理】按钮即可弹出界面如图5-5所示图5-5 商品信息管理界面其中:【商品管理】能够对商品信息进行增删改;【商品信息自定义查询】提供商品信息的综合查询功能;【商品类别管理】能够对商品类别进行增删改;【商品类别自定义查询】提供商品类别的综合查询功能;【商品供应商管理】能够对商品供应商信息进行增删改;【商品供应商自定义查询】提供商品供应商信息的综合查询功能;它们的界面分别如下。点击【商品管理】按钮弹出界面如图5-6所示。图5-6 商品增删改界面点击【商品信息自定义查询】按钮弹出界面如图5-7所示。图5-7 商品信息综合查询界面其【查询】功能实现的SQL语句如下:SELECT 商品.商品编号, 商品.商品名称, 商品.供应商, 商品.类别名称, 商品.单位, 商品.单价, 商品.图片, 商品.中止销售FROM 商品WHERE (商品.商品编号=forms!商品混合.编号) Or (forms!商品混合.编号 Is Null) And (商品.商品名称=forms!商品混合.商品名称) Or (forms!商品混合.商品名称 Is Null) And (商品.供应商=forms!商品混合.供应商) Or (forms!商品混合.供应商 Is Null) And (商品.类别名称=forms!商品混合.类别) Or (forms!商品混合.类别 Is Null);点击【商品类别管理】按钮弹出界面如图5-8所示。图5-8 商品类别增删改界面点击【商品类别自定义查询】按钮弹出界面如图5-9所示。图5-9 商品类别综合查询界面其【查询】功能实现的SQL语句如下:SELECT 商品类别.类别名称, 商品类别.说明FROM 商品类别WHERE (商品类别.类别名称=forms!商品类别混合.类别) Or (forms!商品类别混合.类别 Is Null);点击【商品供应商管理】按钮弹出界面如图5-10所示。图5-10 供应商信息增删改界面点击【商品供应商自定义查询】按钮弹出界面如图5-11所示。图5-11 供应商信息综合查询界面其【查询】功能实现的SQL语句如下:SELECT 供应商.供应商编号, 供应商.供应商, 供应商.联系人姓名, 供应商.联系人头衔, 供应商.地址, 供应商.城市, 供应商.省份, 供应商.国家, 供应商.邮政编码, 供应商.电话, 供应商.传真FROM 供应商WHERE (供应商.供应商=forms!供应商混合.名称) Or (forms!供应商混合.名称 Is Null) And (供应商.联系人姓名=forms!供应商混合.联系人) Or (forms!供应商混合.联系人 Is Null) And (供应商.城市=forms!供应商混合.所在城市) Or (forms!供应商混合.所在城市 Is Null);5.3.1.2 商品库存管理子模块设计该子模块针对商品库存数据的处理。点击【商品库存管理】按钮即可弹出界面如图5-12所示图5-12 商品库存管理界面其中:【商品库存信息查询】提供库存信息的综合查询;【商品入库】提供商品入库功能,此功能操作涉及用户权限;它们的界面分别如下。点击【商品库存信息查询】按钮弹出界面如图5-13所示。图5-13 商品库存信息综合查询界面其【查询】功能实现的SQL语句如下:SELECT 商品库存信息.商品编号, 商品库存信息.商品名称, 商品库存信息.库存量FROM 商品库存信息WHERE (商品库存信息.商品编号=forms!库存混合.编号) Or (forms!库存混合.编号 Is Null) And (商品库存信息.商品名称=forms!库存混合.商品名称) Or (forms!库存混合.商品名称 Is Null);点击【商品入库】按钮弹出界面如图5-14所示。图5-14 商品入库界面在此模块中,点击【查看商品库存数】能够浏览商品的库存信息,在这里不再展示它的界面。此模块的入库操作涉及到用户的权限,点击【确认入库】需要输入密码。点击【确认入库】按钮弹出窗口如图5-15所示图5-15 输入密码界面【确认入库】实现代码如下:Private Sub 确认入库_Click()Dim SQL As StringDim d As StringDim c As Integerx = InputBox(请输入执行密码!)If x = lyc Or x = abc Or x = 123 Thend = Me.入库商品编号c = Me.入库数量SQL2 = UPDATE 商品库存信息 SET 商品库存信息.库存量 = 商品库存信息.库存量+ & c & WHERE 商品库存信息.商品编号= & d & SQL3 = Dim cn As ADODB.ConnectionSet cn = CurrentProject.ConnectionDim rs As ADODB.RecordsetSet rs = New ADODB.Recordsetrs.LockType = adLockPessimisticrs.Open SQL2, cnrs.Open SQL3, cnMsgBox 商品已入库!ElseMsgBox 密码错误, vbOKOnly, 系统提示End IfEnd Sub5.3.2 销售管理模块设计销售管理功能模块的作用是对订单以及运货商的操作,还能够对原来的商品订单信息进行查询统计、删除和修改。其运行界面如图5-16所示。图5-16 销售管理界面其中:【下新订单】能够生成新的订单;【订单信息自定义查询】提供订单信息的综合查询;【运货商管理】能够对运货商信息进行增删改;【运货商信息自定义查询】提供运货商信息的综合查询;点击【下新订单】按钮即可弹出如下界面图5-17图5-17 生成新订单界面其中【更新相应商品库存数】操作涉及用户的权限,需要输入密码执行点击【更新相应商品库存数】按钮即弹出如下界面图5-18所示。图5-18 更新库存输入密码界面【更新相应商品库存数】的具体实现代码如下:Private Sub 库存减少_Click()Dim SQL As StringDim d As Stringx = InputBox(请输入执行密码!)If x = lyc Or x = abc Or x = 123 Thend = Me.订单编号SQL2 = UPDATE 商品库存信息,订单明细 SET 商品库存信息.库存量 = 商品库存信息.库存量-订单明细.数量 WHERE 商品库存信息.商品编号=订单明细.商品编号 and 订单明细.订单编号= & d & SQL3 = Dim cn As ADODB.ConnectionSet cn = CurrentProject.ConnectionDim rs As ADODB.RecordsetSet rs = New ADODB.Recordsetrs.LockType = adLockPessimisticrs.Open SQL2, cnrs.Open SQL3, cnMsgBox 库存数量已更新!ElseMsgBox 密码错误, vbOKOnly, 系统提示End IfEnd Sub另外,在模块之中还添加了自动运算的功能,能够直接系统算出商品的各类价格;【单项总价】【商品小计】【合计】的具体实现代码如下:Private Sub 单项总价_Cli