宠物用品管理系统--数据库课程设计
宠物店管理系统
（5）当用户购买宠物或者宠物物品等商品后会对商品、宠物店职员服务态度等进行评价，这时评价信息会录入商品评价信息库中，然后公司管理员可以从信息库中获取用户的反馈信息，及时做调整
工资项（工资项号，职位号，其他）
职位工资（职位号，基本工资，奖金，职位津贴）
工资表（工资单号，职员号，工资项号）
职员工资表（职员号，工资项号，发放时间，工资明细）
职位号（职位号，职位名称）
4）鉴于系统的效率考虑，最终决定仍然采用第四部分的关系模式，从这一点可以看出。并不是规范化程度越高越好，要根据实际情况，考虑多方面因素决定最后的关系模式。
业务需求概述
宠物店的体系结构
宠物店管理可以划分为以下4个子模块：人员管理、交易管理、售后管理和库存管理这4个子模块。其中交易管理子模块是核心，因为它是整个宠物店的经济来源支柱，下有订单管理和顾客信息管理两个子功能模块，其余三个子模块为这个模块提供服务。交易管理功能部分负责管理顾客信息和订单信息，其中订单主要涉及与顾客的宠物和宠物物品的交易，宠物管理管理为其提供资金来源，库存管理子模块管理宠物店宠物和宠物物品资源，保证宠物店正常地进行交易。人员管理子模块为其调度必要的工作人员，保证各个交易环节的人力资源能满足工作的需要。售后管理子模块提供了顾客对于宠物和宠物物品的反馈信息，这些信息用来指导宠物采购员进行采购和为交易中顾客提供方便。
（2）职工信息是面向公司管理员和职员，每个职员的信息都存有信息档案，公司管理员和职员都可以登录查看自己的信息，但是查看的级别略有不同，而且在登录的时候还需要进行登录时信息的验证。
宠物店管理系统课程设计
宠物店管理系统课程设计一、课程目标知识目标：1. 学生能理解宠物店管理系统的基本概念，掌握其功能模块和使用方法。
2. 学生能运用数据库知识，对宠物店内的宠物信息进行有效管理。
3. 学生了解并掌握面向对象编程的基本思想，能运用所学编程语言设计简单的宠物店管理系统。
技能目标：1. 学生能运用所学知识，独立完成宠物店管理系统的设计与实现。
2. 学生能运用数据库技术，实现宠物信息的增、删、改、查等操作。
3. 学生具备一定的编程能力，能对宠物店管理系统进行优化和拓展。
情感态度价值观目标：1. 学生通过学习宠物店管理系统，增强对信息技术的兴趣和求知欲，提高学习的积极性。
2. 学生在学习过程中，培养团队协作精神，提高沟通与表达能力。
3. 学生关注信息技术在实际生活中的应用，认识到信息技术对社会发展的积极作用。
课程性质：本课程为信息技术学科，结合数据库和编程知识，以宠物店管理系统为载体，培养学生的实际操作能力和创新思维。
学生特点：六年级学生具有一定的信息技术基础，对新鲜事物充满好奇心，具备一定的自学能力和团队协作精神。
教学要求：结合学生特点，注重实践操作，引导学生主动探究，提高学生的信息技术素养和实际应用能力。
将课程目标分解为具体的学习成果，便于教学设计和评估。
二、教学内容1. 宠物店管理系统概述- 了解宠物店管理系统的概念及作用- 分析宠物店管理系统的功能模块2. 数据库知识- 学习数据库的基本概念和原理- 掌握数据库表的设计与创建- 学习SQL语句，实现对宠物信息的增、删、改、查等操作3. 编程语言基础- 掌握面向对象编程的基本思想- 学习使用所学的编程语言（如Python、Java等）进行程序设计4. 宠物店管理系统的设计与实现- 分析系统需求，设计系统功能模块- 编写代码，实现宠物店管理系统的基本功能- 对系统进行测试与优化5. 实践拓展- 结合所学知识，对宠物店管理系统进行拓展与优化- 学习项目团队的协作与沟通，完成小组项目教学内容安排与进度：第一周：宠物店管理系统概述，数据库知识（1课时）第二周：数据库知识，编程语言基础（2课时）第三周：编程语言基础，宠物店管理系统的设计与实现（3课时）第四周：宠物店管理系统的设计与实现，实践拓展（4课时）教材章节关联：《信息技术》第六册：第四章 数据管理、第五章 程序设计、第六章 项目实践。
宠物用品商城课程设计
宠物用品商城课程设计一、课程目标知识目标：1. 学生能够掌握并运用所学的电子商务知识，设计并描述一个宠物用品商城的运营模式。
2. 学生能够识别并列举宠物用品的分类，了解其功能及适用对象。
3. 学生理解并描述电子商务中客户服务的基本原则，并能在宠物商城的情景中应用。
技能目标：1. 学生能够运用网络资源进行市场调研，分析宠物用品的需求和趋势。
2. 学生通过小组合作，设计出创意宠物用品营销方案，并具备通过PPT等软件展示方案的能力。
3. 学生能够运用所学知识，构建宠物用品商城的用户体验优化策略。
情感态度价值观目标：1. 培养学生对宠物及宠物用品市场的兴趣，激发其探索精神和商业意识。
2. 培养学生团队协作精神，提高沟通协调能力和解决问题的能力。
3. 通过课程学习，增强学生对电子商务在服务行业中的社会责任意识，培养其诚信经营的理念。
课程性质：本课程结合信息技术和商业知识，以实践性、综合性、创新性为主要特点。
学生特点：考虑到学生处于高年级阶段，具备一定的信息检索能力和逻辑思维能力，对电子商务有一定的了解。
教学要求：教学过程中注重理论与实践的结合，鼓励学生主动探究，通过项目式学习，使学生在实践中达成学习目标。
教学评估将基于学生在项目中的表现和成果展示，确保目标的达成具有可衡量性。
二、教学内容1. 宠物用品市场分析：包括宠物用品的分类、市场需求、消费者行为分析等内容，关联课本第三章“电子商务市场分析与定位”。
- 教学安排：2课时，进行市场调研，小组讨论并形成报告。
2. 宠物用品商城运营模式设计：涉及B2C电子商务模式、供应链管理、物流配送等内容，关联课本第五章“电子商务运营管理”。
- 教学安排：3课时，设计运营模式，制作PPT并进行展示。
3. 宠物用品商城营销策略：包括网络营销策略、促销活动策划等内容，关联课本第七章“网络营销策略”。
- 教学安排：2课时，制定营销方案，小组合作完成。
4. 宠物用品商城用户体验优化：涉及用户界面设计、客户服务、用户满意度调查等内容，关联课本第九章“电子商务客户关系管理”。
宠物查询系统课程设计
宠物查询系统课程设计一、课程目标知识目标：1. 让学生掌握宠物查询系统的基础知识，包括数据库的建立与使用；2. 使学生了解宠物的种类、习性等相关信息；3. 帮助学生理解宠物查询系统的设计原理和实现方法。
技能目标：1. 培养学生运用所学的数据库知识，设计并实现一个简单的宠物查询系统；2. 提高学生分析问题、解决问题的能力；3. 培养学生团队协作、沟通表达的能力。
情感态度价值观目标：1. 激发学生对编程和数据库的兴趣，培养其探索精神；2. 培养学生关爱动物、保护生态环境的意识；3. 引导学生认识到科技在生活中的应用，增强其社会责任感。
本课程针对年级：五年级课程性质：本课程属于信息技术与学科整合的实践性课程，注重培养学生的实际操作能力和团队协作能力。
学生特点：五年级学生对新鲜事物充满好奇，具备一定的计算机操作基础，喜欢动手实践。
教学要求：结合学生特点，采用任务驱动法，将课程内容分解为具体任务，引导学生自主探究、合作学习，实现课程目标。
在教学过程中，注重培养学生的实际操作能力和解决问题的能力，同时关注学生的情感态度价值观的培养。
通过本课程的学习，使学生能够将所学知识运用到实际生活中，提高其综合素质。
二、教学内容1. 宠物查询系统基础知识：包括数据库的基本概念、数据表的设计与创建、数据的增删改查等操作。
- 相关教材章节：第五章《数据库的使用》2. 宠物信息采集与整理：介绍不同种类宠物的习性、特征等信息，学会收集和整理宠物数据。
- 相关教材章节：第三章《信息的收集与整理》3. 宠物查询系统设计与实现：讲解宠物查询系统的设计原理，引导学生动手实现一个简单的宠物查询系统。
- 相关教材章节：第六章《程序设计基础》4. 系统测试与优化：教授学生如何测试系统功能，发现问题并进行优化。
- 相关教材章节：第七章《程序调试与优化》5. 团队协作与沟通：培养学生团队协作能力，学会在团队中沟通解决问题。
- 相关教材章节：第九章《计算机与团队协作》教学内容安排与进度：第一课时：宠物查询系统基础知识学习与数据库创建第二课时：宠物信息采集与整理第三课时：宠物查询系统设计与实现（上）第四课时：宠物查询系统设计与实现（下）第五课时：系统测试与优化第六课时：团队协作与沟通总结三、教学方法1. 讲授法：用于宠物查询系统基础知识的教学，如数据库概念、数据表设计等。
宠物管理系统-登陆界面设计
西南大学本科生选修课程
实验报告本
课程名称 Visual FoxPro 数据库应用
实验学期 2012年至 2012 年第 3 学期
姓名学号
学院经济管理学院专业会计学专业
分工负责数据库系统的登录界面的设计
小组成员分工下拉菜单设计
小组成员分工查询
小组成员分工浏览设计
小组成员分工报表设计
附注：登录名 gfs 密码 123456
实验报告须知
1、该课程要求每位学生完成数据库系统开发设计，并给出相应的实验报告。
2、学生必须认真填写每次实验报告的相应内容，以此为依据作为课程考试成绩的一部分。
3、实验报告的提交时间：本学期最后一次课后。
4、实验报告的提交方式：实验报告最终以纸质形式交给任课教师。
5、实验报告格式及装订
页面设置：纸张：A4；页边距：上下2.5cm，左右3.2cm（实验报告封面除外）装订：一律左边装订。
《Visual FoxPro 数据库应用》课程实验报告
4.双击退出按钮，输入以下代码
THISform.release
5．修改表单一的caption属性为宠物管理系统
6．插入文本“宠物管理系统”
7．由picture插入登录界面背景图片
三、主要仪器设备及相关软件
主要仪器：安装有xp虚拟机且能够正常上网的win7电脑一台。
主要相关软件：Visual FoxPro6.0以及QQ（主要用到的是QQ截图工具）。
四、实验结果分析总结。
宠物管理系统课程设计任务说明书
课程设计任务说明书题目：宠物户籍管理系统一、需求分析使用Access设计“宠物户籍管理系统”数据库的基本任务被用来管理。
近年来，随着人们生活水平的不断提高，越来越多的家庭养起了宠物，但由此而引发的破坏环境、噪音扰民、宠物咬伤人等问题日益严重，由此建立高性能的宠物户籍管理系统，使用计算机对宠物户籍档案进行管理，极大大地提高宠物户籍档案管理的效率。
使得用户不但能了解宠物的基本情况（如每个宠物是否接种疫苗、登记日期、等相关信息），而且知晓每个宠物的详细信息（比如每个宠物的品种，主人信息、宠物出生日期）。
二、数据库设计1、基本数据表需求（1）“宠物户口”表用来保存每个宠物的登记日期及相关信息。
（2）“宠物详情”表用来保存宠物的品种、出生日期等详情。
（3）“主人信息”表用来保存主人的联系电话、家庭住址的信息。
2、表结构（1）“宠物户口”表（2）“宠物详情”表（3）主人信息3、表关系三、功能模块为了设计目标明确，各个功能模块如表所示。
四、模块详细设计1、用户登录（1）窗体设计（2）宏设计2、宠物信息查询系统（1）查询设计（2）窗体设计（3）报表设计（4）宏设计2、宠物信息录入系统(1)窗体设计主人信息的增删宠物信息的浏览、增加（2）宏设计五系统开发的体会通过这次开发实践，对Access有了更深一步的认识，运用所学的知识做出宠物户籍管理系统，其功能基本符合实际需求，能够完成宠物户籍档案信息的存储和查询及以及各功能的实现。
并提供部分系统管理功能,使用户方便进行新信息的添加、旧信息的修改和删除.对于数据的一致性的问题也通过程序进行了有效的解决。
避免了由于人为方式固有的不严密性所带来的各种工作中的疏漏，实现了管理的科学化和严谨化。
通过这次的开发实践，不仅是对知识的了解，更重要的是感受到了神奇和趣味，也感受到了知识对于人的吸引力。
宠物店管理系统
6.
用DDL语言实现所选课题的相关设计，过程如下所示：
create table
宠物(
宠物号char(30),
（4）宠物信息同样面向公司管理员和顾客，宠物店购进宠物或者卖出宠物后，公司管理员会对这些信息进行及时更新，以达到实时更新给顾客，为顾客提供便捷。
（5）当用户购买宠物或者宠物物品等商品后会对商品、宠物店职员服务态度等进行评价，这时评价信息会录入商品评价信息库中，然后公司管理员可以从信息库中获取用户的反馈信息，及时做调整
宠物（宠物号，宠物名，性别，图片，零售价，宠物种类号）
宠物种类（宠物种类号，宠物种类名，库存数量，进货单价）
宠物用品（宠物用品号，用品种类号，售价）
商品（商品号，零售价，商品种类）
订单（顾客号，商品号，数量，价钱，购买时间）
顾客（顾客号，姓名，性别，地址，固定电话，手机号，邮箱）
反馈信息（编号，反馈种类，顾客号，反馈内容，反馈时间）
姓名：王肖朴专业：软件工程班级：0913学号：200992506
指导教师：丁锋
评阅教师：丁锋
完成日期：2011年10月日
大连理工大学
Dalian University of Technology
1.
1.1
谈到宠物，人们通常会将其与猫、鱼、鸟等许多小动物联系起来。随着人们日常生活的丰富多彩，人们对新事物的不断追求，使得各种各样的个性宠物不断出现。最近，宠物市场上新现了例如蜥蜴、变色龙、蛇、蜘蛛、蜈蚣、老鼠等与我们日常生活中或惯常思维所理解的宠物不一样的“另类宠物”，不断满足着人们喂宠物的需要。当然随着这一发展驱趋势，提供给人们各个种类宠物的宠物店则如雨后春笋般涌现。
（4）方便接口设计人员尽早介入设计开发过程。
宠物用品管理系统数据库课程设计
西安郵電大學综合应用软件课程设计报告题目：宠物用品店管理系统学院名称：计算机学院专业名称：计算机科学与技术班级：计科1102学号：04111067（24）学生姓名：冯佳新指导教师：孟彩霞2013年09月09日时间：至 2013年09月23日得分项百分比得分题目的新颖程度及难度 5语言的难度及熟悉程度 5设计结果（机器上验收）60设计文档20设计过程态度10总评（五级制）一、课程设计目的1，能快速掌握数据库系统开发的最基本方法、思路和步骤。
2，熟悉大型数据库管理系统的基本结构，基本框架设计与组成。
3，掌握数据库语言和其他语言综合应用的能力，连接方法及连接应用和对程序的调试能力。
4，能利用信息技术，数据库技术等对系统进行方便地管理，改善顾客服务等。
二、课程设计内容随着人们日常生活的丰富多彩，人们对新事物的不断追求，使得各种各样的个性宠物不断出现。
由于这一发展驱趋势，提供给人们各个种类宠物的宠物店则如雨后春笋般涌现。
本系统专门为实体宠物店设计，主要包括了宠物用品销售、宠物店客户管理、宠物货物管理、宠物用品进货管理、宠物用品提供商管理等多种业务管理,解决宠物店进销存繁琐问题，建立丰富的宠物用品资料，顾客资料；还包含了丰富的营业销售汇总报表，让宠物店营业情况一目了然，最终方便管理以及扩大销售。
三、软硬件环境及系统所采用的体系结构1，操作系统：72，体系结构：系统的体系结构为结构3，开发工具：前台为 6.0，后台数据库为2008四、需求分析1，功能描述（1）管理员和客户都可先注册然后再进行相关操作。
（2）管理员可实行客户管理、宠物用品管理、销售管理、供应商管理、进货管理等操作。
对客户信息，货品信息，供应商信息进行相应的添加、修改、删除操作。
（3）用户可通过货品的展示选择自己需要的物品并购买。
2，实现目标（1）实现管理员和用户的登录权限。
（2）实现管理员对客户信息，货品信息，供应商信息的修改、删除等功能。
（3）实现货品的界面展览，以供客户选择。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
宠物用品管理系统--数据库课程设计西安郵電大學综合应用软件课程设计报告题目: 宠物用品店管理系统学院名称 : 计算机学院专业名称 : 计算机科学与技术班级 : 计科1102 学号 : 04111067(24) 学生姓名 : 冯佳新指导教师 : 孟彩霞2013年09月09日时间 :至 2013年09月23日得分项百分比得分题目的新颖程度及难度 5 语言的难度及熟悉程度 5 设计结果(机器上验收) 60 设计文档 20 设计过程态度 10 总评(五级制)一、课程设计目的1，能快速掌握数据库系统开发的最基本方法、思路和步骤。
2，熟悉大型数据库管理系统的基本结构，基本框架设计与组成。
3，掌握数据库语言和其他语言综合应用的能力，连接方法及连接应用和对程序的调试能力。
4，能利用信息技术，数据库技术等对系统进行方便地管理，改善顾客服务等。
二、课程设计内容随着人们日常生活的丰富多彩，人们对新事物的不断追求，使得各种各样的个性宠物不断出现。
由于这一发展驱趋势，提供给人们各个种类宠物的宠物店则如雨后春笋般涌现。
本系统专门为实体宠物店设计，主要包括了宠物用品销售、宠物店客户管理、宠物货物管理、宠物用品进货管理、宠物用品提供商管理等多种业务管理,解决宠物店进销存繁琐问题，建立丰富的宠物用品资料，顾客资料;还包含了丰富的营业销售汇总报表，让宠物店营业情况一目了然，最终方便管理以及扩大销售。
三、软硬件环境及系统所采用的体系结构1，操作系统:Windows72，体系结构:系统的体系结构为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 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.Connection Set rs1 = New ADODB.Recordset Set cm1 = New mand 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='" + psdField.Text +"'"Set rs1 = cn1.Execute(strsql) If rs1.EOF = False Then mngMainFrame.ShowUnload MeElseMsgBox ("用户名或密码错误,请重新登录!")End IfEnd SubPrivate Sub register_Click() Unload MemngRegister.ShowEnd Sub(2)客户注册页面Private Sub Form_Load()Me.Adodc1.RecordSource = "select * from customers"Set nameField.DataSource = Adodc1 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.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.delete End Sub Private 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.Connection Set rs1 = New ADODB.Recordset Set cm1 = New mand 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='" + psdField.Text + "'"Set rs1 = cn1.Execute(strsql) If rs1.EOF = False Then mngMainFrame.ShowUnload MeElseMsgBox ("用户名或密码错误,请重新登录!")End IfEnd SubPrivate Sub register_Click() Unload MemngRegister.ShowEnd Sub管理员注册页面Private Sub Form_Load()Me.Adodc1.RecordSource = "select * from managers"Set nameField.DataSource = Adodc1 Field.DataField = "mngName" Set Me.psdField.DataSource = Me.Adodc1Me.psdField.DataField = "psd" 'Me.Adodc1.RecordSource = "select * from managers"End SubPrivate Sub register_Click() Me.Adodc1.Recordset.AddNew End Sub Private Sub return_Click() Unload MemanagerFrame.ShowEnd SubPrivate Sub save_Click() Me.Adodc1.Recordset.UpdateMe.idField.DataField = "mngId" MsgBox "注册成功～", 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.delete End Sub Private Sub return_Click() Unload MemngMainFrame.ShowEnd Sub货品信息管理页面Private Sub delete_Click() Me.Adodc1.Recordset.delete End Sub Private Sub return_Click() Unload MemngMainFrame.ShowEnd Sub销售信息管理页面Private Sub delete_Click() Me.Adodc1.Recordset.delete End Sub Private 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 = rs End Sub Private 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 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 SubPrivate Sub return_Click() Unload Meshow_product.ShowEnd SubPrivate Sub save_Click() Me.Adodc1.Recordset.Update MsgBox "注册成功～", vbOKOnly, "提示"End Sub货品展示页面Dim s As StringPrivate Sub Form_Load() End SubPrivate Sub order_Click() Unload Mebuy.ShowEnd SubPrivate Sub register_Click() Unload MecusRegister.ShowEnd SubPrivate Sub return_Click() Unload Me initialFrame.ShowEnd Sub。