宠物用品管理系统

1、西安垂E1!大孥综合应用软件课程设计报告题目：宠物用品店管理系统学院名称：计算机学院专业名称：计算机科学与技术班级：计科1102学号：04111067(24)学生姓名：冯佳新指导教师:孟彩霞2013年09月09日时间：至2013年09月23日得分项白分比得分题目的新颖程度及难度5语言的难度及熟悉程度5设计结果（机器上验收）60设计文档20设计过程态度10总评（五级制）、课程设计目的1, 能快速掌握数据库系统开发的最基本方法、思路和步骤。2, 熟悉大型数据库管理系统的基本结构，基本框架设计与组成。3, 掌握数据库语言和其他语言综合应用的能力，连接方法及连接应用和对程序的调试能力。4, 能利用信息

2、技术，数据库技术等对系统进行方便地管理，改善顾客服务等。二、课程设计内容随着人们日常生活的丰富多彩，人们对新事物的不断追求，使得各种各样的个性宠物不断出现。由于这一发展驱趋势，提供给人们各个种类宠物的宠物店则如雨后春笋般涌现。本系统专门为实体宠物店设计，主要包括了宠物用品销售、宠物店客户管理、宠物货物管理、宠物用品进货管理、宠物用品提供商管理等多种业务管理，解决宠物店进销存繁琐问题，建立丰富的宠物用品资料，顾客资料；还包含了丰富的营业销售汇总报表，让宠物店营业情况一目了然，最终方便管理以及扩大销售。三、软硬件环境及系统所采用的体系结构1, 操作系统：Windows?2, 体系结构：系统的体系结

3、构为C/S结构开发工具：前台为VisualBasic6.0,后台数据库为SQLServer2008四、需求分析(1) 1,功能描述管理员和客户都可先注册然后再进行相关操作。(2) 管理员可实行客户管理、宠物用品管理、销售管理、供应商管理、进货管理等操作。对客户信息，货品信息，供应商信息进行相应的添加、修改、删除操作。(3) 用户可通过货品的展示选择自己需要的物品并购买。(1) 2,实现目标实现管理员和用户的登录权限。(2) 实现管理员对客户信息，货品信息，供应商信息的修改、删除等功能实现货品的界面展览，以供客户选择。五、系统设计系统结构图(功能模块图)(1) 在客户信息管理部分，要求如下。可以

4、浏览客户信息。可以对客户信息进行维护，包括添加及删除等操作。(2) 在货品信息管理部分，要求如下。可以浏览货品信息。可以对货品信息进行维护，包括添加及删除等操作。(3) 在销售信息管理部分，要求如下。可以浏览销售信息。可以对销售信息进行维护，包括添加及删除等操作。(4) 在供应商信息管理部分，要求如下。可以浏览供应商信息。可以对供应商信息进行维护，包括添加及删除等操作。(5) 在进货信息管理部分，要求如下。可以浏览进货信息。可以对进货信息进行维护，包括添加及删除等操作。(6) 在管理者信息管理部分，要求如下。显示当前数据库中管理者情况。对管理者信息维护操作。1. 数据库设计系统E-R图（2）逻

5、辑模式客户（客户编.号一姓名电话城市住址）货品（货品编史货品名类别进价售价供应商重量库存量）销售（销售编号客户编号货品编号货品名售价销售数量总额销售日血）厂商（匚家编号-厂名生产产品电话住址）进货（进货编号厂商编号货品编号货品名进价售价进价数量总额进价日期）登录（用户名密码）其中，波浪线为主键，直线为外键。根据这些需要，本系统需要客户表、货品表、销售表、厂商表、进货表、密码表等。六、系统的实施,创建数据库与表打开SQLServer企业管理器，配置连接，创建名为“CW”的数据库。创建数据库后，为数据库添加数据表，步骤如下。（1）在服务器资源管理器中右击数据库“CW”的“表”文件火。在弹出的快捷菜

6、单中执行“新建表”命令，出现表设计器。（2）添加表的字段和其他详细资料。建立好的各表如下所小。*t-litoscTLSQL5r-veiiaSQl谒二网旧JUCW壑月户gj角色Ug血I0rHQitd9miiib名存E君二jtUEtdHHITdbo国甘tpuprt初dbgdbo目脾汕dbo一1fmdholeirwidtndbo日“edbo"1wcclLiffimcdbojysccminentadbo二j司肝予nt日dhoHlWEfiltaraLBfdbo囹splii厨dba二明加舛1dboH邛伪rtigfdbo3W5JllrfxtffltiIog$S踏个项目创建日期201379SB152

