«Разработка информационной системы в ГАПОУ «Камский государственный автомеханический техникум»

Целью данной выпускной квалификационной работы является разработка информационной системы, простого, надежного, красивого Всё делалось с нуля, в программе delphi7,MS Access, с использованием технологии ADO. Для разработки информационной системы используется язык запросов SQL, технология доступа к базе данных через ADO, оформление – средствами Delphi7.
Информационная система – это совокупность организационных, технических, программных и информационных средств, объединенных в единую систему с целью сбора, хранения, обработки и выдачи информации. [18]
Для достижения указанной цели, в работе поставлены следующие задачи:
 рассмотреть возможности и определить принципы среды разработки delphi; выявить особенности языка запросов SQL;
 провести анализ технологии ADO;
 разработать структуру и ф ...

СОДЕРЖАНИЕ

Введение 3
Глава 1. Теоретическая часть. 4
1.1. Среды разработки 4
1.2 Базы данных 12
1.3. Язык запросов SQL 17
Глава 2. Практическая часть 23
2.1. Создание программного продукта и связка с БД Access. 23
2.2. Интерфейс и функционал ИС. 25
Глава 3. Расчет эконом. эффективности от возможного внедрения ИС 34
Заключение 39
Список литературы 42
Приложения 44

Введение
В современном мире невозможно себе представить информационную систему без базы данных и клиентской программы. Мой проект тоже не обойдется без этих составляющих.
Актуальность настоящей работы обусловлена, с одной стороны, большим интересом к разработке информационных систем, с другой стороны, хотелось разработать свою систему для своего техникума, в которой я училась.
Целью данной выпускной квалификационной работы является разработка информационной системы, простого, надежного, красивого Всё делалось с нуля, в программе delphi7,MS Access, с использованием технологии ADO. Для разработки информационной системы используется язык запросов SQL, технология доступа к базе данных через ADO, оформление – средствами Delphi7.
Информационная система – это совокупность организационных, техни ческих, программных и информационных средств, объединенных в единую систему с целью сбора, хранения, обработки и выдачи информации. [18]
Для достижения указанной цели, в работе поставлены следующие задачи:
 рассмотреть возможности и определить принципы среды разработки delphi; выявить особенности языка запросов SQL;
 провести анализ технологии ADO;
 разработать структуру и функционал ИС.

