Shift: TShiftState; X, Y: Integer);

begin

Close;

end; end.

Процедура открытия главной формы:

procedure TFMain. FormCreate (Sender: TObject);

begin

pathApp:=GetCurrentDir;

DecimalSeparator:='.';

DateSeparator:='/';

ADOC. ConnectionString:={'Provider=Microsoft. Jet.OLEDB.4.0;' + 'Mode=ReadWrite;' +}

'Data Source=' + GetCurrentDir + '\MarkQuality.mdb';

ADOC. Open;

ADOQ_Classes. Open;

ADOQ_Subjects. Open;

ADOQ_Teachers. Open;

ADOQ_Nagruzka. Open;

ADOT_Marks. Open;

ADOQ_Marks. Open;

end;

Процедура добавления, изменения и удаления информации об учителях:

procedure TFTeachers.ADOT_TeachersAfterScroll (DataSet: TDataSet);

begin

if f_br

then E_Teacher. Text:=ADOT_TeachersFio_Teacher. AsString;

end;

procedure TFTeachers. FormActivate (Sender: TObject);

begin

f_br:=true;

end;

procedure TFTeachers.B_OKClick (Sender: TObject);

begin

if (Application. MessageBox ('Добавить?', 'Подтвердите действие',

MB_YESNOCANCEL+ MB_ICONQUESTION+ MB_APPLMODAL)<>IDYES)

then exit;

f_br:=false;

ADOT_Teachers. Insert;

ADOT_Teachers. Edit;

ADOT_Teachers. FieldbyName ('Fio_Teacher').AsString:=E_Teacher. Text;

ADOT_Teachers. Post;

f_br:=true;

FMain.ADOQ_Teachers. Close;

FMain.ADOQ_Teachers. Open;

end;

procedure TFTeachers. Button1Click (Sender: TObject);

begin

if (Application. MessageBox ('Изменить?', 'Подтвердите действие',

MB_YESNOCANCEL+ MB_ICONQUESTION+ MB_APPLMODAL)<>IDYES)

then exit;

f_br:=false;

ADOT_Teachers. Edit;

ADOT_Teachers. FieldbyName ('Fio_Teacher').AsString:=E_Teacher. Text;

ADOT_Teachers. Post;

f_br:=true;

FMain.ADOQ_Teachers. Close;

FMain.ADOQ_Teachers. Open;

end;

end.

Ниже представлена процедура описывающая добавление, удаление и изменение данных по предметам.

procedure TFSubjects.B_OKClick (Sender: TObject);

begin

if (Application. MessageBox ('Добавить?', 'Подтвердите действие',

MB_YESNOCANCEL+ MB_ICONQUESTION+ MB_APPLMODAL)<>IDYES)

then exit;

f_br:=false;

ADOT_Subjects. Insert;

ADOT_Subjects. Edit;

ADOT_Subjects. FieldbyName('Subject').AsString:=E_Subject. Text;

ADOT_Subjects. Post;

f_br:=true;

FMain.ADOQ_Subjects. Close;

FMain.ADOQ_Subjects. Open;

end;

procedure TFSubjects. Button1Click (Sender: TObject);

begin

if (Application. MessageBox ('Изменить?', 'Подтвердите действие',

MB_YESNOCANCEL+ MB_ICONQUESTION+ MB_APPLMODAL)<>IDYES)

then exit;

f_br:=false;

ADOT_Subjects. Edit;

ADOT_Subjects. FieldbyName('Subject').AsString:=E_Subject. Text;

ADOT_Subjects. Post;

f_br:=true;

FMain.ADOQ_Subjects. Close;

FMain.ADOQ_Subjects. Open;

end;

procedure TFSubjects. Button2Click (Sender: TObject);

begin

if (Application. MessageBox ('Удалить?', 'Подтвердите действие',

MB_YESNOCANCEL+ MB_ICONQUESTION+ MB_APPLMODAL)=IDYES)

then ADOT_Subjects. Delete;

end;

Процедура добавления данных в архив:

procedure ADOQ_ArchiveCalcFields (DataSet: TDataSet);

