Программа учета и контроля сотрудников

Введение
1. Специальная часть
1.1 Постановка задачи
1.2 Обоснование выбора среды разработки
1.3 Обоснование выбора СУБД
1.4 Разработка общей схемы системы
1.5 Разработка базы данных
1.6 Разработка алгоритма работы системы
1.7 Разработка графического интерфейса пользователя
2. Технологическая часть
2.1 Описание программных модулей
2.2 Установка системы
2.3 Работа в системе
3. Экономическая часть
3.1 Выбор и обоснование методики расчёта экономической эффективности
3.2 Расчёт показателей экономической эффективности проекта
4. Охрана труда
4.1 Цель и решаемые задачи
4.2 Опасные и вредные факторы при работе с ПЭВМ
4.3 Характеристика объекта исследования
4.4 Мероприятия по безопасности труда и сохранению работоспособности
4.4.1 Обеспечение требований эргономики и технической эстетики
4.4.1.1 Планировка помещений и размещение оборудования
4.4.1.2 Эргономические решения и организация рабочего места пользователей ПЭВМ
4.4.2 Обеспечение оптимальных параметров воздуха рабочих зон
4.4.2.1 Нормирование параметров микроклимата
4.4.2.2 Нормирование уровней вредных, химических веществ
4.4.3 Защита от шума
4.4.4 Обеспечение режимов труда и отдыха
4.4.5 Обеспечение допустимых уровней электромагнитных полей
Заключение
Библиографический список
Приложение – Исходный код программы

