宠物用品管理系统数据库课程设计.docx
《宠物用品管理系统数据库课程设计.docx》由会员分享，可在线阅读，更多相关《宠物用品管理系统数据库课程设计.docx（17页珍藏版）》请在冰豆网上搜索。
宠物用品管理系统数据库课程设计
西安郵電大學
综合应用软件课程设计报告
题目
宠物用品店管理系统
学院名称：
计算机学院
专业名称：
计算机科学与技术
班级：
计科1102
学号：
04111067（24）
学生姓名：
冯佳新
指导教师：
孟彩霞
时间：
2013年09月09日
至2013年09月23日
得分项
百分比
得分
题目的新颖程度及难度
5
语言的难度及熟悉程度
5
设计结果（机器上验收）
60
设计文档
20
设计过程态度
10
总评（五级制）
、课程设计目的
1,能快速掌握数据库系统开发的最基本方法、思路和步骤。
2,熟悉大型数据库管理系统的基本结构，基本框架设计与组成。
3,掌握数据库语言和其他语言综合应用的能力，连接方法及连接应用和对程序的调试能力。
4，能利用信息技术，数据库技术等对系统进行方便地管理，改善顾客服务等。
二、课程设计内容
随着人们日常生活的丰富多彩，人们对新事物的不断追求，使得各种各样的个性宠物不
断出现。
由于这一发展驱趋势，提供给人们各个种类宠物的宠物店则如雨后春笋般涌现。
本系统专门为实体宠物店设计，主要包括了宠物用品销售、宠物店客户管理、宠物货物管理、宠物用品进货管理、宠物用品提供商管理等多种业务管理，解决宠物店进销存繁琐问
题，建立丰富的宠物用品资料，顾客资料；还包含了丰富的营业销售汇总报表，让宠物店营
业情况一目了然，最终方便管理以及扩大销售。
三、软硬件环境及系统所采用的体系结构
1，操作系统：
Windows7
2,体系结构：
系统的体系结构为C/S结构
3，开发工具：
前台为VisualBasic6.0,后台数据库为SQLServer2008四、需求分析
1,功能描述
（1）管理员和客户都可先注册然后再进行相关操作。
（2）管理员可实行客户管理、宠物用品管理、销售管理、供应商管理、进货管理等操作。
对客户信息，货品信息，供应商信息进行相应的添加、修改、删除操作。
（3）用户可通过货品的展示选择自己需要的物品并购买。
2,实现目标
（1）实现管理员和用户的登录权限。
（2）实现管理员对客户信息，货品信息，供应商信息的修改、删除等功能
（3）实现货品的界面展览，以供客户选择。
五、系统设计
1•系统结构图（功能模块图）
宠物店用品管理系统
（1）在客户信息管理部分，要求如下。
可以浏览客户信息。
可以对客户信息进行维护，包括添加及删除等操作。
（2）在货品信息管理部分，要求如下。
可以浏览货品信息。
可以对货品信息进行维护，包括添加及删除等操作。
（3）在销售信息管理部分，要求如下。
可以浏览销售信息。
可以对销售信息进行维护，包括添加及删除等操作。
（4）在供应商信息管理部分，要求如下。
可以浏览供应商信息。
可以对供应商信息进行维护，包括添加及删除等操作。
（5）在进货信息管理部分，要求如下。
可以浏览进货信息。
可以对进货信息进行维护，包括添加及删除等操作。
（6）在管理者信息管理部分，要求如下。
显示当前数据库中管理者情况。
对管理者信息维护操作。
2•数据库设计
（1）系统E-R图
进价
售价
重量
供应
提供商
厂名
地址
编号
（2）逻辑模式
客户（客户编号-姓名电话城市住址）
货品（货品编号货品名类别进价售价供应商重量库存量）
销售（销售编号客户编号货品编号货品名售价销售数量总额销售日期）
厂商（厂家编号厂名生产产品电话住址）
进货（进货编号厂商编号货品编号货品名进价售价进价数量总额进价日期）
登录（用户名密码）
其中，波浪线为主键，直线为外键。
根据这些需要，本系统需要客户表、货品表、销售表、厂商表、进货表、
密码表等。
六、系统的实施
1，创建数据库与表
打开SQLServer企业管理器，配置连接，创建名为“CW”的数据库。
创建数据库后，为数据库添加数据表，步骤如下。
（1）在服务器资源管理器中右击数据库“CW”的“表”文件夹。
在弹出
的快捷菜单中执行“新建表”命令，出现表设计器。
（2）添加表的字段和其他详细资料。
建立好的各表如下所示。
常址制台恨目录WiceoftSQLServere\SQL5etv«沖.[归ul）rA'intfowsNT）数振岸QV\袁
2，配置数据源
选项，选择“添加”，选择SQLServer为驱动程序，自己命名数据源为123,配置服务器，点击“下一步”，再“下一步”，然后更改当前默认数据库为“CW,点击完成，测试数据完整性后完成数据源的配置。
MkrowftODBCSQLServerDSN配詈
「|为预定义的阴L语句酬逢临时存暗过程，并删除该存储过程凹©:
⑥只肓当断开时①卄
当斷开时和连结时同样适用册“
』使用AMSI引用的标识符W
[7使用AMSI的空值、填充恐彈告⑷。
若主SQLServer不可用?
i青使用故陣搐移SQL
LJServerT）。
K上一0）[下一步（M）打[取消]I帮助I
3，主要窗体设计及相关代码
（1）管理员登录页面
PrivateSubcustomer_Click（）UnloadMeshow_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+mil
Setrs1=cnI.Execute（strsql）Ifrsl.EOF=FalseThenmngMainFrame.Show
UnloadMe
，请重新登录!
"）
Else
MsgBox（"用户名或密码错误EndIf
EndSub
PrivateSubregister_Click（）UnloadMe
mngRegister.Show
EndSub
（2）客户注册页面
Dodo-p铳客户注册
PrivateSubnew_Click（）
Me.Adodc1.Recordset.AddNew
EndSub
PrivateSubreturn_Click（）UnloadMeshow_product.Show
EndSub
PrivateSubsave_Click（）
Me.Adodc1.Recordset.Update
MsgBox"注册成功！
",vbOKOnly,"提示”EndSub
（3）货品管理页面
毛刷
¥：
5^00
F
生产厂寧
So
組合囊具¥；3Q.OO
牵弓嘔¥；4Q.00
PrivateSubdelete_Click（）
Me.AdodcI.Recordset.deleteEndSub
PrivateSubreturn_Click（）
UnloadMe
mngMainFrame.Show
EndSub
（4）货品展示页面
_£|歸龙恩
>1
DimsAsString
PrivateSuborder_Click（）UnloadMe
buy.Show
EndSub
PrivateSubreturn_Click（）
UnloadMeinitialFrame.Show
EndSub
凡是需要数据库信息的窗体，都必须将VB与SQL连接，使用Adodc控件和
Datagrid控件，设置属性，更改相应的ODBC数据源和记录源，将数据库中的信息与VB连接起来。
七、系统评价及心得体会
1、系统评价
本次的课程设计，我能完成老师给出的最基本要求，并在此基础创新，选择了一个相对新颖的题目进行设计，合理之处是把系统分为管理员和客户两个方向来管理，大大提高了系统的效率，方便使用。
包括增删改查以及注册等多个功能。
不足之处是建表太多，数据有点冗余。
以后会多加改正，创建出更合理的管理系统。
2、学习感受。
（1）必须牢固地掌握基础知识，如数据库，vb等，这样才能写出高水平的程序。
（2）当遇到问题时，多动脑筋，查资料或者上网，认真仔细地解决，相信问题会迎刃而解。
（3）多和同学老师交流，及时获取更好的信息。
（4）养成良好的编程风格。
如代码的缩进编排，变量的命名规则等。
总之，通过这次课程设计，我受益匪浅，我相信在以后的学习生活中，不管遇到什么样的问题我都可以耐心仔细地解决。
八、参考文献
《数据库系统原理与应用》孟彩霞主编张荣乔平安副主编
《VisualBasic程序设计语言》周元哲编著
《VisualBasic管理信息系统开发案例》武新华编著九、附录：
源代码（略）
主页面
PrivateSubmanager_Click（）
UnloadMemanagerFrame.Show
EndSub
管理员登录页面
PrivateSubcustomer_Click（）
UnloadMeshow_product.Show
EndSub
PrivateSubmanager_Click（）
UnloadMeuser_login.Show
EndSub
PrivateSubexit_Click（）
UnloadMeinitialFrame.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+
nin
Setrs1=cn1.Execute（strsql）Ifrs1.EOF=FalseThenmngMainFrame.Show
UnloadMe
Else
MsgBox（"用户名或密码错误,请重新登录!
"）
EndIf
EndSub
PrivateSubregister_Click（）
UnloadMemngRegister.Show
EndSub
管理员注册页面
PrivateSubForm_Load（）
Me.Adodc1.RecordSource="select*frommanagers"SetnameField.DataSource=Adodc1
Me.nameField.DataField="mngName"
SetMe.psdField.DataSource=Me.Adodc1Me.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（）
UnloadMecusFrame.Show
EndSub
PrivateSubinport_Click（）
UnloadMe
orderFrame.Show
EndSub
PrivateSubproduct_Click（）
UnloadMe
productFrame.Show
EndSub
PrivateSubprovider_Click（）
UnloadMeproFrame.Show
EndSub
PrivateSubreturn_Click（）
UnloadMemanagerFrame.Show
EndSub
PrivateSubsale_Click（）
UnloadMesaleFrame.Show
EndSub
客户信息管理页面
PrivateSubdelete_Click（）Me.Adodc1.Recordset.deleteEndSub
PrivateSubreturn_Click（）UnloadMemngMainFrame.Show
EndSub
货品信息管理页面
PrivateSubdelete_Click（）Me.Adodc1.Recordset.deleteEndSub
PrivateSubreturn_Click（）
UnloadMemngMainFrame.Show
EndSub
销售信息管理页面
PrivateSubdelete_Click（）
Me.Adodc1.Recordset.deleteEndSub
PrivateSubreturn_Click（）UnloadMemngMainFrame.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=Adodc1Me.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.AddNewEndSub
PrivateSubreturn_Click（）
UnloadMeshow_product.ShowEndSub
PrivateSubsave_Click（）
Me.Adodc1.Recordset.Update
MsgBox"注册成功！
",vbOKOnly,"提示"EndSub
货品展示页面
DimsAsString
PrivateSubForm_Load（）EndSub
PrivateSuborder_Click（）
UnloadMebuy.ShowEndSub
PrivateSubregister_Click（）
UnloadMecusRegister.ShowEndSub
PrivateSubreturn_Click（）
UnloadMeinitialFrame.ShowEndSub
升级会员 