procedure TFArchive. Recalc;

var id,

k5, k4, k3, k2,

s_k, s_k5, s_k4, s_k3, s_k2, s_kNA,

s_P, s_Q, s_A: integer;

begin

id:=ADOQ_ArchiveID. AsInteger;

s_k5:=0; s_k4:=0; s_k3:=0; s_k2:=0; s_kNA:=0;

s_P:=0; s_Q:=0; s_A:=0;

ADOQ_Archive. DisableControls;

ADOQ_Archive. First;

While not ADOQ_Archive. Eof do

begin

k5:=ADOQ_Archivefive. AsInteger;

k4:=ADOQ_Archivefour. AsInteger;

k3:=ADOQ_Archivethree. AsInteger;

k2:=ADOQ_Archivetwo. AsInteger;

s_k5:=s_k5 + k5;

s_k4:=s_k4 + k4;

s_k3:=s_k3 + k3;

s_k2:=s_k2 + k2;

s_kNA:=s_kNA + ADOQ_Archivenocheck. AsInteger;

s_k:=s_k + ADOQ_ArchiveCount_Pupils. AsInteger;

s_P:=s_P + k5 + k4 + k3;

s_Q:=s_Q + k5 + k4;

s_A:=s_A + 5*k5 + 4*k4 + 3*k3 + 2*k2;

ADOQ_Archive. Next;

end;

ADOQ_Archive. Locate ('ID', id, []);

ADOQ_Archive. EnableControls;

M_All. Clear; M_All2. Clear;

M_All. Lines. Add (format('Среди % s учеников: ', [IntToStr (s_k)]));

M_All. Lines. Add ('==================');

M_All. Lines. Add (format(' «5» -%d ', [s_k5]));

M_All. Lines. Add (format(' «4» -%d ', [s_k4]));

M_All. Lines. Add (format(' «3» -%d ', [s_k3]));

M_All. Lines. Add (format(' «2» -%d ', [s_k2]));

M_All. Lines. Add (format(' «н/а» -%d ', [s_kNA]));

 // M_All. Lines. Move (6,7); M_All. Lines. Move (7,6);

 // .Delete(7);

M_All2. Lines. Add(''); M_All2. Lines. Add('');

M_All2. Lines. Add (format('успеваемость:%.1f%%', [100*s_P/s_k]));

M_All2. Lines. Add (format('качество: %.1f%%', [100*s_Q/s_k]));

M_All2. Lines. Add (format('средний балл: %.2f', [s_A/(s_k-s_kNA)]));

end;

Процедура открытия раннее созданного архива:

procedure TFArchive.B_OKClick (Sender: TObject);

begin

 // ADOQ_Archive. Open;

FileListBox1. SetFocus;

try

if FileListBox1. FileName<>''

then ADOQ_Archive. LoadFromFile (FileListBox1. FileName);

except

showmessage ('Ошибка загрузки архива');

end;

Recalc;

end;

procedure TFArchive.ADOQ_ArchiveCalcFields (DataSet: TDataSet);

begin

ADOQ_ArchivePositiv. AsFloat:= 100*(ADOQ_Archivefive. AsInteger + ADOQ_Archivefour. AsInteger + ADOQ_Archivethree. AsInteger)/ ADOQ_ArchiveCount_Pupils. AsInteger;

ADOQ_ArchiveQuality. AsFloat:= 100*(ADOQ_Archivefive. AsInteger + ADOQ_Archivefour. AsInteger)/ ADOQ_ArchiveCount_Pupils. AsInteger;

ADOQ_ArchiveAverage. AsFloat:= (5*ADOQ_Archivefive. AsInteger + 4*ADOQ_Archivefour. AsInteger + 3*ADOQ_Archivethree. AsInteger + 2*ADOQ_Archivetwo. AsInteger)

/ (ADOQ_ArchiveCount_Pupils. AsInteger-ADOQ_Archivenocheck. AsInteger);

end;

procedure TFArchive. FormCreate (Sender: TObject);

begin

FArchive. FileListBox1. Directory:=pathApp + '\Archive';

end;

end.

