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

西安郵電大學

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

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

学院名称：计算机学院

专业名称：计算机科学与技术

班级：计科1102

学号：04111067（24）

学生姓名：冯佳新

指导教师：孟彩霞

2013年09月09日

时间：

至 2013年09月23日

一、课程设计目的

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 https://www.360docs.net/doc/6316117688.html,mand

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

https://www.360docs.net/doc/6316117688.html,Field.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

（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 https://www.360docs.net/doc/6316117688.html,mand

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

https://www.360docs.net/doc/6316117688.html,Field.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 "注册成功！", vbOKOnly, "提示"

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

https://www.360docs.net/doc/6316117688.html,Field.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