⑻ 编写FormTeacher的OnClose事件，释放组件与数据源之间的关联，关闭已打开的数据集，相关代码如下：

procedure TFormTeacher.FormClose(Sender: TObject;  var Action: TCloseAction);

begin

  DBLookupComboBox.ListSource := nil;

  with DMServerDB do begin

    ADODataSetTeacher.AfterScroll := Nil;

    ADODataSetTeacher.BeforePost := Nil;

    ADODataSetDepartment.Close; // 关闭学院表

    ADODataSetTeacher.Close;    // 关闭教师表

  end;

end;

界面和代码设计完成后，在主界面的“基础数据”→“教师信息”菜单命令中调用该界面，界面运行效果如图2所示。

图2　教师信息管理运行界面

2　任课教师的安排管理

在成绩管理系统中，每个班的每门课程都应安排一位任课教师，同时该教师将负责课程成绩的录入工作。

2.1　　界面设计

因教师的任课以班为单位，为方便使用，依次以学院、专业、年级、班级和课程的次序采用树型结构显示，非常直观，任课教师安排界面如图3所示。