strSQL := strSQL + ')order By MenuItemName';

      end

      else begin

       ShowMessage('该用户没有角色,请检查');       Close();

       Application.Terminate;       Exit;

      end;

      ADODataSetUserRight.CommandText := strSQL;

      ADODataSetUserRight.Open;

      ADODataSetUserRight.Filtered := True;

      SetObjRight( MainMenu );  // 设置登录用户的使用权限

    end;

  Except

  end;

 end;

end;

其他的各个菜单项分别使用一个界面（若干模块），用于实现相应的功能，这里以本文中要实现的“教师信息”、“任课教师安排”、“课程成绩”和“查询与统计”等任务为例加以说明，其他的读者可以参考编写，也可下载本系统源代码加以模仿。

⑴ “教师信息”菜单项OnClick事件的代码如下：

procedure TFormMain.TeacherInforClick(Sender: TObject);

begin

  FormTeacher.ShowModal;  // 教师信息添加、修改和删除

end;

⑵ “任课教师安排” 菜单项OnClick事件的代码如下：

procedure TFormMain.NCourseTeacherClick(Sender: TObject);

begin

  FormCourseTeacher.ShowModal;  // 显示任课教师安排界面

end;

⑶ “课程成绩” 菜单项OnClick事件的代码如下：

procedure TFormMain.NCourseAchievementClick(Sender: TObject);

begin

 FormAchievement.ShowModal; //显示课程成绩操作界面

end;