数据库系统毕业论文(含代码)

1、目 录摘要2Abstract21、引言31.1系统开发的背景和目的31.2 MIS与手工管理的对比32、需求分析32.1 系统功能分析32.2 系统结构及各模块点功能43、概念结构设计54、逻辑结构设计55、功能设计66、小结9致 谢9参考文献10附录11超市管理信息系统的设计与实现摘要：尽管许多大型超市实现了用计算机来管理信息系统，但对于数以万计的仍以手工管理的小型超市而言，用计算机网络系统和数据库技术开发一套超市管理信息系统仍具有诱人的市场前景。本系统以Visual Basic为开发平台设计系统所有界面，以SQL Server为数据源，通过Visual Basic与SQL Server的联

2、合编程，使Visual Basic与SQL Server进行连接，从而实现了在界面上对超市的资料管理、采购管理、库存管理以及销售管理等进行操作，可大大提高超市管理的效率。关键词：超市管理信息系统； Visual Basic；SQL ServerDesign and Implementation of a Supermarket Management Information SystemAbstract: Although many large-scale supermarket have realizad useing computer manage information system, b

3、ut tens of thousands of small supermarkets still using hand to manage, so use computer network systems and database technology to develop a management information system supermarket still has an attractive market prospects. The Visual Basic development platform is based all the interface of this sys

4、tem design,and SQL Server was used as a data source.Make Visual Basic and SQL Server connection by useing Visual Basic join SQL Server programming, and realiza the management of supermarket information management, purchasing management, inventory management and sales management on the interface, and

5、 the efficiency of the supermarket can greatly improved.Key words: supermarket management information system; Visual Basic ; SQL Server1、引言1.1系统开发的背景和目的 21世纪，超市的竞争也进入到了一个全新的领域，竞争已不仅仅是规模的竞争，同时也是技术的竞争、管理的竞争、人才的竞争。完善进、销、存、人、财、物等管理，是现代商场提高效率和竞争力，实现利润最大化的关键。尽管许多大型超市实现了用计算机来管理信息系统，但对于数以万计的仍以手工管理的小型超市而言，用计

6、算机网络系统和数据库技术开发一套超市管理信息系统仍具有诱人的市场前景。本系统拟以民大超市管理为对象，用计算机网络系统和数据库技术，以Visual Basic与SQL Server为平台开发一套通用的超市MIS软件，提升超市的管理水平，为降低经营成本， 提高效益，增强超市扩张力， 提供有效的技术保障。1.2 MIS与手工管理的对比所谓MIS（管理信息系统-Management Information System）系统，主要指的是进行日常事物操作的系统。这种系统主要用于管理需要的记录，并对记录数据进行相关处理。MIS系统通常用于系统决策，例如，可以利用MIS系统找出目前迫切需要解决的问题，并将信

7、息及时反馈给上层管理人员，使他们了解当前工作发展的进展或不足。换句话说，MIS系统的最终目的是使管理人员及时了解公司现状，把握将来的发展路径。在现代化管理中，计算机管理信息系统已经成为企业管理不可缺少的帮手，它的广泛应用已经成为管理现代化的重要标志。随着科学技术的发展，尤其是信息技术和通讯技术的发展，使计算机和网络逐渐应用于现代管理之中。面对越来越多的信息资源和越来越复杂的企业内外部环境，企业有必要建立高效、实用的管理信息系统，为企业管理决策和控制提供保障，这是实现管理现代化的必然趋势1。过去传统的管理方式是以人为主体的人工操作，虽然管理人员投入了大量的时间、精力，然而个人的能力是有限的，所以

8、管理工作难免会出现局限性，或带有个人的主观性和片面性。而管理信息系统使用系统思想建立起来的，以计算机为信息处理手段，以现代化通信设备为基本传输工具，能为管理决策者提供信息服务的人机系统，这无疑是将管理与现代化接轨，以科技提高管理质量的重大举措2。2、需求分析2.1 系统功能分析 根据实际需要，本系统应该具有以下功能： （1）供应商资料管理：根据超市业务需要，通过供应商唯一的编号来实现供应商资料的查找、添加和修改。 （2）商品资料管理：根据超市业务特点，可以通过商品唯一的编号，实现商品资料的查找、添加和修改。 （3）用户管理：不同的用户拥有不同的权限，对系统进行的操作不同。其中员工的权限是：通过

