超收银管理系统方案课程方案

课程设计设计题目 超市收银管理系统学生姓名学 号专业班级指导教师院 系2018 年1 月 6 日目 录1242.142.2453.153.2564.164.2E-R8105.1105.2115.3135.4VB145.525262627摘要【摘要】选课系统是针对社会中一些小型超市使用，从消费者的角度来说，结账时应该准确和快速，毕竟时间就金钱。由于传统的超市收银管理给顾客和店主带来很多不便，针对这方面的缺陷，团队开发这个系统可以方便快捷查出顾客结账情况，商品信息情况，每天的售货情况。方便了对超市商品管理、人员管理。大大提高了超市销售速度。进而加速了社会的发展速度，提高了人民的生活水平。本系统还可以给顾客和超市节约更多时间，加快了超市的运转速度。关键词：VB；小型超市收银管理系统； SQLServer2000AbstractShop-sale-systemisaimsatintheschoolstudentandtheteacheruses,saidfromstudent'sangle,asaresultoftheschoolteachingsystemreform,nowthemajorityofinstitutionsofhigherlearningstartedtoimplementisthestudentindependentlychoosestheclasspattern,thetraditionaleducationalmodel(studenttoattendclassaccordingtocurriculumwhichschoolarranged>alreadycannotadaptthenewteachingmethod,ifstillchosetheclassthroughthepaperonway,ontheonehandwastedmassivemanpower,physicalresourceresources,ontheotherhandwastedthetimeaswellassituationandsoonmistakewhichinevitablyappearedintheartificialstatisticalprocess.Alongwithuniversitiespopulationincreasing,thiskindofmalpracticecanmoreandmoremanyexpositions.Therefore,student个人资料整理 仅限学习使用solongasinputsowninfrontofthecomputercandidateclassinformationthentocompletetheoriginalseveraltimeofworkrequirements.Saidfromteacher'sanglethat,similarlyhassavedthemassiveworkloads,becausetheteacherproposedservedasasubstituteteachertheapplicationtocompletetheworkwhichthecurriculumissuedtocomparethestudenttochoosetheclasstosayevenmorecomplex,thereforethroughon-linecarriedonthecurriculumtosendthePunengnationalitylargescalereductionteacher'sworkload,reducedthewrongoccurrenceprobability.Asteacher,alsosolongasoperatesthroughowncomputerthen,doesnotneedtorushaboutagainbetweentheschooladministrationofficeandtheoffice.【关键词】小型超市收银管理系统一、绪论本系统编写目的在于研究城乡式的小型超市销售管理系统软件的可行途径和使用方法。世纪，超市的竞争也进入到了一个全新的领域，竞争已不再是规模的竞争，而是技术的竞争、管理的竞争、人才的竞争。技术的提升和管理的升级是超市业的竞争核心。零售领域目前呈多元发展趋势，多种业态：超市、仓储店、便利店、特许加盟店、专卖店、货仓等相互并存。如何在激烈的竞争中扩大销售额、降低经营成本、扩大经营规模，成为超市营业者努力追求的目标。为了提高物资管理的水平和工作效率，尽可能杜绝商品流通中各环节中可能出现的资金流失不明现象，商品进销存领域迫切需要引入信息系统来加以管理。而商品销售管理系统是当前应用于超市或者公司管理系统的典型代表。本组设计的超市销售管理系统主要完成的功能有：商品基本信息维护、人员管理信息维护、销售管理等，以及这一系列过程中涉及商品的数据修改、查询统计、删除等多种操作。此外，ＡＤＯ具有很多的优点，其中包括易于使用，熟悉的界面，高严谨及较低的内存空间战胜。本系统的开发使用的是ＡＤＯ方式来开发数据库。要使用这种访问方式，必须在ＶＢ工程里面引用MicrosoftActiveXDataObjects库。使用本系统大大提高超市的运作效率；通过全面的信息采集和处理，辅助提高超市的决策水平；还可以迅速提升超市的管理水平，为降低经营成本，提高效益，增强超市扩张力，提供有效的技术保障。二、需求分析2.1、数据库基本信息1）销售员工表2）商品表（3）销售表个人资料整理 仅限学习使用（4）登录表2.2、系统的功能（1）添加员工、商品等基本信息如可添加每个员工的职工号、姓名、性别、用户类型；（2）查询员工、商品的信息和查询商品销售情况，查询的原理是首先在系统库内销售员工表、商品表、销售表都有自己的主码信息，若没有，则必须通过添加功能模块来给系统添加它们信息。然后根据此唯一特性来查出它们的所有信息。例如在商品表界面中，只要我们输入商品号，然后单击查询按钮，就可以出此商品的商品名称、商品类型、库存量和厂商即产地。（3）删除员工、商品表、销售表的基本信息，根据其主码，查询出此商品的信息，然后删除它们所包含的所有信息。（4）修改员工、商品表、销售表的基本信息，通过根据它们的主码号，查出它们的基本信息，然后根据需要对其作出相应的信息进行修改。（5）对于登录表，其有三个功能：注册、登陆、退出；有两个字段：用户名、密码。注册实质上就是向登录表内插入用户信息。如：在登陆界面的用户名窗口中输入“罗春”，在密码窗口内输入“123”，再点击“注册”按钮，此时，系统会告诉：“注册成功”。这时，你就可以看见登录表中有一条信息：用户名：罗春，密码123。这就是注册的效果。然后通过登录按钮进入系统。三、数据分析与建模3.1、数据分析小型超市收银管理系统是一个针对超市收银员管理的一个简单系统。数据库中主要含有四张表，登陆表中字段有用户名，密码。销售表中字段有销售号、职工号、商品号、销售时间、销售数量。销售员工表：职工号、姓名、性别、用户类型。商品表：商品号、商品名称、商品类型、单价、库存量、厂商。个人资料整理 仅限学习使用3.2、数据建模小型超市收银管理系统登销销商陆售售品表表员表工表登注退查添删退查录册出询加除出询

