begin
form7.ADOTable1.UpdateBatch;
Form7.Show;
end;
end.
На форме корректировки данных осуществляется изменение или удаление ранее введенных данных.
Используемые компоненты: DataSource, DBGrid, ADOTable, MainMenu, Label, DBNavigator.
Код программы:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;
type
TForm2 = class(TForm)
DBNavigator1: TDBNavigator;
DBGrid1: TDBGrid;
ADOTable1: TADOTable;
DataSource1: TDataSource;
MainMenu1: TMainMenu;
N1: TMenuItem;
DataSource2: TDataSource;
DBNavigator2: TDBNavigator;
DBGrid2: TDBGrid;
ADOTable2: TADOTable;
Label1: TLabel;
procedure N1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.N1Click(Sender: TObject);
close;
На форме статистики идет поиск студентов по специальности, группе, ФИО, или дате. Так же можно выбрать студентов имеющих пропуски по неуважительным причинам. Выводится количество пропусков, по какой причине и их процентное соотношение, среднее количество пропущенных часов на одного человека. Все найденные записи могут быть выведены на печать в виде списка.
Используемые компоненты: DataSource, DBGrid, ADOQuery, GroupBox, CheckBox, ADOTable, Label, Button, MainMenu.
unit Unit3;
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, Menus;
TForm3 = class(TForm)
ADOQuery1: TADOQuery;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label2: TLabel;
Button1: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Label6: TLabel;
Edit9: TEdit;
Button2: TButton;
Button3: TButton;
Label7: TLabel;
Label8: TLabel;
N2: TMenuItem;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Label9: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
Form3: TForm3;
uses Unit4, Unit5, Unit6, Unit1;
procedure TForm3.Button2Click(Sender: TObject);
Var s, a,b,c,d:real;
ADOQuery1.First;
a:=0;
b:=0;
c:=0;
d:=0;
while not ADOQuery1.Eof do begin
a:=a+ADOQuery1.FieldByName('Uvazh').AsFloat;
b:=b+ADOQuery1.FieldByName('Bolezn').AsFloat;
c:=c+ADOQuery1.FieldByName('Neuvazh').AsFloat;
d:=a+b+c;
ADOQuery1.Next;
Edit6.Text:=FloatToStr(a);
Edit7.Text:=FloatToStr(b);
Edit8.Text:=FloatToStr(c);
Edit9.Text:=FloatToStr(d);
d:=100/d;
edit10.Text:=FloatToStr(a*d) ;
edit11.Text:=FloatToStr(b*d) ;
edit12.Text:=FloatToStr(c*d) ;
procedure TForm3.Button3Click(Sender: TObject);
if CheckBox1.Checked then
Form4.QRLabel10.Caption:=Edit9.Text;
Form4.QRLabel11.Caption:=Edit6.Text;
Form4.QRLabel12.Caption:=Edit7.Text;
Form4.QRLabel13.Caption:=Edit8.Text;
Form4.QRLabel14.Caption:=Edit1.Text;
Form4.QuickRep1.Preview;
if CheckBox2.Checked then
Form5.QRLabel9.Caption:=Edit9.Text;
Form5.QRLabel10.Caption:=Edit6.Text;
Form5.QRLabel11.Caption:=Edit7.Text;
Form5.QRLabel12.Caption:=Edit8.Text;
Form5.QRLabel13.Caption:=Edit2.Text;
Form5.QuickRep1.Preview;
if CheckBox3.Checked then
Form6.QRLabel8.Caption:=Edit9.Text;
Form6.QRLabel9.Caption:=Edit6.Text;
Form6.QRLabel10.Caption:=Edit7.Text;
Form6.QRLabel11.Caption:=Edit8.Text;
Form6.QRLabel12.Caption:=Edit3.Text;
Form6.QuickRep1.Preview;
procedure TForm3.Button1Click(Sender: TObject);
var s:String;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT *FROM Student WHERE (((Student.Spesi)="'+Edit1.Text+'"));');
ADOQuery1.SQL.Add('SELECT * FROM Student WHERE (((Student.Gruppa)="'+Edit2.Text+' "));');
ADOQuery1.SQL.Add('SELECT * FROM Student WHERE (((Student.FIO)="'+Edit3.Text+' "));');
if CheckBox4.Checked then
ADOQuery1.SQL.Add('SELECT * FROM Student WHERE (((Student.Date)="'+Edit4.Text+' "));');
//ShowMessage(ADOQuery1.SQL.Text);
ADOQuery1.Active:=True;
procedure TForm3.N2Click(Sender: TObject);
На форме справочников добавляются группы и фамилии студентов, а также специальности и группы.
Используемые компоненты: DataSource, DBGrid, ADOTable, Label, MainMenu,DBNavigator.
unit Unit7;
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, Menus;
TForm7 = class(TForm)
Form7: TForm7;
procedure TForm7.N1Click(Sender: TObject);
form7.Close;
Все найденные результаты на форме статистики можно вывести на экран в виде отчета и распечатать его.
Используемые компоненты:QRLabel, QuickRep, PageHeaderBand, TitleBand, DetailBand, SummaryBand, QRDBText.
5 ПРОГРАММНАЯ И ЭКСПЛУАТАЦИОННАЯ ДОКУМЕНТАЦИЯ
Ведомость эксплуатационных документов (ГОСТ 19.507-79).
К эксплуатационных документации относится следующий комплекс документов:
1) описание программы (ГОСТ 19.402-78), в котором содержатся сведения о логической структуре и функционировании программного продукта;
2) техническое задание (ГОСТ 19.201-78), определяющее требования, предъявляемые к программному продукту, необходимые стадии и сроки разработки, виды испытаний;
3) руководство оператора (ГОСТ 19.505-79) - сведения, необходимые для обеспечения процедуры общения оператора с ЭВМ в процессе выполнения (работы) программного продукта;
Описание программы (ГОСТ 19.402-78).
1) Общие сведения.
Программный продукт «Учет посещаемости» поможет в контроле за посещаемостью студентов. Использование данного программного продукта позволяет:
- Организовать ввод количества пропущенных часов за каждый день по уважительным (болезнь, отпускные) и неуважительным причинам по каждой специальности, группе, студенту
- Организовать возможность подведения итогов посещаемости по каждому студенту, по каждой группе, специальности и в целом по колледжу (процентное соотношение пропущенных часов по болезни, по уважительным причинам, по неуважительным причинам, количество прогулов на 1 человека, общее количество пропущенных часов по группе, по специальности, по колледжу)
- Обеспечить формирование списков студентов, имеющих наибольшее количество пропущенных часов по итогам текущего месяца, с начала учебного года
- Обеспечить формирование отчета.
В данном программном продукте использовался язык программирования Delphi, базы данных были созданы с использованы MS ACCESS.
2) Описание логической структуры.
В процессе работы над программным продуктом была разработана его структура, которая состоит из нескольких форм. Главной формы из которой можно открыть остальные.
3) Используемые технические средства:
- процессор –Pentium 3;
- видеокарта –64 Мб;
- оперативная память – не менее 256 Мб;
- ОС – Windows XT;
- наличие Microsoft Office ACCESS;
- CD-ROM.
4) Загрузка.
Для запуска программы необходимо разместить папку «УЧЕТ ПОСЕЩАЕМОСТИ» на диске D, затем запустить EXE – файл «Учет посещаемости».
Техническое задание (ГОСТ 19.201 – 78).
1) Наименование.
Разработка программного обеспечения по автоматизации учебного процесса в колледже «Учет посещаемости».
2) Основанием для создания является.
3) Назначение и цель.
Программный продукт предназначен для использования а колледже для учета посещаемости.
В данный программный продукт должно включаться:
- Рабочую программу «УЧЕТ ПОСЕЩАЕМОСТИ»;
- База данных MS ACCESS «БД»;
4) Безопасность.
Данный программный продукт позволяет вносить изменения. Так как предлагается первая версия программы, содержащая открытый код, которая требует изменений и доработки по мере устранения существующих ошибок и добавления новых функций. Поэтому вопрос о защите содержащейся в пособии информации пока не должен решаться.
Руководство оператора (ГОСТ 19. 505 – 79).
Для запуска программы необходимо открыть папку на диске D, за тем запустить EXE – файл «Учет посещаемости».
После этого следует ввести необходимые данные.
Чтобы завершить программу закрыть все ее окна.
При возникновении ошибок, сбоев, неполадок в работе с программным продуктом, необходимо обратиться к специалисту в области информационных технологий. Самим пользователям при обнаружении неполадок ничего изменять не рекомендуется, так как программисту будет сложнее обнаружить причину возникновения ошибки.
ЗАКЛЮЧЕНИЕ
Задачей дипломного проекта являлась разработка программного продукта по учету посещаемости (на примере колледжа). Для реализации этой задачи были выполнены следующие этапы:
- Спроектирована логическая модель базы данных
- Спроектирована физическая модель базы данных
- Организован ввод количества пропущенных часов за каждый день по уважительным (болезнь, отпускные) и неуважительным причинам по каждой специальности, группе, студенту
- Предусмотрена возможность корректировки данных
- Организована возможность подведения итогов посещаемости по каждому студенту, по каждой группе, специальности и в целом по колледжу (процентное соотношение пропущенных часов по болезни, по уважительным причинам, по неуважительным причинам, количество прогулов на 1 человека, общее количество пропущенных часов по группе, по специальности, по колледжу)
- Предусмотрена возможность сравнения итоговых данных с итогами предыдущего месяца
- Предусмотрена возможность формирования списков студентов, имеющих наибольшее количество пропущенных часов по итогам текущего месяца, с начала учебного года
- Предусмотрена возможность формирования отчета
Данный программный продукт был написан с использованием Microsoft Office Access для создания базы данных и среда разработки программных продуктов Delphi, имеющий большие возможности для работы с базами данных. Соединение с базой данных произведено при помощи технологии ADO. Обработка данных производилась при помощи операторов языка запросов SQL.
В результате была создана программа «Учет посещаемости», которая может быть использована в подобных учебных заведениях.
В ходе выполнения дипломной работы был создан программный продукт, дающий возможность вести учет посещаемости. Программа интуитивно проста и понятна для любого пользователя, для ее использования не нужно специального обучения. При этом она выполняет в основном все функции, необходимые для нормальной работы.
CПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1 Гофман В. Э., Хомоненко А. Д. Delphi. Быстрый старт. — СПб.: БХВ-Петербург, 2003. — 288 с.
2 Гофман В. Э., Хомоненко А. Д. Работа с базами данных в Delphi. — СПб.: БХВ-Петербург, 2001. — 656 с.
3 Боровский А. Н. Программирование в Delphi 2005. — СПб.: БХВ-Петербург, 2005. - 448 с.
4 Дарахвелидзе П. Г., Марков Е. П. Delphi 2005 для Win32. - СПб.: БХВ-Петербург, 2005. - 1136 с.
5 Сорокин А. В. Delphi. Разработка баз данных. — СПб.: Питер, 2005. — 477 с.
6 Фленов М. Е. Библия Delphi. — СПб.: БХВ-Петербург, 2004. — 880 с.
7 Фленов М. Е. Программирование в Delphi глазами хакера. — СПб.: БХВ-Петербург, 2003. - 368 с.
8 Фленов М. Е. Delphi в шутку и всерьез: что умеют хакеры (+CD). — СПб.: Питер. 2006. — 271 с.
9 Архангельский Л.Я. Delphi 2006. Справочное пособие: Язык Delphi, классы, функции Win32 и .NET. — М.: ООО «Бином-Пресс», 2006 г. — 1 152 с.
10 Фаронов В. В. Delphi 2005. Разработка приложений для баз данных и Интернета. — СПб.: Питер, 2006. — 603 с.
11 Карпова Т. С. Базы данных: модели, разработка, реализация. — СПб.: Питер, 2001. — 304 с.
12 Delphi World 6.0. Электронный справочник.
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9