— М.: Изд-во стандартов, 1994.Гост 19.102–77. Единая система программной документации: Стадии разработки. — М.: Изд-во стандартов, 1994.Гост 19.105–78. Единая система программной документации: Общие требования к программным документам. — М.: Изд-во стандартов, 1994.Гост 19.201–78. Единая система программной документации: Техническое задание. Требования к содержанию и оформлению. — М.: Изд-во стандартов, 1994.Гост 19.202–78. Единая система программной документации: Спецификация. Требования к содержанию и оформлению. — М.: Изд-во стандартов, 1994.Гост 19.404–79. Единая система программной документации: Пояснительная записка: Требования к содержанию и оформлению. — М.: Изд-во стандартов, 1994.Гост 19.502–78. Единая система программной документации: Описание применения. Требования к содержанию и оформлению. — М.: Изд-во стандартов, 1994.Гост 19.503–79. Единая система программной документации: Руководство системного программиста. Требования к содержанию и оформлению. — М.: Изд-во стандартов, 1994.Гост 19.504–79. Единая система программной документации: Руководство программиста. Требования к содержанию и оформлению. — М.: Изд-во стандартов, 1994.Гост 19.505–79. Единая система программной документации: Руководство оператора. Требования к содержанию и оформлению. — М.: Изд-во стандартов, 1994.Приложение – Исходный код программыunit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, SUIForm, SUIPageControl, SUITabControl, SUIImagePanel, StdCtrls, Mask, SUIEdit, SUIButton, Grids, DBGrids, SUIDBCtrls, DB, ADODB, SUIMemo;type TForm1 = class(TForm) suiForm1: TsuiForm; suiPageControl1: TsuiPageControl; suiTabSheet2: TsuiTabSheet; suiTabSheet3: TsuiTabSheet; suiTabSheet4: TsuiTabSheet; suiPanel5: TsuiPanel; suiDBGrid4: TsuiDBGrid; suiPanel6: TsuiPanel; suiButton2: TsuiButton; suiPanel7: TsuiPanel; suiDBGrid5: TsuiDBGrid; suiPanel9: TsuiPanel; suiDBGrid7: TsuiDBGrid; suiPanel10: TsuiPanel; suiPanel11: TsuiPanel; suiDBGrid8: TsuiDBGrid; suiPanel12: TsuiPanel; ADOConnection1: TADOConnection; sotr: TADOTable; test: TADOTable; plan: TADOTable; ttt: TADOTable; tzay: TADOTable; tsotr: TDataSource; ttest: TDataSource; tplan: TDataSource; tt: TDataSource; zay: TDataSource; Label2: TLabel; suiEdit4: TsuiEdit; Label8: TLabel; suiMaskEdit3: TsuiMaskEdit; suiButton3: TsuiButton; suiButton8: TsuiButton; Label9: TLabel; suiMaskEdit2: TsuiMaskEdit; Label10: TLabel; suiEdit5: TsuiEdit; suiButton9: TsuiButton; Label1: TLabel; suiEdit1: TsuiEdit; suiButton1: TsuiButton; suiButton4: TsuiButton; suiPanel8: TsuiPanel; suiDBGrid6: TsuiDBGrid; suiButton5: TsuiButton; OpenDialog1: TOpenDialog; suiButton6: TsuiButton; procedure suiButton3Click(Sender: TObject); procedure suiButton8Click(Sender: TObject); procedure suiButton2Click(Sender: TObject); procedure suiButton1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure suiButton4Click(Sender: TObject); procedure suiButton9Click(Sender: TObject); procedure suiButton5Click(Sender: TObject); procedure suiButton6Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementationuses Unit2, Unit3;{$R *.dfm}procedure TForm1.suiButton3Click(Sender: TObject);begintry sotr.Append; sotr.FieldByName('fio').AsString:=suiEdit4.Text; sotr.FieldByName('telefon').AsString:=suiMaskEdit3.Text; sotr.FieldByName('oklad').AsInteger:=strtoint(suiEdit1.Text); sotr.FieldByName('premiya').AsInteger:=0; sotr.postexcept MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiButton8Click(Sender: TObject);begin sotr.Delete;end;procedure TForm1.suiButton2Click(Sender: TObject);begintry plan.Append; plan.FieldByName('kod_sotr').AsInteger:=sotr.FieldValues['kod_sotr']; plan.FieldByName('test').AsInteger:=test.FieldValues['kod_test']; plan.FieldByName('data_plan').AsString:=suiMaskEdit2.Text; plan.FieldByName('rezult').AsInteger:=0; plan.postexcept MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiButton1Click(Sender: TObject);begin Application.CreateForm(TForm2, Form2); Form2.Show;end;procedure TForm1.FormCreate(Sender: TObject);begin suiPageControl1.ActivePageIndex:=0;end;procedure TForm1.suiButton4Click(Sender: TObject);begin test.Delete;end;procedure TForm1.suiButton9Click(Sender: TObject);begin plan.Delete;end;procedure TForm1.suiButton5Click(Sender: TObject);begintry plan.Edit; plan.FieldByName('rezult').AsInteger:=strtoint(suiEdit5.Text); plan.post; sotr.Edit; sotr.FieldByName('premiya').AsInteger:=sotr.FieldValues['oklad'] + 2000 * strtoint(suiEdit5.Text);sotr.post;except MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiButton6Click(Sender: TObject);begin Application.CreateForm(TForm3, Form3); Form3.Show;end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, SUIForm, StdCtrls, SUIEdit, SUIButton, DB, ADODB;type TForm2 = class(TForm) suiForm1: TsuiForm; suiEdit1: TsuiEdit; suiEdit2: TsuiEdit; suiEdit3: TsuiEdit; suiEdit5: TsuiEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; suiSpinEdit1: TsuiSpinEdit; Label6: TLabel; Label7: TLabel; Label8: TLabel; suiEdit4: TsuiEdit; suiEdit6: TsuiEdit; suiEdit7: TsuiEdit; Label9: TLabel; Label10: TLabel; suiSpinEdit2: TsuiSpinEdit; suiEdit8: TsuiEdit; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label16: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label20: TLabel; suiSpinEdit3: TsuiSpinEdit; suiEdit9: TsuiEdit; suiEdit10: TsuiEdit; suiEdit11: TsuiEdit; suiEdit12: TsuiEdit; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label24: TLabel; Label25: TLabel; Label26: TLabel; Label27: TLabel; Label28: TLabel; Label29: TLabel; Label30: TLabel; Label31: TLabel; Label32: TLabel; Label33: TLabel; Label34: TLabel; Label35: TLabel; suiEdit13: TsuiEdit; suiEdit14: TsuiEdit; suiEdit15: TsuiEdit; suiSpinEdit4: TsuiSpinEdit; suiEdit16: TsuiEdit; suiEdit17: TsuiEdit; suiEdit18: TsuiEdit; suiEdit19: TsuiEdit; suiSpinEdit5: TsuiSpinEdit; suiEdit20: TsuiEdit; suiEdit21: TsuiEdit; suiEdit22: TsuiEdit; suiSpinEdit6: TsuiSpinEdit; suiEdit23: TsuiEdit; suiEdit24: TsuiEdit; suiButton1: TsuiButton; Label36: TLabel; suiEdit25: TsuiEdit; Label37: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure suiButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form2: TForm2;implementationuses main, Unit3;{$R *.dfm}procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);beginform2.Release;end;procedure TForm2.suiButton1Click(Sender: TObject);begintry form1.test.Append; form1.test.FieldByName('test').AsString:=suiedit25.text; form1.test.FieldByName('v1').AsString:=suiedit1.text; form1.test.FieldByName('o11').AsString:=suiedit2.text; form1.test.FieldByName('o12').AsString:=suiedit3.text; form1.test.FieldByName('o13').AsString:=suiedit5.text; form1.test.FieldByName('p1').AsString:=suiSpinEdit1.text; form1.test.FieldByName('v2').AsString:=suiedit4.text; form1.test.FieldByName('o21').AsString:=suiedit6.text; form1.test.FieldByName('o22').AsString:=suiedit7.text; form1.test.FieldByName('o23').AsString:=suiedit8.text; form1.test.FieldByName('p2').AsString:=suiSpinEdit2.text; form1.test.FieldByName('v3').AsString:=suiedit12.text; form1.test.FieldByName('o31').AsString:=suiedit11.text; form1.test.FieldByName('o32').AsString:=suiedit10.text; form1.test.FieldByName('o33').AsString:=suiedit9.text; form1.test.FieldByName('p3').AsString:=suiSpinEdit3.text; form1.test.FieldByName('v4').AsString:=suiedit13.text; form1.test.FieldByName('o41').AsString:=suiedit14.text; form1.test.FieldByName('o42').AsString:=suiedit15.text; form1.test.FieldByName('o43').AsString:=suiedit16.text; form1.test.FieldByName('p4').AsString:=suiSpinEdit4.text; form1.test.FieldByName('v5').AsString:=suiedit17.text; form1.test.FieldByName('o51').AsString:=suiedit18.text; form1.test.FieldByName('o52').AsString:=suiedit19.text; form1.test.FieldByName('o53').AsString:=suiedit23.text; form1.test.FieldByName('p5').AsString:=suiSpinEdit5.text; form1.test.FieldByName('v6').AsString:=suiedit20.text; form1.test.FieldByName('o61').AsString:=suiedit21.text; form1.test.FieldByName('o62').AsString:=suiedit22.text; form1.test.FieldByName('o63').AsString:=suiedit24.text; form1.test.FieldByName('p6').AsString:=suiSpinEdit6.text; form1.test.postexcept MessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;//Form1.test.Refresh;form2.Close;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, SUIForm, SUIButton, StdCtrls, SUIImagePanel, SUIGroupBox;type TForm3 = class(TForm) suiForm1: TsuiForm; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; suiButton1: TsuiButton; suiGroupBox1: TsuiGroupBox; suiRadioButton1: TsuiRadioButton; suiRadioButton3: TsuiRadioButton; suiRadioButton2: TsuiRadioButton; suiGroupBox2: TsuiGroupBox; suiRadioButton4: TsuiRadioButton; suiRadioButton5: TsuiRadioButton; suiRadioButton6: TsuiRadioButton; suiGroupBox3: TsuiGroupBox; suiRadioButton7: TsuiRadioButton; suiRadioButton8: TsuiRadioButton; suiRadioButton9: TsuiRadioButton; suiGroupBox4: TsuiGroupBox; suiGroupBox5: TsuiGroupBox; suiGroupBox6: TsuiGroupBox; suiRadioButton16: TsuiRadioButton; suiRadioButton17: TsuiRadioButton; suiRadioButton18: TsuiRadioButton; suiRadioButton13: TsuiRadioButton; suiRadioButton14: TsuiRadioButton; suiRadioButton15: TsuiRadioButton; suiRadioButton10: TsuiRadioButton; suiRadioButton11: TsuiRadioButton; suiRadioButton12: TsuiRadioButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure suiButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form3: TForm3;implementationuses main, Unit2;{$R *.dfm}procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);beginform3.Release;end;procedure TForm3.FormCreate(Sender: TObject);beginLabel1.Caption:=Form1.test.FieldValues['v1'];suiRadioButton1.Caption:=Form1.test.FieldValues['o11'];suiRadioButton2.Caption:=Form1.test.FieldValues['o12'];suiRadioButton3.Caption:=Form1.test.FieldValues['o13'];Label3.Caption:=Form1.test.FieldValues['v2'];suiRadioButton4.Caption:=Form1.test.FieldValues['o21'];suiRadioButton5.Caption:=Form1.test.FieldValues['o22'];suiRadioButton6.Caption:=Form1.test.FieldValues['o23'];Label4.Caption:=Form1.test.FieldValues['v3'];suiRadioButton7.Caption:=Form1.test.FieldValues['o31'];suiRadioButton8.Caption:=Form1.test.FieldValues['o32'];suiRadioButton9.Caption:=Form1.test.FieldValues['o33'];Label7.Caption:=Form1.test.FieldValues['v4'];suiRadioButton10.Caption:=Form1.test.FieldValues['o41'];suiRadioButton11.Caption:=Form1.test.FieldValues['o42'];suiRadioButton12.Caption:=Form1.test.FieldValues['o43'];Label6.Caption:=Form1.test.FieldValues['v5'];suiRadioButton13.Caption:=Form1.test.FieldValues['o51'];suiRadioButton14.Caption:=Form1.test.FieldValues['o52'];suiRadioButton15.Caption:=Form1.test.FieldValues['o53'];Label5.Caption:=Form1.test.FieldValues['v6'];suiRadioButton16.Caption:=Form1.test.FieldValues['o61'];suiRadioButton17.Caption:=Form1.test.FieldValues['o62'];suiRadioButton18.Caption:=Form1.test.FieldValues['o63'];end;procedure TForm3.suiButton1Click(Sender: TObject);var rez: integer; p1, p2, p3, p4, p5, p6, o1, o2, o3, o4, o5, o6: integer;begin rez:=0; if suiRadioButton1.Checked=true then p1:=1; if suiRadioButton2.Checked=true then p1:=2; if suiRadioButton3.Checked=true then p1:=3; if p1=form1.test.Fieldvalues['p1'] then rez:=rez+1; if suiRadioButton4.Checked=true then p2:=1; if suiRadioButton5.Checked=true then p2:=2; if suiRadioButton6.Checked=true then p2:=3; if p2=form1.test.Fieldvalues['p2'] then rez:=rez+1; if suiRadioButton7.Checked=true then p3:=1; if suiRadioButton8.Checked=true then p3:=2; if suiRadioButton9.Checked=true then p3:=3; if p3=form1.test.Fieldvalues['p3'] then rez:=rez+1; if suiRadioButton10.Checked=true then p4:=1; if suiRadioButton11.Checked=true then p4:=2; if suiRadioButton12.Checked=true then p4:=3; if p4=form1.test.Fieldvalues['p4'] then rez:=rez+1; if suiRadioButton13.Checked=true then p5:=1; if suiRadioButton14.Checked=true then p5:=2; if suiRadioButton15.Checked=true then p5:=3; if p5=form1.test.Fieldvalues['p5'] then rez:=rez+1; if suiRadioButton16.Checked=true then p6:=1; if suiRadioButton17.Checked=true then p6:=2; if suiRadioButton18.Checked=true then p6:=3; if p6=form1.test.Fieldvalues['p6'] then rez:=rez+1; MessageDlg('Вашрезультат: '+inttostr(rez),mtInformation,[mbYes],0);form3.Close;end;end.