Есть возможность добавления нового студента на заочное отделение.Пункт меню Дополнительное образование (см. Рис 17):Содержит информацию о преподавателях дополнительного образования и о курсах дополнительного образования.Преподаватели дополнительного образования: Справа находится поиск, в котором можно найти преподавателя по Фамилии. Ниже находится блок, в котором выводится полная информация о преподавателе, такие как ФИО, телефон, пол, Адрес проживания, дети, семейное положение. Также есть возможность ручного поиска преподавателя при помощи навигатора. Также имеется возможность добавлять нового преподавателя на дополнительное образование Программа может формировать документ о личных данных преподавателей, таких как ФИО, телефон, адрес проживания и т.д.Пункт меню Дополнительное образование-Курсы дополнительного образования позволяет назначать преподавателям курсы, а также вести учет этих курсов, т.е. есть возможность редактирования, добавления и удаления курсов. Набор курсов фиксирован, доступ только у администратора.33677923285Рис 17. Дополнительное образованиеПункт меню Настройки программы содержит информацию о пользователях программы, а также настройку интерфейса (см. Рис.18).Пользователи программы:Содержит логин, пароль, фамилию пользователя, имя пользователя, роль.Все эти атрибуты назначаются администратором, у которого роль admin.Имеется возможность распечатать пароли и данные у пользователей программы.Рис 18. Пункт меню Настройки программыНастройки программы позволяют изменить цвет фона.Пункт меню Смена пользователя позволяет сменить пользователя программы, не закрывая саму программу. Если нажать кнопку Закрыть программу, тут уже программа закрывается полностью, оперативная память освобождается.Глава 3. Расчет эконом. эффективности от возможного внедрения ИСРазработка данного программного продукта, требует определенных материальных, временных и трудовых затрат, а следовательно должна соответственно окупаться. С экономической точки зрения затраты связанные с выполнением проекта, должны быть покрыты доходами от реализации конечного продукта.Рассчитаем трудоемкость Трудоемкость выполнения программного продукта - характеризуется перечнем основных этапов и видов работ, которые должны быть выполнены. Упорядочен данный перечень в соответствии со смысловым содержанием каждого вида работ и взаимосвязями между всеми видами работ. Форма расположения работ по этапам:1.Разработка технического задания (ТЗ):- получение ТЗ;2. Подготовительный этап:-сбор информации;-выбор объектного построения программы;-разработка общей методики создания продукта;3. Основной этап:- Разработка основного алгоритма;-Создание интерфейса;-Отладка;4. Завершающий этап:-Подготовка технической документации;-сдача продукта.-717551123950№ п/пВиды работТрудоёмкость1Получение ТЗ22Сбор информации и ознакомление с предметной областью103Выбор объектного построения программы104Разработка общей методики создания продукта156Разработка основного алгоритма807Создание интерфейса 128Отладка159Подготовка технической документации1110Сдача продукта1Итого15600№ п/пВиды работТрудоёмкость1Получение ТЗ22Сбор информации и ознакомление с предметной областью103Выбор объектного построения программы104Разработка общей методики создания продукта156Разработка основного алгоритма807Создание интерфейса 128Отладка159Подготовка технической документации1110Сдача продукта1Итого156Трудоемкость выполнения работы оценивается экспертным путем в человеко-днях и носит вероятностный характер. Таблица1. Расчет трудоемкостиОпределим трудоёмкость по видам работ. Суммарная трудоемкость составила 156 чел.\час.Расчет расходов на заработную плату На основе данных о трудоемкости и средней заработной плате по отрасли рассчитываем основную заработную плату. Предположим, что заработная плата программиста без опыта работы составляет 20000 тыс. руб. в месяц. (21 рабочий день, 8 часовой рабочий день) или 119,05 руб./час.Таким образом, расходы на заработную плату по нашему проекту составляют: ЗП = 119,05*156 = 18751,80 руб.Отчисления на ЗП (Пенсионный Фонд, Фонд соц.страховния, Фонд обязательного мед. страхования, территор. фонды мед. страхования) составляют 26% (20,0+2,9+1,1+2,0 соответственно). В денежном выражении составляют:18751,80*0,26=4875,47 руб.Рассчитаем затраты на материалы. Материалы, затраченные на создание проекта, приведены в таблице 2.Таблица2. Расчет затрат на материалыМатериальные ресурсыЕдиницы измеренияПотребляемое количествоЦена за единицу, руб.Сумма, руб.Картриджшт26901380Бумага формата А4упаковка1150150Папкашт1150150Файлышт1101110Дискшт14040Итого1830Рассчитаем амортизацию Стоимость компьютера 24 тыс. руб. Используем его в течении 5 лет (60 мес.). Годовая амортизация составит в месяц 400 руб. В час: 2,38 руб. Умножив на трудоёмкость, определим:АО= 2,38*156= 371,28 руб.Рассчитаем расходы на электроэнергию. ПК в среднем употребляет 0,3 Квт/час. 0,3*156=46,8КВт. Примерная стоимость 1 Квт/ч около 1,50 руб. Итого: 46,8 *1,50=70,2 руб.Все результаты расчета затрат приведены в таблице 3Таблица: Смета всех затратНаименование статей затратСумма, руб.Расходные материалы1830Основная заработная плата18751,80Расходы на электроэнергию70,2Амортизационные отчисления 371,28Отчисления на ЗП4875,47Итого25898,75Таким образом, суммарная стоимость затрат на создание данного программного продукта составляет 25898,75рублей, следовательно эту программу ниже этой цены продать нельзя так, как в этом случае программа не будет являться экономически эффективной. Созданный программный продукт современен для организаций и учреждений, которые в процессе своей деятельности используют данные студентов и сотрудников. Созданный программный продукт обладает следующими преимуществами:-удобный в эксплуатации;- мобильность- создан удобный интерфейс;-введен достаточно обширный функционал для работы с данными;- вывод результатов в удобном виде;Рыночная цена аналогичного программного продукта составляет 30000 руб. Таким образом, реализовав наш программный продукт, мы можем получить прибыль в размере 5098,73 руб.На сегоднешний день существует множество аналогов данного программного продукта, которые позволяют в той или иной степени автоматизировать рабочий процесс предприятия. Но данные программы либо не учитывают специфику отдельного предприятия, либо очень трудоемки для ЭВМ, либо слишком сложны в работе, В отличие от имеющихся похожих программ, разработанный программный продукт является простым в использовании, имеет сравнительно понятный интерфейс для пользователя и обладает высоким быстродействием. Данная программа при сравнительно небольших затратах 25898,75 рублей, позволяет автоматизировать, предельно облегчить и повысить темп обработки данных студентов или сотрудников организаций и учреждений. Использование данного программного продукта в значительной мере упрощает процесс обучения, сокращает время секретарей и заместителей директоров. ЗаключениеВ данной выпускной квалификационной работе была разработана информационная система «ИС техникума» в виде прикладной программы, простого, надежного, красивого. Всё делалось с нуля, в среде Delphi7,MS Access с использованием технологии ADO. Для разработки информационно-поисковой системы используется язык запросов SQL, технология доступа к базе данных через ADO, оформление – Delphi7.Для достижения указанной цели, в работе были поставлены следующие задачи:раскрыть сущность понятия базы данных;рассмотреть возможности среды разработки Delphi7;определить принципы языка программирования;выявить особенности языка запросов SQL;провести анализ технологии ADO;Интерфейс программы достаточно удобен для быстрого освоения пользователями. Доступ к информационно-поисковой системе осуществляется посредством стандартного ярлыка к программе. Так же данная информационно-поисковая система иллюстрирует возможности Access. Помимо того, что пакет имеет высокую производительность, в процессе написания данной работы были выяснены следующие свойства:высокая степень защиты данных;мощные средства работы с данными;высокая производительность;хранение больших массивов данных;хранение данных, требующих соблюдения режима секретности или при не допустимости их потери;многопоточность – поддержка нескольких одновременных запросов; оптимизация связей с присоединением многих данных за один проход; записи фиксированной и переменной длины;все поля имеют значение по умолчанию, INSERT можно использовать на любом подмножестве полей;легкость управления таблицей, включая добавление и удаление ключей и полей.[5]Соединения с базой данных требуют выделения системных ресурсов. Хотя постоянное соединение позволяет несколько ускорить работу приложения, общий убыток от растраты системных ресурсов сводит преимущество на нет. Опыт разработчиков показал, что приложения с постоянным соединением с источником данных чрезвычайно трудно поддаются масштабированию.Создавалась информационная система с помощью языка программирования Delphi. Язык сочетает в себе эффективность, , и типовую безопасность. Более того, компромиссы между эффективностью и безопасностью в этом языке программирования тщательно уравновешены и совершенно прозрачны. Программа предназначена для автоматизации деятельности отдельных отраслей в техникуме, так и для облегчения труда работников техникума. Программа позволяет вести учет студентов, переводить их из одной группы в другую, отчислять, восстанавливать, переводить на заочное отделение. Отдельно ведется учет групп. Есть возможности добавления студента, редактирования его данных. Программа работает с пользователями, у которых есть роли. Роль - это набор приоритетов, которыми обладает пользователь. Т.е. у некоторых пользователей есть доступ к некоторым пунктам меню, а у некоторых нет.Система является совершенно бесплатной, т.е. не предполагается никаких скрытых платежей, подходит для образовательного учреждения.Преимущества системы: Понижение затрат на время Электронный документооборот Повышение престижа техникума Автоматическое формирование отчетов об учебном процессеПоставленные цели и задачи данного дипломного проекта выполнены, и разработанную информационную систему можно применять.Список литературыОсновная:Андон Ф. Резниченко Л. Язык запросов SQL. - СПб.: Питер, 2010 г.Гутманс Э. Стиг Баккен, Дерик Ретанс. Профессиональное программирование. – М.: Символ-Плюс, 2012 г.Дополнительная:Артеменко Ю.Н. SQL. Справочник по языку. - М.: Вильямс, 2005 г.Гамильтон Б. ADO.NET сборник рецептов для профессионалов. – СПб.: Питер,2008 г. Грабер М. SQL. - М.: Лори, 2007 г.Дейт К. Дж. Введение в системы баз данных - 8-е изд. — М.: Вильямс, 2006 г.Дрога А. А., Жукова П. Н., Копонев Д. Н., Лукьянов Д. Б., Прокопенко А. Н. Информатика и математика. – Белгород: Белгородский юридический институт МВД РФ, 2008 г.Дубовцев А. Microsoft .NET в подлиннике. - СПб: БХВ-Петербург, 2009 г.Карпова Т. Базы данных. Модели, разработка, реализация. – СПб: Питер, 2005 г.Коннолли Т., Бегг К. Базы данных. Проектирование, реализация и сопровождение. Теория и практика — 3-е изд. — М.: Вильямс, 2005 г.Малик С. Microsoft ADO. NET 2.0 для профессионалов. – М.: Вильямс, 2008 г.Мартынов Н. Н. С# для начинающих. – М.: Кудиц-Пресс, 2007 г.Селко Д. SQL для профессионалов: продвинутое программирование на SQL. - М.: Лори, 2006 г.Стивенс Р. Программирование баз данных. - М.: Бином-Пресс, 2007 г.Скотт В., Эмблер, Прамодкумар Дж. Садаладж. Рефакторинг баз данных: эволюционное проектирование — М.: «Вильямс», 2007 г.Хомоненко А. Д. Базы данных (5-е издание). – СПб.: Корона принт, 2006 г.http://www.sql.ru http://hostinfo.ru/articles/web/rubric48/rubric55/1332 http://intuit.ru http://softtime.ru/bookhttp://ru.wikipedia.org/wiki/SQLПриложения Приложение 1. Код формы Авторизацияunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XPMan,unit2;type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Button1: TButton; CheckBox1: TCheckBox; Button2: TButton; XPManifest1: TXPManifest; procedure Button1Click(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementationuses Unit3, DB;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var l,p:string; i:integer;beginl:=edit1.Text;p:=edit2.Text;DataModule2.users.First;for i:=1 to DataModule2.users.RecordCount dobegin if (DataModule2.users.FieldByName('login').AsString=l)and(DataModule2.users.FieldByName('password').AsString=p) then begin form3.Label1.Caption:=datamodule2.users.fieldbyname('rol').asstring; form3.StatusBar1.Panels[0].Text:='Пользователь: '+datamodule2.users.fieldbyname('soname').asstring+' '+datamodule2.users.fieldbyname('name').asstring; form3.show; end; DataModule2.users.Next;end;end;procedure TForm1.CheckBox1Click(Sender: TObject);beginif CheckBox1.Checked then edit2.PasswordChar:=#0 else edit2.PasswordChar:=#7; end;procedure TForm1.Button2Click(Sender: TObject);beginclose;end;end.Приложение 2. Код главного окна программыunit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, XPMan, StdCtrls, ComCtrls;type TForm3 = class(TForm) MainMenu1: TMainMenu; XPManifest1: TXPManifest; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; N24: TMenuItem; N25: TMenuItem; N26: TMenuItem; N27: TMenuItem; N28: TMenuItem; StatusBar1: TStatusBar; Label1: TLabel; N29: TMenuItem; N30: TMenuItem; N31: TMenuItem; N32: TMenuItem; procedure N25Click(Sender: TObject); procedure N24Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure N30Click(Sender: TObject); procedure N32Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N15Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure N17Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N18Click(Sender: TObject); procedure N19Click(Sender: TObject); procedure N28Click(Sender: TObject); procedure N26Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form3: TForm3;implementationuses Unit1, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11, Unit12, Unit13, Unit16, Unit20, Unit21, Unit22, Unit23;procedure TForm3.N25Click(Sender: TObject);beginform4.show;end;procedure TForm3.N24Click(Sender: TObject);beginform5.showmodal;end;procedure TForm3.FormShow(Sender: TObject);begin if label1.Caption='admin' then begin n1.Enabled:=true; n2.Enabled:=true; n3.Enabled:=true; n4.Enabled:=true; n5.Enabled:=true; n6.Enabled:=true; n8.Enabled:=true; n9.Enabled:=true; end; if label1.Caption='profkom' then begin n2.Enabled:=false; n3.Enabled:=false; n4.Enabled:=false; n5.Enabled:=false; n6.Enabled:=false; n8.Enabled:=false; end; end;procedure TForm3.N30Click(Sender: TObject);beginform3.close;form1.Show;end;procedure TForm3.N32Click(Sender: TObject);beginform1.close;end;procedure TForm3.N10Click(Sender: TObject);beginform6.showmodal;end;procedure TForm3.N11Click(Sender: TObject);beginform7.showmodal;end;procedure TForm3.N12Click(Sender: TObject);beginform8.showmodal;end;procedure TForm3.N14Click(Sender: TObject);beginform9.showmodal;end;procedure TForm3.N15Click(Sender: TObject);beginform10.showmodal;end;procedure TForm3.N16Click(Sender: TObject);beginform11.showmodal;end;procedure TForm3.N17Click(Sender: TObject);beginform12.showmodal;end;procedure TForm3.N4Click(Sender: TObject);beginform13.showmodal;end;procedure TForm3.N5Click(Sender: TObject);beginform16.showmodal;end;procedure TForm3.N18Click(Sender: TObject);beginform20.showmodal;end;procedure TForm3.N19Click(Sender: TObject);beginform21.show;end;procedure TForm3.N28Click(Sender: TObject);beginform22.showmodal;end;procedure TForm3.N26Click(Sender: TObject);beginform23.showmodal;end;end.Приложение 3. Код окна БД преподавателейunit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,unit2, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,comobj;type TForm6 = class(TForm) DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; GroupBox1: TGroupBox; Label1: TLabel; Edit1: TEdit; Button1: TButton; GroupBox2: TGroupBox; Label2: TLabel; DBText1: TDBText; Label3: TLabel; DBText2: TDBText; Label4: TLabel; DBText3: TDBText; Label6: TLabel; DBText5: TDBText; Label5: TLabel; DBText4: TDBText; Label7: TLabel; DBText6: TDBText; Label8: TLabel; DBText7: TDBText; Label9: TLabel; DBText8: TDBText; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form6: TForm6;implementation{$R *.dfm}procedure TForm6.Button1Click(Sender: TObject);beginDataModule2.prepod.Filter:='Фамилия='+''''+edit1.Text+'''';DataModule2.prepod.Filtered:=true;end;procedure TForm6.Button2Click(Sender: TObject);beginDataModule2.prepod.Filtered:=false;end;procedure TForm6.Button3Click(Sender: TObject);var msword:variant;begintrymsword:=CreateOleObject('Word.Application');msword.Visible:=true;exceptException.Create('error');end; msword.documents.add; msword.Selection.Typetext(' Информация о преподавателе'#13#10#13#10); msword.Selection.Typetext('Фамилия: '+DBText1.Caption+#13#10#13#10); msword.Selection.Typetext('Имя: '+DBText2.Caption+#13#10#13#10); msword.Selection.Typetext('Отчество: '+DBText3.Caption+#13#10#13#10); msword.Selection.Typetext('Телефон: '+DBText5.Caption+#13#10#13#10); msword.Selection.Typetext('Пол: '+DBText4.Caption+#13#10#13#10); msword.Selection.Typetext('Адрес проживания: '+DBText6.Caption+#13#10#13#10); msword.Selection.Typetext('Дети: '+DBText7.Caption+#13#10#13#10); msword.Selection.Typetext('Семейное положение: '+DBText8.Caption+#13#10#13#10);end;end.Приложение 4. Код окна добавления преподавателейunit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,unit2;type TForm7 = class(TForm) GroupBox2: TGroupBox; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label6: TLabel; Label5: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Edit1: TEdit; Edit2: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form7: TForm7;implementationuses DB;{$R *.dfm}procedure TForm7.Button1Click(Sender: TObject);beginif label1.Caption='1'then beginwith DataModule2.prepod dobegin Insert;Fields[1].AsString:=edit1.Text;Fields[2].AsString:=edit2.Text;Fields[3].AsString:=edit4.Text;Fields[4].AsString:=edit5.Text;Fields[5].AsString:=edit7.Text;Fields[6].AsString:=edit8.Text;Fields[7].AsString:=edit6.