9、商品编号获得商品信息，打印销售单；管理人员的权限是：操作软件对供应商、商品、人员等资料进行录入和修改；根据库存状态，制定进货单，对进货入库进行审核；对销售进行分析统计。（4）采购管理：根据实际情况制定进货计划，按照计划单进行商品的入库操作。（5）销售管理：根据销售情况打印销售单，通过销售单唯一的编号，实现销售查询、统计。（6）库存管理：包括库存盘点和库存维护，通过商品编号来查找商品的库存状态，并根据实际需要设置商品的最低储备、正常储备和最高储备。2.2 系统结构及各模块点功能超市管理信息系统供应商资料管理商品资料管理采购管理销售管理库存管理系统管理数据统计供应商资料管理模块：对供应商信息进行查

10、找、添加、修改和删除；商品资料管理模块：对商品进行查找，并对商品名称，计量单位，供应商等基本信息进行操作；采购管理：制定进货单，实现进货入库；销售管理：打印销售单，查询销售详情；库存管理：盘点商品库存，对商品库存进行维护；数据统计：对进货与销售进行分析，获得销售利润；系统管理：对超市所有用户的资料，包括用户的基本资料，用户的权限等进行统一管理。3、概念结构设计系统的ER图如图一所示：供货商编号提供商品供货商名称n销售日期供货商电话供货商地址供货商销售销售单号商品编号商品名称供应商编号供货商品销售员计量单位供应商地址mn员工用户ID用户密码用户类别用户名称电话权限住址销售员图一 系统的总体ER图

11、4、逻辑结构设计系统的关系模型如下3-6：（1）供应商资料表：（供应商编号、供应商名称、地址、电话、邮编、提供商品）（2）商品资料表：（商品编号、商品名称、计量单位、供应商编号、供应商地址）（3）商品库存表：（商品编号、商品状态、成本价、销售价、库存数量、最低储备、正常储备、最高储备、最近操作日期、操作人员）（4）盘点明细表：（编号ID、商品编号、调整数量、成本价、调整总金额、操作日期、操作人员、标志）（5）采购单明细表：（采购编号ID、采购单号、商品编号、采购数量、采购单价、总共金额）（6）采购单表：（采购单号、供应商编号、采购日期、采购员、是否审核、操作人员、总共金额）（7）销售单明细表：

12、（销售编号ID、销售单号、商品编号、销售数量、成本单价、销售单价、总金额）（8）销售单表：（销售单号、销售日期、销售员、是否审核、操作人员、总共金额）（9）用户信息表：（用户ID、用户名称、用户密码、用户类别、地址、电话、权限）其中画有黑粗下画线的属性为主码，细下画线的为外码。5、功能设计：系统的登陆界面如图5.1所示7-11： 图5.1 系统的登陆界面这部分主要的作用是：将输入的信息与数据库中用户的信息进行核对，只有核对正确的才能进入到系统中。系统的主界面如图5.2所示： 图5.2 超市管理系统主界面这部分的主要功能是：通过登陆时的用户信息，获得用户的权限，使其对系统有不同的操作权限。如管理

13、员拥有所有的权限，而员工只拥有资料管理和销售管理的权限。供应商资料管理界面如图5.3所示（商品资料管理界面类似）：这部分主要的作用是：通过供应商唯一的编号，对供应商的资料进行相关查询，并可对供应商资料进行相关的添加、修改、删除和保存等操作。 图5.3 供应商资料管理界面商品销售单分析界面及销售统计界面分别如图5.4、5.5所示： 图5.4 商品销售单分析界面图5.5 商品销售统计界面这部分的主要功能是：对一段时间内的商品销售情况进行统计分析，得到销售的总利润。库存维护和库存盘点界面分别如图5.6、5.7所示：图5.6 库存维护界面图5.7 库存盘点界面这部分的主要功能是：对商品的库存信息进行盘

