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

西安郵電大學综合应用软件课程设计报告题 目： 宠物用品店管理系统 学院名称：计算机学院专业名称：计算机科学与技术班 级：计科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，开发工具：前台为Visual Basic 6.0，后台数据库为SQL Server 2008四、需求分析1，功能描述（1）管理员和客户都可先注册然后再进行相关操作。（2）管理员可实行客户管理、宠物用品管理、销售管理、供应商管理、进货管理等操作。对客户信息，货品信息，供应商信息进行相应的添加、修改、删除操作。（3）用户可通过货品的展示选择自己需要的物品并购买。2，实现目标（1）实现管理员和用户的登录权限。（2）实现管理员对客户信息，货品信息，供应商信息的修改、删除等功能。（3）实现货品的界面展览，以供客户选择。5、 系统设计1系统结构图（功能模块图） 宠物店用品管理系统管理员注册客户注册 管理员登录 用户登录货品购买货品查询厂商管理销售管理货品管理进货管理客户管理（1）在客户信息管理部分,要求如下。l 可以浏览客户信息。l 可以对客户信息进行维护,包括添加及删除等操作。 （2）在货品信息管理部分,要求如下。l 可以浏览货品信息。l 可以对货品信息进行维护,包括添加及删除等操作。 （3）在销售信息管理部分,要求如下。l 可以浏览销售信息。l 可以对销售信息进行维护,包括添加及删除等操作。 （4）在供应商信息管理部分,要求如下。l 可以浏览供应商信息。l 可以对供应商信息进行维护，包括添加及删除等操作。 （5）在进货信息管理部分,要求如下。l 可以浏览进货信息。l 可以对进货信息进行维护，包括添加及删除等操作。 （6）在管理者信息管理部分,要求如下。l 显示当前数据库中管理者情况。l 对管理者信息维护操作。2 数据库设计 （1）系统E-R图 类别姓名编号电话 姓名进价货品 购买 编号客 户售价提供商住址登录密码所居城市存储量重量 供应编号提供商厂名地址产品名电话（2）逻辑模式 客户（客户编号 姓名 电话 城市 住址） 货品（货品编号 货品名 类别 进价 售价 供应商 重量 库存量） 销售（销售编号 客户编号 货品编号 货品名 售价 销售数量 总额 销售日期） 厂商（厂家编号 厂名 生产产品 电话 住址） 进货 （进货编号 厂商编号 货品编号 货品名 进价 售价 进价数量 总额 进价日期） 登录 （用户名 密码） 其中，波浪线为主键，直线为外键。 根据这些需要，本系统需要客户表、货品表、销售表、厂商表、进货表、密码表等。6、 系统的实施 1，创建数据库与表打开SQL Server企业管理器，配置连接，创建名为“CW”的数据库。创建数据库后，为数据库添加数据表，步骤如下。 (1)在服务器资源管理器中右击数据库“CW”的“表”文件夹。在弹出的快捷菜单中执行“新建表”命令，出现表设计器。(2)添加表的字段和其他详细资料。建立好的各表如下所示。 2，配置数据源 打开控制面板里面的“管理工具”，打开“数据源”，选择“系统DSN”选项，选择“添加”，选择SQL Server为驱动程序，自己命名数据源为123，配置服务器，点击“下一步”，再“下一步”，然后更改当前默认数据库为“CW”，点击完成，测试数据完整性后完成数据源的配置。 3，主要窗体设计及相关代码（1） 管理员登录页面 Private Sub customer_Click()Unload Meshow_product.ShowEnd SubPrivate Sub manager_Click()Unload Meuser_login.ShowEnd SubPrivate Sub exit_Click()Unload MeinitialFrame.ShowEnd SubPrivate Sub login_Click()Set cn1 = New ADODB.ConnectionSet rs1 = New ADODB.RecordsetSet cm1 = New ADODB.CommandDim strcnn As Stringstrcnn = driver=sql server;server=(local);database=CW;cn1.Open strcnncm1.ActiveConnection = cn1strsql = select * from managers where mngId= + idField.Text + and psd= + psdField.Text + Set rs1 = cn1.Execute(strsql)If rs1.EOF = False ThenmngMainFrame.ShowUnload MeElseMsgBox (用户名或密码错误,请重新登录!)End IfEnd SubPrivate Sub register_Click()Unload MemngRegister.ShowEnd Sub（2） 客户注册页面 Private Sub Form_Load()Me.Adodc1.RecordSource = select * from customersSet nameField.DataSource = Adodc1MField.DataField = cusNameSet Me.cityField.DataSource = Me.Adodc1Me.cityField.DataField = citySet Me.telField.DataSource = Me.Adodc1Me.telField.DataField = telSet Me.AdsField.DataSource = Me.Adodc1Me.AdsField.DataField = adsEnd SubPrivate Sub new_Click()Me.Adodc1.Recordset.AddNewEnd SubPrivate Sub return_Click()Unload Meshow_product.ShowEnd SubPrivate Sub save_Click()Me.Adodc1.Recordset.UpdateMsgBox 注册成功！, vbOKOnly, 提示End Sub（3） 货品管理页面Private Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd Sub（4） 货品展示页面 Dim s As StringPrivate Sub order_Click()Unload Mebuy.ShowEnd SubPrivate Sub register_Click()Unload MecusRegister.ShowEnd SubPrivate Sub return_Click()Unload MeinitialFrame.ShowEnd Sub 凡是需要数据库信息的窗体，都必须将VB与SQL连接，使用Adodc控件和Datagrid控件，设置属性，更改相应的ODBC数据源和记录源，将数据库中的信息与VB连接起来。七、系统评价及心得体会1、系统评价 本次的课程设计，我能完成老师给出的最基本要求，并在此基础创新，选择了一个相对新颖的题目进行设计，合理之处是把系统分为管理员和客户两个方向来管理，大大提高了系统的效率，方便使用。包括增删改查以及注册等多个功能。不足之处是建表太多，数据有点冗余。以后会多加改正，创建出更合理的管理系统。2、学习感受。 （1）必须牢固地掌握基础知识，如数据库，vb等，这样才能写出高水平的程序。 （2）当遇到问题时，多动脑筋，查资料或者上网，认真仔细地解决，相信问题会迎刃而解。（3）多和同学老师交流，及时获取更好的信息。（4）养成良好的编程风格。如代码的缩进编排，变量的命名规则等。 总之，通过这次课程设计，我受益匪浅，我相信在以后的学习生活中，不管遇到什么样的问题我都可以耐心仔细地解决。八、参考文献数据库系统原理与应用 孟彩霞 主编 张荣 乔平安副主编Visual Basic程序设计语言 周元哲 编著Visual Basic管理信息系统开发案例 武新华编著九、附录：源代码（略）主页面 Private Sub customer_Click()Unload Meshow_product.ShowEnd SubPrivate Sub manager_Click()Unload MemanagerFrame.ShowEnd Sub管理员登录页面Private Sub customer_Click()Unload Meshow_product.ShowEnd SubPrivate Sub manager_Click()Unload Meuser_login.ShowEnd SubPrivate Sub exit_Click()Unload MeinitialFrame.ShowEnd SubPrivate Sub login_Click()Set cn1 = New ADODB.ConnectionSet rs1 = New ADODB.RecordsetSet cm1 = New ADODB.CommandDim strcnn As Stringstrcnn = driver=sql server;server=(local);database=CW;cn1.Open strcnncm1.ActiveConnection = cn1strsql = select * from managers where mngId= + idField.Text + and psd= + psdField.Text + Set rs1 = cn1.Execute(strsql)If rs1.EOF = False ThenmngMainFrame.ShowUnload MeElseMsgBox (用户名或密码错误,请重新登录!)End IfEnd SubPrivate Sub register_Click()Unload MemngRegister.ShowEnd Sub管理员注册页面Private Sub Form_Load()Me.Adodc1.RecordSource = select * from managersSet nameField.DataSource = Adodc1MField.DataField = mngNameSet Me.psdField.DataSource = Me.Adodc1Me.psdField.DataField = psdMe.Adodc1.RecordSource = select * from managersEnd SubPrivate Sub register_Click()Me.Adodc1.Recordset.AddNewEnd SubPrivate Sub return_Click()Unload MemanagerFrame.ShowEnd SubPrivate Sub save_Click()Me.Adodc1.Recordset.UpdateMe.idField.DataField = mngIdMsgBox 注册成功！, vbOKOnly, 提示End Sub管理主界面Private Sub customer_Click()Unload MecusFrame.ShowEnd SubPrivate Sub inport_Click()Unload MeorderFrame.ShowEnd SubPrivate Sub product_Click()Unload MeproductFrame.ShowEnd SubPrivate Sub provider_Click()Unload MeproFrame.ShowEnd SubPrivate Sub return_Click()Unload MemanagerFrame.ShowEnd SubPrivate Sub sale_Click()Unload MesaleFrame.ShowEnd Sub客户信息管理页面Private Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd Sub货品信息管理页面Private Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd Sub销售信息管理页面Private Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd Sub厂商信息管理页面Private Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd SubPrivate Sub Titel_Click()End Sub进货信息管理页面Private Sub DataGrid1_Click()Set DataGrid1.DataSource = rsEnd SubPrivate Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd Sub客户注册页面Private Sub Form_Load()Me.Adodc1.RecordSource