Разработка электронной рабочей тетради по дисциплине «Обществознание»

  end;

procedure TForm1.BitBtn2Click(Sender: TObject);

  begin

     Form4.showmodal;                                       //Процедура открытия формы Form4

  end;

procedure TForm1.BitBtn5Click(Sender: TObject);

  begin

    Form5.showmodal;                                       //Процедура открытия формы Form5

  end;

end.

{************************************************************}

{                                                                                                                        }

{Модуль Unit2.pas                                                                                           }

{ 2011  ККИТС                                                                                                }

{Страница функциональности формы Form2                                                }

{Разработчик: Рагозина Виктория Владимировна                                      }

{Создан: 29 декабря 2011                                                                               }

{                                                                                                                         }

{************************************************************}

unit Unit2;

interface

uses

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

  Dialogs, StdCtrls, Buttons, ComCtrls, Mask, DBCtrls, ExtCtrls, Grids,

  DBGrids, jpeg;

type

  TForm2 = class(TForm)

    BitBtn2: TBitBtn;

    Image1: TImage;

    DBNavigator1: TDBNavigator;

    DBGrid1: TDBGrid;

    Edit1: TEdit;

    Label1: TLabel;

    BitBtn3: TBitBtn;

    GroupBox1: TGroupBox;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    BitBtn1: TBitBtn;

    BitBtn4: TBitBtn;

    DBLookupComboBox1: TDBLookupComboBox;

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

uses DM,

  {$R *.dfm}

  procedure TForm2.BitBtn2Click(Sender: TObject);

   begin

    If fDM.TSTUD.Modified then                                       //Условие изменения данных

                                                                                            //в таблице TSTUD

     fDM.TSTUD.Post;                                                          //Сохранение изменений

   end;

procedure TForm2.BitBtn3Click(Sender: TObject);

  begin

    fDM.TSTGR.Filter:='NG'+QuotedStr(Edit1.Text);                 //Фильтрация данных

                                                           //по полю 'NG' введенным значением в поле Edit1

    fDM.TSTGR.Filtered:=true;          //фильтрация включена

  end;

procedure TForm2.FormShow(Sender: TObject);

   begin

    DBGrid1.Columns.Items[0].Width:=70;                 //Определение размеров колонок

                                                                                   //компонента DBGrid1

    DBGrid1.Columns.Items[1].Width:=36;

   end;

procedure TForm2.BitBtn4Click(Sender: TObject);

  begin

    Close;     //Процедура закрытия формы  Form2

  end;

End.

{************************************************************}

{                                                                                                                        }

{Модуль Unit3.pas                                                                                          }

{ 2011  ККИТС                                                                                               }

{Страница функциональности формы PasswordDlg                                     }

{Разработчик: Рагозина Виктория Владимировна                                      }

{Создан: 29 декабря 2011                                                                               }

{                                                                                                                         }

{************************************************************}

unit Unit3;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons,Dialogs;

type

  TPasswordDlg = class(TForm)

    Label1: TLabel;

    Password: TEdit;

    OKBtn: TButton;

    CancelBtn: TButton;

    procedure OKBtnClick(Sender: TObject);

     private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  PasswordDlg: TPasswordDlg;

implementation

uses Unit2;

{$R *.dfm}

procedure TPasswordDlg.OKBtnClick(Sender: TObject);

begin

   If password.text=’ ‘                     //Проверка правильности пароля

then Form2.Show                           //открытие формы Form2 при корректном введении

   Else

      ShowMessage('Неверный пароль!');          //Сообщение об ошибке при некорректном введении

end;

end.

{************************************************************}

{                                                                                                                       }

{Модуль Unit4.pas                                                                                          }

{ 2011  ККИТС                                                                                               }

{Страница функциональности формы Form4                                               }

{Разработчик: Рагозина Виктория Владимировна                                     }

{Создан: 29 декабря 2011                                                                              }

{                                                                                                                       }

{************************************************************}

unit Unit4;

interface

uses

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

  Dialogs, TypInfo, WebServExp, WSDLBind, XMLSchema, WSDLPub, ComCtrls,

  HTTPApp, HTTPProd, CompProd, PagItems, MidProd, IdBaseComponent,

  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, OleCtrls,

  SHDocVw, ShellCtrls, Buttons;

type

  TForm4 = class(TForm)

    WebBrowser1: TWebBrowser;

    ShellListView1: TShellListView;

    BitBtn1: TBitBtn;

    procedure FormCreate(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);

  begin

    shelllistview1.Root := extractfilepath(paramstr(0))

  end;                                        //Присвоение пути к  исполняемому файлу текстового

                                                                                                                                значения

procedure TForm4.BitBtn1Click(Sender: TObject);

  begin

   WebBrowser1.Navigate(shelllistview1.Root+'Untitled1.html');

  end;                                                              //Запуск web-страницы из указанного места

end.

3 Описание программы

3.1 Описание СУБД

