На нашем сайте Вы сможете найти готовые курсовые и дипломные работы по программированию
Сейчас работаем

Информационная система "Книжная викторина" 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
Купить 399,00 
Сразу после оплаты Вы сможете скачать работу и мы вышлем дополнительно файл с работой на электронную почту. Исходник программ Вы сможете отредактировать, как Вам нужно.
Комментарии (0)

ramil9209

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегистрированые пользователи имеют возможность комментировать работы
Похожие работы
Купить

399,00 

Покупается впервые!
Сразу после оплаты Вы сможете скачать работу и мы вышлем дополнительно файл с работой на электронную почту. Исходник программ Вы сможете отредактировать, как Вам нужно.

Заказать через

Книжная Викторина.zip
5591075
Оцени работу

рейтинг

Информационная система "Книжная викторина" Delphi7+Access
ИС Книжная викторина, разработана в Делфи + Аксес. Авторизация, Управление тестами, Прохождение теста, Настройка оценки прохождения тестов, Возможность создания тестов с картинками, Статистика по прохождению тестов, Управление пользователями
Категория: Образование
Стоимость: 399,00