商品销售系统的设计与实现毕业论文.docx
《商品销售系统的设计与实现毕业论文.docx》由会员分享，可在线阅读，更多相关《商品销售系统的设计与实现毕业论文.docx（99页珍藏版）》请在冰豆网上搜索。
商品销售系统的设计与实现毕业论文
商品销售系统的设计与实现毕业论文
目 录
第一章绪论
1.1系统概述
现代是个充斥着信息的时代，而计算机在这个时代扮演者重要的角色，而其中对于信息的管理的要求尤为突出，它已经渗透到了各个领域。
同样，在学校和老师也要能够对学生的信息进行第一时间的掌握和管理，因此对于学生信息的管理进行系统化是刻不容缓的。
本学生信息管理系统可以说是一个综合性的信息管理系统，它集成了班级信息管理、课程信息管理、学生档案管理、学生成绩管理等多种功能，因此具有很高的实用性和先进性。
1.2数据库概述
Access提供了真正的关系数据库管理。
Access具有主关键字和外部关键字定义，并且在数据库的引擎提供了完全的引用完整性，可以避免不合理的更新和删除。
Access就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。
Access的优点在于它能使用数据表示图或自定义窗体收集信息。
数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。
另外，Access允许创建自定义报表用于打印或输出数据库中的信息。
Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。
Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。
如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。
1.3VisualBasic6.0概述
MicrosoftVisualBasic6.0提供了开发MicrosoftWindows应用程序的最迅速、最简捷的方法。
”Visual”的意思是“可视化程序设计”，指的是开发图形用户界面的方法。
使用这种方法，用户不需要编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象拖放到屏幕上的一点即可。
”Basic”指的是BASIC语言，它是一种在计算机技术发展历史上应用得最为广泛的语言。
VB在原有BASIC语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和WindowsGUI有直接关系
第二章系统分析
2.1系统功能分析
学生信息管理系统是对在校学生的全方位的信息进行管理的系统。
设计学生信息管理系统的目的主要是提高学生信息管理的效率、减少相关人员的工作量，让学生信息管理更加便捷、更加科学。
做到系统、规范、高效的信息管理原则。
学校和老师可以添加和管理班级信息、添加和管理课程信息、添加和管理学生的档案信息、添加和管理学生的成绩信息，也可以对个别班级和同学的信息进行查询，根据不同条件对学生的成绩信息进行查询。
从而从点到面全方位的掌握学生的信息。
学生信息管理系统的主要功能如下：
1.添加、修改、删除班级信息
2.添加、修改、删除课程的种类
3.添加、修改、删除每个班所上课程的信息
4.添加、修改、删除和查询学生的档案信息
5.添加、修改、删除和查询学生的成绩信息
2.2系统功能模块设计
根据系统所要实现的功能，按照结构化程序设计的原则，将系统划分为如图所示的系统功能模块图。
图2-1
2.2.1系统登录流程图
下面介绍一下登录模块的流程，当用户进入程序时，系统会自动转入登录界面，同时系统将数据库中存储的所有用户名调出到用户名下拉菜单，用户选择自己所用的用户名，并输入对应的密码后点击登录，如果对应的密码正确，将进入系统的主页面，如果错误，则会出现错误提示。
图2-2
2.2．2用户管理模块流程图
下面来介绍一下用户管理模块的流程，当用户打开用户管理面板时，用户可以看到列表中的所有的用户名，通过点击添加、修改、删除块来切换面板来执行用户所需要的操作。
图2-3
2.2.3班级管理模块流程图
下面来介绍一下班级管理模块的流程，班级管理模块是由班级管理和课程管理两个子模块构成，当打开班级管理界面时，可以通过点击添加、修改、删除切换面板来完成用户所需的对班级信息的管理。
当打开班级课程界面时，可以添加、删除、课程，也可以为班级设置所需上的课程，删除已经结课的课程。
图2-4
图2-5
2.2.4学生档案管理模块流程图
下面来介绍一下学生档案管理模块的流程，用户在打开档案管理界面时，可以通过点击添加、查询、修改、删除块来切换应用功能，从而实现用户的使用要求。
默认是查询功能，当查询条件为空是，默认预览全部学生档案资料，显示在列表中。
用户还可以根据不同的条件对学生档案进行查询操作。
当点击列表中的某个学生的信息时，这个学生的信息会自动显示在修改、删除的栏目内。
图2-6
2.2.5成绩管理模块流程图
下面介绍一下成绩管理模块的流程，当用户打开成绩管理界面的后，可以通过对单选按钮的选择，来切换添加、查询、修改和删除的功能。
同学生档案管理模块相似，查询条件为空时，默认预览所有成绩资料，显示在列表中。
当点击列表中的某条成绩信息时，这条成绩信息也会自动显示在修改和删除的栏目中。
图2-7
2.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-4
3.2数据库逻辑结构设计
有E-R图便是的概念模型，可以表示为任何一种数据库管理系统（DBMS）所支持的数据模型，并进行规范化，减少冗余信息。
根据设计的图书管理系统的E-R图，设计的关系模式在access2003中实现，新建数据库名为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
相关代码：
OptionExplicit
DimpwdAsString
DimrsUserAsADODB.Recordset
PrivateSubCombo1_Click（）
DimsqlAsString
SetrsUser=NewADODB.Recordset
IfrsUser.State=1ThenrsUser.Close
sql="SELECT密码FROM系统用户表WHERE用户名='"&Combo1.Text&"'"
rsUser.Opensql,conn,adOpenStatic,adLockPessimistic
txtpwd.SetFocus
pwd=Trim（rsUser.Fields（"密码"））
rsUser.Close
EndSub
PrivateSubCommand1_Click（）
IfCombo1.Text=""Then
MsgBox"请选择用户名！
",,"登录"
Combo1.SetFocus
ExitSub
EndIf
Iftxtpwd.Text=""Then
MsgBox"请输入密码！
",,"登录"
txtpwd.SetFocus
ExitSub
EndIf
Iftxtpwd.Text=pwdThen
userID=Combo1.Text
conn.Close
Me.Hide
MDIForm1.Show
Else
MsgBox"密码无效，请重试！
",,"登录"
txtpwd.SetFocus
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
DimcnnstrAsString
DimsqlAsString
SetrsUser=NewADODB.Recordset
cnnstr="provider=microsoft.jet.oledb.4.0;"&"datasource="&App.Path&"/Data/studentmessage.mdb"
conn.Opencnnstr
sql="SELECT用户名FROM系统用户表"
rsUser.Opensql,conn,adOpenStatic,adLockPessimistic
Combo1.Clear
DoUntilrsUser.EOF
Combo1.AddItemrsUser.Fields（"用户名"）
rsUser.MoveNext
Loop
rsUser.Close
EndSub
1.
主页面的子窗体
图3-12
相关代码：
DimiAsLong
PrivateSubForm_Load（）
Label1.ForeColor=&H8000000E
Label1.FontSize=12
Label1.AutoSize=True
EndSub
PrivateSubForm_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-100
EndSub
PrivateSubTimer1_Timer（）
i=i+50
Label1.Left=Me.Width-i
Ifi>Me.Width+Label1.WidthThen
i=Image2.Width
EndIf
EndSub
2.
主页面
图3-13
相关代码：
PrivateSubchengji_Click（）
Form6.Show
EndSub
PrivateSubclass_Click（）
Form3.Show
EndSub
PrivateSubdangan_Click（）
Form5.Show
EndSub
PrivateSubdenglu_Click（）
Form1.Show
UnloadMe
EndSub
PrivateSubjiangcheng_Click（）
Form7.Show
EndSub
PrivateSubkecheng_Click（）
Form4.Show
EndSub
PrivateSubMDIForm_Load（）
StatusBar1.Style=sbrSimple
Timer1.Interval=1000
dColor.Show
EndSub
PrivateSubMDIForm_Resize（）
IfMe.Height>1100Then
dColor.Height=Me.Height-1100
EndIf
IfMe.Width>180Then
dColor.Width=Me.Width-180
EndIf
EndSub
PrivateSubTimer1_Timer（）
StatusBar1.SimpleText=Date&""&Time
EndSub
PrivateSubtuchu_Click（）
End
EndSub
PrivateSubtuichu_Click（）
End
EndSub
PrivateSubuser_Click（）
Form2.Show
4．用户管理界面
图3-14
图3-15
图3-16
相关代码：
DimmrcAsADODB.Recordset
PrivateSubCommand1_Click（）
DimtxtSQLAsString
DimcAsString
IfText1（0）=""Then
MsgBox"用户名不能为空!
",vbOKOnly,"提示"
Text1（0）.SetFocus
ExitSub
EndIf
IfText1
（1）=""Then
MsgBox"用户密码不能为空!
",vbOKOnly,"提示"
Text1
（1）.SetFocus
ExitSub
Else
IfText1
（2）.Text<>Text1
（1）.TextThen
MsgBox"两次输入的密码不一样，请重新输入!
",vbOKOnly,"提示"
Text1
（1）.Text=""
Text1
（2）.Text=""
Text1
（1）.SetFocus
ExitSub
EndIf
EndIf
txtSQL="select*from系统用户表"
Setmrc=NewADODB.Recordset
c="provider=microsoft.jet.oledb.4.0;"&"datasource="&App.Path&"/Data/studentmessage.mdb"
conn.Openc
mrc.OpentxtSQL,conn,adOpenStatic,adLockPessimistic
mrc.AddNew
mrc.Fields（0）=Trim（Text1（0））
mrc.Fields
（1）=Trim（Text1
（1））
mrc.Update
mrc.Close
conn.Close
Fori=0To2
Text1（i）=""
Next
MsgBox"用户信息添加成功!
",vbOKOnly,"提示"
Listapp
EndSub
PrivateSubCommand2_Click（）
Text1（0）=""
Text1
（1）=""
Text1
（2）=""
EndSub
PrivateSubCommand3_Click（）
DimtxtSQLAsString
DimcoAsString
Setmrc=NewADODB.Recordset
IfText1（3）=""Then
MsgBox"请你选择用户名称!
",vbOKOnly,"提示"
List1.SetFocus
ExitSub
EndIf
IfText1（4）=""Then
MsgBox"修改密码需要旧密码!
",vbOKOnly,"警告"
Text1（4）.SetFocus
ExitSub
EndIf
IfText1（5）=""Then
MsgBox"新的密码不能为空!
",vbOKOnly,"提示"
Text1（5）.SetFocus
ExitSub
Else
IfText1（5）<>Text1（6）Then
MsgBox"两次密码输入不同!
",vbOKOnly,"提示"
Text1（5）=""
Text1（6）=""
Text1（5）.SetFocus
ExitSub
EndIf
EndIf
co="provider=microsoft.jet.oledb.4.0;"&"datasource="&App.Path&"/Data/studentmessage.mdb"
conn.Openco
txtSQL="select*from系统用户表where用户名='"&Trim（Text1（3））&"'and密码='"&Trim（Text1（4））&"'"
mrc.OpentxtSQL,conn,adOpenStatic,adLockPessimistic
Ifmrc.EOF=FalseThen
txtSQL="deletefrom系统用户表where用户名='"&Trim（Text1（3））&"'"
Else
MsgBox"用户密码输入错误!
",vbOKOnly,"警告"
Text1（4）.SetFocus
ExitSub
EndIf
conn.Close
conn.Openco
mrc.OpentxtSQL,conn,adOpenStatic,adLockPessimistic
txtSQL="select*from系统用户表"
mrc.OpentxtSQL,conn,adOpenStatic,adLockPessimistic
mrc.AddNew
mrc.Fields（0）=Trim（Text1（3））
mrc.Fields
（1）=Trim（Text1（5））
mrc.Update
mrc.Close
conn.Close
Fori=3To6
Text1（i）=""
Next
MsgBox"用户信息修改成功!
",vbOKOnly,"提示"
EndSub
PrivateSubCommand4_Click（）
Text1（3）=""
Text1（4）=""
Text1（5）=""
Text1（6）=""
EndSub
PrivateSubCommand5_Click（）
DimtxtSQLAsString
DimcoAsString
IfText1（7）.Text=""Then
MsgBox"请您选择用户名称",vbOKOnly,"提示"
Text1（7）.SetFocus
ExitSub
Else
IfText1（7）=UserNameThen
MsgBox"不可一删除正在使用的用户！
",vbOKOnly,"提示"
Text1（7）.Text=""
Text1（7）.SetFocus
ExitSub
EndIf
EndIf
IfText1（8）=""Then
MsgBox"删除用户需要密码！
",vbOKOnly,"提示"
Text1（7）.SetFocus
ExitSub
EndIf
Setmrc=NewADODB.Recordset
co="provider=microsoft.jet.oledb.4.0;"&"datasource="&App.Path&"/Data/studentmessage.mdb"
conn.Openco
txtSQL="select*from系统用户表where用户名='"&Trim（Text1（7））&"'and密码='"&Trim（Text1（8））&"'"
mrc.OpentxtSQL,conn,adOpenStatic,adLockPessimistic
Ifmrc.EOF=FalseThen
txtSQL="deletefrom系统用户表where用户名='"&Trim（Text1（7））&"'"
Else
MsgBox"用户密码输入错误!
",vbOKOnly,"警告"
Text1（8）.SetFocus
ExitSub
EndIf
conn.Close
conn.Openco
mrc.OpentxtSQL,conn,adOpenStatic,adLockPessimistic
conn.Close
Text1（7）=""
Text1（8）=""
MsgBox"用户信息已经删除!
",vbOKOnly,"提示"
Listapp
EndSub
PrivateSubCommand6_Click（）
Text1（7）=""
Text1（8）=""
EndSub
Priv
升级会员 