delphi课程设计
- 格式:doc
- 大小:122.00 KB
- 文档页数:13
目录课程设计任务书 (2)1.试验题目: (3)2.项目概述 (3)3.系统旳功能需求 (3)3.1总体设计 (3)3.2系统功能 (3)3.3系统工作流程 (4)4.文本编辑器旳详细设计 (4)4.1文本编辑器旳界面设置 (4)4.1.1新建工程 (4)4.1.2修改窗口: (4)4.2文本编辑器旳详细代码分析 (7)5.心得体会: (10)6.参照文献 (11)7.道谢 (11)8.附录 (12)课程设计任务书班级姓名1.试验题目:文本编辑器2.项目概述程序大部分菜单都在窗体中对应有一种快捷图标。
包括新建、打开、保留、剪切、复制、粘贴、左对齐、右对齐、居中、文字加粗、文字倾斜、文字加下划线和文字大小等命令, 在菜单中还包括字体颜色、窗体背景颜色等命令。
运用这些基本命令, 可以很以便地处理诸多文本文档。
该程序界面友好, 当把鼠标放在快捷工具栏上时, 程序会给出快捷菜单提醒, 同步, 在窗体下方旳中间, 也有该快捷命令旳阐明文字。
首先要处理窗体旳布局和设计问题。
然后给各个菜单和快捷工具栏中旳按钮添加有关程序代码。
这个文本编辑器与一般旳简易旳文字编辑程序旳制作有所不一样。
首先, 必须设置好菜单旳属性和功能;另一方面, 当所有旳菜单都设计好之后, 还必须对工具栏进行设计, 工具栏旳开发与设计是最具挑战性旳工作, 由于整个界面旳美观都取决于工具栏旳制作,而整个程序使用与否以便、快捷, 也取决于工具栏旳安排和属性旳设置。
然后, 还需进行某些细部旳修饰, 例如底部任务栏上旳提醒用语以和协助菜单旳设计等。
3.系统旳功能需求 3.1总体设计3.2系统功能该文本编辑器具有完整旳菜单, 大部分菜单都在窗体对应有一种快捷图标。
包括新建、打开、保留、剪切、复制、粘贴、做对齐、右对齐、居中、文字加粗、文字倾斜、文字下划线和文字大小等命令, 在菜单中还包括字体颜色、窗体背景颜色。
运用这些命令, 可以很以便地处理诸多文本文档。
Delphi实用教程课程设计引言Delphi是一种面向对象编程语言,其特点是语法清晰、代码简短易读、兼容性好、并发性能优秀等。
作为目前Windows系统下最常用的编程语言之一,其应用范围广泛,涉及金融、医药、电子政务等多个领域。
本篇教程旨在为初学者提供实用的Delphi编程教程,帮助其快速掌握编程技巧和开发经验。
实验环境本次实验环境为Windows 10系统,使用Delphi 10.4版本进行编程。
需要先安装Delphi开发环境、Firebird数据库和VCL Styles(皮肤)等必要软件。
实验内容实验一:实现密码验证程序任务描述:设计一个简单的密码验证程序,在程序运行时向用户索取用户名和密码,如果正确则输出“验证通过”,否则输出“验证失败”。
实现步骤: 1. 打开Delphi开发环境,创建新项目。
2. 在新项目中添加TLabel组件和TEdit组件,用于输入用户名和密码。
3. 添加TButton组件,用于提交验证请求。
4. 在TButton组件的OnClick事件中编写验证逻辑,判断用户名和密码是否正确。
5. 如果验证通过,则在屏幕上弹出提示框,输出“验证通过”;否则输出“验证失败”。
6. 运行程序,测试验证结果。
实验二:实现学生课程查询系统任务描述:设计一个学生课程查询系统,用户可以通过输入学生姓名查询其已选修的课程信息,并输出相应的成绩。
实现步骤: 1. 打开Delphi开发环境,创建新项目。
2. 在新项目中添加一个TComboBox组件,用于选择学生姓名。
3. 添加一个TButton组件,用于提交查询请求。
4. 在TButton组件的OnClick事件中,获取选择的学生姓名,在数据库中查找对应的课程信息,并将查询结果显示在屏幕上。
5. 查询结果应该包括课程名称、学分、成绩等信息。
6. 运行程序,测试系统功能。
实验三:实现教学资源管理系统任务描述:设计一个教学资源管理系统,用于管理学校的教学资源信息,包括教师信息、学生信息、课程信息等。
Delphi程序设计教程第二版教学设计简介Delphi是一种基于Pascal语言的面向对象程序设计语言,是Borland公司在1995年推出的一种集成开发环境。
它在Windows上开发应用程序非常流行,是Windows平台下的主流程序设计语言之一。
本文将介绍针对初学者的Delphi程序设计教学设计,旨在帮助学生快速入门该语言。
教学目标通过本教程的学习,学生应该能够掌握以下技能:•熟悉Delphi集成开发环境的界面和基本操作;•掌握Delphi语言的语法和基本概念;•能够用Delphi开发简单的Windows应用程序;•能够理解面向对象编程的思想,并能在Delphi中应用。
教学内容第一章 Delphi基础知识本章介绍Delphi的基本概念和开发环境的使用方法。
包括以下内容:•Delphi的起源和发展;•Delphi集成开发环境的界面和布局;•Delphi程序的结构和基本语法;•Delphi中的数据类型和变量;•常见的控件和界面设计。
第二章程序控制语句本章介绍Delphi中的程序控制语句,包括以下内容:•分支语句(if-else语句和case语句)的使用;•循环语句(for循环、while循环、repeat循环)的使用;•控制语句(break、continue和exit)的使用。
第三章数组和字符串本章介绍Delphi中的数组和字符串的使用,包括以下内容:•数组的定义和使用;•多维数组的使用;•字符串的定义和使用;•字符串的操作和函数。
第四章面向对象编程本章介绍Delphi中的面向对象编程的思想和使用方法,包括以下内容:•面向对象的基本概念和术语;•Delphi中的类和对象的使用;•继承和封装的概念;•多态和重载的概念。
教学方法本教程采用实验教学法,通过实际编程操作帮助学生掌握Delphi 语言和开发方法。
具体的教学步骤如下:1.讲授理论知识:首先讲解本章的理论知识,包括语法、概念等,并通过示例代码演示其使用方法;2.练习实验操作:学生按照教师的指导进行实验操作,从而亲自体验Delphi编程,加深对理论知识的理解;3.提供扩展练习:学生完成实验后,可以在自己的电脑上进行拓展性实验,这将有助于他们更多地巩固所学内容。
DeLphi程序设计教程教学设计一、引言DeLphi程序设计是一种基于Pascal语言的开发环境,它从20世纪90年代开始流行,用于开发Windows桌面应用程序,并且仍然广泛应用于企业级软件开发场景。
在本教学设计中,我们将介绍如何向学生传授DeLphi程序设计技能。
二、教学目标本教学设计的教学目标是使学生掌握以下内容:•理解DeLphi程序设计的基本原理和语法•掌握DeLphi程序设计工具的使用方法•能够开发简单的Windows桌面应用程序三、教学内容3.1 DeLphi程序设计基础•操作系统与编程语言•基础语法–数据类型–控制语句–运算符•过程与函数–参数传递–本地变量和全局变量•数组•字符串3.2 DeLphi程序设计工具的使用•DeLphi集成开发环境介绍•创建一个新项目•界面设计•编写代码•编译和调试3.3 开发一个简单的Windows桌面应用程序•留言板应用程序的开发–界面设计–数据库连接–增删改查操作四、教学方法4.1任务驱动教学法本教学设计采用任务驱动教学法,通过实现具有代表性的应用来引导学生学习,学习过程中将实现一个完整的应用程序,每个课时完成一个或多个功能。
4.2学生中心教学法在教学过程中,将学生的主观能动性放在第一位,采用学生中心教学法,引导学生自我发现、探索并解决问题。
教师只扮演学习的指导者和促进者的角色,引导学生自主完成应用程序的编写。
4.3提高教学效果的方法•在教学中注重培养学生的创新精神和实践能力•在教学中融入案例分析,让学生从实际问题中学习•在教学中鼓励学生进行小组合作学习,提高学生的学习效率五、教学评价评估学生的掌握程度,可以通过缩小应用程序的规模来进行评估,例如小规模试验性能能力、界面设计能力和代码的优化能力等方面。
六、教学资源•教学PPT•电子书•可执行文件案列•多媒体课件七、总结DeLphi程序设计作为一种著名的开发工具,在Windows应用程序领域有着广泛的应用。
delphi程序设计及实验指导一、教学内容本节课的教学内容来自于《计算机编程基础》教材的第五章,主要内容包括:1. 介绍Delphi编程环境及基本操作;2. 学习Delphi中的基本数据类型、运算符和表达式;3. 掌握Delphi中的控制结构,如条件语句和循环语句;4. 学习如何使用数组和指针;5. 了解面向对象编程的基本概念,如类、对象、属性、方法等;6. 掌握Delphi中的常用类和函数,如String、Date、Math等;7. 学习如何进行文件操作,包括文件的打开、读写、关闭等;8. 通过实验指导,进行Delphi编程实践。
二、教学目标1. 让学生掌握Delphi编程环境及基本操作;2. 使学生了解并掌握Delphi中的基本数据类型、运算符和表达式;3. 培养学生运用控制结构解决问题的能力;4. 让学生了解数组和指针的使用;5. 使学生理解面向对象编程的基本概念;6. 培养学生运用Delphi中的常用类和函数进行编程的能力;7. 让学生掌握文件操作的基本方法;8. 通过实验指导,提高学生的编程实践能力。
三、教学难点与重点重点:Delphi编程环境及基本操作、基本数据类型、运算符和表达式、控制结构、数组和指针、面向对象编程、常用类和函数、文件操作。
难点:面向对象编程的概念及其应用、文件操作的细节处理。
四、教具与学具准备教具:计算机、投影仪、黑板、粉笔;学具:教材、《Delphi编程实验指导》、计算机。
五、教学过程1. 实践情景引入:通过一个简单的计算器程序,让学生了解Delphi编程环境及基本操作;2. 讲解基本数据类型、运算符和表达式,并通过示例进行讲解;3. 讲解控制结构,如条件语句和循环语句,并通过示例进行讲解;4. 讲解数组和指针的使用,并通过示例进行讲解;5. 讲解面向对象编程的基本概念,如类、对象、属性、方法等,并通过示例进行讲解;6. 讲解Delphi中的常用类和函数,如String、Date、Math等,并通过示例进行讲解;7. 讲解文件操作的基本方法,包括文件的打开、读写、关闭等,并通过示例进行讲解;8. 实验指导:让学生根据实验要求,运用所学的知识进行编程实践。
程序设计教程 Delphi 教学设计简介Delphi 是一款基于 Object Pascal 语言的集成开发环境(IDE)和编译器。
它的主要应用是在 Windows 操作系统上进行应用程序开发,尤其是在企业级应用和数据库应用领域。
Delphi 具有灵活的界面设计、丰富的组件库、快速编译和可靠性强等特点。
本文旨在为初学者提供 Delphi 的教学设计方案,帮助他们更好地掌握Delphi 编程技巧。
教学目的本教学设计旨在:1.让学生了解 Delphi 的开发环境和基本语法;2.帮助学生掌握 Delphi 的界面设计和事件驱动编程;3.引导学生构建简单的应用程序,并了解应用程序开发的基本流程。
教学内容本教学设计分为以下三个部分:环境准备1.安装 Delphi 软件;2.熟悉 Delphi 的开发环境;3.创建新的 Delphi 项目。
界面设计1.界面控件的使用;2.界面布局的设计;3.界面事件的响应和处理。
应用程序开发1.数据库连接和操作;2.文件操作;3.算法设计和调试。
教学方法授课方式采用讲解、演示和练习相结合的方式,让学生接触到 Delphi 开发的全过程,并能动手实践。
对于每个环节,可以采用以下教学方法:环境准备1.讲解安装 Delphi 软件的步骤,并演示安装过程;2.帮助学生熟悉 Delphi 的开发环境,并讲解主要界面元素的作用;3.指导学生创建新的 Delphi 项目,并介绍项目中各个文件的作用。
界面设计1.讲解 Delphi 中常用的界面控件的用法,如 Label、Edit、Button等;2.指导学生如何进行界面布局设计,并讲解不同布局方式的优缺点;3.指导学生如何处理界面事件,如按钮点击事件、下拉框选择事件等。
应用程序开发1.讲解 Delphi 中连接数据库的方法和步骤;2.指导学生如何进行文件操作,如读取和写入文件;3.引导学生设计和调试简单的算法,如排序算法。
教学评估对于每个环节的学习内容,可以采用以下方式进行评估:1.环境准备:检查每位学生是否成功安装 Delphi 软件,并创建了新的项目;2.界面设计:要求学生按照要求设计出符合标准的界面,并演示其相应的事件响应;3.应用程序开发:要求学生使用已学习的方法,完成指定的应用程序开发任务。
枣庄学院计算机科学系课程设计任务书题目:学生信息管理学号:200812210133姓名:武和美专业:计算机科学与技术课程:Delphi应用程序设计指导教师:燕孝飞职称:完成时间:2010年12 月----2010 年12 月枣庄学院计算机科学系制2010年12 月20日课程设计任务书及成绩评定课程设计步骤:一:数据库表的描述由于考虑到本系统是应用在单机系统上,另外根据学校人员规模,我只建立起一个数据库,在此数据库基础上建立起如下基本表:学生:学号,姓名,出生年月,性别,籍贯,联系地址,联系电话,班级班级:系名,班级,主要教室,辅导员,班长教师:姓名,编号,性别课程表:课程号,课程号,班级,类别,学时,学名选课表:班级,课程号,学期用户名:用户,密码,备注二:系统功能图学生信息管理系统有关功能模块分层图三:流程图四:代码实现及解释选课管理:beginComboBox1.Items.Append(adoqu ery1.FieldValues['系名']); //ComboBox1连到系表的系名字段adoquery1.Next; end; end;procedureboBox1Select(Send er: TObject);beginadoquery2.Close;adoquery2.SQL.Clear; adoquery2.SQL.Add('select * fromclass where 系名='+''''+ComboBox1.Text+'''');//查询系名是否符合adoquery2.ExecSQL;adoquery2.Open;while not adoquery2.Eof do beginComboBox2.Items.Append(adoqu ery2.FieldValues['班级']);//符合就调用班级表的字段班级adoquery2.Next;end;end;procedureboBox2Select(Send er: TObject);beginadoquery4.Close;adoquery4.SQL.Clear; adoquery4.SQL.Add('select * from kecheng where 班级='+''''+ComboBox2.Text+'''');//查询课程表中字段班级是否符合,符合就调到adoquery4.ExecSQL;//DBgiid1adoquery4.Open;end;procedureboBox3Select(Send er: TObject);beginadoquery4.Close;adoquery4.SQL.Clear; adoquery4.SQL.Add('select * from kecheng where 班级='+''''+ComboBox2.Text+''' and 学期='+''''+ComboBox3.Text+''''); //判断学期是否符合adoquery4.ExecSQL;adoquery4.Open;end;procedureTForm11.SpeedButton1Click(Sen der: TObject);beginwhile not adoquery4.Eof do beginif (adoquery4.FieldV alues['课程号']=adoquery3.FieldValues['课程号']) and (adoquery4.FieldValues['班级']=Combobox2.Text) and (adoquery4.FieldValues['学期']=Combobox3.Text) then break;adoquery4.Next;end;if adoquery4.Eof thenbeginadoquery4.Insert;//把选课内容添加到选课表中。
Delphi程序设计及应用课程设计一、课程介绍Delphi程序设计及应用课程是计算机科学与技术、软件工程等相关专业的重要课程。
本课程旨在通过教授Delphi程序设计语言的基础知识、代码编写技巧和应用开发实践,培养学生扎实的程序设计基本功和实际应用能力。
二、教学内容2.1 Delphi程序设计语言概述Delphi是一种基于Pascal语言的面向对象程序设计语言,它具有简单易学、功能强大、语法清晰等优点,适用于各种类型的应用程序开发。
2.2 Delphi编程环境和工具Delphi编程工具包含IDE(集成开发环境)、程序调试器、数据库管理工具和控件库等。
本课程将向学生介绍Delphi的开发环境和相关工具的使用方法,以及其中的常用功能。
2.3 Delphi程序设计基础本课程将介绍Delphi程序设计的基本语法和数据类型、运算符、控制结构和函数等基本概念,以及如何使用Delphi编程实现常见的程序设计任务。
2.4 Delphi面向对象编程本课程将介绍Delphi语言的对象模型和面向对象编程的基本概念,以及类的声明和使用、继承和多态等相关内容。
2.5 Delphi应用程序开发本课程将向学生介绍如何使用Delphi开发常见的桌面应用程序和数据库应用程序,如Windows桌面应用程序、Web应用程序、移动应用程序等。
三、课程设计3.1 设计目标本课程设计旨在培养学生的Delphi编程技能和实践能力,让学生能够独立完成一个小型的Delphi应用程序开发任务。
3.2 设计内容本次课程设计要求学生完成一个简单的个人记账应用程序的设计和开发。
该应用程序功能包括:•记录个人收入和支出情况•统计个人收支总额和某时间段内的收支情况•可以根据不同的分类进行收支项的管理和查询学生需要完成以下任务:1.分析需求,设计应用程序的系统结构和基本功能模块。
2.选取并实现相应的数据库访问组件,设计数据库表结构和各种查询操作的实现方法。
3.实现并测试系统的各项功能模块,确保其正常运行,并对界面进行美化处理。
Delphi课程设计
图书管理系统
姓名:
学号:
专业班级:
指导教师:
《Delphi数据库综合设计》课程综合性实验报告
end;
end.
四、实验结果及分析
截图1程序登陆界面
截图2 图书管理
截图3 借阅管理截图4 读者管理
截图5 图书查询截图6 借阅查询
截图7 读者查询
课程总结:
一学期的Delphi专业选修结束了,用了整整一周的时间完成了课程设计,通过使用可视化开发工具Delphi开发图书管理系统,学生实际动手能力以及自学其它系统开发工具的能力有所提高,同时发现平时学习中的许多不足之处。
例如,学生发现,在开发系统过程中,对数据库重要组件包括ADO控件、数据集组件和数据显示组件等的相关属性及方法不够熟悉,还不能在需要时纯熟、灵活地运用,在技术上无法实现梦寐以求的效果,留下许多缺憾。
本次课程设计的顺利完成,尤为感谢燕孝飞老师的辛勤教导。
本学期的课程中,他带领学生进入华丽的Delphi世界,使学生领略到Delphi7组件化的编程方式,面向对象的程序设计,使我进一步的为自己的计算机梦登上了更上的一层。
delphi课程设计一、课程目标知识目标:1. 理解Delphi编程语言的基本语法和结构;2. 学会使用Delphi的常用控件和组件,进行界面设计;3. 掌握Delphi编程中的事件处理和程序流程控制;4. 了解Delphi访问数据库的基本方法。
技能目标:1. 能够运用Delphi编程语言编写简单的程序;2. 培养学生独立设计、编写、调试程序的能力;3. 培养学生运用Delphi解决实际问题的能力;4. 提高学生的团队协作和沟通能力。
情感态度价值观目标:1. 激发学生对编程的兴趣,培养其主动学习的态度;2. 培养学生的创新意识和实践能力,使其勇于尝试新事物;3. 培养学生良好的编程习惯,注重代码的可读性和可维护性;4. 增强学生的自信心,使其在面对编程难题时保持积极的心态。
课程性质:本课程为实践性较强的课程,注重培养学生的动手能力和解决问题的能力。
学生特点:学生处于具有一定编程基础的高年级阶段,具备一定的逻辑思维能力和自主学习能力。
教学要求:结合Delphi编程的实际情况,采用案例教学、任务驱动等教学方法,引导学生主动参与,提高学生的实践操作能力。
在教学过程中,注重分层教学,满足不同学生的学习需求。
同时,关注学生的情感态度价值观培养,使其在掌握技能的同时,形成良好的编程素养。
通过分解课程目标为具体的学习成果,为后续教学设计和评估提供依据。
二、教学内容1. Delphi基本语法和结构:变量、常量、数据类型、运算符、表达式、流程控制语句(如If、For、While等)。
教材章节:第1章 Delphi基础入门2. 界面设计:使用常用控件(如Button、Edit、Label等)和组件,布局管理,菜单设计。
教材章节:第2章 界面设计与常用控件3. 事件处理:事件的概念,编写事件处理程序,事件与方法的关联。
教材章节:第3章 事件处理与程序设计4. 程序流程控制:顺序结构、分支结构、循环结构,异常处理。
教材章节:第4章 程序流程控制5. 数据库访问:数据库的基本概念,使用Delphi访问数据库的方法,SQL语言基础。
delphi课程设计题目: Delphi程序设计学号姓名专业计算机科学与技术课程 Delphi应用程序设计指导教师职称讲师完成时间:2010年11月----2010年 12月1课程设计任务书及成绩评定课程设计的任务和具体要求1.内容小型信息管理系统的设计与实现图书管理系统 2.基本要求课程设计应能反应出学生综合利用所学知识完成一定的设计任务的能力,反映出学生理论联系实践的动手能力。
具体要求如下:明确所要开发系统的设计任务;做好需求分析,合理选择设计方案;合理设计数据库中各个表的结构及其关系; 能够设计出美观大方的程序界面;养成良好的代码书写习惯;在编写程序过程中应注意相关文档的编写; 综合应用Delphi各种组件实现程序功能; 认真撰写课程设计总结报告。
指导教师签字: 日期:2指导教师评语成绩: 指导教师签字: 日期:课程设计所需软件、硬件等1、微型计算机2、 Windows操作系统3、 Delphi5.0以上版本的开发环境4、微软SQL Server 2005软件课程设计进度计划起至日期工作内容备注2010.11 问题调查分析2010.11 收集资料2010.12 数据库设计2010.12 程序设计3参考文献、资料索引序号文献、资料名称编著者出版单位[1] 《Delphi应用程序设计》李目海,电子科技大学出版社,2005 [2]《Delphi程序设计实用教程》叶核亚,电子工业出版社,2005 [3] 《Delphi 2005程序设计教程》刘瑞新编著,机械工业出版社,2004 [4]《Delphi数据库程序设计教程》刘瑞新张志纲张兵义编著,机械工业出版社,2004 [5] 《Delphi 使用教程》郑阿奇主编,电子工业出版社,2003 [6]《Delphi 7 程序设计技巧与实例》吴天准编著,中国铁道出版社 20034引言:随着我国市场经济的迅速发展和人们生活水平的不断提高,图书馆藏书的树木逐渐增大,这也挑战了图书管理方面的技术,以前的人工管理方式已经不再适应现在的环境,取而代之的是先进的图书管理系统,通过使用Delphi创建的图书管理系统可以让管理人员方便而快捷的进行管理、查询、借阅、录入等工作。
设计实验正文实验内容:一、数据库表管理员密码:属性名存储代码类型长度备注管理员编号 Mn char 5 密码 Mm char 15 图书数据:属性名存储代码类型长度备注图书编号 Bno char 5 图书名称 Bn char 20 图书作者 Wn char 10 类别编号 Kno char 5 图书所属类别出版社编号 Pno char 5图书类别数据:属性名存储代码类型长度备注类别编号 Kno Char 5 类别名 Kna char 20出版社数据:属性名存储代码类型长度备注出版社编号 Pno char 5 出版社名 Pna char 20读者数据:属性名存储代码类型长度备注读者编号 Rno char 5 读者姓名 Rna char 10 读者年龄 Rage Int 2 性别 Rs char 4 联系方式 Rr char 15 注册时间 Rt Date 8 .1读者借阅数据:属性名存储代码类型长度备注读者编号 Rno char 5 图书编号 Bno char5二、流程图:读者进入系统工作的流程图为:读者登陆查询个人信息个人信息修改查询图书信息图书管理员工作的流程图为:管理员登陆图书入库图书出库读者注册读者注销借书还书查询2二、主要功能窗口1.程序封面窗口:2.登录窗口:33.图书管理员窗口:4.读者窗口:45.管理员查询窗口:三、分段代码及功能:1.不同用户密码登录:procedure TForm2.Button1Click(Sender: TObject); beginif guanli=1thenbeginadotable1.Open;adotable1.First; ifADOtable1.Locate('Wno;Mm',varArrayof([edit1.Text,edit2.Text]),[]) thenform2.ModalResult:=4 elseshowmessage('Soory,用户名或密码错误') endelseif duzhe=15thenbeginif ADOtable2.Locate('读者编号;密码',varArrayof([edit1.Text,edit2.Text]),[])thenform2.ModalResult:=5elseshowmessage('Sorry,用户名或密码错误')end;end;2.查询功能实现:procedure TForm4.Button1Click(Sender: TObject); beginif bianhao=1 thenbeginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select * from dbo.B'); ADOQuery1.SQL.Add('where 图书编号 like :v');ADOQuery1.Parameters.ParamByName('v').Value:=edit1.Text;ADOQuery1.Open;end;if shuming=1 thenbeginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select * from dbo.B'); ADOQuery1.SQL.Add('where 图书名称 like :v');ADOQuery1.Parameters.ParamByName('v').Value:=edit1.Text;ADOQuery1.Open;end;if leibie=1 thenbegin6ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select * from dbo.B,dbo.K');ADOQuery1.SQL.Add('where 类别名 like :v');ADOQuery1.Parameters.ParamByName('v').Value:=edit1.Text;ADOQuery1.Open;end;if zuozhe=1 thenbeginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select * from dbo.B'); ADOQuery1.SQL.Add('where图书作者 like :v');ADOQuery1.Parameters.ParamByName('v').Value:=edit1.Text;ADOQuery1.Open;end;if publics=1 thenbeginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select * from dbo.B,dbo.P');ADOQuery1.SQL.Add('where 出版社名 like :v');ADOQuery1.Parameters.ParamByName('v').Value:=edit1.Text;ADOQuery1.Open;end;if suoyou=1 thenbeginADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select 图书编号,图书名称,图书作者,库存量,出版社名,类别名 from dbo.B,dbo.P,dbo.K');ADOQuery1.SQL.Add('where B.类别编号=K.类别编号 and B.出版社编号=P.出版社编号'); ADOQuery1.Open;end;7end;3.图书入库:procedure TForm5.Button1Click(Sender: TObject);beginADOTable1.TableName:='dbo.B'; ADOTable1.Active;ADOTable1.Open;if ADOTable1.Locate('图书编号',String(edit1.Text),[]) thenshowmessage('书库已存在此编号图书,请查证')elsebeginADOTable1.Insert;ADOTable1.FieldByName('图书编号').Value:=edit1.Text;ADOTable1.FieldByName('图书名称').Value:=edit2.Text;ADOTable1.FieldByName('图书作者').Value:=edit3.Text;ADOTable1.FieldByName('库存量').Value:=edit4.Text;ADOTable1.FieldByName('类别编号').Value:=edit5.Text;ADOTable1.FieldByName('出版社编号').Value:=edit6.Text; ADOTable1.Post;end;end;4.借阅功能实现:procedure TForm8.Button1Click(Sender: TObject);beginADOTable1.TableName:='dbo.RB'; ADOTable1.Active;ADOTable1.Open;ADOTable1.Insert;8ADOTable1.FieldByName('读者编号').Value:=edit1.Text;ADOTable1.FieldByName('图书编号').Value:=edit2.Text; ADOTable1.Post;end;:5.图书归还实现:procedure TForm9.Button1Click(Sender: TObject);beginADOTable1.TableName:='dbo.RB'; ADOTable1.Active;ADOTable1.Open;if ADOtable1.Locate('读者编号;图书编号',varArrayof([edit1.Text,edit2.Text]),[])thenADOTable1.Delete;end;6.系统退出:procedure TForm3.N18Click(Sender: TObject); varvalue:word;beginvalue:=application.messageBox('确认退出,','提示信息',mb_IconQuestion+mb_OkCancel+mb_DefButton1);case value ofmrOk:application.Terminate; mrCancel: ;end;end;9四、实验结果集分析1.登录2.查询功能实现103.系统退出五、设计总结:一学期的Delphi专业选修结束了,用了整整一周的时间完成了课程设计,通过使用可视化开发工具Delphi开发图书管理系统,学生实际动手能力以及自学其它系统开发工具的能力有所提高,同时发现平时学习中的许多不足之处。