教学辅助系统

教学辅助系统
第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)中，运行光盘上的\INSTALL\SETUP.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.2Object 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,longwor d,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 <变量标识符1>，<变量标识符2>:<类型标识符>; ……
<变量标识符n>，<变量标识符n>:<类型标识符>;
变量说明例：
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,en trydate DATETIME)
在这个例子中，字段visitor的数据类型为VARCHAR。

注意跟在数据类型后面的括号中的数字。

这个数字指定了这个字段所允许存放的字符串的最大长度。

在这个例子中，字段visitor能存放的字符串最长为四十个字符。

如果名字太长，字符串会被截断，只保留四十个字符。

VARCHAR类型可以存储的字符串最长为255个字符。

要存储更长的字符串数据，可以使用文本型数据（下一节中讲述）。

另一种字符型数据用来存储固定长度的字符数据。

下面是一个使用这种数据类型的例子：
CREATE TABLE guestbook (visitor CHAR(40),comments TEXT,entry date 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 DISTINCTROW jh_cx.学期, Sum(jh_cx.学分) AS 学分总计
FROM jh_cx
GROUP BY jh_cx.学期
ORDER BY jh_cx.学期;
(2)课程设置功能
可以对任何一门新课设置其前续课和后续课，还可以对之进行相应删除，充分体现了教师信息的整体优化性。

图5.6 设置课程
用ADOTABLETABLE控件使用连接数据库，在文件名，选择当前目录的数据库，在数据源选择课程的数据表，然后确定，这样的目的是使用ADOTABLE控件连接到数据库
用DataSource控件连接到ADOTABLETABLE数据源。

然后用EDIT控件通过连接DataSource而连接到数据库通过连接EDIT控件把数据库的字段显示出来。

用DBEDIT控件在界面画出各个容器，数据源设为 ADOTABLE控件，然后选择要显示的数据库字段，
(3)用户管理模块
通过与表格增加和删除用户。

图5.7 用户管理
5.2数据库的实现
5.2.1 用户表
用户表里存储了可进入数据库的用户名和密码包括：
用户表
5.2.2
教师信息数据表
5.2.3 课程设置表
课程设置表
参考文献：
[1]Bob Reselman.DELPHI 7.0 6.0 使用指南.北京：电子工业出版社,2006-5-8.
[2]Craig Eddy,Timothy Buchanan.ACCESS 2000学时教程.北京：电子工业出版社,2006-6-5.
[3]Bob Reselman.Dephi教学实例.北京：电子工业出版社,2005-6-4.
[4]Craig Eddy.Access 2000实例.北京：电子工业出版社, 2006-3-3.
[5]Craig Eddy.Access 进阶与指导.湖北：人民出版社, 2005-1-1.
致谢
经过一个多月的设计和开发，系统基本开发完毕。

其功能基本符合基本需求，能够完成教师信息存储和。

并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。

对于数据的一致性的问题也通过程序进行了有效的解决。

但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如功能较少等多方面问题。

这些都有待进一步改善。

在本次毕业设计中，我从指导老师身上学到了很多东西，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢她耐心的辅导。

2007年3月29日。