АРМ сотрудника отдела кадров
Заказать уникальную дипломную работу- 119 119 страниц
- 22 + 22 источника
- Добавлена 30.06.2015
- Содержание
- Часть работы
- Список литературы
- Вопросы/Ответы
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.
2. Голицына О. Л., Максимов Н. В., Попов И. И. Базы данных; Форум - Москва, 2012. - 400 c.
3. Голицына, О.Л. и др. Базы данных; Форум; Инфра-М - Москва, 2007. - 399 c.
4. Дейтел, Х.М.; Дейтел, П.Дж. Как программировать на С++; М.: Бином; Издание 4-е - Москва, 2005. - 543 c.
5. Диго, С.М. Базы данных; М.: Финансы и статистика - , 2005. - 592 c.
6. Карпова И. П. Базы данных; Питер - Москва, 2013. - 240 c.
7. Кузин А. В., Левонисова С. В. Базы данных; Академия - Москва, 2010. - 320 c.
8. Кузнецов С. Д. Базы данных. Модели и языки; Бином-Пресс - Москва, 2008. - 720 c.
9. Кузнецов С. Д. Базы данных; Академия - Москва, 2012. - 496 c.
10. Кумскова И. А. Базы данных; КноРус - Москва, 2011. - 488 c.
11. Лафоре Р. Объектно-ориентированное программирование в С++; Питер - Москва, 2011. - 928 c.
12. Мэйерс С. Эффективное использование С++; Книга по Требованию - Москва, 2006. - 300 c.
13. Уилсон М. Расширение библиотеки STL для С++; Книга по Требованию - Москва, 2008. - 608 c.
14. Фленов Михаил Искусство программирования на С++; БХВ-Петербург - Москва, 2006. - 256 c.
15. Фуфаев Э. В., Фуфаев Д. Э. Базы данных; Академия - Москва, 2013. - 320 c.
16. Хомоненко А. Д., Цыганков В. М., Мальцев М. Г. Базы данных; Корона-Век - Москва, 2010. - 736 c.
17. Штерн Виктор С++; Лори - , 2013. - 860 c.
18. [Электронный ресурс] . Компания «Альтами» Метод доступа http://altamisoft.ru/
19. Левчук Е. А. Технологии организации, хранения и обработки данных:— Санкт-Петербург, Вышэйшая школа, 2005 г.- 240 с
20. Проектирование экономических информационных систем: Учебник/Г.Н.Смирнова. – М: Финансы и статистика, 2011. – 512стр.
21. Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.
22. Экономика предприятия (фирмы):/ Учебник/ под ред.проф. О.И.Волкова и доц. О.В.Девяткина.- 3-е изд., перераб. и доп. ._М.: ИНФРА, М.-2004 г.
Вопрос-ответ:
Какая информация содержится в аналитической части статьи о АРМ сотрудника отдела кадров?
Аналитическая часть данной статьи содержит технико-экономическую характеристику предметной области, характеристику предприятия, краткую характеристику подразделения или видов его деятельности, техническую и технологическую сущность задачи, а также обоснование необходимости и цели использования вычислительных и телекоммуникационных технологий в работе сотрудника отдела кадров.
Что включает в себя технико-экономическая характеристика предметной области в данной статье?
Технико-экономическая характеристика предметной области включает описание основных технических и экономических аспектов работы сотрудника отдела кадров. Это может включать информацию о используемых программных и аппаратных средствах, организации процесса работы, затратах ресурсов и другие факторы, связанные с эффективностью работы отдела кадров.
Какую роль играет характеристика предприятия в статье о АРМ сотрудника отдела кадров?
Характеристика предприятия позволяет описать особенности и основные параметры деятельности предприятия, на котором работает отдел кадров. Это может включать информацию о размере и штатной численности предприятия, его сфере деятельности, структуре управления и другие аспекты, которые могут оказывать влияние на работу сотрудника отдела кадров.
Что представляет собой краткая характеристика подразделения или видов его деятельности?
Краткая характеристика подразделения или видов его деятельности включает описание особенностей работы отдела кадров на предприятии. Это может включать информацию о функциях и обязанностях отдела кадров, его роли в организационной структуре предприятия, основных процессах, с которыми отдел кадров взаимодействует, и другие важные аспекты его работы.
Какая технико-экономическая характеристика предметной области АРМ сотрудника отдела кадров?
Технико-экономическая характеристика предметной области АРМ сотрудника отдела кадров включает в себя описание технических и экономических особенностей данной предметной области. В частности, она включает в себя описание технических характеристик используемых программ и оборудования, а также описание экономической эффективности использования данного АРМ.
Какую характеристику имеет предприятие, на котором используется АРМ сотрудника отдела кадров?
Предприятие, на котором используется АРМ сотрудника отдела кадров, имеет следующую характеристику: описывается его отрасль, размеры, структура и особенности деятельности. Также может включать в себя информацию о кадровом потенциале предприятия и его месте на рынке.
Какую краткую характеристику имеет подразделение, в котором работает сотрудник отдела кадров?
Подразделение, в котором работает сотрудник отдела кадров, имеет следующую краткую характеристику: описывается его функции, задачи и роль в общей деятельности предприятия. Также может включать в себя информацию о структуре подразделения и его взаимодействии с другими подразделениями.
Какова техническая и технологическая сущность задачи АРМ сотрудника отдела кадров?
Техническая и технологическая сущность задачи АРМ сотрудника отдела кадров заключается в использовании специализированного программного обеспечения для выполнения задач кадровой работы. В основе данной задачи лежит автоматизация процессов управления кадровым составом, что позволяет сотруднику отдела кадров более эффективно выполнять свои обязанности.
Почему необходимо использование вычислительных и телекоммуникационных технологий в АРМ сотрудника отдела кадров и какую цель это преследует?
Использование вычислительных и телекоммуникационных технологий в АРМ сотрудника отдела кадров необходимо для ускорения и автоматизации процессов управления кадровым составом. Это позволяет сотруднику отдела кадров более эффективно осуществлять принятие решений и выполнение своих задач. Основная цель использования данных технологий - повышение производительности и качества работы отдела кадров.