Процедура добавления № класса:

procedure TFClass.B_AddClassClick (Sender: TObject);

begin

if (E_ClassDigit. Text='') or (CBE_ClassChar. Text='') or (E_Count. Text='')

then begin

Showmessage ('Неполный ввод');

exit;

end;

if (Application. MessageBox ('Добавить?', 'Подтвердите действие',

MB_YESNOCANCEL+ MB_ICONQUESTION+ MB_APPLMODAL)<>IDYES)

then exit;

Для проектирования и управления отчетами используется объектно-ориентированный поход: в распоряжении пользователя имеются специальный объект QReport. Прежде чем приступить к созданию отчета, следует проверить его подключение к проекту приложения. Для этого выберем команду Install Packages в меню Component, в открывшемся диалоговом окне Components перейдем на вкладку Design Packages и проверим, установлены ли флажки QuickReport Components. C помощью файла базы данных можно легко управлять всей программой. Итак, когда страница QReport появилась в палитре компонентов, можно приступать непосредственно к её освоению. Создаём новый проект в Delphi. Для отчета нам понадобится отдельная форма в нашем проекте. На новую форму бросаем компонент QuickRep. Этот компонент является основным контейнером для страницы отчёта и может в свою очередь содержать другие компоненты. QuickRep имеет следующие важные свойства (таблица):

Основные свойства компонента QuickRep

PrinterSetting	Задает число копий отчета и диапазон печатаемых страниц.
Page	Задает размер страницы PaperSize (можно установить заказной размер - Custom и определить длину и ширину страницы свойствами Length и Width), ее ориентацию и поля.
Options	Определяет, надо ли печатать верхний колонтитул первой страницы (FirstPageHeader) и нижний колонтитул последней (LastPageFooter).
Units	Задает единицу измерения размеров страницы, полей и т.п.: миллиметры, дюймы, пиксели и т.д.
Zoom	Масштаб печати в процентах.
ReportTitle	Заголовок окна предварительного просмотра

Для настройки содержимого отчёта нужно использовать свойство Bands. Оно имеет ряд подсвойств:

HasTitle - имеется полоса заголовка отчета,

HasDetail - имеется полоса детализации,

HasPageHeader - имеется верхний колонтитул (заголовок) на каждой странице отчета,

HasPageFooter - имеется нижний колонтитул на каждой странице отчета.

Для того, чтобы в отчёте отображались какие-либо данные, нужно установить в True свойство HasDetail.

Следующим важным шагом является установка на компонент QuickRep компонента QRBand, на котором уже непосредственно размещаются компоненты отчёта, отображающие графическую или текстовую информацию: QRLabel, QRExp, QRSysData, QRMemo, QRRichText, QRShape, QRImage. Компоненты QRLabel, QRMemo, QRRichText, QRShape, QRImage, размещаемые на полосах отчета, являются аналогами обычных компонентов - Label, Memo, RichEdit, Shape, Image.

Составление отчёта заключается в заполнении текстовых свойств компонентов QRLabel, QRMemo, QRRichText, загрузки изображений в QRImage. Отправка отчёта на печать осуществляется вызовом метода Print компонента QuickRep. К примеру, если в форме отчёта есть компонент QRLabel1, то следующий код отправит на печать текст «156»:

QRLabel1. Сaption:='156';

QuickRep. Print; кроме метода Print компонент QuickRep имеет метод Preview предварительный просмотр.

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

3. Работа с программной средой

После двойного щелчка на Infbazadannih.exe запускается окно-заставки программы (см. рис. 14).

Рисунок 14. Окно заставки

После нажатия на кнопку расположенную в нижнем правом углу запускается главное окно программы (см. рис. 15), эта форма основная в приложении.



Рисунок 15. Главное окно программы

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

Рисунок 16. Окно редактирования информации по классам

Следующая форма служит для добавления, удаления и изменения предметов изучаемых в рамках школьного курса (см. рис. 17)

Рисунок 17. Окно редактирования предметов

Форма для изменения, добавления и удаления информации по преподавателям (см. рис. 18).

Рисунок 18. Окно редактирования информации об учителях

