96
Разработанная программа имеет дружественый, интуитивно понятный
интерфейс, благодаря чему можно снизить связанные с обучением персонала
издержки.
Программа была реализована с помощью СУБД MS SQL и языка
объектно-ориентированного программирования Borland Delphi 7.0.
В работе реализован комплекс работ, которые направлены на обоснование
необходимости автоматизации: определена сущность задачи, описаны основные
свойства системы, существующие бизнес-процессы, проанализированы
существующие аналоги. Обоснованы проектные решения по программному,
информационному, техническому и технологическому обеспечению.
В проектной части рассмотрены этапы жизненного цикла проекта, дана
характеристика информационной архитектуры создаваемой информационной
системы, построена информационная модель, описана структура базы данных, а
также информационные потоки входной, нормативно-справочной, результатной
и оперативной информации.
Также в работе описаны все используемые программные модули,
построена схема технологического процесса сбора, передачи, обработки и
выдачи информации, описан контрольный пример реализации проекта.
В третьей части работы выполнены расчеты обоснования экономической
эффективности проекта. Как проказывают полученные результаты расчетов,
создание проекта является эффективным с точки зрения экономии.
97
СПИСОК ЛИТЕРАТУРЫ
1. Архангельский А.Я. 100 компонентов общего назначения библиотеки
Delphi 5 - М.: ЗАО «Издательство БИНОМ», 2012 .-112с.
2. Бойко В.В., Савинков В.М. Проектирование баз данных
информационных систем. – М.: Финансы и статистика, 2012
3. Бойко В.В., Савинков В.М. «Проектирование информационной базы
автоматизированной системы на основе СУБД» М.: Финансы и статистика, 2012.
4. Вермишев Ю.Х. “Основы автоматизации проектирования», М.:
Издательство Бином, 2015
5. Грого П. «Программирование на языке Delphi», М., Наука, 2014.
6. Дантеманн Дж. «Программирование в среде Delphi», М., Наука, 2012
7. Дарахвелидзе П.Г., Марков Е.П. Программирование в Delphi 7.0. –
СПб.: БХВ – Петербург, 2013 г.
8. Жилин Д.М. Теория систем: опыт построения курса. – КомКнига, 2013.
– 123с.
9. Иванова Г.С. – «Основы безопасности баз данных и СУБД» Учебник
для вузов. – М.: Изд-во МГТУ им. Н.Э. Баумана, 2012. – 156с.
10. Информационные системы в экономике. Под ред. проф. В.В. Дика
Москва, Финансы и статистика, 2012
11. Кулагин Д. Теория и практика построения баз данных. – Питер, 2012. –
206с.
12. Малевич Г. Информационная безопасность базы данных. – СПб. :
БХВ-Петербург, 2011. – 199с.
13. Омарова Ш.Е., Дрозд В.Г., Косова Е.Г. –Учебное пособие
«Проектирование баз данных».
14. Солодкин В.В. Базы данных. Теория и практика.– Высшая школа, 2012.
– 49с.
15. Тюкачев Н., Свиридов Ю. Delphi 5. Создание мультимедийных
приложений. Учебный курс.- СПб.: Питер, 2013.-251с.
16. Фаронов В.В. Delphi 2007 Язык, среда, разработка приложений. –
СПб.: Санкт-Петербург, 2012.
98
17. Фуфаев, Э.В. Базы данных: Учебное пособие для студентов
учреждений среднего профессионального образования / Э.В. Фуфаев, Д.Э.
Фуфаев. - М.: ИЦ Академия, 2013. - 320 c.
18. Эйдлина, Г.М. Delphi: программирование в примерах и задачах.
Практикум: Учебное пособие / Г.М. Эйдлина, К.А. Милорадов. - М.: ИЦ РИОР,
НИЦ ИНФРА-М, 2012. - 116 c.
19. Цыбулин М.К. Базы данных. – М.: Наука, 2012. – 112с.
20. Лунарева С.И. Некоторые аспекты разработки баз данных
[Электронный ресурс] / С.И.Лунарева // Молодой ученый. - 2012. - N 8. - Режим
доступа: http://moluch.ru/8(34)2012/2.html.
21. Подолян С.В. Современные технологии разработки баз данных
[Электронный ресурс] / С.В.Подолян // Вестник Инновационного Евразийского
Университета. - 2011. - N 5. - Режим доступа: http://articlekz.com/article/13620.
99
ПРИЛОЖЕНИЕ А
Листинг программы
unit MainForm; // модуль главной формы
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, DB, Grids, DBGrids, ExtCtrls, DBCtrls, Calendar,
ComCtrls, XPMan, StdCtrls, RpCon, RpConDS, RpDefine, RpRave, ExtDlgs,
Buttons,ComObj, Menus, jpeg;
Form22.StatusBar1.Panels[2].Text:='Групповые приказы всех сотрудников
организаций';
end;
procedure TForm1.RbButton11MouseMove(Sender: TObject; Shift:
TShiftState;
X, Y: Integer);
begin
if Form22.CheckBox1.Checked = false then
Form22.StatusBar1.Panels[2].Text:='Применение настроек программы';
end;
procedure TForm1.WMActivateApp(var Msg: TWMActivateApp);
begin
if IsIconic(Application.Handle) then begin
ShowWindow(Application.Handle, SW_RESTORE);
SetActiveWindow(Handle);
100
end;
inherited;
end;
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_Minimize) then ShowWindow(Application.Handle,
SW_MINIMIZE)
else inherited;
end;
procedure TForm1.RbButton12Click(Sender: TObject);
begin
Form1.Visible:=False;
Form22.StatusBar1.Panels[2].Text:='';
Form21.Show;
end;
procedure TForm1.RbButton12MouseMove(Sender: TObject; Shift:
TShiftState;
X, Y: Integer);
begin
if Form22.CheckBox1.Checked = false then
Form22.StatusBar1.Panels[2].Text:='Формирование разных отчётов и
приказов';
end else begin
kara1989:='Добавить данные в справочник?';
Form2.Caption:='Сотрудники';
Form2.JvScrollMaxBand1.Caption:='Действия над сотрудниками';
Form2.GroupBox1.Caption:='Отображать в списке';
101
Form2.RadioButton2.Caption:=' Сотрудники';
Form2.RadioButton1.Caption:=' Уволенные';
Form2.SpeedButton1.Caption:='Поиск';
Form2.Button5.Caption:='Добавить сотрудника';
Form2.Button6.Caption:='Удалить сотрудника';
Form2.Button7.Caption:='Уволить';
Form2.Button8.Caption:='Восстановить';
Form2.Button9.Caption:='Перевод';
Form2.Button10.Caption:='Поощрение';
Form2.Button11.Caption:='Личная карточка';
Form2.cxTabSheet1.Caption:='О сотруднике';
Form2.cxTabSheet2.Caption:='Должность';
Form2.cxTabSheet3.Caption:='Семья и родственники';
Form2.cxTabSheet5.Caption:='Журнал приказов';
Form2.cxTabSheet7.Caption:='Военная обязанность';
Form2.cxTabSheet8.Caption:='Произвольная информация';
Form2.Label1.Caption:='Фамилия';
Form2.Label2.Caption:='Имя';
Form2.Label3.Caption:='Отчество';
Form2.Label4.Caption:='Табельный номер';
Form2.Label5.Caption:='Дата рождения';
Form2.Label6.Caption:='Возраст';
Form2.kaGroupBox1.Caption:=' Место рождения';
Form2.Label7.Caption:='Страна';
Form2.Label8.Caption:='Область';
Form2.Label9.Caption:='Район';
Form2.Label10.Caption:='Население';
Form2.Label11.Caption:='Национальность';
Form2.Label12.Caption:='Гражданство';
Form2.kaGroupBox2.Caption:=' Паспорт';
102
Form2.Label13.Caption:='Серия';
Form2.Label14.Caption:='Номер';
Form2.Label15.Caption:='Дата выдачи';
Form2.Label16.Caption:='Орган выдачи';
Form2.kaGroupBox5.Caption:=' Адрес прописки';
Form2.Label30.Caption:='Население';
Form2.Label31.Caption:='Улица';
Form2.Label32.Caption:='Дом';
Form2.Label33.Caption:='Кв.';
Form2.kaGroupBox6.Caption:=' Адрес проживания';
Form2.Label35.Caption:='Население';
Form2.Label36.Caption:='Улица';
Form2.Label37.Caption:='Дом';
Form2.Label38.Caption:='Кв.';
Form2.kaGroupBox4.Caption:=' Договор';
Form2.Label26.Caption:='Номер договора';
Form2.Label27.Caption:='Дата договора';
Form2.Label28.Caption:='Дата приёма';
Form2.kaGroupBox3.Caption:=' Телефоны';
Form2.Label23.Caption:='Домашний';
Form2.Label24.Caption:='Рабочий';
Form2.Label25.Caption:='Мобильный';
Form2.Label17.Caption:='Пол';
Form2.Label18.Caption:='Семейное положение';
Form2.Label19.Caption:='Образование';
Form2.Label20.Caption:='ИНН';
Form2.Label21.Caption:='№ страх. свид.';
Form2.Label22.Caption:='№ мед. полиса';
Form2.Label84.Caption:='Начало';
Form2.Label85.Caption:='Окончание';
103
Form2.Label86.Caption:='Название организации';
Form2.Label88.Caption:='Причина увольнения';
Form2.Label87.Caption:='Должность';
Form2.Button2.Caption:='Изменить';
Form2.DBLookupComboBox5.ListField:='';
Form2.DBLookupComboBox5.KeyField:='';
Form2.DBLookupComboBox5.ListSource:=DataModule1.DataStrana;
Form2.DBLookupComboBox5.ListField:='Strana';
Form2.DBLookupComboBox5.KeyField:='Strana';
Form2.DBLookupComboBox6.ListField:='';
Form2.DBLookupComboBox6.KeyField:='';
Form2.DBLookupComboBox6.ListSource:=DataModule1.DataOblast;
Form2.DBLookupComboBox6.ListField:='Oblast';
Form2.DBLookupComboBox6.KeyField:='Oblast';
Form2.DBLookupComboboxEh9.ListField:='';
Form2.DBLookupComboboxEh9.KeyField:='';
Form2.DBLookupComboboxEh9.ListSource:=DataModule1.DataNationalnost;
Form2.DBLookupComboboxEh9.ListField:='Nationalnost';
Form2.DBLookupComboboxEh9.KeyField:='Nationalnost';
Form2.DBLookupComboboxEh10.ListField:='';
Form2.DBLookupComboboxEh10.KeyField:='';
Form2.DBLookupComboboxEh10.ListSource:=DataModule1.DataGrazhdanstv
o;
Form2.DBLookupComboboxEh10.ListField:='Grazhdanstvo';
Form2.DBLookupComboboxEh10.KeyField:='Grazhdanstvo';
Form2.DBLookupComboBox8.ListField:='';
Form2.DBLookupComboBox8.KeyField:='';
Form2.DBLookupComboBox8.ListSource:=DataModule1.DataPassportUchrezh
denie;
Form2.DBLookupComboBox8.ListField:='Passport_uchrezhdenie';
104
Form2.DBLookupComboBox8.KeyField:='Passport_uchrezhdenie';
Form2.DBLookupComboBox2.ListField:='';
Form2.DBLookupComboBox2.KeyField:='';
Form2.DBLookupComboBox2.ListSource:=DataModule1.DataPol;
Form2.DBLookupComboBox2.ListField:='Pol';
Form2.DBLookupComboBox2.KeyField:='Pol';
Form2.DBLookupComboBox3.ListField:='';
Form2.DBLookupComboBox3.KeyField:='';
Form2.DBLookupComboBox3.ListSource:=DataModule1.DataSemeinoePolozh
enie;
Form2.DBLookupComboBox3.ListField:='Semeinoe_polozhenie';
Form2.DBLookupComboBox3.KeyField:='Semeinoe_polozhenie';
Form2.DBLookupComboBox4.ListField:='';
Form2.DBLookupComboBox4.KeyField:='';
Form2.DBLookupComboBox4.ListSource:=DataModule1.DataObrazovanie;
Form2.DBLookupComboBox4.ListField:='Obrazovanie';
Form2.DBLookupComboBox4.KeyField:='Obrazovanie';
Form2.DBLookupComboboxEh3.ListField:='';
Form2.DBLookupComboboxEh3.KeyField:='';
Form2.DBLookupComboboxEh3.ListSource:=DataModule1.DataPrichinaUvoln
eniya;
Form2.DBLookupComboboxEh3.ListField:='Prichina_uvolneniya';
Form2.DBLookupComboboxEh3.KeyField:='Prichina_uvolneniya';
Form2.Edit4.Left:=112;
Form2.Label5.Left:=184;
Form2.DBDateTimeEditEh1.Left:=272;
Form2.DBDateTimeEditEh1.Width:=105;
Form2.Label6.Left:=400;
Form2.Edit5.Width:=121;
Form2.Edit5.Left:=496;
105
Form2.Panel4.Top:=8;
Form2.DBLookupComboBox3.Width:=97;
Form2.DBLookupComboBox3.Left:=128;
Form2.DBLookupComboBox5.Width:=273;
Form2.DBLookupComboBox5.Left:=104;
Form2.DBLookupComboBox6.Width:=273;
Form2.DBLookupComboBox6.Left:=104;
Form2.Edit29.Width:=273;
Form2.Edit29.Left:=104;
Form2.Edit30.Width:=273;
Form2.Edit30.Left:=104;
Form2.DBLookupComboboxEh9.Width:=273;
Form2.DBLookupComboboxEh9.Left:=104;
Form2.DBLookupComboboxEh10.Width:=273;
Form2.DBLookupComboboxEh10.Left:=104;
Form2.Label33.Left:=232;
Form2.Label38.Left:=232;
Form2.kaGroupBox11.Caption:=' Информация о должности';
Form2.Label45.Caption:='Отдел';
Form2.Label46.Caption:='Группа';
Form2.Label47.Caption:='Должность';
Form2.Button36.Caption:='Изменить без перевода';
Form2.kaGroupBox10.Caption:=' Информация о приёме';
Form2.Label48.Caption:='Характер';
Form2.Label49.Caption:='Условие';
Form2.Button37.Caption:='Изменить';
Form2.kaGroupBox7.Caption:=' Информация о работе';
Form2.Label51.Caption:='Вид работы';
Form2.kaGroupBox12.Caption:=' Информация о зарплате';
Form2.kaGroupBox8.Caption:=' Количество дней отпуска';