添删退查添删加除出询加除四、数据库建立4.1、数据库中表的建立通过对数据库德数据分析阐述出系统中表的信息如下：个人资料整理 仅限学习使用登陆表：用户名、密码销售表：销售号、职工号、商品号、销售时间、销售数量小型超市收银管理系统销售员工表：职工号、姓名、性别、用户类型商品表：商品号、商品名称、商品类型、单价、库存量、厂商登录表）商品表）销售人员表）个人资料整理 仅限学习使用销售表）4.2、数据库中 E-R图和关系图的建立由上述表的信息得出 E-R图如下登陆表登陆表用户名密码<2）销售员工表个人资料整理 仅限学习使用销售员工表职工号姓名性用户类别型<3）销售表销售表销售数量销售号职工商品销售时号号间<4）商品表商品表商品号

商品名称厂商单价库商存品量类型<5）各实体E-R图用户类型

个人资料整理 仅限学习使用职工号销售号 商品号销售时间销售数量销售表库存量厂商决定决定商品表销售员工表 商品号职商商单工品品价姓名号名类性别称型登陆登陆表用户名密码<6）关系图个人资料整理 仅限学习使用五、数据库应用和开发5.1、数据库中实时数据<1）商品表中的实时数据<2）销售表中的实时数据<3）登陆表中的实时数据<4）销售员工表中的实时数据5.2、数据库中存储过程源码（1） 商品表删除CREATEPROCEDUREspb_delete个人资料整理 仅限学习使用@sphvarchar(50>,@flagintoutputasifexists(select*from商品表where商品号=@sphand库存量=0>begindeletefrom商品表 where商品号=@sphand库存量=0set@flag=0endelseset@flag=1GO（2） 商品表插入CREATEPROCEDUREspb_insert@sphvarchar(50>,@spmcvarchar(50>,@splxvarchar(50>,@djfloat,@kclchar(10>,@csvarchar(50>asinsertinto商品表(商品号,商品名称,库存量,商品类型,厂商,单价>values(@sph,@spmc,@kcl,@splx,@cs,@dj>GO（3） 商品表修改CREATEPROCEDUREspb_update@sphvarchar(50>,@spmcvarchar(50>,@kclchar(50>,@djfloat,@splxvarchar(50>,@csvarchar(50>asdeletexswhere商品号=@sphinsertinto商品表(商品号,商品名称,库存量,单价,商品类型,厂商>values(@sph,@spmc,@kcl,@dj,@splx,@cs>GO（4） 销售表插入CREATEPROCEDURExsb_insert@xshvarchar(50>,@zghvarchar(50>,@sphvarchar(50>,@xsslfloat,@xssjdatetime,@flagintoutputasset@flag=(select库存量from商品表where商品号=@sph>if@flag>0begininsertinto销售表(销售号,职工号,商品号,销售数量,销售时间>values(@xsh,@zgh,@sph,@xssl,@xssj>endelseset@flag=0GO（5） 员工表插入CREATEPROCEDUREygb_insert@zghvarchar(50>,@xmchar(8>,@xbchar(8>,@yhlxvarchar(50>asinsertinto销售人员表 (职工号,姓名,性别,用户类型>values(@zgh,@xm,@xb,@yhlx>GO5.3、数据库中触发器源码（1） 销售表添加触发器CREATETRIGGERxsb1_insertON 销售表FORINSERTasbeginupdate销售表set 销售数量=销售数量+1where销售表.销售号in(selectinserted.销售号frominserted>update商品表set库存量=库存量-1个人资料整理 仅限学习使用where商品表.商品号in(selectinserted.商品号frominserted>end销售表删除触发器CREATETRIGGERxsb1_deleteON销售表FORDELETEASbeginupdate销售表set销售数量=销售数量-1where销售表.销售号in(select销售表.销售号fromdeleted>update商品表set库存量=库存量+1where商品表.商品号in(select商品表.销售号fromdeleted>end5.4、VB前台程序设计源码（1）登陆界面源码DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSubCommand1_Click(>strsql="select*from 登录表&"'"rs.Openstrsql,cn,1,3Ifrs.EOFThenMsgBox"用户名或密码错了 ",32,"ElseForm5.Show

where警告"

用户名

='"&Text1.Text&"'"&"and

密码

='"&Text2.TextUnloadMeEndIfEndSubPrivateSubCommand2_Click(>EndEndSubPrivateSubImage1_Click(>EndSubPrivateSub

注册_Click(>IfText1.Text=""OrText2.Text=""ThenMsgBox"用户名和密码不能为空 ",16+4," 警告"ElseDimrsAsNewADODB.Recordsetstr1="select*from 登录表where 用户名='"&Text1.Text&"'"rs.Openstr1,cn,1,3rs.AddNewrs("用户名">=Text1.Textrs("密码">=Text2.Textrs.UpdateMsgBox"注册成功",64," 信息提示"EndIf个人资料整理 仅限学习使用EndSubPrivateSubForm_Load(>cn.ConnectionString

= "Provider=SQLOLEDB.1

。

Integrated

Security=SSPI

。

Persist

SecurityInfo=False

。InitialCatalog=

超市管理

"cn.OpenEndSub<2）商品表界面源代码PubliccnAsNewADODB.ConnectionPublicrsAsNewADODB.RecordsetPrivateSubCommand1_Click(>str1="select*from 商品表where 商品号='"&Text1.Text&"'"Ifrs.State=1Thenrs.CloseEndIfrs.Openstr1,cn,1,3Ifrs.EOFThenMsgBox"该商品不存在"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=str1Adodc1.RefreshElseText1.Text=rs("

商品号

">Text2.Text=rs("

商品名称

">Text3.Text=rs("

库存量">Text4.Text=rs("

商品类型

">Text5.Text=rs("

厂商">Text6.Text=rs("

单价">个人资料整理 仅限学习使用EndIfEndSubPrivateSubCommand2_Click(>str1="select*from

商品表

where

商品号

='"&Text1.Text&"'"Ifrs.State=1Thenrs.CloseEndIfrs.Openstr1,cn,1,3Ifrs.EOFThenrs.AddNewrs(" 商品号">=Text1.Textrs(" 商品名称">=Text2.Textrs(" 库存量">=Text3.Textrs(" 商品类型">=Text4.Textrs(" 厂商">=Text5.Textrs(" 单价">=Text6.Textrs.UpdateMsgBox" 数据添加成功 ",64," 信息提示"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from 商品表"Adodc1.RefreshText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""ElseMsgBox" 该商品已经存在了 ",16," 警告"EndIfEndSubPrivateSubCommand3_Click(>Form5.ShowUnloadMeEndSubPrivateSubCommand4_Click(>DimrsAsNewADODB.RecordsetDimrs1AsNewADODB.RecordsetIfrs.State=1Thenrs.CloseEndIfIfrs1.State=1Thenrs1.CloseEndIf个人资料整理

仅限学习使用rs1.Open"select*from 商品表where&"'",cn,1,3Ifrs1.EOFThenMsgBox"没有此种商品不能删除！ "Elsers.Open"delete 商品表where 商品号cn,1,3MsgBox"确定删除吗",32+4," 警告"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*fromAdodc1.Refresh

商品号='"&Text1.Text&"'and='"&Text1.Text&"'and商品表"

商品名称='"&Text2.Text商品名称='"&Text2.Text&"'",EndIfText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""EndSubPrivateSubDataGrid1_Click(>IfAdodc1.Recordset.RecordCount<=0ThenMsgBox"当前表是空表",16," 信息提示"ElseText1.Text=Adodc1.Recordset.Fields(0>Text2.Text=Adodc1.Recordset.Fields(1>EndIfEndSubPrivateSubForm_Load(>cn.ConnectionString = "Provider=SQLOLEDB.1Info=False 。InitialCatalog= 超市管理"

。

Integrated

Security=SSPI

。

Persist

Securitycn.OpenEndSubPrivateSubImage1_Click(>EndSub个人资料整理 仅限学习使用<3）销售商品信息表界面源代码PubliccnAsNewADODB.ConnectionPublicrsAsNewADODB.RecordsetPrivateSubCommand1_Click(>str1="select*from 销售表where 销售号='"&Text1.Text&"'"Ifrs.State=1Thenrs.CloseEndIfrs.Openstr1,cn,1,3Ifrs.EOFThenMsgBox"该销售商品不存在 "Adodc1.CommandType=adCmdTextAdodc1.RecordSource=str1Adodc1.RefreshElseText1.Text=rs(" 销售号">Text2.Text=rs(" 职工号">Text3.Text=rs(" 商品号">Text4.Text=rs(" 销售数量">Text6.Text=rs(" 销售时间">EndIfEndSubPrivateSubCommand2_Click(>个人资料整理

仅限学习使用str1="select*from