教学辅助系统论文-无忧无虑毕设网

无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 本文配套程序下载地址 ： 无忧无虑毕设网 ()-大学生毕业设计站 ,免费毕业设计论文 ,无忧无虑毕设网 大学生毕业设计 ,出售各类毕业设计源码 ,论文 ,程序源码 ,网站源码 ,免费视频教程 ,我们将竭诚为您服务！ 教学辅助系统 第 1 章 为什么要开发一个教师信息管理系统 1.1 计算机已经成为我们学习和工作的得力助手 仅仅靠原始的手工管理，学校面对大量的教师信息信息，无法有效率地将其中的重要部分提取出来，并做出相应的判断和处理。学校的决策只能依据报表数据，在浪费大量人力、物力的同时无法做到实时监控，难以 保证数据的准确性和及时性。因此，先进的管理思想在学校中实现就成为了一个可望而不可及的目标。 在计算机上建立教师信息库，可以实现快速录入、整理、查找、补充、删减等功能。并可将教师信息图片存于电脑计划之中，集成教师信息考勤，教师信息家庭关系和教师信息成绩库功能，在进入系统之前有密码进行身份验证，保证了系统的机密性，为学校提高工作效率的，提高人员效率，决策，和监控教师信息情况提供了一个有力的工具。 “ 计算机已经成为我们学习和工作的得力助手： 仅仅靠原始的手工管理，学校面对大量的教师信息信息，无法有效率地将其中的重要部分提取出来，并做出相应的判断和处理。学校的决策只能依据报表数据，在浪费大量人力、物力的同时无法做到实时监控，难以保证数据的准确性和及时性。因此，先进的管理思想在学校中实现就成为了一个可望而不可及的目标。” 1 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第 2 章 教学辅助系统编程环境 现状及设计目标 简介 2.1 Delphi 基本概念介绍 2.1.1 进入 Delphi 的可视化编程环境 (1)安装 Delphi Delphi的安装与其它应用软件并无不同。 2.0版必须在 Windows 95以上的操作系统中使用。启动 Windows 95 或 Windows NT后，将 Delphi的光盘放入光驱 (CD-ROM)中，运行光盘上的 INSTALLSETUP.EXE 文件，它的安装程序会提示正确地装入 Delphi。如果是在微软中文Windows环境中安装 Delphi，请参照附录 A来设置的 BDE环境，以便于处理中文数据。 进入 Delphi 环境 为避免隐藏在 Delphi后的 Program Manager 和曾经运行过的其它程序扰乱版面，分散的注意力，不妨在启动 Delphi前关掉其它应用程序；启动 Delphi 后，再最小化隐藏在后面的 Delphi 2.0 程序组。这样屏幕上 就只留下 Delphi窗口可见了。 首次加载 Delphi，屏幕上会出现四个窗口： 标题为“ Delphi-Project1”的 Delphi主窗口 Object Inspector 窗口 标题为“ Form1”的窗体 (Form)窗口 标题为“ Unit1.PAS”的代码编辑窗口。刚启动时这一窗口的大部分被“ Form1”窗体所掩盖。将“ Form1”窗体移开，或单击 Form1窗体下方的状态行，可以使其全部可见。在“ Form1”窗体的任意可见位置单击鼠标，可以恢复主窗体可见 以下我们将对这四个窗口分别进行介绍。 (2)主窗口 (Main Form) Delphi的主窗口位于屏幕的上端，包括 Menu(菜单 )、 Speed Bar(加速条 )和 Component Panel(部件选项板 )。 Menu 是下拉式主菜单。 Speed Bar位于主窗口的左下端，由两排共 14个加速按钮组成。这些按钮是菜单功能的快捷方式，各种图标直观地表示了它能执行的动作。Component Panel 由一行、若干页对象按钮所组成，利用它来选择需要的部件并将它放到窗体中去。 (3)Object Inspector(对象检视器 ) Object Inspector 窗 口含有两页： Properties页显示窗体中当前被选择部件的属性信息，并允许改变对象的属性； Events 页列出了当前部件可以响应的事件。按动 Object Inspector 下端的“ Events”无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 页标签，使得 Events 页可见，这一定的事件后边的空白处，可以定义对象接受到相应事件时执行的动作。首次启动时， Object Inspector窗口显示的是当前窗体 Form1的属性。 Object Inspector 根据对象属性的多少，决定是否有滚行显示。移动滚行条，可以查看当前对象的全部属性。 此外， Object Inspector 上还有 Object Selector(对象选择器 )，位于 Object Inspector 上方的下拉式菜单中。它显示了窗体上所有部件的名称和类型，也包含窗体本身。可以用 Object Selector 很容易地在窗体的各个部件之间切换，也可以快速地回到窗体本身。当窗体中含有较多的对象时，会发现这是切换对象尤其是回到窗体的最快捷途径。 想使 Object Inspector 一直可见，可将鼠标移到 Object Inspector上，按动右键，以启动 Object Inspector 的弹出式菜单，将其设置为 Stay On Top。这对初学者常是一个很重要的设置方式。 窗体窗口 Forms 窗口是开展大部分设计的工作区域。首次启动 Delphi 2.0时显示的是窗体 Form1。可以把部件放在窗体中，通过移动位置、改变尺寸等操作随心所欲地安排它们，以此来开发应用程序的用户界面。可以把窗体想象成一个可以放置其它部件的容器。窗体上有栅格(Grids)，供放置部件时对齐位置用，在程序运行时 Grids 是不可见的。 一个真正的应用程序可能有不止一个窗口，可以选用不同的窗体进行设计。其它窗体可以是对话框 (Dialog Box)、数据录入框等。 (4)代码窗口 代码窗口一开始处于窗体窗口之下。因为在 Delphi 中，设计用户界面直接在窗体中进行，运行结果和设计样板完全一致。当部件被放到窗体上时， Delphi会自动生成大部分的用户界面代码。所应做的只是在它为生成的框架中加入完成所需功能的程序段而已。点动 Form1的状态行使代码窗口可见。 这个窗口中是代码编辑器。可以在其中书写 Delphi 应用程序的源代码。当程序中含有不止一个窗口时，会有几个库单元的源程序出现在代码编辑器中。代码编辑器的标题条中显示了当前正在编辑的库单元文件名。要 查看某一特定程序的源代码，只需用鼠标点动写有该库单元文件名的页标签，就可以对该库单元进行编辑了。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 2.2 Object Pascal 基本概念 在 Object Pascal中，数据类型也同其它语言一样十分的丰富，甚至有的类型对程序开发的简便性比其它的语言有过之的地方。 在 Object Pascal语言中不区别大小写，这是有别于 C类语言的。 标识符是以字母或下划线开头的字母，数字序列。 关键字也称保留字，它是 Object Pascal语言系统本身定义的，作为特殊用途的符号，不能用作他用。 在 Object Pascal语言中字符串变量的存在大大减少了对字符串操作的复杂性，这点是 C类语言的弱处，如果在 C类的语言中声明一个 ” 字符串变量 ” 就得用数组来做，不仅操作麻烦，而且代码维护的成本大大的提高，字符串类型的标识符为 string，字符串变量在Object Pascal 语言的声明： VAR yourstring:string 这样就可以操作 yourstring这个变量了，对它进行赋值的操作： yourstring:=very good； 注：字符串表示用单引号！ Object Pascal 语言中赋值的操作的 格式是： 变量名 :=操作数 ； 这点有别于其它的语言。上面的例子可以引申为变量的声明格式： Var 变量名 :类型标识符 ； 在 Object Pascal 语言中支持多种的整数类型，它们的类型标识符为 :integer,shortint,smallint,longint,int64,byte,word,longword,cardinal,不同的整数类型有不同的取值范围，我们这里只取最常用的类型 integer 整数类型，具体的取值范围请参考 pascal 书籍。 字符类型在 Object Pascal 语言中用 char标识符来 表示，用于保存单个的字符。 标准的布尔类型的标识符为 boolean，布尔类型的值只有两个取值： true和 false。 在 Object Pascal语言中也支持多种不同的实数类型，如real,single,double extended,comp,currency，同整数类型一样，不同的实数类型取值的范围也不尽相同。 变量常量在 Object Pascal 语言中声明格式为： 常量说明： const 常量标识符 1=常量 1； 常量标识符 n=常量 n； 常量说明例： const min=0； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： man=100； 变量说明： var ， :； ， :； 变量说明例： var youvar:integer； a,b,c:string； d,e,f:real； 算术运行符： +,-,*,div(整数除法运算 )mod(取余运算 )。 逻辑运算符： not,and,or,xor,shl,shr。 关系运行符： =(相等 )， (不相等 )， ,=,=。 任何程序的内在语法大体都相似。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第 3 章 使 用 ACCESS 关系型数据库 3.1 数据库的概念 3.1.1 中小型关系型数据库简介 在我们对数据库操作进行讲解前，我们觉得有必要向大家介绍一下关系型数据库这个概念，因为我们觉得无论是你做什么样的系统，都或多或少要接触到数据库，而现在提到数据库，当然就是关系型数据库了。那么，什么是关系型数据库（ RDB）呢？ 在关系型数据库中数据以行和列的形式存储，以便于用户理解，这一系列的行和列被称为表，一组表便组成了数据库。在关系数据库中：各数据项之间用关系来组织 ,关系 (relationship)是表之间的一种连接，通过关系 ，我们可以更灵活地表示和操纵数据；另外，用户可以非常方便的用查询（ Query）来检索数据库中的数据，一个 Query是一个用于指定数据库中行和列的 SELECT语句。 3.2 新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。 1.标识需要的数据； 2.收集被标识的字段到表中； 3.标识主关键字字段； 4.绘制一个简单的数据图表； 5.规范数据； 6.标识指定字段的信息； 7.创建物理表。 3.3 修改已建的数据库 数据库的修改分 为：添加、编辑和删除记录。这三种操作均可由DELPHI 7.0 创建的程序来完成，下面的章节将详细描述实现的具体方法。 3.4 实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。 对表的行和列都有特殊的叫法，每一列叫做一个 “ 字段 ” 。每个字段包含某一专题的信息。就像 “ 通讯录 ” 数据库中， “ 姓名 ” 、 “ 联系电话 ” 这些都是表中所有行共有的属性，所以把这些列称为 “ 姓名 ” 字段和 “ 联系电话 ” 字段。 我们把表中的每一行叫做一个 “ 记录 ” ，每一个记录包含这行中的所有信息，就像在通讯录数据库中某个人全部的信息，但记录在数据库中并没有专门的记录名，常常用它所在的行数表示这是第几个记录。 数据库的结构创建好了，接 下来我们需要做的就是对数据库进行一系列的基本操作。 增加记录：在“数据表”视图或“窗体”视图中打开相应的窗体，单击工具栏上的“新记录“按钮 ，键入所需数据，然后按 TAB 键转至下一个字段，在记录末尾，按 TAB 键转至下一个记录。 编辑记录：如果要编辑字段中的数据，单击要编辑的字段，如果要替换整个字段的值，指向字段的最左边，在鼠标变为加号时，单击该字段，键入要插入的文本。 注意：如果键入有错，可按 BACKSPACE 键；如果要取消对当前字段的更改，按 ESC 键；如果要取消对整个记录 的更改，在移出该字段之前再次按 ESC 键，当从一个记录移动到其它记录时， SQL Server 将保存对该记录的修改。 复制或移动数据：在其它应用程序，如 Excel、 Word 中，选择要复制或移动的一至多行。如果是从 Word 中复制数据，应确保记录在选择之前已经在表中排列好或已经使用制表符分隔开，如果粘贴数据到数据表中，应确保数据表中的列与要复制或移动的数据的顺序一致，如果粘贴数据到窗体上，而窗体上相应的控件名称与复制数据的列名相同， SQL Server 将粘贴数据到名称相同的控件上。在 SQL Server 中，打开要向其中粘贴记录的数据表或窗体，如果要替换现有记录，选择要替换的记录，然后单击工具栏上的“粘贴追加”或“粘贴”按钮 ；如果窗体中的记录选定器不可用，要选择当前记录，可单击“编辑”菜单中的“选择记录”命令。 删除记录：单击要删除的记录，单击工具栏上的“删除记录”按钮 。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 3.4.1 字段类型 不同的字段类型用来存放不同类型的数据。创建和使用表时，更你应该理解五种常用的字段类型：字符型，文本型，数值型，逻辑性和日期型。 3.4.2 字符型数据 字符型数据非常有用。当你需要存储短的字符串信息 时，你总是要用到字符型数据。例如，你可以把从 HTML form的文本框中搜集到的信息放在字符型字段中。 要建立一个字段用来存放可变长度的字符串信息，你可以使用表达式 VARCHAR。考虑你前面创建的表 guestbook：CREATE TABLE guestbook (visitor VARCHAR(40),comments TEXT,entrydate DATETIME) 在这个例子中，字段 visitor 的数据类型为 VARCHAR。注意跟在数据类型后面的括号中的数字。这个数字指定了这个字段所允许存放的字符串 的最大长度。在这个例子中，字段 visitor能存放的字符串最长为四十个字符。如果名字太长，字符串会被截断，只保留四十个字符。 VARCHAR类型可以存储的字符串最长为 255个字符。要存储更长的字符串数据，可以使用文本型数据（下一节中讲述）。 另一种字符型数据用来存储固定长度的字符数据。下面是一个使用这种数据类型的例子：CREATE TABLE guestbook (visitor CHAR(40),comments TEXT,entrydate DATETIME)在这个例子中，字段 visitor 被用来存储四 十个字符的固定长度字符串。表达式 CHAR指定了这个字段应该是固定长度的字符串。 VARCHAR型和 CHAR型数据的这个差别是细微的，但是非常重要。假如你向一个长度为四十个字符的 VARCHAR型字段中输入数据Bill Gates。当你以后从这个字段中取出此数据时，你取出的数据其长度为十个字符 字符串 Bill Gates的长度。 现在假如你把字符串输入一个长度为四十个字符的 CHAR型字段中，那么当你取出数据时，所取出的数据长度将是四十个字符。字符串的后面会被附加多余的空格。 当你建立自己的站点时，你会发现使用 VARCHAR 型字段要比 CHAR型字段方便的多。使用 VARCHAR型字段时，你不需要为剪掉你数据中多余的空格而操心。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： VARCHAR型字段的另一个突出的好处是它可以比 CHAR型字段占用更少的内存和硬盘空间。当你的数据库很大时，这种内存和磁盘空间的节省会变得非常重要。 3.4.3 文本型数据 字符型数据限制了字符串的长度不能超过 55个字符。而使用文本型数据，你可以存放超过二十亿个字符的字符串。当你需要存储大串的字符时，应该使用文本型数据。 “复制或移动数据：在其它应用程序，如 Excel、 Word中，选择要复制 或移动的一至多行。如果是从 Word中复制数据，应确保记录在选择之前已经在表中排列好或已经使用制表符分隔开，如果粘贴数据到数据表中，应确保数据表中的列与要复制或移动的数据的顺序一致，如果粘贴数据到窗体上，而窗体上相应的控件名称与复制数据的列名相同， SQL Server 将粘贴数据到名称相同的控件上。在 SQL Server 中，打开要向其中粘贴记录的数据表或窗体，如果要替换现有记录，选择要替换的记录，然后单击工具栏上的“粘贴追加”或“粘贴”按钮 ；如果窗体中的记录选定器不可用，要选择当前记录，可单击“编辑”菜单 中的“选择记录”命令。” 2无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第 4 章 系统总体规划 4.1 系统功能 4.1.1 系统登陆模块 限制进入系统的用户，防止系统数据被破坏。 4.1.2 教师信息制订模块 通过用户交互的窗体完成原始数据的录入和修改维护教师信息管理， 根据学院发放的“本科专业指导性教计划原则”作为条件制定教师信息。 4.1.3 课程设置功能 可以对任何一门新课设置其前续课和后续课，还可以对之进行相应删除，充分体现了教师信息的整体优化性。 4.1.4 用户管理模块 通过与表格增加和删除用户。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 第 5 章 系统具体实现 和以前的版 本相比， DELPHIP 在多数地方已不需要写代码，表单和对象的属性提供了控制许多对象的方法，但是总有些事情是要用程序去实现的。 5.1 用户界面的实现 5.1.1 登陆界面 系统登陆模块：限制进入系统的用户，防止系统数据被破坏。 图 5 1 登陆界面 用 ADOTABLETABLE控件 使用连接数据库，在文件名，选择当前目录的数据库，在数据源选择用户表，然后确定。 在登陆按钮的单击事件中用 IF THEN 语句判断出是否用户名和密码正确。 unit Unit1； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, Menus, DB, ADODB； type TForm1 = class(TForm) Button1: TButton； Label1: TLabel； Edit1: TEdit； ADOQuery1: TADOQuery； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Edit2: TEdit； Label2: TLabel； Label3: TLabel； procedure Button1Click(Sender: TObject)； private Private declarations public Public declarations end； var Form1: TForm1； implementation uses Unit4, Unit5, Unit6, Unit7, Unit8, Unit11； $R *.dfm procedure TForm1.Button1Click(Sender: TObject)； begin ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(SELECT * FROM users)； ADOQuery1.SQL.Add(where user=:ss)； ADOQuery1.Parameters.ParamByName(ss).Value:= edit1.Text ； ADOQuery1.Open ； if ADOQuery1.Eof and ADOQuery1.Bof then begin showmessage(用户错误 )； end else begin ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(SELECT * FROM users)； ADOQuery1.SQL.Add(where pass=:kk and user=:ss)； ADOQuery1.Parameters.ParamByName(ss).Value:= edit1.Text ； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： ADOQuery1.Parameters.ParamByName(kk).Value:= edit2.Text ； ADOQuery1.Open ； if ADOQuery1.Eof and ADOQuery1.Bof then begin showmessage(密码错误 )； end else begin form9.show ； form1.Hide end end end； end. 5.1.2 主界面 图 5.2 主界面 使用按钮单击事件打开各个界面 unit Unit11； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： Controls, Forms, Dialogs, StdCtrls； type TForm9 = class(TForm) Label1: TLabel； Button3: TButton； Button7: TButton； Button6: TButton； Button5: TButton； procedure Button3Click(Sender: TObject)； procedure Button5Click(Sender: TObject)； procedure Button6Click(Sender: TObject)； procedure Button7Click(Sender: TObject)； private Private declarations public Public declarations end； var Form9: TForm9； implementation uses Unit5, Unit6, Unit8, Unit4, Unit1； $R *.dfm procedure TForm9.Button3Click(Sender: TObject)； begin form4.show end； procedure TForm9.Button5Click(Sender: TObject)； begin form8.show end； procedure TForm9.Button6Click(Sender: TObject)； begin form6.show end； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： procedure TForm9.Button7Click(Sender: TObject)； begin form1.close end； end. 5.1.3 各项功能界面 (1) 教师信息制订模块 通过用户交互的窗体完成原始数据的录入和修改维护教师信息管理， 根据学院发放的“本科专业指导性教计划原则”作为条件制定教师信息。 图 5.3 教学计划 首先在数据库建 教师信息 的数据表，表中具有界面上的相关字段 用 LABEL控件 画出 各个标签， CAPITION 属性为数据库的各个字段。 用 ADOTABLETABLE控件 使用 连接数据库，在文件名，选择当前目录的数据库，在数据源选择 教师信息 的数据表，然后确定，这样的目的是使用 ADOTABLE 控件连接到数据库。 用 DataSource 控件连接到 ADOTABLETABLE数据源。 然后用 EDIT 控件通过连接 DataSource 而连接到数据库通过连接EDIT控件把数据库的字段显示出来。 用 DBEDIT控件在界面画出各个容器，数据源设为 ADOTABLE控件，然后选择要显示的数据库字段， 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 画出 DBNavigator1控件，通过 DBNavigator1控件对数据库的记录进行向前，向后滚动， 并进行添加 ,删除，刷新，保存的操作。 unit Unit4； interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ADODB, DB, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Mask； type TForm4 = class(TForm) DataSource1: TDataSource； Label1: TLabel； ADOTable1: TADOTable； PageControl1: TPageControl； TabSheet1: TTabSheet； TabSheet2: TTabSheet； TabSheet3: TTabSheet； DBNavigator1: TDBNavigator； Label2: TLabel； DBEdit1: TDBEdit； Label3: TLabel； Label4: TLabel； DBEdit3: TDBEdit； Label5: TLabel； Label6: TLabel； DBEdit5: TDBEdit； DataSource3: TDataSource； ADOQuery1: TADOQuery； DBGrid1: TDBGrid； Button1: TButton； ADOTable2: TADOTable； DataSource2: TDataSource； Label7: TLabel； Label8: TLabel； ADOTable3: TADOTable； DataSource4: TDataSource； DBGrid3: TDBGrid； TabSheet4: TTabSheet； DBComboBox1: TDBComboBox； DBGrid4: TDBGrid； ComboBox1: TComboBox； DBGrid2: TDBGrid； DBNavigator2: TDBNavigator； TabSheet5: TTabSheet； ComboBox2: TComboBox； 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： ADOQuery2: TADOQuery； DataSource5: TDataSource； DBGrid5: TDBGrid； Button2: TButton； ADOTable1DSDesigner: TIntegerField； ADOTable1DSDesigner2: TWideStringField； ADOTable1DSDesigner3: TWideStringField； ADOTable1DSDesigner4: TWideStringField； ADOTable1DSDesigner5: TWideStringField； DBLookupComboBox1: TDBLookupComboBox； ADOTable4: TADOTable； DataSource6: TDataSource； procedure Button2Click(Sender: TObject)； procedure Button1Click(Sender: TObject)； procedure FormCreate(Sender: TObject)； private Private declarations public Public declarations end； var Form4: TForm4； implementation $R *.dfm procedure TForm4.Button2Click(Sender: TObject)； begin ADOQuery2.Close； ADOQuery2.SQL.Clear； ADOQuery2.SQL.Add(SELECT * FROM jh_qh)； ADOQuery2.SQL.Add(where 学期 =:ss)； ADOQuery2.Parameters.ParamByName(ss).Value:= ComboBox2.Text ； ADOQuery2.Open ； end； procedure TForm4.Button1Click(Sender: TObject)； begin ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(SELECT * FROM jxjh)； ADOQuery1.SQL.Add(where 学期 =:ss)； ADOQuery1.Parameters.ParamByName(ss).Value:= ComboBox1.Text ； ADOQuery1.Open ； end； procedure TForm4.FormCreate(Sender: TObject)； begin end； end. 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 图 5.4 查询 按学期查询： 使用 ADOQuery1 控件连接数据库， 在 ADOQuery1 的数据源选择当前目录的数据库， 在 SQL 属性输入以下 SQL查询语句， select * from where 学期 = :ss 然后确定，这样的目的是使用 SQL查询语句索检出记录 在 (TParameters)属性中建立变量 ” SS”. 用一个 EDIT 控件输入查询条件，用一个 COMMAND 控件实现查询 按钮代码如下 procedure TForm5.Button1Click(Sender: TObject)； begin ADOQuery1.Close； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add(SELECT * FROM yg)； ADOQuery1.SQL.Add(where 操作者 =:ss)； ADOQuery1.Parameters.ParamByName(ss).Value:= edit1.Text ； ADOQuery1.Open ； end； 通过改变 SS的值，查到想要的记录 用 DataSource 控件连接到 ADOQuery1 数据源。 无忧无虑毕设网 ():毕业设计源码下载 毕业设计源码下载： 然后用 DBGRID 控件通过连接 DataSource而连接到数据库，把数据库的字段显示出来。 画出 DBNavigator1控件，通过 DBNavigator1控件对数据库的记录进行向前，向后滚动，并进行添加 ,删除，刷新，保存的操作。 图 5.5 统计 使用 SQL 语句统计出学分和学时 SELECT DISTINCTR