Следующая форма отображает нагрузку учителей школ, т.е. закрепление предметов за учителями (см. рис. 19).

Рисунок 19. Окно редактирования и добавления нагрузки учителей

Помимо всего вышеперечисленного данные полученные по результатам обучения учащихся можно заархивировать и использовать в любой момент при необходимости. По нажатии кнопки сохранить в архив выходит окно для подтверждения действия (см. рис. 20).

Рисунок 20. Сохранение данных в архив

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

Рисунок 21. Окно заархивированных данных

Помимо всего вышеперечисленного с помощью соответствующей панели можно выполнять фильтрацию по классам (рис. 22):

Рисунок 22. Фильтрация по классам

Также панель «Итого по выборке» позволяет наглядно видеть сведения отображенные на главной форме и автоматически подсчитывает количество учащихся, процент качества и средний бал учащихся (рис. 23):

Рисунок 23. Анализ качества знаний учащихся

Рисунок 24. Вывод на печать

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

Рисунок 25. Сохранение отчета

Список использованных источников

Бирник А.С. Информация и управление. - М., 2007. - 240 с.

Введение в информационный бизнес: Учебное пособие. /Под ред. В.П. Тихомирова, А.В. Хорошилова. - М.: Финансы и статистика, 2007

Вычислительные машины, системы и сети. /Под ред. А.П. Пячтибратова. - М.: Финансы и статистика, 2007

Ивлиев М.К., Порошина Л.А. Автоматизация оперативного и бухгалтерского учета товаров. Учебное пособие. - М.: МУПК, 2006

Информационные системы бухгалтерского учета: Учебник. /Под ред. В.И. Подольского, - М.: Аудит, ЮНИТИ, 2005

Информационное обеспечение предпринимательской деятельности. - М.: ВИНИТИ, 2006. - 0,2 п. л.

Карминский А.М., Нестеров П.В. Информатизация бизнеса. - 2-е изд. - М.: Финансы и статистика, 2004

Свириденко С.С. Современные информационные технологии. - М.: Радио и связь, 2005

Титоренко Г.А. Автоматизированные информационные технологии в экономике. - М.: Компьютер, ЮНИТИ, 2005.

Трубилин И.Т., Семенов М.И., Лойко В.И., Барановская Т.П. Автоматизированные информационные технологии в экономике. - М.: Финансы и статистика, 2005

Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем / В.В. Бойко, В.М. Савинков. - М.: Финансы и статистика, 1999. - 68 с.

Ахаян Р.Д. Эффективная работа с СУБД / Р.Д. Ахаян. - СПб.: Питер, 1997. - 284 с.

Дейта К. Введение в системы баз данных - М: Наука, 1980.-101 с.

Александровский А.Д. Разработка корпоративных приложений. Delphi 7. М.: 2000.

Александровский А.Д. Delphi 7.0. Учебный курс. М.: 2001.

Хомоненко А. Delphi 7.0 Полное руководство. С-П.: 2002.

Гофман Г. Delphi 7.0 Полное руководство, С-П.: 2002.

Гофман Г., Хомоненко А. Работа с базами данных в Delphi. Учебный курс. С-П.: 2003.

Жуков А. Изучаем Delphi - С.-Пб.: Питер, 2000. - 246 с.

Федоров А., Создание Windows-приложений в среде Delphi - С.-Пб.: Питер, 2000.-56 с.

Основы безопасности жизнедеятельности. Хван Т.А., Хван П.А. Ростов - на - Дону: «Феникс», 2000 г.

Безопасность жизнедеятельности. Русак О.Н., Малаян К.Р., Занько Н.Г. СПб, 2002 г.

Безопасность жизнедеятельности, Приходько Н.Г., Алматы, 2004 г.,

СНиП II - 4 - 79. Естественное и искусственное освещение. Нормы проектирования.-М.: Стройиздат, 1980.

Охрана труда в торговле, общественном питании, пищевых производствах в малом бизнесе и быту. Фатыхов Д.Ф., Белехов А.Н. М: Академия, 2003 г.,

Размещено на Allbest.ru

...