14、点分析，并可对商品的库存进行查询和修改。用户资料管理界面如图5.8所示：图5.8 用户管理界面这部分的主要作用是：可对用户进行查询，获得其基本资料及权限，并可对用户的资料及权限进行相关的添加、修改、删除和保存等操作。详细的代码见附录。6、小结本文简要介绍了超市管理系统的设计流程，重点阐述了系统设计过程中的结构设计部分和功能设计部分。和传统管理模式相比较，使用本系统，大大提高超市的运作效率，为降低经营成本， 提高效益，增强超市扩张能力， 提供了有效的技术保障。由于能力有限，加上时间仓促，本系统仍有一些功能有待完善，例如：本系统只适用于小型超市的管理，由于大型超市管理系统还包括会员管理及商品的折扣

15、管理等诸多方面，因此本系统不适用于大型超市的管理。对于上述不足之处，希望老师能给与批评指正。致 谢本系统的设计过程中得到了XXX老师的大量指导以及同学的大量帮助，在这里，对他们表示诚挚的感谢！在系统设计过程中，我深深的感觉到在知识方面还很欠缺，在技术方面也有很多的问题需要在以后的学习中慢慢改进，逐步完善。在XXX老师的耐心指导下，本系统得以顺利完成，我不仅从中学到了许多知识，更重要的是我学到了要用正确的态度去面对人生中的问题和困难，在此，再次感谢XXX老师！参考文献1 管理信息系统的作用.2 管理信息系统在社会中的作用.3 何玉洁.数据库原理与应用教程（第二版）M. 北京:机械工业出版社,20

16、07.4 牛勇等. 新电脑课堂SQL Server编程篇M. 北京:电子工业出版社,2005.5 赵杰,李涛,朱慧. SQL Server数据库管理、设计与实现教程M . 北京:清华大学出版社,2003.6 高金兰,章锋. 数据库原理与SQL Server应用M. 武汉:武汉大学出版社,2008.7 曹萌萌,李 响. VB.NET访问 SQLSERVER2000数据库的方法J. 农业图书情报学刊,2007,19(1):110-112.8 王军弟,赵恺. 基于VB.NET的数据库访问技术J. 福建电脑,2006,12(11):81-82.9 蒋铁海、刘朝晖. 利用 VB. NET开发 Web数据

17、库应用系统J. 微机发 展,2003,13(6):113-115.10 葛小东,邓秋媛. VB.NET编程实例与技巧集萃M. 北京:中国科技技术出版社,2003.11 陶雪丽,郭凤英等.新世纪Visual Basic.NET中文版程序设计培训教程M.北京:电子工业出版社,2002.附录系统设计的主要代码如下：数据库连接的代码如下：ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;" ConnectionString = ConnectionString & "User ID

18、=" & Trim(txtUserId.Text) & "Password=" & Trim(txtPwd.Text) & "" ConnectionString = ConnectionString & "Initial Catalog=" & Trim(txtDatabase.Text) & "Data Source=" & Trim(txtServer.Text) a登录.Show Unload Me登陆窗口的代码如下：Option E

19、xplicitDim SQL As StringDim msg As StringPrivate Sub Form_Load() Dim rst As ADODB.Recordset Dim strItem As String '初始化ComboBox SQL = " select 用户ID,用户名称 from 用户信息表 order by 用户ID" Set rst = SelectSQL(SQL, msg) If rst.RecordCount > 0 Then Do While Not rst.EOF '添加到ComboBox列表 strItem

20、 = rst.Fields(0) & " " & rst.Fields(1) CboName.AddItem (strItem) rst.MoveNext '指向下一条记录 Loop rst.Close CboName.ListIndex = 0 '默认ComboBox Else MsgBox ("请先创建用户信息！") CmdOk.Enabled = False Exit Sub End IfEnd SubPrivate Sub CmdOK_Click() Dim rst As ADODB.Recordset Dim p

