Информатика и выч. техника \ Информационные технологии на железнодорожном транспорте

Разработка технологии создания дистанционных курсов на примере курса "Администрирование DB2", страница 45

Рис. п.7. Персональная домашняя страница СДО LMS.

Рис. п.8. Кнопка Enrolled Courses в СДО LMS.

Рис. п.9. Список доступных курсов в СДО LMS.

Список курсов представлен в виде таблицы, столбцы которой имеют следующие названия:

Имя курса (Course Name) – полное имя и код курса (он представлен в скобках)

Статус (Status) – графический индикатор, показывающий Ваш прогресс в изучении данного курса

Работа с данным курсом не начиналась

Работа с курсом начата, но не завершена

Работа с курсом завершена

Выполнены все задания курса

Были ошибки при выполнении заданий курса

Совместная работа (Collaboration) – вид средства для совместной работы, может быть одним из:

Нет дискуссии (No Discussion) – курс не ориентирован на совместную работу слушателей в группе

(Discussion) – разрешён обмен мнениями в электронной дискуссии (форуме)

Чат (Chat) – разрешён оперативный обмен короткими сообщениями между слушателями и инструктором

Дальнейшие действия (Next steps) – указывается дальнейшее действие по работе с курсом, например:

Запустить (Launch) – начало работы с курсом

Следующее занятие (Next Activity) – переход к следующему занятию курса

Для получения дополнительной информации по курсу, необходимо щелкнуть на название курса в списке доступных курсов. Вид экрана и состав дополнительной информации представлен на Рис п.10.

Рис. п.10. Дополнительная информация о курсе.

Приложение №3.

Тексты программ.

"Тестирование по SQL".

Клиентскаячасть

unit SQLDataServer;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses

  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,

  DBClient, SQLFormProj1_TLB, StdVcl;

type

  TCoSQLServer = class(TRemoteDataModule, ICoSQLServer)

  private

    { Private declarations }

  protected

    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;

  public

    { Public declarations }

  end;

implementation

{$R *.DFM}

class procedure TCoSQLServer.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);

begin

  if Register then

  begin

    inherited UpdateRegistry(Register, ClassID, ProgID);

    EnableSocketTransport(ClassID);

    EnableWebTransport(ClassID);

  end else

  begin

    DisableSocketTransport(ClassID);

    DisableWebTransport(ClassID);

    inherited UpdateRegistry(Register, ClassID, ProgID);

  end;

end;

initialization

  TComponentFactory.Create(ComServer, TCoSQLServer,

    Class_CoSQLServer, ciMultiInstance, tmSingle);

end.

unit SQLFormImpl1;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses  Windows, DB, DBClient, MConnect, ImgList, Controls, ActnMan, ActnCtrls, ActnMenus,

  ActnColorMaps, AxCtrls, Menus, Classes, ActnList, StdStyleActnCtrls, StdCtrls,ActiveX,

  Buttons, SQLFormProj1_TLB, ToolWin, ComCtrls, Graphics, ExtCtrls, Forms, ComServ,StdVcl,Comobj,

  DBGrids,DBTables,SysUtils, Grids, Gauges;

type

  TSQLFormX = class(TActiveForm, ISQLFormX)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    Image1: TImage;

    Image2: TImage;

    ActionManager1: TActionManager;

    Action1: TAction;

    Action2: TAction;

    Action3: TAction;

    Action4: TAction;

    Action5: TAction;

    Action6: TAction;

    Action7: TAction;

    Action8: TAction;

    MainMenu1: TMainMenu;

    StandardColorMap1: TStandardColorMap;

    ActionMainMenuBar1: TActionMainMenuBar;

    Action9: TAction;

    Action10: TAction;

    Action11: TAction;

    Action12: TAction;

    Action13: TAction;

    Action14: TAction;

    Action15: TAction;

    Action16: TAction;

    Action17: TAction;

    Action18: TAction;

    Action19: TAction;

    Action20: TAction;

    Action21: TAction;

    Action22: TAction;

    Action23: TAction;

    Action24: TAction;

    Action25: TAction;

    Action26: TAction;

    Action27: TAction;

    Action28: TAction;

    Action29: TAction;

    Action30: TAction;

    Action31: TAction;

    Action32: TAction;

    Action33: TAction;

    Action34: TAction;

Скачать файл