超市管理系统.docx
《超市管理系统.docx》由会员分享，可在线阅读，更多相关《超市管理系统.docx（25页珍藏版）》请在冰豆网上搜索。
超市管理系统
超市管理系统（）
姓名：
同组者：
一、设计开发背景
在本学期，我们学习了《数据库原理及应用》（SQLserver2000）这一课程，基于此课程的差不多原理，从培养学习与实践的综合角度动身，我们设计了一个简单而完善的在实际生活中有用的“超市治理系统模型”。
虽是一个简答的“系统模型”，但我们的目的意在学会最差不多的操作处理，例如：
结合vb实现用户登录、用户添加、用户删除、以及修改等。
在那个目的和方法之上，从实际运用的角度动身，结合我们的专业，我们完成了那个“超市治理”的系统。
因为在市场全球化的今天，企业经营从资本经营进展到知识经营，从市场经济进入到知识知识经济时代，只有完善的、科学的、合理的、人力资源配置同与之相适应的企业经营治理系统，流程与制度才会令企业在竞争中健康成长，稳步进展，永久立于不败之地。
企业治理组织构架是规范企业人员与岗位，企业人员与职位，企业人员与职责的差不多指导方针，是企业实施目标治理的差不多原则，是企业合理有效整合人力资源的指导思想。
公司组织构架确实是企业治理组织的差不多结构，它是联系企业经营者与治理者、企业治理者与执行者之间的纽带与桥梁。
制定一个完善、科学、系统的公司企业治理组织构架是理顺企业经营者与企业治理者之间主导与从属关系的差不多条件，是企业治理健康、稳固进展的全然保证。
在题材选定之后，我们就选择利用什么开发环境，为了让数据库的前台实现与后台治理能够达到完美组合和实现，通过商讨，我们选择vb6.0作为我们的开发环境，这要紧有一下两点缘故：
（1）在能够作为治理数据库的软件中，我们只学习了vb6.0，而且相对来说，我们对vb比较熟悉，也能够熟练进行运用。
（2）Vb提供了功能强大的数据库治理功能，能够方便灵活地完成数据库应用中涉及的诸如建立数据库、查询和更新等差不多操作。
在vb中，数据库访问的接口有3种：
①activex数据对象（ADO），远程数据对象（RDO）,数据访问对象（DAO）。
Vb应用程序能够通过Jet数据库引擎，microsoftODBC驱动程序和第三方ODBC驱动程序访问数据库。
所有这些优势就能够使vb编写前台的应用程序负责与用户交互，用此程序能够选择数据库中的数据项并把选择的数据项按用户的要求显示出来。
由于此项工作的工作量和项目都比较大，因此我们采纳小组合作的方式，四人为一组，而且每个组员都有自己的分工，有如下分工：
组长：
李泽峰
（1）负责系统的整体规划和每个成员的分工项目。
（2）用户治理模块中治理员登录界面、主界面的设计、美化
（3）治理员查询与删除、添加治理员的设计
组员：
黄春华
（1）系统的整个界面设计与美化、颜色的调和。
（2）添加治理员菜单项的设计与开发
（3）Toolba控件的运用
组员：
迪力沙提·阿不都
（1）数据库的设计和制作
（2）数据库信息的查找和编排
（3）Vb界面的设计
组员：
买买提图尔逊·卡德尔将
（1）界面的设计
（2）Vb界面的设计
二．数据库设计
基于我们的治理系统各模块功能，在“超市治理”数据库中共设计制作了9个表，具体如下：
先是超市治理员表，在职工的治理模块中，设计与制作了thuser表，在此表中，共有姓名、密码邮箱、权限、、家庭地址8个字段，设计的表如下：
第二，我们设计了tbuser表在此表中包含了编号、日期、经办人商品编号、商品类型编号、仓库编号：
第三，我们还设计了paymoney,getmoney表，其中包括编号、日期、
金额、采购员几个字段：
第四，我们做了产品订单表，产品订单中我们依照超市产品的信息，在product表中添加了编号、名称、产地、数量、进价、售价、类型编号、供货商编号、仓库编号，在表中我们列举了四个例子，我们所设计的表如下：
第五，我们设计了bookorder表，其中包括编号、日期、经办人、供货商编号、商品编号、商品名称、商品产地、商品数量、商品进价、总计几个字段：
第六，我们设计了商品类型表：
其中的字段包括有商品编号和商品名称：
第七，我们设计了supplier表，表中包含了编号、名称、地址、
联系人五个字段，在表中列举了三例子,设计的表如下：
最后，我们还设计了sale表，表中包含了编号、日期、导购员、商品编号、商品名称、商品售价、商品数量、总计，销售单中的类容我们列举了几个例子：
三、功能设计
在此系统中，一共包含五个部分的核心技术，分别是登录系统部分；职员治理部分；入库治理部分；销售治理部分；收付款治理部分；差不多信息治理部分，功能成效图如下：
然而在每个部分中，我们又设计了几个部分，如下：
第二部分，我们设计的表格框架：
在用户登录模块中，假如用户输入成功，系统将会显现“欢迎进入西太华超市治理系统！
”，假如密码输入错误，系统会提示“输入错误！
”假如输入三次都错误的话，自动退出登录系统界面。
当输入用户名和密码后点击确定：
弹出对话框，显示“欢迎进入西太华治理系统！
按确定后，进入主界面：
在主界面里，我们运用了文字菜单，图标菜单两种菜单形式，图标菜单和文字菜单，运用了同样的运行作用，具体如下图：
在职员治理的框中，一部分是公司职员差不多信息一览表，既能够利用toolbar工具中“职员简介”来扫瞄职工信息，也能够利用按钮进行扫瞄，如此便给使用者提供了一定的选择空间，能够按自己喜好选择。
点击后将进入职员简介界面，界面上附有治理员的照片，在照片下有治理员的职位，当点击按钮后将进入治理员的个人简介界面，情形如下：
点击总经理后，进入总经理简介：
退出后我们回到主界面，第二个菜单项是查询界面，查询界面里有全部查询、按姓名查询、还有一个模糊查询，下面是不同的查询情形：
第二个菜单项是，添加治理员，在添加治理员中，我们把治理员密码的添加也设计到里面去，当添加后，治理员的信息自动存入数据库，我们能够再治理员查询表中找到我们所添加的治理员信息：
的确定后：
当添加后，信息入了数据库。
删除治理员
此功能对离开公司的职员信息进行删除，第一，还得通过查询调出要删除的职工信息，之后点击删除，系统会提示“确定要删除该职工差不多信息吗？
”，点击确定即可删除，点击取消就可取消删除。
职员密码的修改：
退出点击后，退回主界面，进行下一个菜单的选取。
第二个菜单项中，要紧是订货单的登陆，添加，查询和删除三项
和数据库中的bookorder连接，具体情形如下：
四、界面设计
一个完美的治理系统，不但要有强大的治理功能作支持，而且一个优美舒服的界面设计也起到了相当重要的作用。
因此，在设计本系统时，我们也力争使界面达到最优。
总的来说，此系统大致包含登录界面、系统主界面、职员信息治理界面等等，
登录界面：
登录是初始界面，是一个用户最先看到的关于本公司的界面，就像是第一印象一样，因此，一定要在此界面设计优美舒服的界面，先给用户留下一个好的印象。
其次，第一个界面应当传达出此系统是关于做什么的信息，因此，在优美的基础上，应当通过图片、文本等告知用户正在登录的是什么系统。
鉴于这两点原则，本系统第一做了一个意境深远的背景，达到优美舒服的成效，还有提示的两个文本框，用来输入用户名和密码。
其次确实是通过错位的两行“西太华超市治理系统”给用户传达这是关于什么系统的问题，整个登录界面总的来说达到优美舒服有用的成效了。
系统主界面：
系统主界面是整个系统治理的核心位置，起到纽带和桥梁的作用，从系统主界面能够进入到任意一个治理模块，从一个治理模块到另一个治理模块还得必须退回到主界面。
在此界面中要紧是通过菜单来进入与治理某个具体的治理模块，一共有治理员治理，采购治理、入库治理、销售治理、收付款查询、差不多信息治理，每个菜单又有子菜单，有的还有下一级子菜单，有相应的菜单又有治理员添加和密码的修改选项；采购治理中，我们有登记订单，修改订单，查询和删除订单。
信息扫瞄界面：
本界面中又设计了toolbar工具的使用，从而使整个界面达到美观有用的成效。
信息治理界面：
此界面是治理的中心部分，也是技术含量最高的部位，用文本框来治理相应的信息，但所有文本框都被一个frame控件框起来，看起来紧凑美观，同时也使用了toolbar工具已达到更美观的成效。
查询界面：
此界面一再提供查询所想要的信息，那个界面使用了checkbook控件用来选择不同的条件，而且这两个checkbook都放在frame控件上，看起来比较美观，有用性也专门强。
五、系统特色说明
尽管本系统只是一个实际应用中治理系统的“小模型”，但在此系统中也有许多亮点与特色：
在整个界面设计过程中我们力求美观，我们以绿色为主色调，力求多用控件，保持色彩和文字颜色的同一，给人眼前一亮的感受，
我们引入了，公司职员介绍界面，在界面上我们运用了图片和按钮来出现出我们公司的治理员，当点击照片下的按钮后，将进入到治理员的差不多信息简介界面。
在整个设计过程中，我们运用了控件和代码两者组合，一部分视图与代码如下：
PublicsqlStrAsString
PublicmsgTextAsString
PrivateSubadminlogin（）
DimrsAsADODB.Recordset
DimjAsInteger
IfText1.Text=""OrText2.Text=""Then
MsgBox"请输入用户名"
EndIf
sqlStr="select姓名,密码fromthuserWhere姓名='"&Text1.Text&"'and密码='"&Text2.Text&"'"
Setrs=ExecuteSQL（sqlStr,msgText）
Ifrs.EOFAndrs.BOFThen
j=j+1
rs.Close
Setrs=Nothing
MsgBox"密码错误"
Ifj>2Then
MsgBox"连续错误3次！
程序将退出"
End
EndIf
Else
rs.Close
Setrs=Nothing
MsgBox"欢迎进入西太华超市治理系统！
"
主界面.Show
UnloadMe
EndIf
EndSub
PrivateSubadminlogin1（）
DimrsAsADODB.Recordset
DimjAsInteger
sqlStr="selectstaname,staidfromstaffWherestaname='"&Text1.Text&"'andstaid='"&Text2.Text&"'"
Setrs=ExecuteSQL（sqlStr,msgText）
Ifrs.EOFAndrs.BOFThen
j=j+1
rs.Close
Setrs=Nothing
MsgBox"密码错误"
Ifj>2Then
MsgBox"连续错误3次！
程序将退出"
End
EndIf
Else
rs.Close
Setrs=Nothing
MsgBox"登录成功！
"
主界面.Show
UnloadMe
EndIf
EndSub
PrivateSubadminlogin2（）
DimrsAsADODB.Recordset
DimjAsInteger
sqlStr="selectsname,snofromadminWheresname='"&Text1.Text&"'andsno='"&Text2.Text&"'"
Setrs=ExecuteSQL（sqlStr,msgText）
Ifrs.EOFAndrs.BOFThen
j=j+1
rs.Close
Setrs=Nothing
MsgBox"密码错误"
Ifj>2Then
MsgBox"连续错误3次！
程序将退出"
End
EndIf
Else
rs.Close
Setrs=Nothing
MsgBox"登录成功！
"
EndSub
主界面.Show
UnloadMe
EndIf
EndSub
PrivateSubAdodc1_WillMove（ByValadReasonAsADODB.EventReasonEnum,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset）
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubCommand4_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
'conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\Data.mdb;Mode=ReadWrite|ShareDenyNone;PersistSecurityInfo=False"
connStr="driver={SQLServer};server=（local）;uid=;pwd=;database=超市治理"
EndSub
PrivateSubCommand3_Click（）
Calladminlogin
EndSub
PrivateSubForm_Unload（CancelAsInteger）
Setconn=Nothing
EndSub
添加治理员的界面代码如下：
OptionExplicit
PublicsqlStrAsString
PublicmsgTextAsString
PrivateSubCommand2_Click（）
UnloadMe
主界面.Show
EndSub
PrivateSubCommand1_Click（）
DimrstStudentAsADODB.Recordset
Dim姓名AsString
Dim密码AsString
Dim邮箱AsString
DimAsString
Dim权限AsString
Dim家庭地址AsString
'猎取数据
姓名=Trim（Text1.Text）
密码=Trim（Text2.Text）
邮箱=Trim（Text3.Text）
=Trim（Text4.Text）
权限=Trim（Text5.Text）
家庭地址=Trim（Text6.Text）
If姓名=""Or密码=""Then
MsgBox"请将信息补充完整",vbOKOnly+vbExclamation,"警告"
ExitSub
EndIf
'添加新记录
sqlStr="select*fromthuser"
SetrstStudent=ExecuteSQL（sqlStr,msgText）
rstStudent.AddNew
rstStudent.Fields（"姓名"）=Text1.Text
rstStudent.Fields（"密码"）=Text2.Text
rstStudent.Fields（"邮箱"）=Text3.Text
rstStudent.Fields（"权限"）=Text4.Text
rstStudent.Fields（""）=Text5.Text
rstStudent.Fields（"家庭地址"）=Text6.Text
rstStudent.Update
rstStudent.Close
MsgBox"职员信息添加完成！
",vbOKOnly+vbExclamation,"警告"
initForm
EndSub
PrivateSubFrame1_DragDrop（SourceAsControl,XAsSingle,YAsSingle）
EndSub
EndSub
SubinitForm（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
EndSub
PrivateSubForm_Load（）
Adodc1.Refresh
List1.Clear
List1.AddItem（"姓名密码邮箱权限家庭地址"）
List1.AddItem（"--------------------------------"）
List1.AddItem（"--------------------------------"）
DoWhileNotAdodc1.Recordset.EOF
List1.AddItem（Adodc1.Recordset.Fields（0）+""+Adodc1.Recordset.Fields
（1）+""+Adodc1.Recordset.Fields
（2）+""+Adodc1.Recordset.Fields（3）+""+Adodc1.Recordset.Fields（4）+""+Adodc1.Recordset.Fields（5））
Adodc1.Recordset.MoveNext
Loop
EndSub
六、设计开发总结（心得）
通过对”超市治理系统”那个系统的最初步的设计，还要考虑到界面设计美观问题；不仅要考虑到前期策划，还要考虑到后期的方便运用问题。
所有这些都能给制作与开发者在思维上一个专门大的锤炼。
第一，在前期策划方面，包括选题、模型转换，还要考虑到有用性、可操作性等等，因为假如前期策划不行，就在一个系统上不能完善地处理所想要解决的问题，而且在把实际问题转化为抽象的数据问题时，要达到精化、简化，数据库的个数要尽量少，每个数据里表的个数能少就少，但前提是不能缺少数据，因此，在构思策划时一定要达到准确，精简的要求。
其次，在建立数据库时，命名一定要规范、易明白，别人看了就能明白只是关于什么的，而且最好使用英文字母命名，尽量幸免使用汉字命名，然而有时为了直截了当明了有时也能够运用汉语拼音代替，如此容易辨别，在数据库里数据量大时运行的效率也比较高、不容易出错。
VB中能够访问数据库的对象和控件专门多，例如：
Active数据对象（ADO）、远程数据对象（RDO）、数据访问对象（DAO）以及data控件、ADO控件Adodc等。
在这些对象与控件中，最好使用一些“无形”引用对象来建立数据库与VB的链接，而尽量幸免使用data控件、adodc这类控件的使用。
因为一样无形的引用对象，处理起来都比较方便、灵活，容易变通、容易操作，而data控件类的使用起来死板、灵活性差、而且效率低。
在整个系统的开发过程中我们遇到了种种问题，最先接触的是开发登陆模块，那个相对来说花费的时刻与精力比较大，因为第一次用VB来调用数据库，这一难关突破以后就有一种豁然爽朗的感受，因为从VB里调用数据库里的数据这一层奇异的面纱就掀开了，后来当做到查询时也是一道难关，查询相对来说是比较重要，即使是添加也要第一查询，这是为了防止插入同样的记录。
而且查询的条件也有各种各样，在这一部分解决之后，其他的问题相对来说比较简单。
我们从开始接触数据库到我们通过学习数据库和vb的连接，最后到我们构思作品，设计作品，完成作品经历了专门长的一段时刻，这段时刻里，我、迪力沙提·阿不都、黄春华、买买提图尔逊·卡德尔江的共同努力下，终于小有收成，在以后的学习中我们会连续发扬奋斗、拼搏、合作的精神，在学习方面跟上一个台阶！
升级会员 