毕业设计商品销售系统的设计与实现.doc

毕业设计（论文）任务书商品销售系统的设计与实现任务书题目内容： 根据毕业设计选题，首先进行系统调研和分析，在满足实际要求的基础上，撰写开题报告，建立系统数据库和数据表，利用其提供的各种功能对数据库进行操作，完成表单，菜单与程序集合，最后实现完整的数据操作界面，使软件达到操作方便功能明确的目的。 任务要求：一 、任务内容描述 1、系统开发环境：Visual Basic 6.0SQL sever 2000 2、系统功能： （1）系统操作员可以对日常业务模块进行添加、修改、删除和查询。 （2）系统操作员可以对查询统计模块进行添加、修改、删除和查询。 （3）学生操作员可以对销售报表模块进行添加、修改、删除和查询。 （4） 学生操作员可以对基础信息管理模块进行添加、修改、删除和查询。 二、要求按期完成毕业设计论文各阶段任务 要求完成系统的需求分析与设计；系统的概要设计和详细设计；系统的总体实现；根据毕业设计论文的格式要求完成毕业设计论文的撰写。 进度安排： 第一阶段：完成系统的需求分析与设计。 第二阶段：系统的概要设计和详细设计。 第三阶段：完成系统的总体实现。 第四阶段：撰写毕业论文。 指导教师签字： 年 月 日专业负责人签字： 年 月 日毕业设计（论文）评语表（一）指导教师对毕业设计（论文）的评语：张雪峰同学在毕业设计期间，按照毕业设计任务书的要求和内容，完成了系统的需求分析、设计、实现等过程，研究开发了学生信息管理系统的设计与实现，基本满足了财务管理人员对于工资管理系统的需求，完成了毕业设计任务，达到了预定目标。论文立论正确，结构较为清晰，语言基本流畅，格式较为规范，已经达到毕业设计要求，同意张甦同学参加毕业设计答辩。指导教师 （签字）年 月 日评阅人对毕业设计（论文）的评语：评阅人 （签字）年 月 日毕业设计（论文）评语表（二）答辩委员会（小组）成员姓 名职称主要分工签 字答辩中提出的主要问题及回答的简要情况：答辩委员会（小组）代表 （签字）年 月 日答辩委员会（小组）的评语：答辩委员会（小组）代表 （签字）年 月 日答辩委员会（小组）给定的成绩：答辩委员会（小组）主任 （签字）年 月 日毕业设计（论文）开始日期 年 月 日截止日期 年 月 日毕业设计（论文）答辩日期 年 月 日摘要随着信息技术在管理方面的应用的越来越广泛和逐步深入，管理信息的技术的实施在技术上已经逐步成熟。管理系统是一个不断发展的领域，追求不断让各种信息的管理变的更方便、更快捷。不管是经济、军事还是什么方面，都要求能够高效的把信息组织起来，这样就必须建立与自身特点相适应的管理系统，从而达到最高效率的信息组织和传递。本论文是从学生的各方面的信息面出发，针对学校和老师所需第一时间掌握学生信息的角度，经过详细的调查，为我的学校开发了一套方便而实用的学生信息管理系统。本论文对学生信息管理系统进行了详细的分析和设计，清晰的展现了系统的构造。本系统主要分为4个模块，分别为日常业务模块、查询统计模块、销售报表模块、基础信息管理模块和系统设计模块。1日常业务模块的功能是对销售开单、销售退货、客户结款的添加和修改。2.查询统计模块的功能是对销售、销售退货、应收款和库存量的查询。3销售报表模块的功能是对客户销售、商品销售和销售员销售的汇总表进行查询进行查询。4基础信息管理模块的功能是对客户信息、销售员信息、商品信息的添加、修改、删除和查询。5.系统设计模块的功能是对操作员的添加、和删除，并能够对不同的信息进行初始化。 本系统的前端开发工具是Visual Basic 6.0，后台数据库选用的是数据库SQL sever 2000关键词: 商品管理系统， SQL语言目录摘要1第一章 绪 论31.1 系统概述31.2 数据库概述31.3 Visual Basic 6.0概述3第二章 系统分析42.1系统功能分析42.2 系统功能模块设计42.2.1系统登录流程图52.22 用户管理模块流程图62.2.3 班级管理模块流程图72.2.4 学生档案管理模块流程图92.2.5 成绩管理模块流程图102.3 数据库设计112.3.1 需求分析11第三章 系统设计阶段123.1数据库概念结构设计123.2 数据库逻辑结构设计143.3用户界面设计16第四章 系统环境与软件安装714.1硬件环境要求714.2 软件环境要求714.3 软件安装71第五章 总结72致谢73参考文献74第一章 绪 论1.1 系统概述现代是个充斥着信息的时代，而计算机在这个时代扮演者重要的角色，而其中对于信息的管理的要求尤为突出，它已经渗透到了各个领域。同样，在学校和老师也要能够对学生的信息进行第一时间的掌握和管理，因此对于学生信息的管理进行系统化是刻不容缓的。本学生信息管理系统可以说是一个综合性的信息管理系统，它集成了班级信息管理、课程信息管理、学生档案管理、学生成绩管理等多种功能，因此具有很高的实用性和先进性。1.2 数据库概述Access提供了真正的关系数据库管理。Access具有主关键字和外部关键字定义，并且在数据库的引擎提供了完全的引用完整性，可以避免不合理的更新和删除。Access 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。1.3 Visual Basic 6.0概述Microsoft Visual Basic6.0提供了开发Microsoft Windows应用程序的最迅速、最简捷的方法。”Visual”的意思是“可视化程序设计”，指的是开发图形用户界面的方法。使用这种方法，用户不需要编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象拖放到屏幕上的一点即可。”Basic”指的是BASIC语言，它是一种在计算机技术发展历史上应用得最为广泛的语言。VB在原有BASIC语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和Windows GUI有直接关系第二章 系统分析2.1系统功能分析学生信息管理系统是对在校学生的全方位的信息进行管理的系统。设计学生信息管理系统的目的主要是提高学生信息管理的效率、减少相关人员的工作量，让学生信息管理更加便捷、更加科学。做到系统、规范、高效的信息管理原则。 学校和老师可以添加和管理班级信息、添加和管理课程信息、添加和管理学生的档案信息、添加和管理学生的成绩信息，也可以对个别班级和同学的信息进行查询，根据不同条件对学生的成绩信息进行查询。从而从点到面全方位的掌握学生的信息。学生信息管理系统的主要功能如下：1. 添加、修改、删除班级信息2. 添加、修改、删除课程的种类3. 添加、修改、删除每个班所上课程的信息4. 添加、修改、删除和查询学生的档案信息5. 添加、修改、删除和查询学生的成绩信息2.2 系统功能模块设计根据系统所要实现的功能，按照结构化程序设计的原则，将系统划分为如图所示的系统功能模块图。系 统登录模块系统用户管理模块级信息管理模块学生档案管理模块成绩信息管理模块班级管理子模块课程管理子模块图2-12.2.1系统登录流程图下面介绍一下登录模块的流程，当用户进入程序时，系统会自动转入登录界面，同时系统将数据库中存储的所有用户名调出到用户名下拉菜单，用户选择自己所用的用户名，并输入对应的密码后点击登录，如果对应的密码正确，将进入系统的主页面，如果错误，则会出现错误提示。登陆界面选择用户名输入密码是否正确进入主页面YN提示错误数据库用户信息表调用图2-22.22 用户管理模块流程图下面来介绍一下用户管理模块的流程，当用户打开用户管理面板时，用户可以看到列表中的所有的用户名，通过点击添加、修改、删除块来切换面板来执行用户所需要的操作。用户选择添加面板修改面板删除面板输入添加新用户信息输入修改的用户信息输入删除的用户信息查询数据库正确添加成功提示错误错误数据库添加修改成功正确错误提示错误查询数据库删除成功正确错误提示错误图2-32.2.3 班级管理模块流程图下面来介绍一下班级管理模块的流程，班级管理模块是由班级管理和课程管理两个子模块构成，当打开班级管理界面时，可以通过点击添加、修改、删除切换面板来完成用户所需的对班级信息的管理。当打开班级课程界面时，可以添加、删除、课程，也可以为班级设置所需上的课程，删除已经结课的课程。用户选择添加面板修改面板删除面板输入添加新班级信息输入修改的班级信息输入删除的班级信息查询数据库正确添加成功提示错误错误数据库添加修改成功正确错误提示错误查询数据库删除成功正确错误提示错误图2-4课程列表用户输入添加课程的信息输入删除课程的信息数据库添加课程删除课程提示错误提示错误调用班级课程列表单个添加单个删除全部添加全部删除数据库调用选择班级查询用户图2-52.2.4 学生档案管理模块流程图下面来介绍一下学生档案管理模块的流程，用户在打开档案管理界面时，可以通过点击添加、查询、修改、删除块来切换应用功能，从而实现用户的使用要求。默认是查询功能，当查询条件为空是，默认预览全部学生档案资料，显示在列表中。用户还可以根据不同的条件对学生档案进行查询操作。当点击列表中的某个学生的信息时，这个学生的信息会自动显示在修改、删除的栏目内。用户选择添加查询修改删除数据库输入添加的学生信息提示错误添加成功输入查询条件数据库添加查询学生信息系列表调用选择或输入要修改的信息修改信息数据库修改成功更新提示错误选择或输入要删除的信息数据库删除删除成功图2-62.2.5 成绩管理模块流程图下面介绍一下成绩管理模块的流程，当用户打开成绩管理界面的后，可以通过对单选按钮的选择，来切换添加、查询、修改和删除的功能。同学生档案管理模块相似，查询条件为空时，默认预览所有成绩资料，显示在列表中。当点击列表中的某条成绩信息时，这条成绩信息也会自动显示在修改和删除的栏目中。 用户选择添加查询修改删除数据库输入添加的成绩信息提示错误添加成功输入查询条件数据库添加查询成绩信息系列表调用选择或输入要修改的信息修改信息数据库修改成功更新提示错误选择或输入要删除的信息数据库删除删除成功图2-72.3 数据库设计2.3.1 需求分析在学生信息管理系统操作流程分析的基础上，下面列出了学生信息管理系统的数据项和数据结构。1. 系统用户信息：用户名、密码。2. 课程信息：课程名、备注。3. 班级信息：班级编号、班主任、学生人数、备注。4. 班级课程信息：班级编号、课程名。5. 学生信息：学号、姓名、性别、年龄、班级、出生日期、联系电话、家庭住址、备注。6. 学生成绩信息：成绩编号、考试期号、学生班号、学号、考试课程、考试成绩。第三章 系统设计阶段3.1数据库概念结构设计得到上面的数据项和数据结构，就可以满足用户所需的各种信息的实体需求，以及它们之间的关系，为后面的的逻辑结构打下基础。根据上面的数据项和数据结构规划出的实体有：班级信息实体、班级课程实体、学生档案实体、学生成绩实体。具体实体的实体描述E-R图如下：班级信息实体E-R图：班级信息实体班级编号班主任学生人数备注图3-1班级课程实体E-R图： 班级课程实体班级编号课程名称图3-2学生档案实体E-R表：学生档案实体姓名性别家庭住址备注图3-3学生成绩实体E-R表： 学生成绩实体成绩编号考试期号考试课程考试分数图3-43.2 数据库逻辑结构设计有E-R图便是的概念模型，可以表示为任何一种数据库管理系统（DBMS）所支持的数据模型，并进行规范化，减少冗余信息。根据设计的图书管理系统的E-R图，设计的关系模式在access 2003 中实现，新建数据库名为studentmessage.mdb。关系模式（表） 表3-1 系统用户表列名数据类型可否为空说明用户名文本（20）否主键密码文本（20）是表3-2班级表列名数据类型可否为空说明班级编号文本（50）否主键班主任文本（50）否 学生人数文本（50） 否 备注 文本（50） 是表3-3课程表列名数据类型可否为空说明课程名文本（50）否主键备注文本（50）是表3-4 班级课程表列名数据类型可否为空说明班级编号文本（50）否主键课程名文本（50）否表3-5 学生信息表列名数据类型可否为空说明学号文本（50）否主键姓名文本（50）否性别文本（50）否年龄文本（50）否班级文本（50）否出生日期日期否联系电话文本（50）否 家庭地址 文本（50） 否 备注 文本（50） 否表3-6 学生成绩表列名数据类型可否为空说明成绩编号文本（50）否主键考试期号文本（50）否学生班号文本（50）否学号文本（50）否考试课程文本（50）否考试成绩文本（50）否3.3用户界面设计当今软件界的所有软件无不是可视化的用户界面，它的好处不外乎它有美观、直接、操作者易懂和操作方便等好处。本系统设计思想：“为用户设计，而不是设计者”本系统设计原则：1 界面美观、操作方便并能高效率地完成工作。 2 界面根据用户需求设计。 3 界面能引导用户操作的功能，并能提供一些帮助功能。 1.登录界面图3-11相关代码：Option ExplicitDim pwd As StringDim rsUser As ADODB.RecordsetPrivate Sub Combo1_Click()Dim sql As StringSet rsUser = New ADODB.RecordsetIf rsUser.State = 1 Then rsUser.Closesql = SELECT 密码 FROM 系统用户表 WHERE 用户名= & Combo1.Text & rsUser.Open sql, conn, adOpenStatic, adLockPessimistictxtpwd.SetFocuspwd = Trim(rsUser.Fields(密码)rsUser.CloseEnd SubPrivate Sub Command1_Click()If Combo1.Text = Then MsgBox 请选择用户名！, , 登录 Combo1.SetFocus Exit SubEnd IfIf txtpwd.Text = Then MsgBox 请输入密码！, , 登录 txtpwd.SetFocus Exit SubEnd IfIf txtpwd.Text = pwd Then userID = Combo1.Text conn.Close Me.Hide MDIForm1.ShowElse MsgBox 密码无效，请重试！, , 登录 txtpwd.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Dim cnnstr As StringDim sql As StringSet rsUser = New ADODB.Recordsetcnnstr = provider=microsoft.jet.oledb.4.0; & data source= & App.Path & /Data/studentmessage.mdbconn.Open cnnstrsql = SELECT 用户名 FROM 系统用户表rsUser.Open sql, conn, adOpenStatic, adLockPessimisticCombo1.ClearDo Until rsUser.EOF Combo1.AddItem rsUser.Fields(用户名) rsUser.MoveNextLoop rsUser.CloseEnd Sub1. 主页面的子窗体图3-12相关代码：Dim i As LongPrivate Sub Form_Load()Label1.ForeColor = &H8000000E Label1.FontSize = 12 Label1.AutoSize = TrueEnd SubPrivate Sub Form_Resize()Image1.Top = 0 Image1.Left = 0 Image1.Height = Me.Height Image1.Width = Me.Width Image2.Top = Me.Height - Image2.Height Image2.Left = Me.Width - Image2.Width Label1.Top = Me.Height - Label1.Height - 100End SubPrivate Sub Timer1_Timer()i = i + 50 Label1.Left = Me.Width - i If i Me.Width + Label1.Width Then i = Image2.Width End IfEnd Sub2. 主页面图3-13相关代码：Private Sub chengji_Click()Form6.ShowEnd SubPrivate Sub class_Click()Form3.ShowEnd SubPrivate Sub dangan_Click()Form5.ShowEnd SubPrivate Sub denglu_Click()Form1.ShowUnload MeEnd SubPrivate Sub jiangcheng_Click()Form7.ShowEnd SubPrivate Sub kecheng_Click()Form4.ShowEnd SubPrivate Sub MDIForm_Load()StatusBar1.Style = sbrSimpleTimer1.Interval = 1000dColor.ShowEnd SubPrivate Sub MDIForm_Resize()If Me.Height 1100 Then dColor.Height = Me.Height - 1100 End If If Me.Width 180 Then dColor.Width = Me.Width - 180 End IfEnd SubPrivate Sub Timer1_Timer()StatusBar1.SimpleText = Date & & TimeEnd SubPrivate Sub tuchu_Click()EndEnd SubPrivate Sub tuichu_Click()EndEnd SubPrivate Sub user_Click()Form2.Show4用户管理界面图3-14图3-15图3-16相关代码：Dim mrc As ADODB.RecordsetPrivate Sub Command1_Click() Dim txtSQL As String Dim c As String If Text1(0) = Then MsgBox 用户名不能为空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 用户密码不能为空!, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub Else If Text1(2).Text Text1(1).Text Then MsgBox 两次输入的密码不一样，请重新输入!, vbOKOnly, 提示 Text1(1).Text = Text1(2).Text = Text1(1).SetFocus Exit Sub End If End If txtSQL = select * from 系统用户表 Set mrc = New ADODB.Recordset c = provider=microsoft.jet.oledb.4.0; & data source= & App.Path & /Data/studentmessage.mdb conn.Open c mrc.Open txtSQL, conn, adOpenStatic, adLockPessimistic mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Update mrc.Close conn.Close For i = 0 To 2 Text1(i) = Next MsgBox 用户信息添加成功!, vbOKOnly, 提示 ListappEnd SubPrivate Sub Command2_Click() Text1(0) = Text1(1) = Text1(2) = End SubPrivate Sub Command3_Click() Dim txtSQL As String Dim co As String Set mrc = New ADODB.Recordset If Text1(3) = Then MsgBox 请你选择用户名称!, vbOKOnly, 提示 List1.SetFocus Exit Sub End If If Text1(4) = Then MsgBox 修改密码需要旧密码!, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If If Text1(5) = Then MsgBox 新的密码不能为空!, vbOKOnly, 提示 Text1(5).SetFocus Exit Sub Else If Text1(5) Text1(6) Then MsgBox 两次密码输入不同!, vbOKOnly, 提示 Text1(5) = Text1(6) = Text1(5).SetFocus Exit Sub End If End If co = provider=microsoft.jet.oledb.4.0; & data source= & App.Path & /Data/studentmessage.mdb conn.Open co txtSQL = select * from 系统用户表 where 用户名= & Trim(Text1(3) & and 密码= & Trim(Text1(4) & mrc.Open txtSQL, conn, adOpenStatic, adLockPessimistic If mrc.EOF = False Then txtSQL = delete from 系统用户表 where 用户名= & Trim(Text1(3) & Else MsgBox 用户密码输入错误!, vbOKOnly, 警告 Text1(4).SetFocus Exit Sub End If conn.Close conn.Open co mrc.Open txtSQL, conn, adOpenStatic, adLockPessimistic txtSQL = select * from 系统用户表 mrc.Open txtSQL, conn, adOpenStatic, adLockPessimistic mrc.AddNew mrc.Fields(0) = Trim(Text1(3) mrc.Fields(1) = Trim(Text1(5) mrc.Update mrc.Close conn.Close For i = 3 To 6 Text1(i) = Next MsgBox 用户信息修改成功!, vbOKOnly, 提示End SubPrivate Sub Command4_Click() Text1(3) = Text1(4) = Text1(5) = Text1(6) = End SubPrivate Sub Command5_Click() Dim txtSQL As String Dim co As String If Text1(7).Text = Then MsgBox 请您选择用户名称, vbOKOnly, 提示 Text1(7).SetFocus Exit Sub Else If Text1(7) = UserName Then MsgBox 不可一删除正在使用的用户！, vbOKOnly, 提示 Text1(7).Text = Text1(7).SetFocus Exit Sub End If End If If Text1(8) = Then MsgBox 删除用户需要密码！, vbOKOnly, 提示 Text1(7).SetFocus Exit Sub End If Set mrc = New ADODB.Recordset co = provider=microsoft.jet.oledb.4.0; & data source= & App.Path & /Data/studentmessage.mdb conn.Open co txtSQL = select * from 系统用户表 where 用户名= & Trim(Text1(7) & and 密码= & Trim(Text1(8) & mrc.Open txtSQL, conn, adOpenStatic, adLockPessimistic If mrc.EOF = False Then txtSQL = delete from 系统用户表 where 用户名= & Trim(Text1(7) & Else MsgBox 用户密码输入错误!, vbOKOnly, 警告 Text1(8).SetFocus Exit Sub End If conn.Close conn.Open co mrc.Open txtSQL, conn, adOpenStatic, adLockPessimistic conn.Close Text1(7) = Text1(8) = MsgBox 用户信息已经删除!, vbOKOnly, 提示 ListappEnd SubPrivate Sub Command6_Click() Text1(7) = Text1(8) = End SubPrivate Sub Form_Load() Me.Caption = 用户信息-添 加 Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left Listapp For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = &HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Label2_Click(Index As Integer)Me.Caption = 用户信息 Me.Caption = Me.Caption & - & Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = &HFFFFFF Picture1(Index).Visible = True End SubPrivate Sub Listapp() Dim txSQL As String Dim cn As String Dim mrcc As ADODB.Recordset Set mrcc = New ADODB.Recordset cn = provider=microsoft.jet.oledb.4.0; & data source= & App.Path & /Data/studentmessage.mdb conn.Open cn txSQL = select * from 系统用户表 mrcc.Open txSQL, conn, adOpenStatic, adLockPessimistic List1.Clear Do While Not mrcc.EOF List1.AddItem Trim(mrcc!用户名) mrcc.MoveNext Loop mrcc.Close conn.CloseEnd Sub3. 班级管理界面图3-17图3-18图3-19相关代码：Dim mrcc As ADODB.RecordsetDim txSQL As StringDim cn As StringPrivate Sub Command1_Click()If Text1(0) = Then MsgBox 班级编号不能为空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1).Text = Then MsgBox 班主任不能为空!, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub End If If Text1(2).Text = Then MsgBox 学生人数不能为空!, vbOKOnly, 提示 Text1(2).SetFocus Exit Sub End If txSQL = select * from 班级表 where 班级编号= & Trim(Text1(0) & cn = provider=microsoft.jet.oledb.4.0; & data source= & App.Path & /Data/studentmessage.mdb If conn.State = 1 Then conn.Closeconn.Open cn mrcc.Open txSQL, conn, adOpenStatic, adLockPessimistic If mrcc.EOF = False Then MsgBox 此班级编号已存在!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub mrcc.Close conn.Close End If txSQL = select * from 班级表 cn = provider=microsoft.jet.oledb.4.0; & data source= & App.Path & /Data/studentmessage.mdb If conn.State = 1 Then conn.Closeconn.Open cn mrcc.Open txSQL, conn, adOpenStatic, adLockPessimistic mrcc.AddNew mrcc.Fields(0) = Trim(Text1(0) mrcc.Fields(1) = Trim(Text1(1) mrcc.Fields(2) = Trim(Text1(2) mrcc.Fields(3) = Trim(Text1(3) mrcc.Update mrcc.Close conn.Close For i = 0 To 3 Text1(i) = Next MsgBox 班级信息添加成功!, vbOKOnly, 提示 ShowDataEnd SubPrivate Sub Command2_Click() For i = 0 To 3 Text1(i).Text = NextEnd SubPrivate Sub Co