7、013/9178J3452D11/9Z17<:3B1570!3Q78：5615013173331520:3/9178JB1330008*r»l212912NOW用莺I»12Sirt10W/B«12912赫网加用毛L29122DW«1291270001»1Z,配置数据源打开控制面板里面的“管理工具”,打开“数据源”，选择“系统DSN选项，选择“添加”，选择SQLServer为驱动程序，自己命名数据源为123,配置服务器，点击“下一步”,再“下一步”,然后更改当前默认数据库为“CW,点击完成，测试数据完整性后完成数据源

8、的配置。MicroftODBCSQLServerD5N配留*9.M更改默认的数据库为on:1侦L附加教据库又件名"|>1II为预定义的SQLig句创建临时存储过程，并删除该存储过程(C):I吵只有当断开时。1当断开时和憧结时伺样适用M*H使用谜I引用的标识苻00>k使用osi的空佰，埴充及警告伉)町若主SQLServ&r不可用，请使用故障转移SQL'Sarvar上一步但)下一步国)>l_瞬|帮助_|SQLServerODBC噂顾凌IMicrosaftSQLServerODBC驱动程后版本06.Ul.YbUl正在运行部测m，.fih1 jnihfl：嵌

9、jm确定,主要窗体设计及相关代码(1)管理员登录页面PrivateSubcustomer_Click()UnloadMeshow_product.ShowEndSubPrivateSubmanager_Click()UnloadMeuser_login.ShowEndSubPrivateSubexit_Click()UnloadMeinitialFrame.ShowEndSubPrivateSublogin_Click()Setcn1=NewADODB.ConnectionSetrs1=NewADODB.RecordsetSetcm1=NewADODB.CommandDimstrcnnAsSt

10、ringstrcnn="driver=sqlserver;server=(local);database=CW;”cn1.Openstrcnncm1.ActiveConnection=cn1strsql="select*frommanagerswheremngId='"+idField.Text+"'andpsd='"+psdField.Text+”'”Setrs1=cn1.Execute(strsql)Ifrs1.EOF=FalseThenmngMainFrame.ShowUnloadMeElseMsgBox(

11、"用户名或密码错误，请重新登录!")EndIfEndSubPrivateSubregister_Click()UnloadMemngRegister.ShowEndSub(2)客户注册页面Dodo-pet客户注朋处书住部.=A：iPrivateSubForm_Load()Me.AdodcI.RecordSource="select*fromcustomersSetnameField.DataSource=Adodc1MField.DataField="cusName"SetMe.cityField.DataSource=Me.Ado

12、dc1Me.cityField.DataField="city"SetMe.telField.DataSource=Me.Adodc1Me.telField.DataField="tel"SetMe.AdsField.DataSource=Me.Adodc1Me.AdsField.DataField="ads"EndSubPrivateSubnew_Click()Me.Adodc1.Recordset.AddNewEndSubPrivateSubreturn_Click()UnloadMeshow_product.ShowEndSub

13、PrivateSubsave_Click()Me.Adodc1.Recordset.UpdateMsgBox"注册成功！",vbOKOnly,"提示EndSub(3) 货品管理页面(4) PrivateSubdelete_Click()Me.AdodcI.Recordset.deleteEndSubPrivateSubreturn_Click()UnloadMemngMainFrame.ShowEndSub货品展示页面DimsAsStringPrivateSuborder_Click()UnloadMebuy.ShowEndSubPrivateSubregiste

14、r_Click()UnloadMecusRegister.ShowEndSubPrivateSubreturn_Click()UnloadMeinitialFrame.ShowEndSub凡是需要数据库信息的窗体，都必须将VB与SQL连接，使用Adodc控件和Datagrid控件，设置届性，更改相应的ODBC数据源和记录源，将数据库中的信息与VB连接起来。七、系统评价及心得体会1、系统评价本次的课程设计，我能完成老师给出的最基本要求，并在此基础创新，选择了一个相对新颖的题目进行设计，合理之处是把系统分为管理员和客户两个方向来管理，大大提高了系统的效率，方便使用。包括增删改查以及注册等多个功能。

