《超市管理系统().docx》由会员分享，可在线阅读，更多相关《超市管理系统().docx（29页珍藏版）》请在三一办公上搜索。
1、超市管理系统姓名： 同组者： 一、设计开发背景在本学期，我们学习了数据库原理及应用（SQL server 2000）这一课程，基于此课程的基本原理，从培养学习与实践的综合角度出发，我们设计了一个简单而完善的在实际生活中有用的“超市管理系统模型”。虽是一个简答的“系统模型”，但我们的目的意在学会最基本的操作处理，例如：结合vb实现用户登录、用户添加、用户删除、以及修改等。在这个目的和想法之上，从实际运用的角度出发，结合我们的专业，我们完成了这个“超市管理”的系统。因为在市场全球化的今天，企业经营从资本经营发展到知识经营，从市场经济进入到知识知识经济时代，只有完善的、科学的、合理的、人力资源配置同
2、与之相适应的企业经营管理系统，流程与制度才会令企业在竞争中健康成长，稳步发展，永远立于不败之地。企业管理组织构架是规范企业人员与岗位，企业人员与职位，企业人员与职责的基本指导方针，是企业实施目标管理的基本原则，是企业合理有效整合人力资源的指导思想。公司组织构架就是企业管理组织的基本结构，它是联系企业经营者与管理者、企业管理者与执行者之间的纽带与桥梁。制定一个完善、科学、系统的公司企业管理组织构架是理顺企业经营者与企业管理者之间主导与从属关系的基本条件，是企业管理健康、稳定发展的根本保证。在题材选定之后，我们就选择利用什么开发环境，为了让数据库的前台实现与后台管理能够达到完美组合和实现，经过商讨
3、，我们选择vb6.0作为我们的开发环境，这主要有一下两点原因：（1） 在能够作为管理数据库的软件中，我们只学习了vb6.0，而且相对来说，我们对vb比较熟悉，也能够熟练进行运用。（2） Vb提供了功能强大的数据库管理功能，能够方便灵活地完成数据库应用中涉及的诸如建立数据库、查询和更新等基本操作。在vb 中，数据库访问的接口有3种：active x数据对象（ADO），远程数据对象（RDO）,数据访问对象（DAO）。Vb应用程序可以通过Jet数据库引擎，microsoft ODBC驱动程序和第三方ODBC驱动程序访问数据库。所有这些优势就可以使vb编写前台的应用程序负责与用户交互，用此程序可以选择
4、数据库中的数据项并把选择的数据项按用户的要求显示出来。由于此项工作的工作量和项目都比较大，所以我们采用小组合作的方式，四人为一组，而且每个组员都有自己的分工，有如下分工：组长：李泽峰（1） 负责系统的整体规划和每个成员的分工项目。（2） 用户管理模块中管理员登录界面、主界面的设计、美化（3） 管理员查询与删除、添加管理员的设计 组员：黄春华（1） 系统的整个界面设计与美化、颜色的调和。（2） 添加管理员菜单项的设计与开发（3） Toolba控件的运用 组员：迪力沙提阿不都（1） 数据库的设计和制作（2） 数据库信息的查找和编排（3） Vb界面的设计 组员：买买提图尔逊卡德尔将（1） 界面的设计
5、（2） Vb界面的设计二数据库设计 基于我们的管理系统各模块功能，在“超市管理”数据库中共设计制作了9个表，具体如下： 先是超市管理员表，在职工的管理模块中，设计与制作了thuser表，在此表中，共有姓名、密码邮箱、权限、电话、家庭地址 8个字段，设计的表如下：第二，我们设计了tbuser表在此表中包含了编号、日期、经办人商品编号、商品类型编号、仓库编号：第三，我们还设计了paymoney, getmoney表，其中包括编号、日期、金额、采购员几个字段：第四，我们做了产品订单表，产品订单中我们根据超市产品的信息，在product表中添加了编号、名称、产地、数量、进价、售价、类型编号、供货商编号
6、、仓库编号，在表中我们列举了四个例子，我们所设计的表如下：第五，我们设计了bookorder表，其中包括编号、日期、经办人、供货商编号、商品编号、商品名称、商品产地、商品数量、商品进价、总计几个字段：第六，我们设计了商品类型表：其中的字段包括有商品编号和商品名称：第七，我们设计了supplier表，表中包含了编号、名称、地址、电话联系人五个字段，在表中列举了三例子,设计的表如下：最后，我们还设计了sale表，表中包含了编号、日期、导购员、商品编号、商品名称、商品售价、商品数量、总计，销售单中的类容我们列举了几个例子：三、功能设计 在此系统中，一共包含五个部分的核心技术，分别是登录系统部分；员工
7、管理部分；入库管理部分；销售管理部分；收付款管理部分；基本信息管理部分，功能效果图如下：用户登陆 主界面入库管理销售管理收付款管理基本信息管理员工管理然而在每个部分中，我们又设计了几个部分，如下：员工管理退出修改管理员密码删除管理员添加管理员查询管理员员工信息表第二部分，我们设计的表格框架：采购管理删除和查询订货单修改订货单登陆订货单在用户登录模块中，如果用户输入成功，系统将会出现“欢迎进入西太华超市管理系统！”，如果密码输入错误，系统会提示“输入错误！”如果输入三次都错误的话，自动退出登录系统界面。当输入用户名和密码后点击确定：弹出对话框，显示“欢迎进入西太华管理系统！按确定后，进入主界面：
8、在主界面里，我们运用了文字菜单，图标菜单两种菜单形式，图标菜单和文字菜单，运用了同样的运行作用，具体如下图：在员工管理的框中，一部分是公司员工基本信息一览表，既可以利用toolbar工具中“员工简介”来浏览职工信息，也可以利用按钮进行浏览，这样便给使用者提供了一定的选择空间，可以按自己喜好选择。点击后将进入员工简介界面，界面上附有管理员的照片，在照片下有管理员的职位，当点击按钮后将进入管理员的个人简介界面，情况如下：点击总经理后，进入总经理简介：退出后我们回到主界面，第二个菜单项是查询界面，查询界面里有全部查询、按姓名查询、还有一个模糊查询，下面是不同的查询情况：第二个菜单项是，添加管理员，在
9、添加管理员中，我们把管理员密码的添加也设计进去，当添加后，管理员的信息自动存入数据库，我们可以再管理员查询表中找到我们所添加的管理员信息：的确定后：当添加后，信息入了数据库。删除管理员此功能对离开公司的员工信息进行删除，首先，还得通过查询调出要删除的职工信息，之后点击删除，系统会提示“确定要删除该职工基本信息吗？”，点击确定即可删除，点击取消就可取消删除。员工密码的修改：退出点击后，退回主界面，进行下一个菜单的选取。第二个菜单项中，主要是订货单的登陆，添加，查询和删除三项和数据库中的bookorder连接，具体情况如下：四、界面设计 一个完美的管理系统，不但要有强大的管理功能作支持，而且一个优
10、美舒适的界面设计也起到了相当重要的作用。所以，在设计本系统时，我们也力争使界面达到最优。总的来说，此系统大致包含登录界面、系统主界面、员工信息管理界面等等， 登录界面：登录是初始界面，是一个用户最先看到的关于本公司的界面，就像是第一印象一样，所以，一定要在此界面设计优美舒适的界面，先给用户留下一个好的印象。其次，第一个界面应当传达出此系统是关于做什么的信息，因此，在优美的基础上，应当通过图片、文本等告知用户正在登录的是什么系统。鉴于这两点原则，本系统首先做了一个意境深远的背景，达到优美舒适的效果，还有提示的两个文本框，用来输入用户名和密码。其次就是通过错位的两行“西太华超市管理系统”给用户传达
11、这是关于什么系统的问题，整个登录界面总的来说达到优美舒适实用的效果了。系统主界面：系统主界面是整个系统管理的核心位置，起到纽带和桥梁的作用，从系统主界面可以进入到任意一个管理模块，从一个管理模块到另一个管理模块还得必须退回到主界面。在此界面中主要是通过菜单来进入与管理某个具体的管理模块，一共有管理员管理，采购管理、入库管理、销售管理、收付款查询、基本信息管理，每个菜单又有子菜单，有的还有下一级子菜单，有相应的菜单又有管理员添加和密码的修改选项；采购管理中，我们有登记订单，修改订单，查询和删除订单。 信息浏览界面：本界面中又设计了toolbar工具的使用，从而使整个界面达到美观实用的效果。 信息
12、管理界面：此界面是管理的中心部分，也是技术含量最高的部位，用文本框来管理相应的信息，但所有文本框都被一个frame控件框起来，看起来紧凑美观，同时也使用了toolbar工具已达到更美观的效果。查询界面：此界面一再提供查询所想要的信息，这个界面使用了checkbook控件用来选择不同的条件，而且这两个checkbook都放在frame控件上，看起来比较美观，实用性也很强。五、系统特色说明 尽管本系统只是一个实际应用中管理系统的“小模型”，但在此系统中也有许多亮点与特色： 在整个界面设计过程中我们力求美观，我们以绿色为主色调，力求多用控件，保持色彩和文字颜色的同一，给人眼前一亮的感觉， 我们引入了
13、，公司员工介绍界面，在界面上我们运用了图片和按钮来呈现出我们公司的管理员，当点击照片下的按钮后，将进入到管理员的基本信息简介界面。在整个设计过程中，我们运用了控件和代码两者组合，一部分视图与代码如下：Public sqlStr As StringPublic msgText As StringPrivate Sub adminlogin() Dim rs As ADODB.Recordset Dim j As Integer If Text1.Text = Or Text2.Text = Then MsgBox 请输入用户名 End If sqlStr = select 姓名,密码 from
14、thuser Where 姓名= & Text1.Text & and 密码= & Text2.Text & Set rs = ExecuteSQL(sqlStr, msgText) If rs.EOF And rs.BOF Then j = j + 1 rs.Close Set rs = Nothing MsgBox 密码错误 If j 2 Then MsgBox 连续错误3次！程序将退出 End End If Else rs.Close Set rs = Nothing MsgBox 欢迎进入西太华超市管理系统！ 主界面.Show Unload Me End If End SubPriva
15、te Sub adminlogin1() Dim rs As ADODB.Recordset Dim j As Integer sqlStr = select staname,staid from staff Where staname= & Text1.Text & and staid= & Text2.Text & Set rs = ExecuteSQL(sqlStr, msgText) If rs.EOF And rs.BOF Then j = j + 1 rs.Close Set rs = Nothing MsgBox 密码错误 If j 2 Then MsgBox 连续错误3次！程序
16、将退出 End End If Else rs.Close Set rs = Nothing MsgBox 登录成功！ 主界面.Show Unload Me End IfEnd SubPrivate Sub adminlogin2() Dim rs As ADODB.Recordset Dim j As Integer sqlStr = select sname,sno from admin Where sname= & Text1.Text & and sno= & Text2.Text & Set rs = ExecuteSQL(sqlStr, msgText) If rs.EOF And
17、rs.BOF Then j = j + 1 rs.Close Set rs = Nothing MsgBox 密码错误 If j 2 Then MsgBox 连续错误3次！程序将退出 End End If Else rs.Close Set rs = Nothing MsgBox 登录成功！End Sub 主界面.Show Unload Me End IfEnd SubPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRec
18、ordset As ADODB.Recordset)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load() conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & Data.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False connStr = driver=SQL Ser
19、ver;server=(local);uid=;pwd=;database=超市管理End SubPrivate Sub Command3_Click() Call adminlogin End SubPrivate Sub Form_Unload(Cancel As Integer) Set conn = NothingEnd Sub添加管理员的界面代码如下：Option ExplicitPublic sqlStr As StringPublic msgText As StringPrivate Sub Command2_Click()Unload Me主界面.ShowEnd SubPriv
20、ate Sub Command1_Click() Dim rstStudent As ADODB.Recordset Dim 姓名 As String Dim 密码 As String Dim 邮箱 As String Dim 电话 As String Dim 权限 As String Dim 家庭地址 As String 获取数据 姓名 = Trim(Text1.Text) 密码 = Trim(Text2.Text) 邮箱 = Trim(Text3.Text) 电话 = Trim(Text4.Text) 权限 = Trim(Text5.Text) 家庭地址 = Trim(Text6.Text
21、) If 姓名 = Or 密码 = Then MsgBox 请将信息补充完整, vbOKOnly + vbExclamation, 警告 Exit Sub End If 添加新记录 sqlStr = select * from thuser Set rstStudent = ExecuteSQL(sqlStr, msgText) rstStudent.AddNew rstStudent.Fields(姓名) = Text1.Text rstStudent.Fields(密码) = Text2.Text rstStudent.Fields(邮箱) = Text3.Text rstStudent.
22、Fields(权限) = Text4.Text rstStudent.Fields(电话) = Text5.Text rstStudent.Fields(家庭地址) = Text6.Text rstStudent.Update rstStudent.Close MsgBox 员工信息添加完成！, vbOKOnly + vbExclamation, 警告 initForm End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubEnd SubSub initForm()Text1.
23、Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End SubPrivate Sub Form_Load()Adodc1.RefreshList1.ClearList1.AddItem (姓名 密码 邮箱 权限 电话 家庭地址)List1.AddItem (- - - - - -)List1.AddItem (- - - - - -)Do While Not Adodc1.Recordset.EOFList1.AddItem (Adodc1.Recordset.Fields(0) + + Adodc
24、1.Recordset.Fields(1) + + Adodc1.Recordset.Fields(2) + + Adodc1.Recordset.Fields(3) + + Adodc1.Recordset.Fields(4) + + Adodc1.Recordset.Fields(5)Adodc1.Recordset.MoveNextLoopEnd Sub六、设计开发总结（心得）通过对”超市管理系统”这个系统的最初步的设计，还要考虑到界面设计美观问题；不仅要考虑到前期策划，还要考虑到后期的方便运用问题。所有这些都能给制作与开发者在思维上一个很大的锻炼。首先，在前期策划方面，包括选题、模型转
25、换，还要考虑到实用性、可操作性等等，因为如果前期策划不好，就在一个系统上不能完善地处理所想要解决的问题，而且在把实际问题转化为抽象的数据问题时，要达到精化、简化，数据库的个数要尽量少，每个数据里表的个数能少就少，但前提是不能缺少数据，所以，在构思策划时一定要达到准确，精简的要求。其次，在建立数据库时，命名一定要规范、易懂，别人看了就能知道只是关于什么的，而且最好使用英文字母命名，尽量避免使用汉字命名，但是有时为了直接明了有时也可以运用汉语拼音代替，这样容易辨别，在数据库里数据量大时运行的效率也比较高、不容易出错。VB中能够访问数据库的对象和控件很多，例如：Active数据对象（ADO）、远程数
26、据对象（RDO）、数据访问对象（DAO）以及data控件、ADO控件Adodc等。在这些对象与控件中，最好使用一些“无形”引用对象来建立数据库与VB的链接，而尽量避免使用data控件、adodc这类控件的使用。因为一般无形的引用对象，处理起来都比较方便、灵活，容易变通、容易操作，而data控件类的使用起来死板、灵活性差、而且效率低。在整个系统的开发过程中我们遇到了种种问题，最先接触的是开发登陆模块，这个相对来说花费的时间与精力比较大，因为第一次用VB来调用数据库，这一难关突破以后就有一种豁然开朗的感觉，因为从VB里调用数据库里的数据这一层神秘的面纱就揭开了，后来当做到查询时也是一道难关，查询相对来说是比较重要，即使是添加也要首先查询，这是为了防止插入同样的记录。而且查询的条件也有各种各样，在这一部分解决之后，其他的问题相对来说比较简单。我们从开始接触数据库到我们通过学习数据库和vb的连接，最后到我们构思作品，设计作品，完成作品经历了很长的一段时间，这段时间里，我、迪力沙提阿不都、黄春华、买买提图尔逊卡德尔江的共同努力下，终于小有收获，在以后的学习中我们会继续发扬奋斗、拼搏、合作的精神，在学习方面跟上一个台阶！
