АРМ сотрудника отдела кадров

ВВЕДЕНИЕ..........................................................................................................................3
1. АНАЛИТИЧЕСКАЯ ЧАСТЬ…………………………………………………………..6
1.1. Технико-экономическая характеристика предметной области 6
1.1.1. Характеристика предприятия 6
1.1.2. Краткая характеристика подразделения или видов его деятельности 8
1.2. Техническая и технологическая сущность задачи 11
1.3. Обоснование необходимости и цели использования вычислительных и телекоммуникационных средств для решения задачи 14
1.4. Постановка задачи 16
1.4.1. Цель и назначение создания или модернизации модулей или сервисов информационной системы 16
1.4.2. Общая характеристика организации решения задачи вычислительными и телекоммуникационными средствами 18
1.4.3. Формализация алгоритма решения задачи 20
1.5. Анализ существующих разработок и обоснование выбора технологии проектирования модулей (сервисов) 22
1.6. Обоснование проектных решений по видам обеспечения: 26
1.6.1. по техническому обеспечению 26
1.6.2. по программному обеспечению 28
1.6.3. по технологическому обеспечению 31
2. ПРОЕКТНАЯ ЧАСТЬ………………………………………………………………...34
2.1. Техническое обеспечение задачи 34
2.1.1. Модель информационных потоков в информационной системы и ее
описание 34
2.1.2. Физическая схема взаимодействия отдельных частей информационной (телекоммуникационной) системы 35
2.1.3 Функции и назначение отдельных аппаратных компонентов проектируемой системы 37
2.1.4. Характеристика аппаратного комплекса в целом 39
2.2. Программное обеспечение задачи 40
2.2.1. Общие положения 40
2.2.2 Структурная схема пакета (дерево вызова процедур и программ) 41
2.2.3. Описание программных модулей 42
2.2.4. Схема взаимосвязи программных модулей и информационных (конфигурационных) файлов 48
2.3. Технологическое обеспечение задачи (комплекса задач, АРМ) 52
2.3.1. Организация технологии сбора, передачи, обработки и выдачи
информации 52
2.3.2. Схема технологического процесса сбора, передачи, обработки и выдачи информации 59
3. ЭКСПЕРИМЕНТАЛЬНАЯ ЧАСТЬ………………………………………………….62
3.1 Назначение эксперимента 62
3.2 Тестирования разработанной автоматизированной информационной системы 62
3.3 Результаты проведения эксперимента 69
4. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА ……….75
4.1. Диграмма Ганта 75
4.2 Составление сметы затрат на разработку 76
4.3.Определение цены создания системы 78
4.4. Расчет показателей экономической эффективности 83
ЗАКЛЮЧЕНИЕ…………………………………………………………………………..84
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ……………………………………..86
ПРИЛОЖЕНИЕ. ЛИСТИНГ РАЗРАБОТАННОЙ ПРОГРАММЫ…………………..88

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫБерезин Б. И., Березин С. Б. Начальный курс С и С++; Диалог-МИФИ - , 2007. - 288 c.Голицына О. Л., Максимов Н. В., Попов И. И. Базы данных; Форум - Москва, 2012. - 400 c.Голицына, О.Л. и др. Базы данных; Форум; Инфра-М - Москва, 2007. - 399 c.Дейтел, Х.М.; Дейтел, П.Дж. Как программировать на С++; М.: Бином; Издание 4-е - Москва, 2005. - 543 c.Диго, С.М. Базы данных; М.: Финансы и статистика - , 2005. - 592 c.Карпова И. П. Базы данных; Питер - Москва, 2013. - 240 c.Кузин А. В., Левонисова С. В. Базы данных; Академия - Москва, 2010. - 320 c.Кузнецов С. Д. Базы данных. Модели и языки; Бином-Пресс - Москва, 2008. - 720 c.Кузнецов С. Д. Базы данных; Академия - Москва, 2012. - 496 c.Кумскова И. А. Базы данных; КноРус - Москва, 2011. - 488 c.Лафоре Р. Объектно-ориентированное программирование в С++; Питер - Москва, 2011. - 928 c.Мэйерс С. Эффективное использование С++; Книга по Требованию - Москва, 2006. - 300 c.Уилсон М. Расширение библиотеки STL для С++; Книга по Требованию - Москва, 2008. - 608 c.Фленов Михаил Искусство программирования на С++; БХВ-Петербург - Москва, 2006. - 256 c.Фуфаев Э. В., Фуфаев Д. Э. Базы данных; Академия - Москва, 2013. - 320 c.Хомоненко А. Д., Цыганков В. М., Мальцев М. Г. Базы данных; Корона-Век - Москва, 2010. - 736 c.Штерн Виктор С++; Лори - , 2013. - 860 c.[Электронный ресурс] . Компания «Альтами»Метод доступа http://altamisoft.ru/Левчук Е. А. Технологии организации, хранения и обработки данных:— Санкт-Петербург, Вышэйшая школа, 2005 г.- 240 сПроектирование экономических информационных систем: Учебник/Г.Н.Смирнова. – М: Финансы и статистика, 2011. – 512стр.Голубков Е.П. Маркетинговые исследования: теория, методология ипрактика. М., Финпресс, 1998. – 280с.Экономика предприятия (фирмы):/ Учебник/ под ред.проф. О.И.Волкова и доц. О.В.Девяткина.- 3-е изд., перераб. и доп. ._М.: ИНФРА, М.-2004 г.ПРИЛОЖЕНИЕЛИСТИНГ РАЗРАБОТАННОЙ ПРОГРАММЫunit MainClients;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids,DBDirectoryTemplate, addsorce, DateUtils, parampoisk, ToolWin, ComCtrls, StdCtrls, jpeg, ExtCtrls, RzButton, Buttons, RzSpnEdt, RzPanel;type TMainClientsForm = class(TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; MainMenu1: TMainMenu; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N13: TMenuItem; N14: TMenuItem; DataSource1: TDataSource; ADOTable2: TADOTable; ADOTable3: TADOTable; ADOTable4: TADOTable; ADOTable5: TADOTable; ADOTable6: TADOTable; ADOTable7: TADOTable; N20: TMenuItem; N21: TMenuItem; N22: TMenuItem; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; ADOTable8: TADOTable; N24: TMenuItem; Image1: TImage; ToolBar1: TToolBar; RzRapidFireButton1: TRzRapidFireButton; RzRapidFireButton2: TRzRapidFireButton; RzRapidFireButton3: TRzRapidFireButton; RzRapidFireButton4: TRzRapidFireButton; RzRapidFireButton5: TRzRapidFireButton; DataSource2: TDataSource; h: TMenuItem; N16: TMenuItem; N1: TMenuItem; RzRapidFireButton7: TRzRapidFireButton; N11: TMenuItem; N12: TMenuItem;procedure RzRapidFireButton7Click(Sender:TObject);procedure N22Click(Sender:TObject);procedure N1Click(Sender:TObject);procedure hClick(Sender:TObject);procedure N24Click(Sender:TObject);procedure N23Click(Sender:TObject);procedure RzRapidFireButton5Click(Sender:TObject);procedure RzRapidFireButton4Click(Sender:TObject);procedure RzRapidFireButton3Click(Sender:TObject);procedure RzRapidFireButton2Click(Sender:TObject);procedure RzRapidFireButton1Click(Sender:TObject);procedure N12Click(Sender:TObject);function IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; function IsFormOpen(const FormName : string): Boolean;procedure N6Click(Sender:TObject);procedure N7Click(Sender:TObject);procedure N8Click(Sender:TObject);procedure N9Click(Sender:TObject);procedure N10Click(Sender:TObject);procedure N20Click(Sender:TObject);procedure N21Click(Sender:TObject);procedure FormCreate(Sender:TObject);procedure N3Click(Sender:TObject);procedure DataSource1DataChange(Sender: TObject; Field: TField);procedure N4Click(Sender:TObject);procedure N14Click(Sender:TObject);procedure N15Click(Sender:TObject);procedure N16Click(Sender:TObject);procedure N17Click(Sender:TObject);procedure N11Click(Sender:TObject);procedure N19Click(Sender:TObject); private { Private declarations }procedure BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); public { Public declarations } end;var MainClientsForm: TMainClientsForm; nastr:tinifile; DirectoryForm : TDBDirectoryTemplateForm; prosmForm: Taddform; mainflag:boolean; nomer_poisk:word; flag1,flag2:boolean; s:string;var dom_tel,mob_tel:string; adres,notes:string; stag:real; rogd:tdate; var education,vuz, fakultet,specialnost,kurs:string;data_vuz, data_kurs:tdate;lingvo,lingvo_k, comp, comp_k :string;idlingvo, idcomp, id_education,id_client,id_regim, id_areal, id_organization:integer;var oblast,profesiya:string;implementation{$R *.dfm}function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; var i: Integer; begin Result := False; for i := Pred(AFormName.MDIChildCount) DownTo 0 doif (AFormName.MDIChildren[i].Name = AMDIChildName) then begin Result := True; AFormName.MDIChildren[i].Free; // Break; end; end; function TMainClientsForm.IsFormOpen(const FormName : string): Boolean; var i: Integer; begin Result := False; for i := Screen.FormCount - 1 DownTo 0 doif (Screen.Forms[i].Name = FormName) then begin Result := True; Break; end; end;procedure TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); begin //создаем форму DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner); DirectoryForm.TableDBGrid.DataSource:=ds; DirectoryForm.Top:=0; DirectoryForm.Left:=0; DirectoryForm.Caption:=sCaption; end;procedure TMainClientsForm.N12Click(Sender:TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Приказ / Сроки '); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox4.Visible:=true; ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox7.Visible:=false; ProsmForm.GroupBox2.Visible:=false; ProsmForm.Caption:='Приказ / Сроки '; ProsmForm.Height:=400;end;procedure TMainClientsForm.N6Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;mainclientsform.ADOTable1.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Штатное расписание', mainclientsform.DataSource1);end;procedure TMainClientsForm.N7Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;mainclientsform.ADOTable3.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Должности', mainclientsform.DataSource1); end;procedure TMainClientsForm.N8Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;mainclientsform.ADOTable4.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Оклады', mainclientsform.DataSource1); end;procedure TMainClientsForm.N9Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;mainclientsform.ADOTable5.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Подразделения', mainclientsform.DataSource1);end;procedure TMainClientsForm.RzRapidFireButton1Click(Sender:TObject);begin MainClientsForm.N3Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton2Click(Sender:TObject);begin MainClientsForm.N11Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton3Click(Sender:TObject);begin MainClientsForm.N10Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton4Click(Sender:TObject);begin MainClientsForm.N16Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton5Click(Sender:TObject);begin MainClientsForm.Close;end;procedure TMainClientsForm.RzRapidFireButton7Click(Sender:TObject);begin MainClientsForm.N22Click(Sender);end;procedure TMainClientsForm.N10Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;mainclientsform.ADOTable6.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Образование', mainclientsform.DataSource1);end;procedure TMainClientsForm.N20Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;mainclientsform.ADOTable7.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Сроки работ', mainclientsform.DataSource1);end;procedure TMainClientsForm.N21Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;mainclientsform.ADOTable8.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Приказы', mainclientsform.DataSource1); end;procedure TMainClientsForm.N22Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск штатного расписания'; nomer_poisk:=5; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false;end;procedure TMainClientsForm.N23Click(Sender:TObject);begin mainclientsform.N3Click(Sender); mainflag:=true; flag1:=true;flag2:=false; IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox5.Visible:=false; ProsmForm.Height:=800; mainclientsform.DataSource1.DataSet.Last();end;procedure TMainClientsForm.N24Click(Sender:TObject);begin mainclientsform.N6Click(Sender); mainflag:=true; flag1:=false; flag2:=true; IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox4.Visible:=false; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox2.Visible:=false; ProsmForm.GroupBox7.Visible:=true; ProsmForm.Height:=500; ProsmForm.Width:=800; mainclientsform.DataSource1.DataSet.Last();end;procedure TMainClientsForm.FormCreate(Sender:TObject); var NewConnection: Widestring;beginID=Admin;Data Source='+GetCurrentDir+'\OK.mdb;';MainClientsForm.ADOTable1.Active:=true;MainClientsForm.ADOTable2.Active:=true;MainClientsForm.ADOTable3.Active:=true;MainClientsForm.ADOTable4.Active:=true;MainClientsForm.ADOTable5.Active:=true;MainClientsForm.ADOTable6.Active:=true;MainClientsForm.ADOTable7.Active:=true;MainClientsForm.ADOTable8.Active:=true; mainflag:=false;end;procedure TMainClientsForm.hClick(Sender:TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Подразделение '); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox3.Visible:=true; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox7.Visible:=false; ProsmForm.GroupBox2.Visible:=false; ProsmForm.GroupBox4.Visible:=false; ProsmForm.Caption:='Подразделение'; ProsmForm.Height:=400;end;procedure TMainClientsForm.N3Click(Sender:TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Элемент штатного расписания'); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox5.Visible:=true; ProsmForm.GroupBox7.Visible:=false; ProsmForm.GroupBox2.Visible:=false; ProsmForm.GroupBox4.Visible:=false; ProsmForm.Caption:='Элемент штатного расписания'; ProsmForm.Height:=400; end;procedure TMainClientsForm.DataSource1DataChange(Sender: TObject; Field: TField); var kodsotrudnika, kodolgnost, kodraspis, kodpodrazd, kodoklad, kodobraz, kodprikaz, kodsrok:integer; it: integer; beginif mainflag then begin kodsotrudnika:= mainclientsform.DataSource1.DataSet.FieldByName('ид сотрудник').AsInteger; kodolgnost:= mainclientsform.DataSource1.DataSet.FieldByName('ид должность').AsInteger; kodraspis:= mainclientsform.DataSource1.DataSet.FieldByName('Код расписания').AsInteger; kodpodrazd:= mainclientsform.DataSource1.DataSet.FieldByName('ид подразделение').AsInteger; kodoklad:= mainclientsform.DataSource1.DataSet.FieldByName('ид оклад').AsInteger; kodobraz:= mainclientsform.DataSource1.DataSet.FieldByName('ид образование').AsInteger; kodprikaz:= mainclientsform.DataSource1.DataSet.FieldByName('ид приказ').AsInteger; kodsrok:= mainclientsform.DataSource1.DataSet.FieldByName('ид срок').AsInteger; mainclientsform.ADOTable2.Active:=true; mainclientsform.ADOTable2.Locate('ид сотрудник',kodsotrudnika,[loCaseInsensitive,loPartialKey]); it:=mainclientsform.ADOTable2.FieldByName('табельный номер').AsInteger; ProsmForm.Edit71.Text:=IntToStr(it); ProsmForm.Edit70.Text:=IntToStr(kodraspis); ProsmForm.Edit80.Text:=IntToStr(mainclientsform.ADOTable2.FieldByName('год рождения').AsInteger); ProsmForm.Edit79.Text:=mainclientsform.ADOTable2.FieldByName('Фамилия').AsString; ProsmForm.Edit88.Text:=mainclientsform.ADOTable2.FieldByName('Имя').AsString; ProsmForm.Edit66.Text:=mainclientsform.ADOTable2.FieldByName('Отчество').AsString; ProsmForm.Edit74.Text:=mainclientsform.ADOTable2.FieldByName('телефон').AsString; mainclientsform.ADOTable3.Active:=true; mainclientsform.ADOTable3.Locate('Ид должность',kodolgnost,[loCaseInsensitive,loPartialKey]);ProsmForm.Edit78.Text:=mainclientsform.ADOTable3.FieldByName('Должность').AsString; ProsmForm.Edit76.Text:=mainclientsform.ADOTable3.FieldByName('Разряд').AsString;ProsmForm.Edit75.Text:=mainclientsform.ADOTable3.FieldByName('Классность').AsString; mainclientsform.ADOTable5.Active:=true; mainclientsform.ADOTable5.Locate('Ид подразделение',kodpodrazd,[loCaseInsensitive,loPartialKey]); ProsmForm.Edit65.Text:=mainclientsform.ADOTable5.FieldByName('Название отдела').AsString; ProsmForm.Edit64.Text:=IntToStr(mainclientsform.ADOTable5.FieldByName('код отдела').AsInteger); mainclientsform.ADOTable4.Active:=true; mainclientsform.ADOTable4.Locate('Ид оклад',kodoklad,[loCaseInsensitive,loPartialKey]);ProsmForm.Edit77.Text:=IntToStr(mainclientsform.ADOTable4.FieldByName('Оклад').AsInteger); ProsmForm.Edit67.Text:=IntToStr(mainclientsform.ADOTable4.FieldByName('Надбавка').AsInteger); mainclientsform.ADOTable6.Active:=true; mainclientsform.ADOTable6.Locate('Ид образование',kodobraz,[loCaseInsensitive,loPartialKey]); ProsmForm.Edit87.Text:=IntToStr(mainclientsform.ADOTable6.FieldByName('Год').AsInteger);ProsmForm.Edit83.Text:=mainclientsform.ADOTable6.FieldByName('ступень').AsString;ProsmForm.Edit82.Text:=mainclientsform.ADOTable6.FieldByName('учебное заведение').AsString;ProsmForm.Edit86.Text:=mainclientsform.ADOTable6.FieldByName('профессия').AsString;ProsmForm.Edit72.Text:=mainclientsform.ADOTable6.FieldByName('номер диплома').AsString; mainclientsform.ADOTable8.Active:=true; mainclientsform.ADOTable8.Locate('Ид приказ',kodobraz,[loCaseInsensitive,loPartialKey]);ProsmForm.Edit19.Text:=IntToStr(mainclientsform.ADOTable8.FieldByName('Приказ номер').AsInteger);ProsmForm.Edit35.Text:=mainclientsform.ADOTable8.FieldByName('подпись').AsString; ProsmForm.Edit20.Text:=DateToStr(mainclientsform.ADOTable8.FieldByName('дата приказа').AsDateTime); mainclientsform.ADOTable7.Active:=true; mainclientsform.ADOTable7.Locate('Ид срок',kodsrok,[loCaseInsensitive,loPartialKey]); ProsmForm.Edit39.Text:=mainclientsform.ADOTable7.FieldByName('испытательный срок').AsString; ProsmForm.Edit36.Text:=DateToStr(mainclientsform.ADOTable7.FieldByName('дата начала').AsDateTime); ProsmForm.Edit38.Text:=DateToStr(mainclientsform.ADOTable7.FieldByName('дата окончания').AsDateTime); end;end;procedure TMainClientsForm.N4Click(Sender:TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Должность / оклад'); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=true; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox7.Visible:=false; ProsmForm.GroupBox2.Visible:=false; ProsmForm.GroupBox4.Visible:=false; ProsmForm.Caption:='Должность/оклад'; ProsmForm.Height:=400;end;procedure TMainClientsForm.N14Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск приказа по номеру'; nomer_poisk:=1; Poisk.GroupBox1.Visible:=true; Poisk.GroupBox2.Visible:=false;end;procedure TMainClientsForm.N15Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Документы по дате'; nomer_poisk:=2; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; end;procedure TMainClientsForm.N16Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Поиск сотрудника'; nomer_poisk:=2; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=true;end;procedure TMainClientsForm.N17Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Белый список'; nomer_poisk:=5; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.Button1.Caption:='Подготовить данные'; end;procedure TMainClientsForm.N11Click(Sender:TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Сотрудник / образование '); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox2.Visible:=true; ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox7.Visible:=false; ProsmForm.GroupBox4.Visible:=false; ProsmForm.Caption:='Сотрудник / образование'; ProsmForm.Height:=400;end;procedure TMainClientsForm.N1Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;mainclientsform.ADOTable2.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Сотрудники', mainclientsform.DataSource1);end;end.unit addsorce;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls, DBCtrls ;type TaddForm = class(TForm) GroupBox1: TGroupBox; Button1: TButton; GroupBox3: TGroupBox; Button3: TButton; GroupBox5: TGroupBox; Button5: TButton; GroupBox7: TGroupBox; DBNavigator2: TDBNavigator; Label18: TLabel; Label35: TLabel; Label31: TLabel; Label32: TLabel; Label17: TLabel; Edit17: TEdit; Edit32: TEdit; Edit31: TEdit; Edit37: TEdit; Edit18: TEdit; Label34: TLabel; Label33: TLabel; Edit33: TEdit; Edit34: TEdit; Edit21: TEdit; Label20: TLabel; Label4: TLabel; Edit4: TEdit; Edit7: TEdit; Edit6: TEdit; Edit3: TEdit; Edit2: TEdit; Edit1: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label6: TLabel; Label7: TLabel; Label9: TLabel; Edit9: TEdit; Edit8: TEdit; Label8: TLabel; GroupBox2: TGroupBox; Label14: TLabel; Label16: TLabel; Label5: TLabel; Label90: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Edit12: TEdit; Edit11: TEdit; Edit10: TEdit; Edit94: TEdit; Edit16: TEdit; Edit5: TEdit; Edit14: TEdit; Label13: TLabel; Edit13: TEdit; Edit22: TEdit; Label21: TLabel; Edit15: TEdit; Label28: TLabel; Edit23: TEdit; Label15: TLabel; Edit27: TEdit; Label29: TLabel; Button2: TButton; GroupBox4: TGroupBox; Label37: TLabel; Edit30: TEdit; Edit29: TEdit; Label36: TLabel; Label30: TLabel; Label26: TLabel; Edit28: TEdit; Edit26: TEdit; Edit25: TEdit; Label25: TLabel; Label24: TLabel; Edit24: TEdit; Button4: TButton; Edit39: TEdit; Label42: TLabel; Label41: TLabel; Edit38: TEdit; Edit36: TEdit; Label40: TLabel; Edit19: TEdit; Label19: TLabel; Label83: TLabel; Label84: TLabel; Edit83: TEdit; Edit87: TEdit; Label81: TLabel; Label80: TLabel; Edit35: TEdit; Label39: TLabel; Edit86: TEdit; Label62: TLabel; Edit72: TEdit; Label78: TLabel; Edit65: TEdit; Label27: TLabel; Label72: TLabel; Edit76: TEdit; Edit79: TEdit; Label68: TLabel; Label66: TLabel; Edit70: TEdit; Label67: TLabel; Edit71: TEdit; Edit88: TEdit; Edit66: TEdit; Label74: TLabel; Edit78: TEdit; Label23: TLabel; Edit80: TEdit; Edit74: TEdit; Edit67: TEdit; Label63: TLabel; Edit77: TEdit; Label22: TLabel; Edit75: TEdit; Label71: TLabel; Label70: TLabel; Edit82: TEdit; Edit20: TEdit; Edit64: TEdit;procedure Button4Click(Sender:TObject);procedure Button2Click(Sender:TObject);procedure Button5Click(Sender:TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button1Click(Sender:TObject);procedure Button3Click(Sender:TObject); private { Private declarations } public { Public declarations } end;var addForm: TaddForm; naim:string;ed_izm:string;kolvo:integer;cena:real;nomerpartiya:string;sernum:string;srok_godnost:tdate;data_postavka:tdate;postavchik:string;description:string; location:string; location_part:string; primech:string; Ayear, amonth,aday:word; razmer_part,kol:integer; id_part,idaddional,idlocation,idzapas:integer; idtov,id_proffesiya:integer;implementationuses MainClients;{$R *.dfm}procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure TaddForm.Button1Click(Sender:TObject); vardolgnost, razryad,klasnost:string; oklad, nadbavka, nomer_pr:integer; Date1:TdateTime; begin // добавление данных отдел dolgnost:= Edit1.Text; razryad:= Edit2.Text; klasnost:= Edit3.Text; oklad:=StrToInt(Edit6.Text); nadbavka:=StrToInt(Edit7.Text); nomer_pr:=StrToInt(Edit4.Text); Date1:=StrToDate(Edit21.Text); mainclientsform.ADOTable3.Active:=true; mainclientsform.ADOTable3.Insert(); mainclientsform.ADOTable3.FieldByName('должность').AsString:=dolgnost; mainclientsform.ADOTable3.FieldByName('разряд').AsString:= razryad; mainclientsform.ADOTable3.FieldByName('классность').AsString:= klasnost; mainclientsform.ADOTable3.Post(); mainclientsform.ADOTable4.Active:=true; mainclientsform.ADOTable4.Insert(); mainclientsform.ADOTable4.FieldByName('оклад').AsInteger:= oklad; mainclientsform.ADOTable4.FieldByName('Надбавка').AsInteger:= nadbavka; mainclientsform.ADOTable4.FieldByName('номер приказа').AsInteger:= nomer_pr; mainclientsform.ADOTable4.FieldByName('дата').AsDateTime:= Date1; mainclientsform.ADOTable4.Post();end;procedure TaddForm.Button2Click(Sender:TObject); var tab_nomer,god, god_ok:integer; fam, name, otch,tel, adres, stupen, zaved, prof, nomer_dipl:String;begintab_nomer:= STRtoint(Edit14.Text); god:= STRtoint(Edit10.Text); fam:= Edit5.Text; name:= Edit16.Text; otch:= Edit94.Text; tel:= Edit11.Text; adres:=Edit12.Text; mainclientsform.ADOTable2.Active:=true; mainclientsform.ADOTable2.Insert(); mainclientsform.ADOTable2.FieldByName('табельный номер').AsInteger:= tab_nomer; mainclientsform.ADOTable2.FieldByName('год рождения').AsInteger:= god; mainclientsform.ADOTable2.FieldByName('Фамилия').AsString:= fam; mainclientsform.ADOTable2.FieldByName('Имя').AsString:= name; mainclientsform.ADOTable2.FieldByName('Отчество').AsString:= otch; mainclientsform.ADOTable2.FieldByName('Телефон').AsString:= tel; mainclientsform.ADOTable2.FieldByName('Адрес').AsString:= adres; mainclientsform.ADOTable2.Post(); god_ok:= StrToInt(Edit15.Text); stupen:= Edit13.Text; zaved:= Edit22.Text; prof:= Edit23.Text; nomer_dipl:= Edit27.Text; mainclientsform.ADOTable6.Active:=true; mainclientsform.ADOTable6.Insert(); mainclientsform.ADOTable6.FieldByName('ступень').AsString:= stupen; mainclientsform.ADOTable6.FieldByName('учебное заведение').AsString:= zaved; mainclientsform.ADOTable6.FieldByName('год').AsInteger:= god_ok; mainclientsform.ADOTable6.FieldByName('профессия').AsString:= prof; mainclientsform.ADOTable6.FieldByName('номер диплома').AsString:= nomer_dipl; mainclientsform.ADOTable6.Post();end;procedure TaddForm.Button3Click(Sender:TObject); var Naimen:string; kod:integer;begin Naimen:= Edit8.Text; kod:=STRToInt(Edit9.Text); mainclientsform.ADOTable5.Active:=true; mainclientsform.ADOTable5.Insert(); mainclientsform.ADOTable5.FieldByName('Название отдела').AsString:= Naimen; mainclientsform.ADOTable5.FieldByName('код отдела').AsInteger:= kod; mainclientsform.ADOTable5.Post(); end;procedure TaddForm.Button4Click(Sender:TObject);var podpis,isp: String ; pr_nom :integer; Date1:TdateTime;begin pr_nom:=StrToint(Edit24.Text); Date1:=StrToDate(Edit25.Text); mainclientsform.ADOTable8.Active:=true; mainclientsform.ADOTable8.Insert(); mainclientsform.ADOTable8.FieldByName('приказ номер').AsInteger:= pr_nom; mainclientsform.ADOTable8.FieldByName('подпись').AsString:= podpis; mainclientsform.ADOTable8.FieldByName('дата приказа').AsDateTime:=Date1; mainclientsform.ADOTable8.Post(); Date1:=StrToDate(Edit28.Text); mainclientsform.ADOTable7.Active:=true; mainclientsform.ADOTable7.Insert(); Date1:=StrToDate(Edit28.Text); mainclientsform.ADOTable7.FieldByName('дата начала').AsDateTime:= Date1; Date1:=StrToDate(Edit29.Text); mainclientsform.ADOTable7.FieldByName('дата окончания').AsDateTime:= Date1; isp:= Edit30.Text; mainclientsform.ADOTable7.FieldByName('испытательный срок').AsString:= isp; mainclientsform.ADOTable7.Post();end;procedure TaddForm.Button5Click(Sender:TObject); var koddolgnost, kodsrok, kodsotr, kodprikaz, kodobraz, kodoklad, kodpodrazd:integer;begin koddolgnost:=STRToInt(Edit18.Text); kodsrok:=STRToInt(Edit34.Text); kodsotr:=STRToInt(Edit37.Text); kodprikaz:=STRToInt(Edit31.Text); kodobraz:=STRToInt(Edit33.Text); kodoklad:=STRToInt(Edit17.Text); kodpodrazd:=STRToInt(Edit32.Text); mainclientsform.ADOTable1.Active:=true; mainclientsform.ADOTable1.Insert(); mainclientsform.ADOTable1.FieldByName('ид должность').AsInteger:= koddolgnost; mainclientsform.ADOTable1.FieldByName('ид сотрудник').AsInteger:= kodsotr; mainclientsform.ADOTable1.FieldByName('ид приказ').AsInteger:= kodprikaz ; mainclientsform.ADOTable1.FieldByName('ид срок').AsInteger:=kodsrok; mainclientsform.ADOTable1.FieldByName('ид образование').AsInteger:=kodobraz; mainclientsform.ADOTable1.FieldByName('ид оклад').AsInteger:=kodoklad; mainclientsform.ADOTable1.FieldByName('ид подразделение').AsInteger:=kodpodrazd; mainclientsform.ADOTable1.Post();end;end.unit parampoisk;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,addsorce, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls ;type Tparampoik = class(TForm) Button1: TButton; GroupBox1: TGroupBox; Label1: TLabel; Edit3: TEdit; GroupBox2: TGroupBox; Label2: TLabel; Edit1: TEdit;procedure RzBitBtn4Click(Sender:TObject);procedure RzBitBtn3Click(Sender:TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button1Click(Sender:TObject); private { Private declarations } public { Public declarations } end;var parampoik: Tparampoik; ChildTemplateForm1: TChildTemplateForm; ff:string; flagpoisk:boolean; p1,p2:tparameter;all:boolean;ahour, aminute, asecond, amillisecond :word;priznak:string;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string;idnakl,idzapas,i,sravn,kolnakl,kolzapas, rezerv_kol:integer;implementationuses mainclients;{$R *.dfm}procedure Tparampoik.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure Tparampoik.RzBitBtn3Click(Sender:TObject);var ChildTemplateForm:TChildTemplateform;all:boolean;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string; fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;begin MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1; mainclientsform.ADOQuery1.Active:=false; mainclientsform.ADOQuery1.SQL.Clear; P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;end;procedure Tparampoik.RzBitBtn4Click(Sender:TObject);begin flagpoisk:=false; MainClientsForm.IsMDIChildOpen(MainClientsForm,'parampoik');end;procedure Tparampoik.Button1Click(Sender:TObject);var ChildTemplateForm:TChildTemplateform; timenach,timekon:tdatetime; data:tdatetime; summa,srok:integer;begin MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear;if nomer_poisk=1 then begin childTemplateForm.Button1.Visible:=false; P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; S:=Edit3.Text; P1.Name:='P1'; P1.DataType:=ftString; P1.Value:=S; stroka_SQL:= stroka_SQL+' SELECT * FROM Приказ WHERE (Приказ.[приказ номер]=:P1 );'; if (stroka_SQL<>'') then begin mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL(); end; end; if nomer_poisk=2 then begin childTemplateForm.Button1.Visible:=false; P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; S:=Edit1.Text; P1.Name:='P1'; P1.DataType:=ftString; P1.Value:=S; stroka_SQL:='select * from Сотрудник where Сотрудник.Фамилия = :P1' ; if (stroka_SQL<>'') then begin mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL(); end; end; if nomer_poisk=5 then begin childTemplateForm.Button1.Visible:=true; stroka_SQL:=' SELECT Подразделение.[код отдела], Подразделение.[Название отдела], Должность.должность, Должность.разряд, Сотрудник.Фамилия, Сотрудник.Имя, Сотрудник.Отчество, Оклад.Оклад, Оклад.Надбавка ';stroka_SQL:=stroka_SQL+ ' FROM Оклад INNER JOIN (Должность INNER JOIN (Подразделение INNER JOIN (Сотрудник INNER JOIN [Штатное расписание] ON Сотрудник.[Ид сотрудник] = [Штатное расписание].[ид сотрудник]) ';stroka_SQL:=stroka_SQL+ 'ON Подразделение.[Ид подразделение] = [Штатное расписание].[ид подразделение]) ON Должность.[Ид должность] = [Штатное расписание].[ид должность]) ON Оклад.[Ид оклад] = [Штатное расписание].[ид оклад]; '; if (stroka_SQL<>'') then begin mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL(); end; end; end;end.unit ChildTemplate;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, Grids, DBGrids, ExtCtrls, Menus, StdCtrls, OleServer, ExcelXP, OleCtnrs, ComObj;type TChildTemplateForm = class(TForm) DBGrid1: TDBGrid; Button1: TButton; Label1: TLabel;procedure Button1Click(Sender:TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure RzToolbarButton2Click(Sender:TObject);procedure RzToolbarButton1Click(Sender:TObject); private { Private declarations } public { Public declarations } end;implementation{$R *.dfm}uses mainclients;procedure TChildTemplateForm.Button1Click(Sender:TObject); var put,asFileName:string; var XlApplication: OleVariant; XLWorkSheet: OleVariant;var vVarApp,vVarBooks,vVarBook, vVarSheets,vVarSheet,vVarCell,ws: Variant; i,j:integer; a:string;begin if mainclientsform.ADOQuery2.RecordCount>0 then begin try XlApplication := GetActiveOleObject('Excel.Application'); except XlApplication := CreateOleObject('Excel.Application'); end; XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'zayavka.xlt', 0, true]; XlApplication.Visible := true; XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet; for i:=1 to mainclientsform.ADOQuery2.RecordCount do begin j := 0; A:= IntToStr(mainclientsform.ADOQuery2.FieldByName('код отдела').AsInteger); XLWorkSheet.cells[i+5,2]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('Название отдела').AsString; XLWorkSheet.cells[i+5,3]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('Должность').AsString; XLWorkSheet.cells[i+5,4]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('Разряд').AsString; XLWorkSheet.cells[i+5,5]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('Фамилия').AsString; XLWorkSheet.cells[i+5,6]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('Имя').AsString; XLWorkSheet.cells[i+5,7]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('Отчество').AsString; XLWorkSheet.cells[i+5,8]:=A ; A:= IntToStr(mainclientsform.ADOQuery2.FieldByName('Оклад').AsInteger); XLWorkSheet.cells[i+5,9]:=A ; A:= IntToStr(mainclientsform.ADOQuery2.FieldByName('Надбавка').AsInteger); XLWorkSheet.cells[i+5,10]:=A ; mainclientsform.ADOQuery2.Next(); end; end;end;procedure TChildTemplateForm.FormClose(Sender: TObject; var Action: TCloseAction);beginAction:=caFree;end;procedure TChildTemplateForm.RzToolbarButton1Click(Sender:TObject);begindbgrid1.DataSource.DataSet.Insert;end;procedure TChildTemplateForm.RzToolbarButton2Click(Sender:TObject);begindbgrid1.DataSource.DataSet.Edit;end;end.