宠物用品管理系统--数据库课程设计

宠物用品管理系统--数据库课程设计

西安郵電大學

综合应用软件课程设计报告

题 目: 宠物用品店管理系统

学院名称 : 计算机学院 专业名称 : 计算机科学与技术 班 级 : 计科1102 学号 : 04111067(24) 学生姓名 : 冯佳新

指导教师 : 孟彩霞

2013年09月09日 时间 :

至 2013年09月23日

得分项 百分比 得分 题目的新颖程度及难度 5 语言的难度及熟悉程度 5 设计结果(机器上验收) 60 设计文档 20 设计过程态度 10 总评(五级制)

一、 课程设计目的

1，能快速掌握数据库系统开发的最基本方法、思路和步骤。

2，熟悉大型数据库管理系统的基本结构，基本框架设计与组成。

3，掌握数据库语言和其他语言综合应用的能力，连接方法及连接应用和对 程序的调试能力。

4，能利用信息技术，数据库技术等对系统进行方便地管理，改善顾客服务等。

二、课程设计内容

随着人们日常生活的丰富多彩，人们对新事物的不断追求，使得各种各样的个性宠物不断出现。由于这一发展驱趋势，提供给人们各个种类宠物的宠物店则如雨后春笋般涌现。

本系统专门为实体宠物店设计，主要包括了宠物用品销售、宠物店客户管理、宠物货物管理、宠物用品进货管理、宠物用品提供商管理等多种业务管理,解决宠物店进销存繁琐问题，建立丰富的宠物用品资料，顾客资料;还包含了丰富的营业销售汇总报表，让宠物店营业情况一目了然，最终方便管理以及扩大销售。

三、软硬件环境及系统所采用的体系结构

1，操作系统:Windows7

2，体系结构:系统的体系结构为C/S结构

3，开发工具:前台为Visual Basic 6.0，后台数据库为SQL Server 2008

四、需求分析

1，功能描述

(1)管理员和客户都可先注册然后再进行相关操作。

(2)管理员可实行客户管理、宠物用品管理、销售管理、供应商管理、进

货管理等操作。对客户信息，货品信息，供应商信息进行相应的添加、

修改、删除操作。

(3)用户可通过货品的展示选择自己需要的物品并购买。

2，实现目标

(1)实现管理员和用户的登录权限。

2)实现管理员对客户信息，货品信息，供应商信息的修改、删除等功能。(3)实现货品的界面展览，以供客户选择。

