下载文档原格式
宠物店管理系统课程设计一、课程目标知识目标：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有了更深一步的认识，运用所学的知识做出宠物户籍管理系统，其功能基本符合实际需求，能够完成宠物户籍档案信息的存储和查询及以及各功能的实现。
并提供部分系统管理功能,使用户方便进行新信息的添加、旧信息的修改和删除.对于数据的一致性的问题也通过程序进行了有效的解决。
避免了由于人为方式固有的不严密性所带来的各种工作中的疏漏，实现了管理的科学化和严谨化。
通过这次的开发实践，不仅是对知识的了解，更重要的是感受到了神奇和趣味，也感受到了知识对于人的吸引力。
西安郵電大學综合应用软件课程设计报告题目：宠物用品店管理系统学院名称：计算机学院专业名称：计算机科学与技术班级：计科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）实现货品的界面展览，以供客户选择。
c语言课程设计宠物管理系统一、教学目标本节课的教学目标是使学生掌握C语言的基本语法和编程技巧，通过编写宠物管理系统，培养学生的实际编程能力和解决问题的能力。
具体目标如下：1.掌握C语言的数据类型、变量、运算符和表达式。
2.掌握C语言的控制结构，包括条件语句和循环语句。
3.了解函数的定义和调用，理解函数参数的传递方式。
4.能够使用C语言编写简单的程序，实现基本的输入输出操作。
5.能够运用条件语句和循环语句编写复杂的逻辑判断和循环操作。
6.能够编写函数，实现模块化的编程。
情感态度价值观目标：1.培养学生对计算机编程的兴趣，激发学生学习编程的热情。
2.培养学生解决问题的能力，培养学生的创新意识和团队协作精神。
二、教学内容本节课的教学内容主要包括C语言的基本语法、数据类型、变量、运算符和表达式，以及控制结构、函数的定义和调用。
具体内容包括：1.C语言的基本语法和编程环境。
2.数据类型、变量和运算符，包括整型、浮点型、字符型等数据类型的定义和使用，以及算术运算符、关系运算符、逻辑运算符等运算符的使用。
3.控制结构，包括条件语句和循环语句的语法和运用。
4.函数的定义和调用，包括函数的声明、定义和调用方式。
三、教学方法为了提高学生的学习兴趣和主动性，本节课将采用多种教学方法，包括讲授法、案例分析法、实验法等。
具体方法如下：1.讲授法：通过讲解C语言的基本语法、数据类型、变量、运算符和表达式，以及控制结构、函数的定义和调用，使学生掌握C语言的基本知识。
2.案例分析法：通过分析具体的编程案例，使学生理解编程思路和技巧，培养学生的实际编程能力。
3.实验法：安排课堂实验，让学生亲自动手编写程序，培养学生的实际操作能力和解决问题的能力。
四、教学资源为了支持教学内容和教学方法的实施，丰富学生的学习体验，我们将选择和准备以下教学资源：1.教材：《C程序设计语言》（K&R）或《C语言程序设计》（谭浩强）。
2.参考书：《C语言 Primer》（C Primer Plus）或《C专家编程》。
软件工程课程设计 宠物一、课程目标知识目标：1. 理解软件工程的基本概念，掌握软件开发流程和设计模式；2. 学会运用面向对象方法进行需求分析、系统设计、编码实现及测试；3. 掌握宠物信息管理系统的功能模块及其之间的关系。
技能目标：1. 能够运用UML图进行系统分析与设计，绘制类图、用例图等；2. 独立完成宠物信息管理系统的部分模块编码，具备团队协作能力；3. 提高问题解决能力，能够针对宠物信息管理系统进行优化和改进。
情感态度价值观目标：1. 培养学生对软件工程的兴趣，激发学习热情，树立专业自信心；2. 培养学生的团队协作意识，提高沟通与表达能力；3. 增强学生的社会责任感，使其认识到软件工程在宠物行业中的应用价值。
本课程针对高年级学生，结合软件工程学科特点，注重理论与实践相结合。
课程设计以宠物信息管理系统为例，旨在帮助学生掌握软件工程的基本知识、技能和方法，培养其独立分析和解决问题的能力。
通过课程学习，使学生能够将所学知识应用于实际项目中，提高其在软件工程领域的竞争力。
同时，课程注重培养学生的团队协作、沟通表达等综合素质，使其成为具有社会责任感的专业人才。
二、教学内容1. 软件工程基本概念：软件定义、软件生命周期、软件开发模型；2. 需求分析：宠物信息管理系统需求分析、用例建模、需求规格说明书编写；3. 系统设计：面向对象设计原则、UML图、类图、用例图、序列图；4. 编码实现：Java编程基础、数据库操作、宠物信息管理系统功能模块实现；5. 软件测试：测试方法、测试用例设计、宠物信息管理系统测试；6. 软件维护与优化：软件维护策略、性能优化、宠物信息管理系统改进；7. 项目管理：团队协作、进度控制、风险管理。
教学内容依据课程目标进行选择和组织，以教材为参考，结合宠物信息管理系统项目进行讲解。
教学大纲明确教学内容安排和进度，确保学生掌握软件工程的基本知识、技能和方法。
具体教学安排如下：第1周：软件工程基本概念、开发模型；第2周：需求分析；第3周：系统设计；第4周：编码实现；第5周：软件测试；第6周：软件维护与优化；第7周：项目管理及课程总结。
宠物用品管理系统--数据库课程设计西安郵電大學综合应用软件课程设计报告题目: 宠物用品店管理系统学院名称 : 计算机学院专业名称 : 计算机科学与技术班级 : 计科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。
