《宠物用品管理系统》由会员分享，可在线阅读，更多相关《宠物用品管理系统（17页珍藏版）》请在金锄头文库上搜索。
1、宠物用品管理系统-数据库课程设计西安郵電大學综合应用软件课程设计报告题 目: 宠物用品店管理系统学院名称 : 计算机学院 专业名称 : 计算机科学与技术 班 级 : 计科1102 学号 : 04111067（24） 学生姓名 : 冯佳新指导教师 : 孟彩霞2013年09月09日 时间 :至 2013年09月23日得分项 百分比 得分 题目的新颖程度及难度 5 语言的难度及熟悉程度 5 设 计结果（机器上验收） 60 设计文档 20 设计过程态度 10 总评（五级制）一、课程设计目的 1，能快速掌握数据库系统开发的最基本方法、思路和步骤。2，熟悉大型数据库管理系统的基本结构，基本框架设计与组成。
2、3，掌握数据库语言和其他语言综合应用的能力，连接方法及连接应用和对 程 序的调试能力。4，能利用信息技术，数据库技术等对系统进行方便地管理，改善顾客服务 等。二、课程设计内容 随着人们日常生活的丰富多彩，人们对新事物的不断追求，使得各种各样的个 性宠物不断出现。由于这一发展驱趋势，提供给人们各个种类宠物的宠物店则如雨 后春笋般涌现。本系统专门为实体宠物店设计，主要包括了宠物用品销售、宠物店客户管理、 宠物货物管理、宠物用品进货管理、宠物用品提供商管理等多种业务管理,解决宠 物店进销存繁琐问题，建立丰富的宠物用品资料，顾客资料;还包含了丰富的营业 销售汇总报表，让宠物店营业情况一目了然，最终方便
3、管理以及扩大销售。三、软硬件环境及系统所采用的体系结构1, 操作系统:Windows72, 体系结构:系统的体系结构为C/S结构3, 开发工具：前台为Visual Basic 6.0,后台数据库为SQL Server 2008四、需求分析1,功能描述(1) 管理员和客户都可先注册然后再进行相关操作。(2) 管理员可实行客户管理、宠物用品管理、销售管理、供应商管理、进 货管理等操作。对客户信息,货品信息,供应商信息进行相应的添加、 修改、删除操作。(3) 用户可通过货品的展示选择自己需要的物品并购买。2,实现目标(1) 实现管理员和用户的登录权限。2)实现管理员对客户信息,货品信息,供应商信息的
4、修改、删除等功能。 (3)实现货品的界面展览,以供客户选择。五、系统设计1(系统结构图(功能模块图)宠物店用品管理系统管理员注册 客户注册 用户登录 管理员登录货货客货 进销厂品品户 品货售商查购管管管管管 买 询 理 理 理 理 理(1)在客户信息管理部分,要求如下。, 可以浏览客户信息。, 可以对客户信息进行维护,包括添加及删除等操作。(2) 在货品信息管理部分,要求如下。, 可以浏览货品信息。, 可以对货品信息进行维护,包括添加及删除等操作。(3) 在销售信息管理部分,要求如下。, 可以浏览销售信息。, 可以对销售信息进行维护,包括添加及删除等操作。(4) 在供应商信息管理部分,要求如下
5、。, 可以浏览供应商信息。, 可以对供应商信息进行维护，包括添加及删除等操作(5) 在进货信息管理部分,要求如下。, 可以浏览进货信息。, 可以对进货信息进行维护，包括添加及删除等操作。(6) 在管理者信息管理部分,要求如下。, 显示当前数据库中管理者情况。, 对管理者信息维护操作。2(数据库设计(1)系统 E-R 图姓名 类别 编号 电话 姓名进价客 户 货品 购买 编号售价提供商 登录密码 住址 存储量 所居城市重量供应编号提供商厂名地址电话 产品名（2）逻辑模式客户（客户编号 姓名 电话 城市 住址）货品（货品编号 货品名 类别 进价 售价 供应商 重量 库存量）销售（销售编号 客户编号
6、 货品编号 货品名 售价 销售数量 总额 销售日 期）厂商（厂家编号 厂名 生产产品 电话 住址）进货 （进货编号 厂商编号 货品编号 货品名 进价 售价 进价数量 总额 进价日期）登录 （用户名 密码）其中，波浪线为主键，直线为外键。根据这些需要，本系统需要客户表、货品表、销售表、厂商表、进货表、 密码表等。六、系统的实施1，创建数据库与表打开SQL Server企业管理器，配置连接，创建名为“CW”的数据库。 创建数据库后，为数据库添加数据表，步骤如下。在服务器资源管理器中右击数据库“CW”的“表”文件夹。在弹出 的快捷菜单中执行“新建表”命令，出现表设计器。(2)添加表的字段和其他详细资
7、料。建立好的各表如下所示。爭1 :巾!冃 町 WSr-nuft SQC Wefe审QI Sfti *斗MTV戢JH卑-禹押口时匂回士a |n l r-r-riciHL N H 亠匸I-H w战宜田R)詞亡罡如伍e 比冃士沖或a:田: 1J ?135iEr 1.I nwu 订 micb叙I冋3d3.e.17S3a：LE Ji：过门7乜*tja：3i-9a7fiE JULSBflii-a.Si5 ajL117iri3iL： 沁蜩血丄 JLKU.y.iB 1=JV 11 3K-CL-3iTJ：S 丄芒 2K0.i3ilb 1-12 JKD.a,ll：U acKM-i： j 睜口 cusiontns
8、fflclLI CpLTHta卡m drLn&p-iJ匚SJFMrrrrtrM 直劣门:血n山ZZk.sf 如 园曲g；Trtinirin-KFp wFu加如ll却业斗G码目巴rruigaita Ljm*lrt-rn如;囂翥:器詈K餉上占口2，配置数据源打开控制面板里面的“管理工具”，打开“数据源”，选择“系统DSN”选项，选择“添加”，选择SQL Server为驱动程序，自己命名数据源为123,配置服务器，点击“下一步”，再“下一步”，然后更改当前默认数据库为“CW”，点击完成，测试数据完整性后完成数据源的配置。!：.当竝口芸左匡临时百耳适示* “刃l憲砒理曲in is Jii 占用辭富各储
9、划况願 us計用的标旦袴巾“俺马 曲：的空値、0充.聘召壮八行服功 运与感 左圉B证开试 I H则攘 连 护5亠址鼻f曲：F序，刊汕.一出匸二L :寸 IJF LU ! 43，主要窗体设计及相关代码(1)管理员登录页面Private Sub customer_Click() Unload Me show_product.ShowEnd SubPrivate Sub manager_Click() Unload Me user_login.ShowEnd SubPrivate Sub exit_Click() Unload Me initialFrame.ShowEnd SubPrivate S
10、ub 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 strcnncm1.ActiveConnection = cn1 strsql = select * from managers where mngId= + idField.Text + and psd= + psdF
11、ield.Text +Set rs1 = cn1.Execute(strsql) If rs1.EOF = False Then mngMainFrame.ShowUnload MeElseMsgBox (用户名或密码错误,请重新登录!)End IfEnd SubPrivate Sub register_Click() Unload Me mngRegister.ShowEnd Sub(2)客户注册页面Private Sub Form_Load()Me.Adodc1.RecordSource = select * from customersSet nameField.DataSource =
12、 Adodc1 Me.nameField.DataField = cusNameSet Me.cityField.DataSource = Me.Adodc1 Me.cityField.DataField = citySet Me.telField.DataSource = Me.Adodc1 Me.telField.DataField = tel SetMe.AdsField.DataSource = Me.Adodc1 Me.AdsField.DataField = ads End Sub Private Sub new_Click()Me.Adodc1.Recordset.AddNewE
13、nd 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.delete End SubPrivate Sub return_Click() Unload MemngMainFrame.ShowEnd Sub(4)货品展示页面”小注用1：血hYe UT M
14、- -Jl JU)in !；_trTW 皿 %虹杠Bii-SwDim 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连接起来
15、。七、系统评价及心得体会1、系统评价本次的课程设计，我能完成老师给出的最基本要求，并在此基础创 新，选择了一个相对新颖的题目进行设计，合理之处是把系统分为管理 员和客户两个方向来管理，大大提高了系统的效率，方便使用。包括增 删改查以及注册等多个功能。不足之处是建表太多，数据有点冗余。以 后会多加改正，创建出更合理的管理系统。2、学习感受。(1) 必须牢固地掌握基础知识，如数据库，vb等，这样才能写出高水 平的程序。(2) 当遇到问题时，多动脑筋，查资料或者上网，认真仔细地解决，相 信问题会迎刃而解。(3) 多和同学老师交流，及时获取更好的信息。(4) 养成良好的编程风格。如代码的缩进编排，变量的命名规则等。 总之，通过这次课程设计
