⑷ 编写“撤选”按钮的OnClick事件，将原有的任课教师从任课教师表中删除，完成撤选工作，相关代码如下：

procedure TFormCourseTeacher.SBtnDeleteClick(Sender: TObject);

begin

 if DMServerDB.ADODataSetCourseTeacher.Eof then Exit;

 strTemp:='要撤选'+TreeList[SelectNode.Parent.Parent.AbsoluteIndex]+'级,班级为:'

  +SelectNode.Parent.Text+'的'+SelectNode.Text+'课程的任课教师吗?';

 if Application.MessageBox(PChar(strTemp),'撤选警告',MB_OKCANCEL)=IDCANCEL then

   Exit;

 DMServerDB.ADODataSetCourseTeacher.Delete;

end;

⑸ 编写FormCourseTeacher的OnClose事件，释放存放树型结构中间数据所开辟的内存，切断任课教师列表框与数据源的关联，并关闭相关数据表，相关代码如下：

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

begin

  TreeList.Free;

  DBLookupComboBoxCourseTeacher.DataSource:=Nil;

  DBLookupComboBoxCourseTeacher.ListSource:=Nil;

  DMServerDB.ADODataSetTeacher.Close;

  DMServerDB.ADODataSetCourseTeacher.Close;

end;

界面和代码设计完成后，在主界面的“课程”→“任课教师安排”菜单命令中调用该界面，界面运行效果如图4所示。

图4　任课教师安排运行界面