Информационная система "Книжная викторина" Delphi7+Access

Задание

ИС Книжная викторина, разработана в Делфи + Аксес.

Функционал программы

• Авторизация
• Управление тестами
• Прохождение теста
• Настройка оценки прохождения тестов
• Возможность создания тестов с  картинками
• Статистика по прохождению тестов
• Управление пользователями

Фрагмент программного кода

procedure TForm1.N10Click(Sender: TObject);
begin
Res := MessageBox(
    Self.Handle
    , PChar('Вы действительно хотите выйти?')
    , PChar('Сообщение')
    , MB_YESNO + MB_ICONINFORMATION //+ MB_APPLMODAL
  );

  case Res of
    IDYES : begin

  try
   Application.Terminate;
  except
  on e:Exception do
    ShowMessage(E.Message);

    end; end;
    IDNO : begin
      //Действия в случае, когда пользователь нажал кнопку "Нет".
    end;

    end;
end;


procedure TForm1.N8Click(Sender: TObject);
begin
 Form5.Show;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   if(Unit2.Role <> null)
  then
  begin
     sLabel1.Caption := 'Вы зашли, как: ' + Unit2.Role + ' ' + Unit2.FIO ;
  end;
  if Unit2.Role = 'Менеджер'
  then  N8.Visible := false;


end;

Скриншот архива с проектом

Пояснения по запуску программы

• Установить Аксес 2010 и выше
• Запустить файл Project2.exe