(

五、系统设计

1(系统结构图(功能模块图)

宠物店用品管理系统

管理员注册 客户注册 用户登录 管理员登录

货货客货 进销厂

品品户 品货售商

查购管管管管管 买 询 理 理 理 理 理

(1)在客户信息管理部分,要求如下。

, 可以浏览客户信息。

, 可以对客户信息进行维护,包括添加及删除等操作。

(2)在货品信息管理部分,要求如下。

, 可以浏览货品信息。

, 可以对货品信息进行维护,包括添加及删除等操作。

(3)在销售信息管理部分,要求如下。

, 可以浏览销售信息。

, 可以对销售信息进行维护,包括添加及删除等操作。

(4)在供应商信息管理部分,要求如下。

, 可以浏览供应商信息。

, 可以对供应商信息进行维护，包括添加及删除等操作。

(5)在进货信息管理部分,要求如下。

, 可以浏览进货信息。

, 可以对进货信息进行维护，包括添加及删除等操作。

(6)在管理者信息管理部分,要求如下。

, 显示当前数据库中管理者情况。

, 对管理者信息维护操作。

2(数据库设计

(1)系统E-R图

姓名 类别 编号 电话 姓名

进价

客 户 货品 购买 编号

售价

提供商 登录密码 住址 存储量 所居城市

重量

供应

编号

提供商

厂名

地址

电话 产品名

(2)逻辑模式

客户(客户编号 姓名 电话 城市 住址)

货品(货品编号 货品名 类别 进价 售价 供应商 重量 库存量)

销售(销售编号 客户编号 货品编号 货品名 售价 销售数量 总额 销售日

期)

厂商(厂家编号 厂名 生产产品 电话 住址)

进货 (进货编号 厂商编号 货品编号 货品名 进价 售价 进价数量 总额

进价日期)

登录 (用户名 密码)

其中，波浪线为主键，直线为外键。

根据这些需要，本系统需要客户表、货品表、销售表、厂商表、进货表、

密码表等。

六、系统的实施

1，创建数据库与表

打开SQL Server企业管理器，配置连接，创建名为“CW”的数据库。

创建数据库后，为数据库添加数据表，步骤如下。

(1)在服务器资源管理器中右击数据库“CW”的“表”文件夹。在弹出

的快捷菜单中执行“新建表”命令，出现表设计器。

(2)添加表的字段和其他详细资料。建立好的各表如下所示。

2，配置数据源

打开控制面板里面的“管理工具”，打开“数据源”，选择“系统DSN”

选项，选择“添加”，选择SQL Server为驱动程序，自己命名数据源为123，配置服务器，点击“下一步”，再“下一步”，然后更改当前默认数据库为“CW”，点击完成，测试数据完整性后完成数据源的配置。

3，主要窗体设计及相关代码

(1)管理员登录页面

Private Sub customer_Click() Unload Me

show_product.Show

End Sub

Private Sub manager_Click() Unload Me

user_login.Show

End Sub

Private Sub exit_Click() Unload Me

initialFrame.Show

End Sub

Private Sub login_Click() Set cn1 = New ADODB.Connection Set rs1 = New ADODB.Recordset Set cm1 = New ADODB.Command Dim strcnn As String

strcnn = \"driver={sql server};server=(local);database=CW;\"

cn1.Open strcnn

cm1.ActiveConnection = cn1 strsql = \"select * from managers where mngId='\" + idField.Text + \"'and psd='\" + psdField.Text +

\"'\"

Set rs1 = cn1.Execute(strsql) If rs1.EOF = False Then mngMainFrame.Show

Unload Me

Else

MsgBox (\"用户名或密码错误,请重新登录!\")

End If

End Sub

Private Sub register_Click() Unload Me

mngRegister.Show

End Sub

(2)客户注册页面

Private Sub Form_Load()

Me.Adodc1.RecordSource = \"select * from customers\"

Set nameField.DataSource = Adodc1 Me.nameField.DataField = \"cusName\" Set Me.cityField.DataSource = Me.Adodc1 Me.cityField.DataField = \"city\" Set Me.telField.DataSource = Me.Adodc1 Me.telField.DataField = \"tel\" Set

Me.AdsField.DataSource = Me.Adodc1 Me.AdsField.DataField = \"ads\" End Sub

Private Sub new_Click()

Me.Adodc1.Recordset.AddNew

End Sub

Private Sub return_Click()

Unload Me

show_product.Show

End Sub

Private Sub save_Click()

Me.Adodc1.Recordset.Update

MsgBox \"注册成功～\提示\"

End Sub

(3)货品管理页面

Private Sub delete_Click() Me.Adodc1.Recordset.delete End Sub

Private Sub return_Click() Unload Me

mngMainFrame.Show

End Sub

(4)货品展示页面

Dim s As String

Private Sub order_Click() Unload Me

buy.Show

End Sub

Private Sub register_Click()

Unload Me

cusRegister.Show

End Sub

Private Sub return_Click()

Unload Me

initialFrame.Show

End Sub

凡是需要数据库信息的窗体，都必须将VB与SQL连接，使用Adodc控件和Datagrid控件，设置属性，更改相应的ODBC数据源和记录源，将数据库中的信息与VB连接起来。

七、系统评价及心得体会

1、系统评价

本次的课程设计，我能完成老师给出的最基本要求，并在此基础创

新，选择了一个相对新颖的题目进行设计，合理之处是把系统分为管理

员和客户两个方向来管理，大大提高了系统的效率，方便使用。包括增

删改查以及注册等多个功能。不足之处是建表太多，数据有点冗余。以

后会多加改正，创建出更合理的管理系统。

2、学习感受。

(1)必须牢固地掌握基础知识，如数据库，vb等，这样才能写出高水

平的程序。

(2)当遇到问题时，多动脑筋，查资料或者上网，认真仔细地解决，相

信问题会迎刃而解。

(3)多和同学老师交流，及时获取更好的信息。

(4)养成良好的编程风格。如代码的缩进编排，变量的命名规则等。

总之，通过这次课程设计，我受益匪浅，我相信在以后的学习生活中，

不管遇到什么样的问题我都可以耐心仔细地解决。

八、参考文献

《数据库系统原理与应用》 孟彩霞 主编 张荣 乔平安副主编

《Visual Basic程序设计语言》 周元哲 编著

《Visual Basic管理信息系统开发案例》 武新华编著

九、附录:源代码(略)

主页面

Private Sub customer_Click() Unload Me

show_product.Show

End Sub

Private Sub manager_Click() Unload Me

managerFrame.Show

End Sub

管理员登录页面

Private Sub customer_Click() Unload Me

show_product.Show

End Sub

Private Sub manager_Click() Unload Me

user_login.Show

End Sub

Private Sub exit_Click() Unload Me

initialFrame.Show

End Sub

Private Sub login_Click() Set cn1 = New ADODB.Connection Set rs1 = New ADODB.Recordset Set cm1 = New ADODB.Command Dim strcnn As String

strcnn = \"driver={sql server};server=(local);database=CW;\"

cn1.Open strcnn

cm1.ActiveConnection = cn1 strsql = \"select * from managers where

mngId='\" + idField.Text + \"'and psd='\" + psdField.Text +

\"'\"

Set rs1 = cn1.Execute(strsql) If rs1.EOF = False Then mngMainFrame.Show

Unload Me

Else

MsgBox (\"用户名或密码错误,请重新登录!\")

End If

End Sub

Private Sub register_Click() Unload Me

mngRegister.Show

End Sub

管理员注册页面

Private Sub Form_Load()

Me.Adodc1.RecordSource = \"select * from managers\"

Set nameField.DataSource = Adodc1 Me.nameField.DataField = \"mngName\" Set Me.psdField.DataSource = Me.Adodc1

Me.psdField.DataField = \"psd\" 'Me.Adodc1.RecordSource = \"select * from managers\"

End Sub

Private Sub register_Click() Me.Adodc1.Recordset.AddNew End Sub

Private Sub return_Click() Unload Me

managerFrame.Show

End Sub

Private Sub save_Click() Me.Adodc1.Recordset.Update Me.idField.DataField = \"mngId\" MsgBox \"注册成功～\提示\"

End Sub

管理主界面

Private Sub customer_Click() Unload Me

cusFrame.Show

End Sub

Private Sub inport_Click() Unload Me

orderFrame.Show

End Sub

Private Sub product_Click() Unload Me

productFrame.Show

End Sub

Private Sub provider_Click() Unload Me

proFrame.Show

End Sub

Private Sub return_Click() Unload Me

managerFrame.Show

End Sub

Private Sub sale_Click() Unload Me

saleFrame.Show

End Sub

客户信息管理页面

Private Sub delete_Click() Me.Adodc1.Recordset.delete End Sub

Private Sub return_Click() Unload Me

mngMainFrame.Show

End Sub

货品信息管理页面

Private Sub delete_Click() Me.Adodc1.Recordset.delete End Sub

Private Sub return_Click() Unload Me

mngMainFrame.Show

End Sub

销售信息管理页面

Private Sub delete_Click() Me.Adodc1.Recordset.delete End Sub

Private Sub return_Click() Unload Me

mngMainFrame.Show

End Sub

厂商信息管理页面

Private Sub delete_Click()

Me.Adodc1.Recordset.delete

End Sub

Private Sub return_Click()

Unload Me

mngMainFrame.Show

End Sub

Private Sub Titel_Click()

End Sub

进货信息管理页面

Private Sub DataGrid1_Click() 'Set DataGrid1.DataSource = rs End Sub

Private Sub delete_Click()

Me.Adodc1.Recordset.delete

End Sub

Private Sub return_Click()

Unload Me

mngMainFrame.Show

End Sub

客户注册页面

Private Sub Form_Load()

Me.Adodc1.RecordSource = \"select * from customers\"

Set nameField.DataSource = Adodc1 Me.nameField.DataField = \"cusName\" Set Me.cityField.DataSource = Me.Adodc1 Me.cityField.DataField = \"city\" Set Me.telField.DataSource = Me.Adodc1 Me.telField.DataField = \"tel\" Set Me.AdsField.DataSource = Me.Adodc1 Me.AdsField.DataField = \"ads\" End Sub

Private Sub new_Click()

Me.Adodc1.Recordset.AddNew End Sub

Private Sub return_Click() Unload Me

show_product.Show

End Sub

Private Sub save_Click() Me.Adodc1.Recordset.Update MsgBox \"注册成功～\vbOKOnly, \"提示\"

End Sub

货品展示页面

Dim s As String

Private Sub Form_Load() End Sub

Private Sub order_Click() Unload Me

buy.Show

End Sub

Private Sub register_Click() Unload Me

cusRegister.Show

End Sub

Private Sub return_Click() Unload Me

initialFrame.Show

End Sub