21、assword As String '判断用户是否存在 UserID = Left(Trim(CboName.Text), 4) '取出用户的ID SQL = " select 用户ID,密码 from 用户信息表 where 用户ID='" & UserID & "'" Set rst = SelectSQL(SQL, msg) If rst.RecordCount > 0 Then password = Trim(rst.Fields(1) '取出该用户的密码 rst.Close Else

22、 MsgBox ("数据库操作错误！") Exit Sub End If '判断密码是否正确 If password = Trim(txtPassword.Text) Then LoginSucceeded = True 超市管理系统主界面.Show Unload Me Else MsgBox ("密码错误！") LoginSucceeded = False End IfEnd SubPrivate Sub cmdCancel_Click() '设置全局变量为 false '不提示失败的登录 LoginSucceeded = Fa

23、lse Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) LoginSucceeded = False Unload MeEnd Sub系统的主要代码如下：Private Sub Form_Load() Dim rst As ADODB.Recordset Dim SQL As String Dim msg As String Dim rights As String '保存记录中的权限值 '查找权限 SQL = " select 权限 from 用户信息表 where 用户ID='"

24、; & UserID & "'" Set rst = SelectSQL(SQL, msg) If rst.RecordCount > 0 Then rights = Trim(rst.Fields(0) rst.Close Else MsgBox ("没有用户信息！") Exit Sub End If '设置权限 If InStr(rights, "资料管理") Then 资料管理.Enabled = True Me.Toolbar1.Buttons(1).Enabled = True Me.T

25、oolbar1.Buttons(2).Enabled = True Else 资料管理.Enabled = False Me.Toolbar1.Buttons(1).Enabled = False Me.Toolbar1.Buttons(2).Enabled = False End If If InStr(rights, "采购管理") Then 采购管理.Enabled = True Me.Toolbar1.Buttons(3).Enabled = True Me.Toolbar1.Buttons(4).Enabled = True Else 采购管理.Enabled =

26、 False Me.Toolbar1.Buttons(3).Enabled = False Me.Toolbar1.Buttons(4).Enabled = False End If If InStr(rights, "销售管理") Then 销售管理.Enabled = True Me.Toolbar1.Buttons(5).Enabled = True Else 销售管理.Enabled = False Me.Toolbar1.Buttons(5).Enabled = False End If 库存管理.Enabled = InStr(rights, "库存管

27、理") 统计分析.Enabled = InStr(rights, "统计分析") 用户管理.Enabled = InStr(rights, "用户管理")End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1: Call 供应商资料_Click '调入供应商资料 Case 2: Call 商品资料_Click '调入商品资料 Case 3: Call 采购单_Click &

28、#39;调入采购单 Case 4: Call 采购入库_Click '调入采购入库 Case 5: Call 销售清单_Click '调入销售单 Case 6: Call 销售利润_Click '调入销售利润 Case 7: Call 密码维护_Click '调入密码维护 End SelectEnd SubPrivate Sub 采购单_Click() a采购单.Show 超市管理系统主界面.Enabled = FalseEnd SubPrivate Sub 采购单分析_Click() a采购单分析.Show 超市管理系统主界面.Enabled = FalseE

29、nd SubPrivate Sub 采购入库_Click() a采购入库.Show 超市管理系统主界面.Enabled = FalseEnd SubPrivate Sub 供应商资料_Click() a供应商资料.Show 超市管理系统主界面.Enabled = FalseEnd SubPrivate Sub 库存盘点_Click() a库存盘点.Show 超市管理系统主界面.Enabled = FalseEnd SubPrivate Sub 库存维护_Click() a库存维护.Show 超市管理系统主界面.Enabled = FalseEnd SubPrivate Sub 密码维护_Cli

30、ck() a密码维护.Show 超市管理系统主界面.Enabled = FalseEnd SubPrivate Sub 商品资料_Click() a商品资料.Show 超市管理系统主界面.Enabled = FalseEnd SubPrivate Sub 销售单分析_Click() a销售单分析.Show 超市管理系统主界面.Enabled = FalseEnd SubPrivate Sub 销售利润_Click() a销售利润.Show 超市管理系统主界面.Enabled = FalseEnd SubPrivate Sub 销售清单_Click() a销售单.Show 超市管理系统主界面.E

31、nabled = FalseEnd SubPrivate Sub 用户管理_Click() a用户管理.Show 超市管理系统主界面.Enabled = FalseEnd Sub供应商资料管理模块：7- 9Option ExplicitDim rs As ADODB.RecordsetDim SQL As StringDim msg As StringDim Index As IntegerDim flag As String '判断是新增记录还是修改记录Private Sub Form_Load() '初始化查询条件ComboBox CboQuery.AddItem (&qu

32、ot;供应商编号") CboQuery.AddItem ("供应商名称") CboQuery.ListIndex = 0 '默认查询条件为供应商编号 Call LoadData '装载数据 Call ShowData '显示数据End SubPrivate Sub LoadData() Dim colName As String '保存所选择的查询条件 Dim colValue As String '保存所要查询具体的值 Dim strWhere As String '得到查询条件 colName = CboQuer

33、y.Text '取出条件的值 colValue = txtQuery.Text '取出所要查询的值 '构建条件 strWhere = " where " & colName & " like '%" & colValue & "%'" Set rs = Nothing '查询供应商资料 SQL = "SELECT * FROM 供应商资料表 " & strWhere & " ORDER BY 供应商编号 &qu

34、ot; Set rs = SelectSQL(SQL, msg) Set Me.DataGrid1.DataSource = rs DataGrid1.Refresh If rs.RecordCount = 0 Then '如果不存在记录 '编辑控件可用性 CmdAdd.Enabled= True: CmdModify.Enabled = False: CmdDelete.Enabled = False CmdCancel.Enabled = False: CmdSave.Enabled = False '移动控件不可用 For Index = 0 To 3 CmdMo

35、ve(Index).Enabled = False Next Index Else '编辑控件可用性 CmdAdd.Enabled = True: CmdModify.Enabled = True: CmdDelete.Enabled = True CmdCancel.Enabled = False: CmdSave.Enabled = False '移动控件可用 For Index = 0 To 3 CmdMove(Index).Enabled = True Next Index End If '设置控件Enable值 Call ControlEnable(False

36、)End SubPrivate Sub ControlEnable(flag As Boolean)'设置控件的Enable值 For Index = 0 To 5 Me.txt(Index).Enabled = flag Next IndexEnd SubPrivate Sub ShowData()'在控件中显示数据 If rs.RecordCount <> 0 Then '如果存在记录 '为控件赋值 For Index = 0 To 4 Me.txt(Index) = rs.Fields(Index) Next Index Me.txt(5).T

37、ext = rs.Fields("提供商品") End IfEnd SubPrivate Sub CmdMove_Click(Index As Integer)'移动记录操作 Select Case Index Case Is = 0 '移到第一条记录 If Not rs.BOF Then rs.MoveFirst Case Is = 1 '移到上一条记录 If rs.RecordCount <> 0 Then If rs.BOF = False Then rs.MovePrevious If rs.BOF = True Then rs.

38、MoveFirst End If Case Is = 2 '移到下一条记录 If rs.RecordCount <> 0 Then If rs.EOF = False Then rs.MoveNext If rs.EOF = True Then rs.MoveLast End If Case Is = 3 '移到最后一条记录 If rs.RecordCount <> 0 Then If Not rs.EOF = True Then rs.MoveLast End If End Select Call ShowDataEnd SubPrivate Sub

39、CmdAdd_Click() '所有控件重置 Call ControlClear '设置控件Enable值为可用 Call ControlEnable(True) '设置标志flag，表示所进行的操作为添加 flag = "Add" '所有移动按钮不可用 For Index = 0 To 3 CmdMove(Index).Enabled = False Next Index '添加、修改、删除按钮不可用，取消、保存按钮可用 CmdAdd.Enabled = False: CmdModify.Enabled = False: CmdDe

40、lete.Enabled = False CmdCancel.Enabled = True: CmdSave.Enabled = TrueEnd SubPrivate Sub ControlClear()'重置控件 For Index = 0 To 5 Me.txt(Index).Text = "" Next IndexEnd SubPrivate Sub CmdModify_Click() If rs.RecordCount > 0 Then '如果存在记录 '供应商编号不可以修改,其他控件可用 txt(0).Enabled = False

41、'设置控件Enable值 Call ControlEnable(True) '设置标志flag，表示所进行的操作为修改 flag = "Modify" '移动控件不可用 For Index = 0 To 3 CmdMove(Index).Enabled = False Next Index '添加、修改、删除按钮不可用，取消、保存按钮可用 CmdAdd.Enabled = False: CmdModify.Enabled = False: CmdDelete.Enabled = False CmdCancel.Enabled = True:

42、CmdSave.Enabled = True Else MsgBox ("没有可以修改的数据!") End IfEnd SubPrivate Sub CmdDelete_Click() On Error GoTo ErrMsg '错误处理 If rs.RecordCount > 0 Then msg = MsgBox("删除该条记录吗?", vbYesNo) If msg = vbYes Then rs.Delete '删除数据 Call LoadData '重新装载数据 '清空控件 Call ControlClea

43、r '设置控件Enable值为不可用 Call ControlEnable(False) If rs.RecordCount = 0 Then '所有移动控件不可用 For Index = 0 To 3 CmdMove(Index).Enabled = False Next Index End If '添加、删除按钮可用，修改、取消、保存按钮不可用 CmdAdd.Enabled=True:CmdModify.Enabled=False；CmdDelete.Enabled = True； CmdSave.Enabled = False: CmdCancel.Enabled

44、 = False MsgBox ("成功删除的数据!") End If Else MsgBox ("没有可删除的数据!") End If Exit SubErrMsg: '报告出错信息 MsgBox Err.Description, vbExclamation, "出错"End SubPrivate Sub CmdSave_Click() On Error GoTo ErrMsg If Not CheckData Then Exit Sub '如果数据不合法就退出 If flag = "Modify"

45、; Then '如果是修改数据 msg = MsgBox("您确实要修改这条数据吗?", vbYesNo) If msg = vbYes Then Call setData '设置数据 Else Exit Sub End If ElseIf flag = "Add" Then '如果是添加新数据 rs.AddNew Call setData '设置数据 End If rs.Update '更新数据 '移动控件可用 For Index = 0 To 3 CmdMove(Index).Enabled = Tru

46、e Next Index CmdModify.Enabled = True: CmdDelete.Enabled = True: CmdAdd.Enabled = True CmdSave.Enabled = False: CmdCancel.Enabled = False If flag = "Add" Then MsgBox ("成功添加数据!") Else MsgBox ("成功更新数据!") End If Call LoadData '重新装载数据 '定位到添加或修改记录 If rs.RecordCount &

47、gt; 0 Then rs.MoveFirst rs.Find ("供应商编号='" & Trim(Me.txt(0).Text) & "'") If Not rs.EOF Then Call ShowData '重新显示数据 End If Exit SubErrMsg: MsgBox Err.Description, vbExclamation, "出错"End SubPrivate Function CheckData() As Boolean'检查数据的合法性 Dim rst As

48、 ADODB.Recordset Dim msgt As String msgt = "" '检查数据 If Trim(txt(0).Text) = "" Then '检查供应商编号是否为空 msgt = "供应商编号为空； " '光标定位 txt(0).SetFocus txt(0).SelStart = 0 txt(0).SelLength = Len(txt(0).Text) ElseIf Not Len(Trim(txt(0).Text) = 4 Then '检查供应商编号是否为4位 msgt = msgt & "供应商编号不是4位； " '光标定位 txt(0).SetFocus txt(0).SelStart = 0 txt(0).SelLength = Len(txt(0).Text) ElseIf Trim(txt(1).Text) = "" Then '检查