宠物用品管理系统数据库课程设计.docx
《宠物用品管理系统数据库课程设计.docx》由会员分享,可在线阅读,更多相关《宠物用品管理系统数据库课程设计.docx(17页珍藏版)》请在冰豆网上搜索。
宠物用品管理系统数据库课程设计
西安郵電大學
综合应用软件课程设计报告
题目:
宠物用品店管理系统
学院名称
:
计算机学院
专业名称
:
计算机科学与技术
班级
:
计科1102
学号
:
04111067(24)
学生姓名
:
冯佳新
指导教师
:
孟彩霞
时间
:
2013年09月09日
至2013年09月23日
得分项
百分比
得分
题目的新颖程度及难度
5
语言的难度及熟悉程度
5
设计结果(机器上验收)
60
设计文档
20
设计过程态度
10
总评(五级制)
1、 课程设计目的
1,能快速掌握数据库系统开发的最基本方法、思路和步骤。
2,熟悉大型数据库管理系统的基本结构,基本框架设计与组成。
3,掌握数据库语言和其他语言综合应用的能力,连接方法及连接应用和对程序的调试能力。
4,能利用信息技术,数据库技术等对系统进行方便地管理,改善顾客服务等。
2、课程设计内容
随着人们日常生活的丰富多彩,人们对新事物的不断追求,使得各种各样的个性宠物不断出现。
由于这一发展驱趋势,提供给人们各个种类宠物的宠物店则如雨后春笋般涌现。
本系统专门为实体宠物店设计,主要包括了宠物用品销售、宠物店客户管理、宠物货物管理、宠物用品进货管理、宠物用品提供商管理等多种业务管理,解决宠物店进销存繁琐问题,建立丰富的宠物用品资料,顾客资料;还包含了丰富的营业销售汇总报表,让宠物店营业情况一目了然,最终方便管理以及扩大销售。
三、软硬件环境及系统所采用的体系结构
1,操作系统:
Windows7
2,体系结构:
系统的体系结构为C/S结构
3,开发工具:
前台为VisualBasic6.0,后台数据库为SQLServer2008
四、需求分析
1,功能描述
(1)管理员和客户都可先注册然后再进行相关操作。
(2)管理员可实行客户管理、宠物用品管理、销售管理、供应商管理、进货管理等操作。
对客户信息,货品信息,供应商信息进行相应的添加、修改、删除操作。
(3)用户可通过货品的展示选择自己需要的物品并购买。
2,实现目标
(1)实现管理员和用户的登录权限。
(2)实现管理员对客户信息,货品信息,供应商信息的修改、删除等功能。
(3)实现货品的界面展览,以供客户选择。
5、系统设计
1.系统结构图(功能模块图)
(1)在客户信息管理部分,要求如下。
●可以浏览客户信息。
●可以对客户信息进行维护,包括添加及删除等操作。
(2)在货品信息管理部分,要求如下。
●可以浏览货品信息。
●可以对货品信息进行维护,包括添加及删除等操作。
(3)在销售信息管理部分,要求如下。
●可以浏览销售信息。
●可以对销售信息进行维护,包括添加及删除等操作。
(4)在供应商信息管理部分,要求如下。
●可以浏览供应商信息。
●可以对供应商信息进行维护,包括添加及删除等操作。
(5)在进货信息管理部分,要求如下。
●可以浏览进货信息。
●可以对进货信息进行维护,包括添加及删除等操作。
(6)在管理者信息管理部分,要求如下。
●显示当前数据库中管理者情况。
●对管理者信息维护操作。
2.数据库设计
(1)系统E-R图
(2)逻辑模式
客户(客户编号姓名电话城市住址)
货品(货品编号货品名类别进价售价供应商重量库存量)
销售(销售编号客户编号货品编号货品名售价销售数量总额销售日期)
厂商(厂家编号厂名生产产品电话住址)
进货(进货编号厂商编号货品编号货品名进价售价进价数量总额进价日期)
登录(用户名密码)
其中,波浪线为主键,直线为外键。
根据这些需要,本系统需要客户表、货品表、销售表、厂商表、进货表、密码表等。
6、系统的实施
1,创建数据库与表
打开SQLServer企业管理器,配置连接,创建名为“CW”的数据库。
创建数据库后,为数据库添加数据表,步骤如下。
(1)在服务器资源管理器中右击数据库“CW”的“表”文件夹。
在弹出的快捷菜单中执行“新建表”命令,出现表设计器。
(2)添加表的字段和其他详细资料。
建立好的各表如下所示。
2,配置数据源
打开控制面板里面的“管理工具”,打开“数据源”,选择“系统DSN”选项,选择“添加”,选择SQLServer为驱动程序,自己命名数据源为123,配置服务器,点击“下一步”,再“下一步”,然后更改当前默认数据库为“CW”,点击完成,测试数据完整性后完成数据源的配置。
3,主要窗体设计及相关代码
(1)管理员登录页面
PrivateSubcustomer_Click()
UnloadMe
show_product.Show
EndSub
PrivateSubmanager_Click()
UnloadMe
user_login.Show
EndSub
PrivateSubexit_Click()
UnloadMe
initialFrame.Show
EndSub
PrivateSublogin_Click()
Setcn1=NewADODB.Connection
Setrs1=NewADODB.Recordset
Setcm1=NewADODB.Command
DimstrcnnAsString
strcnn="driver={sqlserver};server=(local);database=CW;"
cn1.Openstrcnn
cm1.ActiveConnection=cn1
strsql="select*frommanagerswheremngId='"+idField.Text+"'andpsd='"+psdField.Text+"'"
Setrs1=cn1.Execute(strsql)
Ifrs1.EOF=FalseThen
mngMainFrame.Show
UnloadMe
Else
MsgBox("用户名或密码错误,请重新登录!
")
EndIf
EndSub
PrivateSubregister_Click()
UnloadMe
mngRegister.Show
EndSub
(2)客户注册页面
PrivateSubForm_Load()
Me.Adodc1.RecordSource="select*fromcustomers"
SetnameField.DataSource=Adodc1
Me.nameField.DataField="cusName"
SetMe.cityField.DataSource=Me.Adodc1
Me.cityField.DataField="city"
SetMe.telField.DataSource=Me.Adodc1
Me.telField.DataField="tel"
SetMe.AdsField.DataSource=Me.Adodc1
Me.AdsField.DataField="ads"
EndSub
PrivateSubnew_Click()
Me.Adodc1.Recordset.AddNew
EndSub
PrivateSubreturn_Click()
UnloadMe
show_product.Show
EndSub
PrivateSubsave_Click()
Me.Adodc1.Recordset.Update
MsgBox"注册成功!
",vbOKOnly,"提示"
EndSub
(3)货品管理页面
PrivateSubdelete_Click()
Me.Adodc1.Recordset.delete
EndSub
PrivateSubreturn_Click()
UnloadMe
mngMainFrame.Show
EndSub
(4)货品展示页面
DimsAsString
PrivateSuborder_Click()
UnloadMe
buy.Show
EndSub
PrivateSubregister_Click()
UnloadMe
cusRegister.Show
EndSub
PrivateSubreturn_Click()
UnloadMe
initialFrame.Show
EndSub
凡是需要数据库信息的窗体,都必须将VB与SQL连接,使用Adodc控件和Datagrid控件,设置属性,更改相应的ODBC数据源和记录源,将数据库中的信息与VB连接起来。
七、系统评价及心得体会
1、系统评价
本次的课程设计,我能完成老师给出的最基本要求,并在此基础创新,选择了一个相对新颖的题目进行设计,合理之处是把系统分为管理员和客户两个方向来管理,大大提高了系统的效率,方便使用。
包括增删改查以及注册等多个功能。
不足之处是建表太多,数据有点冗余。
以后会多加改正,创建出更合理的管理系统。
2、学习感受。
(1)必须牢固地掌握基础知识,如数据库,vb等,这样才能写出高水平的程序。
(2)当遇到问题时,多动脑筋,查资料或者上网,认真仔细地解决,相信问题会迎刃而解。
(3)多和同学老师交流,及时获取更好的信息。
(4)养成良好的编程风格。
如代码的缩进编排,变量的命名规则等。
总之,通过这次课程设计,我受益匪浅,我相信在以后的学习生活中,不管遇到什么样的问题我都可以耐心仔细地解决。
八、参考文献
《数据库系统原理与应用》孟彩霞主编张荣乔平安副主编
《VisualBasic程序设计语言》周元哲编著
《VisualBasic管理信息系统开发案例》武新华编著
九、附录:
源代码(略)
主页面
PrivateSubcustomer_Click()
UnloadMe
show_product.Show
EndSub
PrivateSubmanager_Click()
UnloadMe
managerFrame.Show
EndSub
管理员登录页面
PrivateSubcustomer_Click()
UnloadMe
show_product.Show
EndSub
PrivateSubmanager_Click()
UnloadMe
user_login.Show
EndSub
PrivateSubexit_Click()
UnloadMe
initialFrame.Show
EndSub
PrivateSublogin_Click()
Setcn1=NewADODB.Connection
Setrs1=NewADODB.Recordset
Setcm1=NewADODB.Command
DimstrcnnAsString
strcnn="driver={sqlserver};server=(local);database=CW;"
cn1.Openstrcnn
cm1.ActiveConnection=cn1
strsql="select*frommanagerswheremngId='"+idField.Text+"'andpsd='"+psdField.Text+"'"
Setrs1=cn1.Execute(strsql)
Ifrs1.EOF=FalseThen
mngMainFrame.Show
UnloadMe
Else
MsgBox("用户名或密码错误,请重新登录!
")
EndIf
EndSub
PrivateSubregister_Click()
UnloadMe
mngRegister.Show
EndSub
管理员注册页面
PrivateSubForm_Load()
Me.Adodc1.RecordSource="select*frommanagers"
SetnameField.DataSource=Adodc1
Me.nameField.DataField="mngName"
SetMe.psdField.DataSource=Me.Adodc1
Me.psdField.DataField="psd"
'Me.Adodc1.RecordSource="select*frommanagers"
EndSub
PrivateSubregister_Click()
Me.Adodc1.Recordset.AddNew
EndSub
PrivateSubreturn_Click()
UnloadMe
managerFrame.Show
EndSub
PrivateSubsave_Click()
Me.Adodc1.Recordset.Update
Me.idField.DataField="mngId"
MsgBox"注册成功!
",vbOKOnly,"提示"
EndSub
管理主界面
PrivateSubcustomer_Click()
UnloadMe
cusFrame.Show
EndSub
PrivateSubinport_Click()
UnloadMe
orderFrame.Show
EndSub
PrivateSubproduct_Click()
UnloadMe
productFrame.Show
EndSub
PrivateSubprovider_Click()
UnloadMe
proFrame.Show
EndSub
PrivateSubreturn_Click()
UnloadMe
managerFrame.Show
EndSub
PrivateSubsale_Click()
UnloadMe
saleFrame.Show
EndSub
客户信息管理页面
PrivateSubdelete_Click()
Me.Adodc1.Recordset.delete
EndSub
PrivateSubreturn_Click()
UnloadMe
mngMainFrame.Show
EndSub
货品信息管理页面
PrivateSubdelete_Click()
Me.Adodc1.Recordset.delete
EndSub
PrivateSubreturn_Click()
UnloadMe
mngMainFrame.Show
EndSub
销售信息管理页面
PrivateSubdelete_Click()
Me.Adodc1.Recordset.delete
EndSub
PrivateSubreturn_Click()
UnloadMe
mngMainFrame.Show
EndSub
厂商信息管理页面
PrivateSubdelete_Click()
Me.Adodc1.Recordset.delete
EndSub
PrivateSubreturn_Click()
UnloadMe
mngMainFrame.Show
EndSub
PrivateSubTitel_Click()
EndSub
进货信息管理页面
PrivateSubDataGrid1_Click()
'SetDataGrid1.DataSource=rs
EndSub
PrivateSubdelete_Click()
Me.Adodc1.Recordset.delete
EndSub
PrivateSubreturn_Click()
UnloadMe
mngMainFrame.Show
EndSub
客户注册页面
PrivateSubForm_Load()
Me.Adodc1.RecordSource="select*fromcustomers"
SetnameField.DataSource=Adodc1
Me.nameField.DataField="cusName"
SetMe.cityField.DataSource=Me.Adodc1
Me.cityField.DataField="city"
SetMe.telField.DataSource=Me.Adodc1
Me.telField.DataField="tel"
SetMe.AdsField.DataSource=Me.Adodc1
Me.AdsField.DataField="ads"
EndSub
PrivateSubnew_Click()
Me.Adodc1.Recordset.AddNew
EndSub
PrivateSubreturn_Click()
UnloadMe
show_product.Show
EndSub
PrivateSubsave_Click()
Me.Adodc1.Recordset.Update
MsgBox"注册成功!
",vbOKOnly,"提示"
EndSub
货品展示页面
DimsAsString
PrivateSubForm_Load()
EndSub
PrivateSuborder_Click()
UnloadMe
buy.Show
EndSub
PrivateSubregister_Click()
UnloadMe
cusRegister.Show
EndSub
PrivateSubreturn_Click()
UnloadMe
initialFrame.Show
EndSub