15、不足之处是建表太多，数据有点冗余。以后会多加改正，创建出更合理的管理系统。2、学习感受。(1) 必须牢固地掌握基础知识，如数据库，vb等，这样才能写出高水平的程序。(2) 当遇到问题时，多动脑筋，查资料或者上网，认真仔细地解决，相信问题会迎刃而解。(3) 多和同学老师交流，及时获取更好的信息。(4) 养成良好的编程风格。如代码的缩进编排，变量的命名规则等。总之，通过这次课程设计，我受益匪浅，我相信在以后的学习生活中,不管遇到什么样的问题我都可以耐心仔细地解决。八、参考文献数据库系统原理与应用孟彩霞主编张荣乔平安副主编«VisualBasic程序设计语言周元哲编著«Visua

16、lBasic管理信息系统开发案例武新华编著九、附录：源代码(略)主页面PrivateSubcustomer_Click()UnloadMeshow_product.ShowEndSubPrivateSubmanager_Click()UnloadMemanagerFrame.ShowEndSub管理员登录页面PrivateSubcustomer_Click()UnloadMeshow_product.ShowEndSubPrivateSubmanager_Click()UnloadMeuser_login.ShowEndSubPrivateSubexit_Click()UnloadMeinit

17、ialFrame.ShowEndSubPrivateSublogin_Click()Setcn1=NewADODB.ConnectionSetrs1=NewADODB.RecordsetSetcm1=NewADODB.CommandDimstrcnnAsStringstrcnn="driver=sqlserver;server=(local);database=CW;”cn1.Openstrcnncm1.ActiveConnection=cn1strsql="select*frommanagerswheremngId='"+idField.Text+&qu

18、ot;'andpsd='"+psdField.Text+"'"Setrs1=cn1.Execute(strsql)Ifrs1.EOF=FalseThenmngMainFrame.ShowUnloadMeElseMsgBox("用户名或密码错误，请重新登录!")EndIfEndSubPrivateSubregister_Click()UnloadMemngRegister.ShowEndSub管理员注册页面PrivateSubForm_Load()Me.AdodcI.RecordSource="select*fr

19、ommanagers"SetnameField.DataSource=Adodc1MField.DataField="mngName"SetMe.psdField.DataSource=Me.Adodc1Me.psdField.DataField="psd"'Me.Adodc1.RecordSource="select*frommanagersEndSubPrivateSubregister_Click()Me.Adodc1.Recordset.AddNewEndSubPrivateSubreturn_Click(

20、)UnloadMemanagerFrame.ShowEndSubPrivateSubsave_Click()Me.Adodc1.Recordset.UpdateMe.idField.DataField="mngId"MsgBox"注册成功！",vbOKOnly,"提示"EndSub管理主界面PrivateSubcustomer_Click()UnloadMecusFrame.ShowEndSubPrivateSubinport_Click()UnloadMeorderFrame.ShowEndSubPrivateSubproduct_

21、Click()UnloadMeproductFrame.ShowEndSubPrivateSubreturn_Click()UnloadMemanagerFrame.ShowEndSubPrivateSubsale_Click()UnloadMesaleFrame.ShowEndSub客户信息管理页面PrivateSubdelete_Click()Me.Adodc1.Recordset.deleteEndSubPrivateSubreturn_Click()UnloadMemngMainFrame.ShowEndSub货品信息管理页面PrivateSubdelete_Click()Me.Ado

22、dc1.Recordset.deleteEndSubPrivateSubreturn_Click()UnloadMemngMainFrame.ShowEndSub销售信息管理页面PrivateSubdelete_Click()Me.Adodc1.Recordset.deleteEndSub厂商信息管理页面PrivateSubdelete_Click()Me.AdodcI.Recordset.deleteEndSubPrivateSubreturn_Click()UnloadMemngMainFrame.ShowEndSubPrivateSubTitel_Click()EndSub进货信息管理页面PrivateSubDataGrid1_Click()'SetDataGrid1.DataSource=rsEndSubPrivateSubdelete_Click()Me.Adodc1.Recordset.deleteEndSubPrivateSubreturn_Click()UnloadMemngMainFrame.ShowEndSub客户注册页面PrivateSubForm_Load()M