База данных выполнена при помощи системы управления базами данных Microsoft Access и интегрированной среды программирования Delphi 7. Для успешной работы приложения необходимо, чтобы у клиента был установлен Access версии не ниже Access 2002 (Office XP) и Borland Delphi 7.

Данное приложение наглядно представляет необходимую информацию об изучаемом предмете, выполненных проверочных работах и формирует ведомости успеваемости для преподавателей.

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

Каждый раз происходит увеличение информации и её необходимо обрабатывать, но в столь объемном количестве документации можно запутаться. Использование различных информационных систем облегчает и сокращает время на обработку данных. При этом многие современные организации, своей быстротой обработки информации могут обслуживать большее количество клиентов и быть серьезным конкурентом на рынке предоставления услуг.

Альтернативой ручной обработки информации стало создание баз данных. В результате чего это значительно облегчило работу различных информационных служб.

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

            обеспечивать получение общих и/или детализированных отчетов по итогам работы;

            позволять легко определять тенденции изменения важнейших показателей;

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

            выполнять точный и полный анализ данных.

Современные СУБД в основном являются приложениями Windows, так как данная среда позволяет более полно использовать возможности персональной ЭВМ, нежели среда DOS. Снижение стоимости высокопроизводительных ПК обусловил не только широкий переход к среде Windows, где разработчик программного обеспечения может в меньше степени заботиться о распределении ресурсов, но также сделал программное обеспечение ПК в целом и СУБД в частности менее критичными к аппаратным ресурсам ЭВМ.

В основу функционирования современных СУБД положена трехуровневая архитектура представления информации: внешний, концептуальный и внутренний уровни. Каждому из трех уровней соответствует определенный тип схемы базы данных, под которой понимается общее описание базы данных с помощью некоторого языка определения данных (DLL) для конкретной СУБД. Поскольку это язык относительно низкого уровня, то для представления схемы базы данных в виде, понятном различным категориям пользователей, требуется ее описание на более высоком уровне, называемое моделью данных.

Модель данных  это интегрированный набор понятий для описания данных, связей между ними и ограничений, накладываемых на данные.

Внешний уровень определяется локальными представлениями пользователей-абонентов информационной системы о предметной области и о своих информационных потребностях. На основе анализа этих представлений определяется несколько информационно-логических (инфологических) схем (или подсхем), которые соответствуют различным представлениям конечных пользователей о предметной области. Инфологическая модель представляет собой формализованное описание объектов предметной области и отношений между этими объектами.

Концептуальный (промежуточный) уровень представления информации. Концептуальная схема базы данных (иначе логическая структура данных). Концептуальная схема (модель) является обобщенным описанием логической структуры всей базы данных и описывает все элементы данных и связи между ними с указанием необходимых ограничений поддержки целостности данных. Для каждой базы данных имеется только одна концептуальная схема.

Внутренний уровень  это физическое представление базы данных в компьютере. Ему соответствует внутренняя схема, которая является полным описанием внутренней модели данных. Она содержит определения хранимых записей, методы представления, описания полей данных, сведения об индексах и выбранных схемах хеширования. Для каждой базы данных существует только одна внутренняя схема.

3.2 Описание структуры базы данных

С помощью среды Access 2000 и интегрированной среды разработки программ Borland Delphi 7 был создан проект с названием Электронная рабочая тетрадь по дисциплине «Обществознание», который состоит из следующих таблиц:

1.      Группы (Код группы, № группы, Код специальности)

2.      Специальность (Код, Наименование)

3.      Кафедры (Код кафедры, Наименование)

4.      Студенты (ФИО, № студента, № группы)

5.      Преподаватели (ФИО, код кафедры)

6.      Успеваемость (Дата работы, Оценка, №  работы,  № студента, Краткое наименование предмета)

7.      Предмет (Полное наименование, Краткое наименование)

8.      Содержание предмета (Вид, Наполнение, Краткое наименование)

3.3 Описание интерфейса

Интерфейс пользователя Access 2003 более современный и совместим с остальными продуктами семейства Microsoft Office, более прозрачен и интуитивно понятен. В среде Access реализована поддержка защиты данных в таблицах на уровне записи. Существует специальный мастер защиты данных.         

Для разработки приложения используется среда визуального программирования Delphi. В данной среде был создан проект с названием ERT.dpr. Данный проект состоит из 6 модулей и 5 форм. Приложение скомпилировано в  исполняемый файл ERT.exe, что позволяет пользователю работать в программе абсолютно независимо.

Рис.3.3.1 Главная форма.

Главная форма представляет собой стандартное окно класса TForm и содержит следующие необходимые для функционирования программы компоненты, расположенные ниже, в порядке их размещения:

1.        Form1 – Основная форма проекта. Контейнер всех визуальных объектов.

2.        Label1 – Надпись на форме – название программы

3.        Image1 – Контейнер для размещения в нем рисунка Sancio_01.jpg

4.        BitBtn1..5 – кнопки открывающие дополнительные формы.

ЗАКЛЮЧЕНИЕ

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