1、宠物用品管理系统数据库课程设计西安郵電大學综合应用软件课程设计报告题目宠物用品店管理系统学院名称：计算机学院专业名称：计算机科学与技术班 级：计科1102学 号：04111067 （24）学生姓名：冯佳新指导教师：孟彩霞时 间：2013 年09月09日至2013年09月23日得分项百分比得分题目的新颖程度及难度5语言的难度及熟悉程度5设计结果（机器上验收）60设计文档20设计过程态度10总评（五级制）、课程设计目的1,能快速掌握数据库系统开发的最基本方法、思路和步骤。2,熟悉大型数据库管理系统的基本结构，基本框架设计与组成。3,掌握数据库语言和其他语言综合应用的能力，连接方法及连接应用和对 程
2、序的调试能力。4，能利用信息技术，数据库技术等对系统进行方便地管理，改善顾客服务等。二、 课程设计内容随着人们日常生活的丰富多彩， 人们对新事物的不断追求， 使得各种各样的个性宠物不断出现。由于这一发展驱趋势，提供给人们各个种类宠物的宠物店则如雨后春笋般涌现。本系统专门为实体宠物店设计，主要包括了宠物用品销售、宠物店客户管理、宠物货物 管理、宠物用品进货管理、宠物用品提供商管理等多种业务管理 ，解决宠物店进销存繁琐问题，建立丰富的宠物用品资料， 顾客资料；还包含了丰富的营业销售汇总报表，让宠物店营业情况一目了然，最终方便管理以及扩大销售。三、 软硬件环境及系统所采用的体系结构1，操作系统：Wi
3、ndows72,体系结构：系统的体系结构为 C/S结构3，开发工具：前台为 Visual Basic 6.0,后台数据库为 SQL Server 2008 四、需求分析1,功能描述(1)管理员和客户都可先注册然后再进行相关操作。(2)管理员可实行客户管理、宠物用品管理、销售管理、供应商管理、进 货管理等操作。对客户信息，货品信息，供应商信息进行相应的添加、 修改、删除操作。(3)用户可通过货品的展示选择自己需要的物品并购买。2,实现目标(1)实现管理员和用户的登录权限。(2)实现管理员对客户信息，货品信息，供应商信息的修改、删除等功能(3)实现货品的界面展览，以供客户选择。五、系统设计1系统结
4、构图(功能模块图)宠物店用品管理系统(1)在客户信息管理部分，要求如下。可以浏览客户信息。可以对客户信息进行维护，包括添加及删除等操作。(2)在货品信息管理部分，要求如下。可以浏览货品信息。可以对货品信息进行维护，包括添加及删除等操作。(3)在销售信息管理部分，要求如下。可以浏览销售信息。可以对销售信息进行维护，包括添加及删除等操作。(4)在供应商信息管理部分，要求如下。可以浏览供应商信息。可以对供应商信息进行维护，包括添加及删除等操作。（5） 在进货信息管理部分，要求如下。可以浏览进货信息。可以对进货信息进行维护，包括添加及删除等操作。（6） 在管理者信息管理部分，要求如下。显示当前数据库中
5、管理者情况。对管理者信息维护操作。2数据库设计（1）系统E-R图进价售价重量供应提供商厂名地址编号（2）逻辑模式客户（客户编号-姓名电话城市住址）货品（货品编号 货品名 类别 进价 售价 供应商 重量 库存量）销售（销售编号客户编号货品编号货品名售价销售数量总额销售日 期）厂商（厂家编号 厂名 生产产品 电话 住址）进货（进货编号 厂商编号 货品编号 货品名 进价 售价 进价数量 总额 进价日期）登录（用户名密码）其中，波浪线为主键，直线为外键。根据这些需要，本系统需要客户表、货品表、销售表、厂商表、进货表、密码表等。六、系统的实施1 ，创建数据库与表打开SQL Server企业管理器，配置连
6、接，创建名为“ CW”的数据库。创建数据库后，为数据库添加数据表，步骤如下。（1） 在服务器资源管理器中右击数据库“ CW ”的“表”文件夹。在弹出的快捷菜单中执行“新建表”命令，出现表设计器。（2） 添加表的字段和其他详细资料。建立好的各表如下所示。常 址制台恨目录Wiceoft SQL ServereSQL 5etv 沖.归ul） rAintfows NT）数振岸QV袁2 ，配置数据源选项，选择“添加”，选择SQLServer为驱动程序，自己命名数据源为 123, 配置服务器，点击“下一步”，再“下一步”，然后更改当前默认数据库为“CW, 点击完成，测试数据完整性后完成数据源的配置。Mkr
7、owft ODBC SQL Server DSN 配詈|为预定义的阴L语句酬逢临时存暗过程，并删除该存储过程 凹:只肓当断开时卄当斷开时和连结时同样适用册“使用AMSI引用的标识符W7使用AMSI的空值、填充恐彈告。若主SQL Server不可用? i青使用故陣搐移SQLLJ Server T）。K上一0）下一步（M）打 取消 I 帮助 I3，主要窗体设计及相关代码（1）管理员登录页面Private Sub customer_Click() Un load Me show_product.ShowEnd SubPrivate Sub man ager_Click() Un load Meuse
8、r_logi n.ShowEnd SubPrivate Sub exit_Click() Un load Mein itialFrame.ShowEnd SubPrivate Sub login_Click()Set cn1 = New ADODB.Co nn ecti onSet rs1 = New ADODB.RecordsetSet cm1 = New ADODB.Comma ndDim strc nn As Stringstrc nn = driver=sql server;server=(local);database=CW;cn 1.Ope n strc nncm1.ActiveC
9、 onnection = cn1strsql = select * from managers where mngId= + idField.Text + and psd= + psdField.Text + milSet rs1 = cn I.Execute(strsql) If rsl.EOF = False The n mn gMa inF rame.ShowUn load Me，请重新登录!)ElseMsgBox (用户名或密码错误 End IfEnd SubPrivate Sub register_Click() Un load Memn gRegister.ShowEnd Sub(
10、2)客户注册页面Dodo-p铳客户注册Private Sub new_Click()Me.Adodc1.Recordset.AddNewEnd SubPrivate Sub return_Click() Un load Me show_product.ShowEnd SubPrivate Sub save_Click()Me.Adodc1.Recordset.UpdateMsgBox 注册成功！ , vbOKOnly,提示” End Sub(3)货品管理页面毛刷 ： 5 00F生产厂寧So組合囊具 ； 3Q.OO牵弓嘔 ； 4Q. 00Private Sub delete_Click()Me.
11、AdodcI.Recordset.delete End SubPrivate Sub return_Click()Un load Memn gMa inF rame.ShowEnd Sub(4)货品展示页面_|歸龙恩1Dim s As Stri ngPrivate Sub order_Click() Un load Mebuy.ShowEnd SubPrivate Sub return_Click()Unload Me initialFrame.ShowEnd Sub凡是需要数据库信息的窗体，都必须将VB与SQL连接，使用Adodc控件和Datagrid 控件，设置属性， 更改相应的 ODBC
12、 数据源和记录源， 将数据库中的信 息与 VB 连接起来。七、系统评价及心得体会1、系统评价本次的课程设计，我能完成老师给出的最基本要求，并在此基础创 新，选择了一个相对新颖的题目进行设计，合理之处是把系统分为管理 员和客户两个方向来管理，大大提高了系统的效率，方便使用。包括增 删改查以及注册等多个功能。不足之处是建表太多，数据有点冗余。以 后会多加改正，创建出更合理的管理系统。2、学习感受。（1） 必须牢固地掌握基础知识，如数据库， vb 等，这样才能写出高水 平的程序。（2） 当遇到问题时，多动脑筋，查资料或者上网，认真仔细地解决，相 信问题会迎刃而解。（3）多和同学老师交流，及时获取更好
13、的信息。（ 4）养成良好的编程风格。如代码的缩进编排，变量的命名规则等。总之，通过这次课程设计，我受益匪浅，我相信在以后的学习生活中， 不管遇到什么样的问题我都可以耐心仔细地解决。八、参考文献数据库系统原理与应用 孟彩霞 主编 张荣 乔平安副主编Visual Basic程序设计语言 周元哲 编著Visual Basic管理信息系统开发案例 武新华编著 九、附录： 源代码（略）主页面Private Sub manager_Click()Unload Me managerFrame.ShowEnd Sub管理员登录页面Private Sub customer_Click()Unload Me sh
14、ow_product.ShowEnd SubPrivate Sub manager_Click()Unload Me user_login.ShowEnd SubPrivate Sub exit_Click()Unload Me initialFrame.ShowEnd SubPrivate Sub login_Click()Set cn1 = New ADODB.ConnectionSet rs1 = New ADODB.RecordsetSet cm1 = New ADODB.CommandDim strcnn As Stringstrcnn = driver=sql server;ser
15、ver=(local);database=CW; cn1.Open strcnncm1.ActiveConnection = cn1strsql = select * from managers where mngId= + idField.Text + and psd= + psdField.Text +ninSet rs1 = cn1.Execute(strsql) If rs1.EOF = False Then mngMainFrame.ShowUnload MeElseMsgBox ( 用户名或密码错误 ,请重新登录 !)End IfEnd SubPrivate Sub registe
16、r_Click()Unload Me mngRegister.ShowEnd Sub管理员注册页面Private Sub Form_Load()Me.Adodc1.RecordSource = select * from managers Set nameField.DataSource = Adodc1Me.nameField.DataField = mngNameSet Me.psdField.DataSource = Me.Adodc1 Me.psdField.DataField = psd Me.Adodc1.RecordSource = select * from managers
17、End 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 Me cusFrame.ShowEnd
18、SubPrivate Sub inport_Click()Unload MeorderFrame.ShowEnd SubPrivate Sub product_Click()Unload MeproductFrame.ShowEnd SubPrivate Sub provider_Click()Unload Me proFrame.ShowEnd SubPrivate Sub return_Click()Unload Me managerFrame.ShowEnd SubPrivate Sub sale_Click()Unload Me saleFrame.ShowEnd Sub客户信息管理页
19、面Private Sub delete_Click() Me.Adodc1.Recordset.delete End SubPrivate Sub return_Click() Unload Me mngMainFrame.ShowEnd Sub货品信息管理页面Private Sub delete_Click() Me.Adodc1.Recordset.delete End SubPrivate Sub return_Click()Unload Me mngMainFrame.ShowEnd Sub销售信息管理页面Private Sub delete_Click()Me.Adodc1.Reco
20、rdset.delete End SubPrivate Sub return_Click() Unload Me mngMainFrame.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
21、 = rsEnd SubPrivate Sub delete_Click()Me.Adodc1.Recordset.deleteEnd SubPrivate Sub return_Click()Unload MemngMainFrame.ShowEnd Sub客户注册页面Private Sub Form_Load()Me.Adodc1.RecordSource = select * from customers Set nameField.DataSource = Adodc1 Me.nameField.DataField = cusNameSet Me.cityField.DataSourc
22、e = 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.AddNew End SubPrivate Sub return_Click()Unload Me show_product.Show End SubPri
23、vate Sub save_Click()Me.Adodc1.Recordset.UpdateMsgBox 注册成功！ , vbOKOnly, 提示 End Sub货品展示页面Dim s As StringPrivate Sub Form_Load() End SubPrivate Sub order_Click()Unload Me buy.Show End SubPrivate Sub register_Click()Unload Me cusRegister.Show End SubPrivate Sub return_Click()Unload Me initialFrame.Show End Sub
