Разработка программного обеспечения информационной системы "Дом детского творчества"
Автоматизация учёта поступления и обучения детей в "Доме детского творчества". Проектирование программного продукта ИС; выбор системы управления базы данных, языка программирования. Разработка концептуальной, логической и физической моделей данных.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 10.10.2015 |
| Размер файла | 1,5 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
begin
n1.Visible:=true;
n2.Visible:=true;
n3.Visible:=true;
GroupBox1.Visible:=false;
edit1.Text:='';
edit2.Text:='';
messagebox(0,'Авторизация завершена успешно','Сообщение',33);
end
else
begin
messagebox(0,'Не верный логин и пароль','Ошибка',33);
edit1.Text:='';
edit2.Text:='';
end;
end;
После введения правильного логина и пароля пользователю высвечивается диалоговое окно с подтверждением.
Рисунок 14 - Диалоговое окно «Авторизация»
Если же логин и пароль введены неверно пользователю высвечивается другое диалоговое окно.
Рисунок 15 - Диалоговое окно «Ошибка»
После успешной авторизации пользователь может без ограничений пользоваться программой, с помощью объекта «MineMenu».
Рисунок 16 - Вкладки
После того как пользователь нажмет на вкладку «Основа» то автоматически откроется форма «Основа», на которой расположена таблица детей.
Рисунок 17 - Таблица «Основа»
Сразу под таблицей находятся поля добавления детей.
Рисунок 18 - Форма «Основа»
Здесь расположены четыре кнопки. «Добавить» «Сохранить» «Удалить» «Отмена».
При заполнение всех полей что бы запись была внесена в таблицу, следует нажать на кнопку «Добавить», при этом в таблице сразу же освободится строка для записи.
Рисунок 19 - Кнопка «Добавить»
procedure TOsnowa.Button1Click(Sender: TObject);
begin
DataModule2.Osnowa.APPend;
end;
Далее для того что бы внесенные записи сохранились в таблице следует нажать кнопку «Сохранить».
Рисунок 20 - Кнопка «Сохранить»
procedure TOsnowa.Button3Click(Sender: TObject);
begin
DataModule2.OsnowaDataroshdeniya.Value:=DateTimePicker1.Date;
DataModule2.Osnowa.Post;
end;
Если пользователь ввел какие либо данные не правильно, то предусмотрена кнопка «Отмена» она освобождает строку не удаляя ее.
Рисунок 21 - Кнопка «Отмена»
Если же запись в таблице больше не нужна то ее можно удалить кнопкой «Удалить»
Рисунок 22 - Кнопка «Удалить»
На форме Основа так же может производится поиск детей по фамилии и полу.
Рисунок 23 - Поиск «Основа»
procedure TOsnowa.Button5Click(Sender: TObject);
begin
if (RadioButton1.Checked) and (edit1.text<>'') then
begin
DataModule2.Osnowa.Filter:='Family like ''%'+edit1.text+'%'' ';
DataModule2.Osnowa.Filtered:=true;
end
else
if (RadioButton2.Checked) and (edit1.text<>'') then
begin
DataModule2.Osnowa.Filter:='Mail like ''%'+edit1.text+'%'' ';
DataModule2.Osnowa.Filtered:=true;
end;
end;
Следующая вкладка на объекте «Minemenu» «Преподаватели» перейдя на нее пользователь увидит таблицу учителей которые работают в ДДТ их зарплату и Ф.И.О.
Рисунок 24 - таблица «Преподаватели»
Так же как и на форме «Основа» есть добавление, сохранение, отмена и удаление записей в таблицу, принцип работы такой же.
Рисунок 25 - Кнопки таблицы «Основа»
Следующая вкладка «Справочники» объединяет несколько вкладок «предметы» «направления» и «конкурсы»
Рисунок 26 - Вкладка «Справочники»
На форме «предметы» расположена таблица предметов изучаемых в ДДТ.
Рисунок 27 - Таблица «Предметы»
Так же как и на предыдущих формах имеются кнопки «Добавить», «Сохранить», «Отмена» и «Удалить».
Рисунок 28 - Кнопки формы «Предметы»
Следующая вкладка «направленности», на этой форме содержится таблица всех направленностей и кнопки для заполнения таблицы,как и в предыдущих формах.
Рисунок 29 - Форма «Направления»
Следующая вкладка «Конкурс» содержит в себе таблицу детей участвующих в конкурсах по предметам которые существуют в ДДТ, так же в таблице указаны баллы каждого ребенка в конкурсе по определенному предмету.
Рисунок 30 - Таблицы «конкурсы»
Так же на форме имеются поля добавления в таблицу «Конкурс» и так же ведется подсчет общей успеваемости детей по предмету и поиск по предмету. Выводится отчет о успеваемости.
Рисунок 31 - Поля таблицы «конкурсы»
На форме присутствует кнопка вывода отчета, а так же в кнопке «Сохранить» специальный программный код, подсчета общей успеваемости.
procedure TKonkurs.Button2Click(Sender: TObject);
var
c:Integer;
f:string;
h,d:Real;
begin
d:=0;
h:=0;
DataModule2.Konkurs.Post;
f:=DataModule2.DataKonkurs.DataSet.Fields[0].AsString;
DataModule2.DataKonkurs.DataSet.First;
for c:=0 to DataModule2.DataKonkurs.DataSet.RecordCount-1 do
begin
if DataModule2.DataKonkurs.DataSet.Fields[0].AsString=f then
begin
d:=d+1;
h:=h+DataModule2.DataKonkurs.DataSet.Fields[4].AsInteger;
end;
DataModule2.DataKonkurs.DataSet.Next;
end;
h:=h/d;
DataModule2.Predmet.Edit;
DataModule2.PredmetUspevaemost.Value:=h;
DataModule2.Predmet.Post;
end;
procedure TKonkurs.Button3Click(Sender: TObject);
begin
DataModule2.Konkurs.Cancel;
end;
procedure TKonkurs.Button4Click(Sender: TObject);
begin
DataModule2.Konkurs.Delete;
end;
procedure TKonkurs.Button5Click(Sender: TObject);
begin
if edit1.text<>'' then
begin
DataModule2.Konkurs.Filter:='Predmet like ''%'+edit1.text+'%'' ';
DataModule2.Konkurs.Filtered:=true;
end;
end;
procedure TKonkurs.Button6Click(Sender: TObject);
begin
DataModule2.Konkurs.Filtered:=false;
end;
end.
3.2 Характеристики программы
Функциональные возможности. Программное средство обеспечивает учет дома детского творчества.
Удобство использования. Программное средство имеет простой для понимания и удобный интерфейс.
Надёжность. Программное средство обладает средним уровнем надёжности и безотказности.
Производительность. Программное средство обладает высокой производительностью и быстродействием.
Безопасность. Программное средство безопасно и имеет защиту.
Программное средство полностью готово к работе и соответствует всем заявленным средствам.
3.3 Обоснование экономической эффективности программного продукта
Для определения стоимости разработки программы, необходимо для начала определить трудоёмкость работ программиста при разработке программы (Qпр). Для этого используем следующую формуле:
Qпр = tп + tа + tбл
где tп - затраты труда на постановку задачи (час);
tа - затраты труда на разработку алгоритма (час);
tбл - затраты труда на разработку блок - схемы (час).
Используя формулу рассчитаем трудоёмкость работ программиста при разработке программы:
Qпр = 5 + 76 + 3 = 84 (час).
Определим стоимость разработки программы в соответствии с формулой:
Спр = Qпр * Фпр * Кнр + См/час * tотп,
Спр = 84 * 100 * 1,4 + 50 * 2 = 11860(руб.),
где Спр = 11860(руб.) - стоимость разработки программы;
Qпр = 84 - трудоемкость работ программиста при разработке программы (час);
Фпр = 100 - заработная плата программиста в единицу времени (час) (определяется путем деления средней заработной платы программиста в размере 20000 руб. на 25 дней - количество рабочих дней в месяце, и делим на 8 часов - продолжительность рабочего дня).
Кнр = 1,4 - коэффициент накладных расходов - 40%;
См/час = 50 - стоимость 1 машино - часа (руб.);
Tотп = 2 - машинное время откладки программы (час).
Рассчитаем стоимость решения задачи на ЭВМ, используя формулу:
Ср = См/час * Тр + Фпр * Qр * Кнр,
Ср = 50 * 40 + 100 * 40 * 1,4 = 7600 (руб.).
Где Ср = 7600 (руб) - стоимость решения задачи на ЭВМ;
См/час = 50 - стоимость 1 машино - часа (руб.);
Тр = 40 - время работы на ЭВМ;
Фпр = 100 - заработная плата программиста в единицу времени (час) (определяется путем деления средней заработной платы программиста в размере 20000 руб. на 25 дней - количество рабочих дней в месяце, и делим на 8 часов - продолжительность рабочего дня);
Qр = 40 - трудоемкость затрачиваемая программистом на решение задачи (час);
Кнр = 1,4 - коэффициент накладных расходов - 40%.
После расчетов стоимости разработки программы и стоимости решения задачи на ЭВМ, рассчитаем полную стоимость решения задачи на ЭВМ (См) в соответствии с формулой:
См = Спр + Ср,
См = 11860 + 7600 = 19460 (руб).
Для определения стоимости решения задачи вручную (Свр) воспользуемся формулой:
Свр = qр * Фр * Кнр * n,
Свр = 1* 20000 * 1,4 * 1 = 28000 (руб.),
где qр = 1 - количество времени обработки информации по данной задаче вручную;
Фр = 20000 - фонд заработной платы работника;
Кнр = 1,4 - коэффициент накладных расходов - 40%;
N = 1 - количество работников.
В результате полученных данных, определим годовую экономическую эффективность по формуле:
Эгод = (Свр - Ср) * 12 месяцев,
Эгод = (28000 - 7600) * 12 = 244800 (руб.).
Далее определим капитальные вложения (Кд), которые включают затраты на обследование объекта механизации учёта, разработку основных положений технического задания, стоимость вычислительной техники по формуле:
Кд = 3оом + Зтз + Звт,
где 3оом - стоимость обследования объекта механизации (руб.);
Зтз - стоимость разработки технического задания (руб.);
Звт - стоимость вычислительной техники (руб.);
Кд = 20000 + 100000 + 90000 = 210000 (руб.).
Теперь определим срок окупаемости по формуле:
Ток = Кд/Эгод,
Ток = 210000 / 244800= 0,86 (года),
где Кд = 210000 - стоимость капитальных вложений (руб.);
Эгод = 244800- годовая экономическую эффективность (руб.).
Рассчитаем коэффициент эффективности по формуле:
Ер = 1/Ток,
Ер = 1 / 0,86 = 1,16
где Ер = 1,16- расчетный коэффициент эффективности;
Ток = 0,86 - срок окупаемости.
Нормативный срок окупаемости Ток находится в пределах от 0 до 1 года, а коэффициент эффективности 1,16, что входит в предел 0,15…2
ЗАКЛЮЧЕНИЕ
По имеющимся результатам, был спроектирован и реализован программный продукт «Дом детского творчества», который является актуальным на сегодняшний день и имеет большую практическую значимость.
В данном дипломном проекте был разработан программный продукт, предназначенный для использования в системе обучения. Программа освободит администратора от трудоёмкой работы с огромным количеством бумаг, поможет легко выводить отчётную документацию, осуществлять поиск, вести учёт учащихся.
В процессе написания программы использовалась среда разработки Borland Delphi 7.0, было проведено тестирование приложения на предмет проверки корректности и работоспособности. Данная программа проста в использовании и понятна пользователю.
В результате выполнения данного дипломного проекта была достигнута основная цель работы - разработан программный продукт для учебного заведения «Дом детского творчества». Была разработана структура базы данных, в программу были включены функции поиска, выполнения различных запросов, созданы отчеты. При этом были учтены все требования, выдвинутые в начале выполнения данного проекта, разработанное ПО полностью соответствует указанным требованиям.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. Создание Windows-приложений в среде Delphi. - M.: СОЛОН - Пресс, 2011. - 224 с.: ил. - (Серия «Библиотека студента»);
2. Самоучитель Delhi.NET. - СПб.: БХВ-Петербург, 2010.
3. Исполнение Microsoft Office Access 2010/ Специальное издание.: Пер. с англ. - М.: Издательский дом «Вильямс», 2011.
4. Основы построения автоматизированных информационных систем: Учебное пособие. - М.: ФОРУМ: ИНФРА-М, 2010
5. Джон Макгрегор, Девид Сайке. Тестирование объектно-ориентированного программного обеспечения. Практическое пособие. - К.: Издательство «ДиаСофт», 2010.Бухгалтерский учёт. - М.: Окей-книга, 2011
6. Microsoft Access 2010: разработка приложений - СПб.: БХВ - Санкт-Петербург, 2010. Авторы Харитонова И.А, В.Д. Михеева
7. Delphi 7: Для профессионалов. Автор: Кэнту М.Е., - Издательство: СПб: Питер 2011г.
8. Delphi 7 Быстрый старт. Автор: Владимир Гофман-Анатолий Хомоненко. Год выпуска: 2009
9. Библия для программиста в среде Delphi. Автор: Фленов Михаил Год: 2012
10. Корнеев В.В. и др. Базы данных: Интеллектуальная обработка информации - М.: Нолидж, 2012. -352 с.
11. Дунаев С.В. Доступ к базам данных и техника работы в сети. Практические приемы современного программирования - М.: Диалог - МИФИ, 2010. - 416 с.
12. Сигнор Р., Стегман М.О. Использование ODBC для доступа к базам данных - М.: БИНОМ, 2011 - 384 с.
13. Игорева, Е.Л., Основы алгоритмизации и программирования (4-е издание)./ И.И. Попов, О.Л. Игорева - М.: Инфа-М, 2011 - 432 с.
14. Петгольц, Ч. Программирование#. В 3-х томах. Том 2. Пер. с англ. / Ч. Петгольц - М.: Издательско-торговый дом «Русская редакция», 2012. - 576 с.
15. Петгольц, Ч. Программирование. В 3-х томах. Том 3 Пер. с англ./ Ч. Петгольц - М.: Издательско-торговый дом «Русская редакция», 2012. - 624 с.
16. Хузятов Ш.Ш. Delphi 7. Основные компоненты и элементы языка программирования г. Набережные Челны: издательство КамПИ, 2010 г. - 116 с.;
17. Фаронов В.В. Delphi. Программирование на языке высокого уровня г. Санкт-Перетбург: издательство «Питер», 2011 г. - 640 с.;
18. Крахоткина Е.В. Методические указания к выполнению лабораторных работ по дисциплине «Программирование в компьютерных сетях» для студентов специальности 230201 Информационные системы и технологии
19. Н. Культин. Delphi в задачах и примерах. СПб.: БХВ-Петербург., 2010 - 288 стр.
20. М. Фленов. Библия Delphi, 3-е издание + CD. СПб.: - БХВ-Петербург., 2011. - 688 стр.
21. Г.М. Эйдлина, Delphi: программирование в примерах и задачах. Практикум., Изд.: - РИОР, ИНФРА-М., 2012 - стр 98.
22. С.В. Одиночкина. Разработка баз данных в Microsoft Access 2010. М.: Изд., НИУ ИТМО., 2012 - 87 стр.
23. www.edelphi.ru/
СПИСОК СОКРАЩЕНИЙ
1. ПП - программный продукт;
2. ИС - информационная система;
3. ПО - программное обеспечение;
4. ГБ - гигабайт;
5. ГГц - гигагерц;
6. БД - база данных;
7. Мб - мегабайт;
8. СУБД - система управления базами данных;
9. ДДТ - Дом Детского Творчества.
ПРИЛОЖЕНИЕ 1
Руководство пользователя
Желательно, чтобы каждая программа имела справочную систему, при помощи которой пользователь мог получить исчерпывающую информацию о программе, о том, как с ней работать. Справочная система представляет собой набор файлов определенной структуры, использую которые программа WinHelp являющаяся составной частью Windows, выводит справочную информацию, которая находится в hlp-файле. Создать hlp-файл можно при помощи программы Microsoft Help Workshop, исходными данными для которой является текст справки, представленный в виде rtf-файла, который поставляется отдельно или вместе с Delphi (или в C++ Builder).
Рисунок 33 - Справочник помощи «Справочник»
Рисунок 34 - Справочник помощи «Авторизация»
Рисунок 35 - Справочник помощи «Основа»
Рисунок 36 - Справочник помощи «Преподаватели»
Рисунок 37 - Справочник помощи «Справочники»
Рисунок 38 - Справочник помощи «Направления»
Рисунок 39 - Справочник помощи «Конкурсы»
ПРИЛОЖЕНИЕ 2
ЛИСТИНГ
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
type
TMenu = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
GroupBox1: TGroupBox;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Menu: TMenu;
implementation
uses
Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;
{$R *.dfm}
procedure TMenu.N1Click(Sender: TObject);
begin
Application.CreateForm(TOsnowa,Osnowa);
end;
procedure TMenu.N2Click(Sender: TObject);
begin
Application.CreateForm(TPrepod,Prepod);
end;
procedure TMenu.N4Click(Sender: TObject);
begin
Application.CreateForm(TPredmet,Predmet);
end;
procedure TMenu.N5Click(Sender: TObject);
begin
Application.CreateForm(TNapravlenia,Napravlenia);
end;
procedure TMenu.N6Click(Sender: TObject);
begin
Application.CreateForm(TKonkurs,Konkurs);
end;
procedure TMenu.Button1Click(Sender: TObject);
var
log,pas:string;
begin
log:=Edit1.Text;
pas:=Edit2.Text;
if (log='Admin') and (pas='555') then
begin
n1.Visible:=true;
n2.Visible:=true;
n3.Visible:=true;
GroupBox1.Visible:=false;
edit1.Text:='';
edit2.Text:='';
messagebox(0,'Авторизация завершена успешно','Сообщение',33);
end
else
begin
messagebox(0,'Не верный логин и пароль','Ошибка',33);
edit1.Text:='';
edit2.Text:='';
end;
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule2 = class(TDataModule)
ADOConnection1: TADOConnection;
DataOsnowa: TDataSource;
Naprawlennosti: TADOTable;
DataNaprawlennosti: TDataSource;
Naprawlennostikod_napravlenia: TAutoIncField;
NaprawlennostiNapravlenie: TWideStringField;
Postupleniya: TADOTable;
DataPostupleniya: TDataSource;
Postupleniyakod_postuplenia: TAutoIncField;
PostupleniyaData_postupleniya: TDateTimeField;
Peredwijenie: TADOTable;
DataPeredwijenie: TDataSource;
Peredwijeniekod_peredvihenia: TAutoIncField;
Peredwijeniestatus: TWideStringField;
Osnowa: TADOTable;
OsnowaDSDesigner: TAutoIncField;
OsnowaFamily: TWideStringField;
OsnowaName: TWideStringField;
OsnowaOtchestvo: TWideStringField;
OsnowaDataroshdeniya: TDateTimeField;
OsnowaSemeynay_statys: TWideStringField;
OsnowaMesto_projiwaniya: TWideStringField;
OsnowaData_postuplenia: TDateTimeField;
Osnowakod_napravlenia: TIntegerField;
Osnowakod_peredvihenia: TIntegerField;
Osnowakod_konkurs: TIntegerField;
OsnowaNapravlenie: TStringField;
Konkurs: TADOTable;
DataKonkurs: TDataSource;
Konkurskod_konkurs: TAutoIncField;
KonkursPredmet: TIntegerField;
KonkursZan_mesto: TIntegerField;
KonkursBaly: TIntegerField;
Konkursid_rebenka: TIntegerField;
OsnowaMail: TIntegerField;
Predmet: TADOTable;
DataPredmet: TDataSource;
PredmetDSDesigner: TAutoIncField;
PredmetPredmet: TWideStringField;
Prepod: TADOTable;
PrepodDSDesigner: TAutoIncField;
PrepodFamiliy: TWideStringField;
PrepodIma: TWideStringField;
PrepodOtchestvo: TWideStringField;
PrepodZarplata: TBCDField;
DataPrepod: TDataSource;
Mail: TADOTable;
MailDSDesigner: TAutoIncField;
MailMail: TWideStringField;
DataMail: TDataSource;
OsnowaField: TStringField;
OsnowaMesto_ucheba: TIntegerField;
Mesto_Ucheba: TADOTable;
Mesto_UchebaDSDesigner: TAutoIncField;
Mesto_UchebaMesto_ucheba: TWideStringField;
DataMesto_ucheba: TDataSource;
Osnowa_: TStringField;
KonkursField: TStringField;
KonkursField2: TStringField;
KonkursField3: TStringField;
KonkursField4: TStringField;
PredmetUspevaemost: TBCDField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit7;
{$R *.dfm}
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ComCtrls;
type
TOsnowa = class(TForm)
Osnowa: TDBGrid;
DBEdit1: TDBEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Button2: TButton;
Button3: TButton;
Button4: TButton;
DBEdit8: TDBEdit;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label9: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label10: TLabel;
Edit1: TEdit;
Button5: TButton;
Button6: TButton;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
DateTimePicker1: TDateTimePicker;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Osnowa: TOsnowa;
implementation
uses
Unit1, Unit2, Unit4, Unit5, Unit6, Unit7;
{$R *.dfm}
procedure TOsnowa.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
Action:=caFree;
end;
procedure TOsnowa.Button1Click(Sender: TObject);
begin
DataModule2.Osnowa.APPend;
end;
procedure TOsnowa.Button2Click(Sender: TObject);
begin
DataModule2.Osnowa.Delete;
end;
procedure TOsnowa.Button3Click(Sender: TObject);
begin
DataModule2.OsnowaDataroshdeniya.Value:=DateTimePicker1.Date;
DataModule2.Osnowa.Post;
end;
procedure TOsnowa.Button4Click(Sender: TObject);
begin
DataModule2.Osnowa.Cancel;
end;
procedure TOsnowa.Button5Click(Sender: TObject);
begin
if (RadioButton1.Checked) and (edit1.text<>'') then
begin
DataModule2.Osnowa.Filter:='Family like ''%'+edit1.text+'%'' ';
DataModule2.Osnowa.Filtered:=true;
end
else
if (RadioButton2.Checked) and (edit1.text<>'') then
begin
DataModule2.Osnowa.Filter:='Mail like ''%'+edit1.text+'%'' ';
DataModule2.Osnowa.Filtered:=true;
end;
end;
procedure TOsnowa.Button6Click(Sender: TObject);
begin
DataModule2.Osnowa.Filtered:=false;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, Mask;
type
TPrepod = class(TForm)
DBGrid1: TDBGrid;
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
DBEdit2: TDBEdit;
Label5: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Prepod: TPrepod;
implementation
uses
Unit1, Unit2, Unit3, Unit5, Unit6, Unit7;
{$R *.dfm}
procedure TPrepod.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TPrepod.Button1Click(Sender: TObject);
begin
DataModule2.Prepod.Append;
end;
procedure TPrepod.Button3Click(Sender: TObject);
begin
DataModule2.Prepod.Post;
end;
procedure TPrepod.Button2Click(Sender: TObject);
begin
DataModule2.Prepod.Cancel;
end;
procedure TPrepod.Button4Click(Sender: TObject);
begin
DataModule2.Prepod.Delete;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids;
type
TPredmet = class(TForm)
DBGrid1: TDBGrid;
DBEdit1: TDBEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Predmet: TPredmet;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit6, Unit7;
{$R *.dfm}
procedure TPredmet.Button1Click(Sender: TObject);
begin
DataModule2.Predmet.Append;
end;
procedure TPredmet.Button2Click(Sender: TObject);
begin
DataModule2.Predmet.Post;
end;
procedure TPredmet.Button3Click(Sender: TObject);
begin
DataModule2.Predmet.Cancel;
end;
procedure TPredmet.Button4Click(Sender: TObject);
begin
DataModule2.Predmet.Delete;
end;
procedure TPredmet.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
Action:=cafree;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls;
type
TNapravlenia = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
DBEdit1: TDBEdit;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Napravlenia: TNapravlenia;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit7;
{$R *.dfm}
procedure TNapravlenia.Button1Click(Sender: TObject);
begin
DataModule2.Naprawlennosti.Append;
end;
procedure TNapravlenia.Button3Click(Sender: TObject);
begin
DataModule2.Naprawlennosti.Post;
end;
procedure TNapravlenia.Button2Click(Sender: TObject);
begin
DataModule2.Naprawlennosti.Cancel;
end;
procedure TNapravlenia.Button4Click(Sender: TObject);
begin
DataModule2.Naprawlennosti.Delete;
end;
procedure TNapravlenia.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=cafree;
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, Mask, RpCon, RpConDS,
RpDefine, RpRave;
type
TKonkurs = class(TForm)
DBGrid1: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Edit1: TEdit;
Label6: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
DBLookupComboBox4: TDBLookupComboBox;
dbedtBaly: TDBEdit;
Button7: TButton;
RvProject1: TRvProject;
RvDataSetConnection1: TRvDataSetConnection;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Konkurs: TKonkurs;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6;
{$R *.dfm}
procedure TKonkurs.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
Action:=cafree;
end;
procedure TKonkurs.Button1Click(Sender: TObject);
begin
DataModule2.Konkurs.Append;
end;
procedure TKonkurs.Button2Click(Sender: TObject);
var
c:Integer;
f:string;
h,d:Real;
begin
d:=0;
h:=0;
DataModule2.Konkurs.Post;
f:=DataModule2.DataKonkurs.DataSet.Fields[0].AsString;
DataModule2.DataKonkurs.DataSet.First;
for c:=0 to DataModule2.DataKonkurs.DataSet.RecordCount-1 do
begin
if DataModule2.DataKonkurs.DataSet.Fields[0].AsString=f then
begin
d:=d+1;
h:=h+DataModule2.DataKonkurs.DataSet.Fields[4].AsInteger;
end;
DataModule2.DataKonkurs.DataSet.Next;
end;
h:=h/d;
DataModule2.Predmet.Edit;
DataModule2.PredmetUspevaemost.Value:=h;
DataModule2.Predmet.Post;
end;
procedure TKonkurs.Button3Click(Sender: TObject);
begin
DataModule2.Konkurs.Cancel;
end;
procedure TKonkurs.Button4Click(Sender: TObject);
begin
DataModule2.Konkurs.Delete;
end;
procedure TKonkurs.Button5Click(Sender: TObject);
begin
if edit1.text<>'' then
begin
DataModule2.Konkurs.Filter:='Predmet like ''%'+edit1.text+'%'' ';
DataModule2.Konkurs.Filtered:=true;
end;
end;
procedure TKonkurs.Button6Click(Sender: TObject);
begin
DataModule2.Konkurs.Filtered:=false;
end;
procedure TKonkurs.FormCreate(Sender: TObject);
begin
end;
end.
Размещено на Allbest.ru
Подобные документы
Разработка программного обеспечения, предназначенного для автоматизации деятельности туристической фирмы. Анализ и проектирование базы данных предметной области. Создание концептуальной, логической и физической моделей данных и программы их обработки.
курсовая работа [816,5 K], добавлен 05.02.2018Обзор основных функций системы биллинга абонентов кабельного телевидения. Выбор среды моделирования многоуровневой базы данных. Разработка логической и физической моделей данных. Автоматизация работы студий кабельного телевидения по работе с клиентами.
курсовая работа [420,4 K], добавлен 14.11.2016Описание предметной области и определение предметной области информационной системы детского сада. Разработка логической и физической модели базы данных дошкольного образовательного учреждения. Анализ функционала информационной системы детского сада.
курсовая работа [1,6 M], добавлен 20.04.2015Разработка программного обеспечения, предназначенного для предоставления трех способов прохождения тестов для студентов. Построение модели потоков данных, физической базы данных. Выбор языка программирования. Условия эксплуатации, требования к надежности.
дипломная работа [2,7 M], добавлен 18.04.2014Порядок автоматизации расчетов себестоимости и длительности программного обеспечения производственного предприятия. Выбор языка программирования и системы управления базами данных. Разработка алгоритмов расчета себестоимости программного обеспечения.
дипломная работа [1,7 M], добавлен 13.06.2017Анализ предметной области с использованием моделей методологии ARIS и разработка ER-диаграммы. Описание входной и выходной информации для проектирования реляционной базы данных. Разработка управляющих запросов и связей между ними с помощью языка SQL.
курсовая работа [975,2 K], добавлен 30.01.2014Проектирование логической схемы данных для предметной области, физической модели базы данных. Разработка алгоритмов функциональных модулей программного приложения. Принципы тестирования спроектированного программного обеспечения, анализ эффективности.
курсовая работа [926,7 K], добавлен 20.05.2015Разработка автоматизированной базы данных (БД) для больницы, которая поможет пользователю легко найти нужную информацию о любом сотруднике или пациенте. Выбор системы управления БД и программного обеспечения. Описание работы программного продукта.
дипломная работа [1,9 M], добавлен 26.03.2013Создание программного обеспечения информационной системы автоматизации учебно-учетной деятельности в школе. Формирование логической и концептуальной моделей структурирования данных с использованием CASE-средств. Организация пользовательского интерфейса.
дипломная работа [1,6 M], добавлен 11.06.2014Анализ информационных потоков. Разработка структуры таблиц базы данных. Выбор CASE-средства для проектирования информационной системы и среды программирования. Разработка программных модулей (программного обеспечения). Подготовка справочных баз данных.
дипломная работа [6,8 M], добавлен 19.11.2013
