6.3 Определение структуры данных

Входными данными для разрабатываемого программного продукта являются:

– лекционный материал, а также материал для проверки знаний учащихся;

– планы уроков на текущий учебный год, а также архив планов за предыдущие года;

– документы, хранящиеся в локальной базе ПК, а также резервная база.

Выходными данными разрабатываемого программного продукта являются:

– лекционные материалы, исправленные преподавателем;

– тестовые задания, редактируемые преподавателем;

– прочая документация используемая преподавателем для проведения и планирования занятий по дисциплине.

Постоянной информацией для данной задачи является информация, которая хранится в локальной базе между вызовами программы. Такой информацией являются документы, используемые для проведения занятий по дисциплине «Основы права». Данная информация выводится на экран при непосредственном обращении к ней.

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

Внеклассная работа;

Контроль знаний;

Нормативный комплект;

Планирование учебных занятий;

Презентации;

Электронный конспект лекций.

6.4 Алгоритм решения задачи

При запуске программы появляется окно приветствия. Если требуется войти в программу, то необходимо нажать «Запуск». Если же требуется покинуть окно приветствия и, следовательно, запуск программы не требуется, то необходимо нажать «Выход». В окне приветствия также размещена информация о названии учебного заведения, названии дисциплины, а также имя преподавателя, который ведет данную дисциплину. Имеется также портфолио преподавателя, которое доступно по щелчку по имени этого преподавателя.

После нажатия кнопки «Запуск» появляется форма с меню, в котором можно выбрать раздел по которому требуется вывести перечень имеющихся в базе документов. Разделы, которые имеются в программе следующие: «Внеклассная работа», «Контроль знаний», «Нормативный комплект», «Планирование учебных занятий», «Презентации», «Электронный конспект лекций».

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

unit Unit1; {Экран приветствия}

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, ExtCtrls, StdCtrls, jpeg, ShellAPI;

type

TZastavka = class(TForm)

SBStart: TSpeedButton;

Image1: TImage;

SBExit: TSpeedButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

procedure SBStartClick(Sender: TObject);

procedure SBExitClick(Sender: TObject);

procedure Label4Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Zastavka: TZastavka;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TZastavka.SBStartClick(Sender: TObject);

begin

Zastavka.Hide;

Choise.Show;

end;

procedure TZastavka.SBExitClick(Sender: TObject);

begin

Application.Terminate;

end;

procedure TZastavka.Label4Click(Sender: TObject);

begin

ShellExecute(handle,'open',PAnsiChar(path+'Документы\Портфолио\Терешко Екатерина Вячеславовна.docx'),nil,nil,SW_SHOWNORMAL);

end;

procedure TZastavka.FormActivate(Sender: TObject);

begin

path:= ExtractFilePath(Application.ExeName);

end;

end.

unit Unit2; {Главное окно, выбор раздела}

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, ExtCtrls, jpeg, Menus, StdCtrls;

type

TChoise = class(TForm)

Background: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

SBExit: TSpeedButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

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

procedure Image2Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Choise: TChoise;

path: string;

implementation

uses Unit3, Unit4;

{$R *.dfm}

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

begin

Application.Terminate;

end;

procedure TChoise.Image2Click(Sender: TObject);

begin

Spisok.ShellListView1.Root:=path+'Документы\Нормативный комплект\';

Spisok.ShowModal;

end;

procedure TChoise.SpeedButton1Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TChoise.Image3Click(Sender: TObject);

begin

Spisok.ShellListView1.Root:=path+'Документы\Планирование учебных занятий';

Spisok.ShowModal;

end;

procedure TChoise.Image4Click(Sender: TObject);

begin

Spisok.ShellListView1.Root:=path+'Документы\Электронный конспект лекций';

Spisok.ShowModal;

end;

procedure TChoise.Image5Click(Sender: TObject);

begin

Spisok.ShellListView1.Root:=path+'Документы\Внекласная работа';

Spisok.ShowModal;

end;

procedure TChoise.N3Click(Sender: TObject);

begin

About.Show;

end;

procedure TChoise.FormActivate(Sender: TObject);

begin

path:= ExtractFilePath(Application.ExeName);

end;

procedure TChoise.Image6Click(Sender: TObject);

begin

Spisok.ShellListView1.Root:=path+'Документы\Презентации';

Spisok.ShowModal;

end;

procedure TChoise.Image7Click(Sender: TObject);

begin

Spisok.ShellListView1.Root:=path+'Документы\Контроль знаний';

Spisok.ShowModal;

end;

end.

unit Unit3; {Список документов}

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, Buttons, ShellCtrls, ExtCtrls;

type

TSpisok = class(TForm)

SpeedButton1: TSpeedButton;

ShellListView1: TShellListView;

SpeedButton2: TSpeedButton;

Bevel1: TBevel;

StatusBar1: TStatusBar;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Spisok: TSpisok;

implementation

{$R *.dfm}

procedure TSpisok.SpeedButton1Click(Sender: TObject);

begin

Spisok.Close;

end;

procedure TSpisok.SpeedButton2Click(Sender: TObject);

begin

ShellListView1.Back;

end;

end.