Автоматизация работы кафедры вуза.

Введение 4
1. Технологический раздел 5
1.1 Описание подразделения 5
1.2 Описание процесса 6
1.3 Структура программно-аппаратных средств компании 8
1.4 Анализ ТЗ 10
1.5 Цель и назначение разработки 11
1.6 Обзор аналогов 12
2. Проектный раздел 14
2.1 Структурное проектирование 14
2.1.1 Описание информационной модели системы 14
2.1.2 Выбор средств разработки 16
2.1.2.1 Выбор языка программирования и среды разработки 16
2.1.2.2 Выбор СУБД 19
2.2. Логическое проектирование 21
2.3. Разработка ПО 23
2.3.1 Описание сценария работы программы 23
2.4.2 Описание экранных форм ввода 29
2.4.3 Описание выходной информации 32
3. Специальный раздел 33
3.1. Отладка ПО 33
3.2 Тестирование ПО 35
3.3. Инструкция пользователя ПО 37
4. Организационно-экономический раздел 47
4.1. Разработка сетевого графика 47
4.2.Выполнение проекта, оценка себестоимости разработки 50
4.3. Технико-экономическое обоснование разработки 53
5. Безопасность жизнедеятельности и охрана труда 55
5.1 Актуальность проблемы 55
5.2 Характеристика условий труда 56
5.3 Постановка задачи 58
5.4 Рекомендации к рабочему месту разработчика 58
5.5 Режим труда 61
5.6 Расчетная часть 63
Заключение 67
Список литературы 69
Приложение 71

Теория и практика: [пер. с англ.] / Конноли Т., Бегг К., Страчан А. - 2-е изд.- М.: Вильямс, 2011. – 394с.Кривошеин М. ER: диаграммы сущность-связь [Электронный ресурс]. – Режим доступа: http://mikkri.narod.ru (03.03.2009).Кузнецов С.Д. Основы современных баз данных/ С.Д. Кузнецов К. – Курск, 2009. – 276 с.Липаев В.В. Проектирование программных средств. – М.: Высшая школа, 2009. Леоненков А. Объектно-ориентированный анализ и проектирование с использованием UML и IBM RationalRose / А. Леоненков. - М.: Вильямс, 2009.- 357с.Любушин Н.П. Анализ финансово-экономической деятельности предприятия./ Н.П. Любушин. – М.: ЮНИТИ, 2009. – 251с.Марка Д. А., МакГоуэн К. Методология структурного анализа и проектирования SADT. – М.: Диалог – МИФИ , 2009. – 276 с.Приложениеunit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, SUIForm, SUIPageControl, SUITabControl, SUIImagePanel, Grids, DBGrids, SUIDBCtrls, DB, ADODB, SUIButton, StdCtrls, SUIComboBox,SUIEdit, SUIMemo, frxClass, frxDBSet, frxVariables, Mask;type TForm1 = class(TForm) suiForm1: TsuiForm; suiPageControl1: TsuiPageControl; suiTabSheet1: TsuiTabSheet; suiTabSheet2: TsuiTabSheet; suiTabSheet3: TsuiTabSheet; suiDBGrid1: TsuiDBGrid; suiPanel1: TsuiPanel; ADOConnection1: TADOConnection;t_prep: TADOTable;t_nir: TADOTable;t_disc: TADOTable; prep: TDataSource;nir: TDataSource; disc: TDataSource;t_grup: TADOTable;grup: TDataSource;t_sp_grup: TADOTable;sp_grup: TDataSource;t_sp_disc: TADOTable;sp_disc: TDataSource; suiDBGrid2: TsuiDBGrid; suiPanel2: TsuiPanel; suiDBGrid3: TsuiDBGrid; suiDBGrid4: TsuiDBGrid; suiPanel3: TsuiPanel; suiDBGrid5: TsuiDBGrid; suiDBGrid6: TsuiDBGrid; suiEdit1: TsuiEdit; suiComboBox1: TsuiComboBox; suiComboBox2: TsuiComboBox; suiComboBox3: TsuiComboBox; suiButton1: TsuiButton; suiButton2: TsuiButton; suiButton3: TsuiButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; suiEdit5: TsuiEdit; Label9: TLabel; suiComboBox4: TsuiComboBox; suiButton4: TsuiButton; suiButton5: TsuiButton; suiButton6: TsuiButton; suiMemo1: TsuiMemo; Label10: TLabel; Label11: TLabel; suiEdit7: TsuiEdit; Label12: TLabel; suiButton7: TsuiButton; suiButton8: TsuiButton; Label16: TLabel; Label17: TLabel; suiEdit12: TsuiEdit; suiButton12: TsuiButton; suiButton13: TsuiButton; frxReport1: TfrxReport; frxDBDataset1: TfrxDBDataset; suiButton14: TsuiButton; frxDBDataset2: TfrxDBDataset; frxReport2: TfrxReport; suiButton15: TsuiButton; frxDBDataset3: TfrxDBDataset; frxReport3: TfrxReport; suiTabSheet4: TsuiTabSheet; suiDBGrid7: TsuiDBGrid; suiPanel4: TsuiPanel; Label13: TLabel; Label14: TLabel; suiEdit9: TsuiEdit; suiButton9: TsuiButton; suiButton10: TsuiButton; suiDBGrid8: TsuiDBGrid; suiPanel5: TsuiPanel; Label18: TLabel; Label19: TLabel; Label20: TLabel; suiEdit14: TsuiEdit; suiButton17: TsuiButton; suiButton18: TsuiButton; suiEdit15: TsuiEdit; suiTabSheet5: TsuiTabSheet; suiDBGrid9: TsuiDBGrid; suiPanel6: TsuiPanel; Label21: TLabel; Label22: TLabel; Label23: TLabel; suiEdit17: TsuiEdit; suiButton21: TsuiButton; suiButton22: TsuiButton; suiButton23: TsuiButton; suiDBGrid10: TsuiDBGrid; suiDBGrid11: TsuiDBGrid;fak: TDataSource;kaf: TDataSource;tfak: TADOTable;tkaf: TADOTable;tisp: TADOTable;isp: TDataSource;tper_sost: TADOTable;per_sost: TDataSource; Label15: TLabel; suiEdit10: TsuiEdit; Label24: TLabel; Label26: TLabel; Label27: TLabel; suiComboBox5: TsuiComboBox; suiComboBox6: TsuiComboBox; suiTabSheet6: TsuiTabSheet; suiDBGrid12: TsuiDBGrid; suiPanel7: TsuiPanel; Label25: TLabel; Label33: TLabel; suiEdit19: TsuiEdit; suiButton11: TsuiButton; suiButton16: TsuiButton;tspec: TADOTable; spec: TDataSource; Label28: TLabel; suiEdit20: TsuiEdit; frxReport4: TfrxReport; frxDBDataset4: TfrxDBDataset; Label29: TLabel; suiComboBox7: TsuiComboBox; Label30: TLabel; suiComboBox8: TsuiComboBox; Label31: TLabel; suiButton19: TsuiButton;frxdoctor: TfrxDBDataset;doktor: TADOTable; Label32: TLabel; Label34: TLabel; suiComboBox9: TsuiComboBox; suiComboBox10: TsuiComboBox; Label35: TLabel; suiEdit24: TsuiEdit; suiMaskEdit1: TsuiMaskEdit; suiMaskEdit2: TsuiMaskEdit; suiMaskEdit3: TsuiMaskEdit; suiMaskEdit4: TsuiMaskEdit; suiMaskEdit5: TsuiMaskEdit; suiMaskEdit6: TsuiMaskEdit; suiMaskEdit7: TsuiMaskEdit; suiMaskEdit8: TsuiMaskEdit; suiMaskEdit9: TsuiMaskEdit; suiMaskEdit10: TsuiMaskEdit; suiMaskEdit11: TsuiMaskEdit; suiMaskEdit12: TsuiMaskEdit; procedure FormCreate(Sender: TObject); procedure suiButton1Click(Sender: TObject); procedure suiButton2Click(Sender: TObject); procedure suiButton3Click(Sender: TObject); procedure suiDBGrid1CellClick(Column: TColumn); procedure suiButton4Click(Sender: TObject); procedure suiButton5Click(Sender: TObject); procedure suiButton6Click(Sender: TObject); procedure suiDBGrid3CellClick(Column: TColumn); procedure suiButton7Click(Sender: TObject); procedure suiButton8Click(Sender: TObject); procedure suiButton10Click(Sender: TObject); procedure suiButton11Click(Sender: TObject); procedure suiButton12Click(Sender: TObject); procedure suiButton14Click(Sender: TObject); procedure suiButton13Click(Sender: TObject); procedure suiDBGrid5CellClick(Column: TColumn); procedure suiPageControl1Change(Sender: TObject); procedure suiDBGrid8CellClick(Column: TColumn); procedure suiButton15Click(Sender: TObject); procedure suiButton9Click(Sender: TObject); procedure suiButton17Click(Sender: TObject); procedure suiButton18Click(Sender: TObject); procedure suiButton16Click(Sender: TObject); procedure suiButton21Click(Sender: TObject); procedure suiButton22Click(Sender: TObject); procedure suiButton23Click(Sender: TObject); procedure suiDBGrid10CellClick(Column: TColumn); procedure suiButton19Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);var i:integer;beginsuiPageControl1.ActivePageIndex:=0;tspec.First;for i:=0 to tspec.RecordCount-1 do begin suiComboBox5.Items.Add(tspec.FieldValues['spec']);tspec.Next; end;tfak.First;for i:=0 to tfak.RecordCount-1 do begin suiComboBox8.Items.Add(tfak.FieldValues['fak']); suiComboBox9.Items.Add(tfak.FieldValues['fak']);tfak.Next; end;tkaf.First;for i:=0 to tkaf.RecordCount-1 do begin suiComboBox7.Items.Add(tkaf.FieldValues['kaf']); suiComboBox10.Items.Add(tkaf.FieldValues['kaf']);tkaf.Next; end;end;procedure TForm1.suiButton1Click(Sender: TObject);begintryt_prep.Append;t_prep.FieldByName('tab_nom').AsInteger:=strtoint(suimaskEdit8.text);t_prep.FieldByName('data_pov').AsString:=suimaskEdit7.text;t_prep.FieldByName('data_rogd').AsString:=suimaskEdit6.text;t_prep.FieldByName('dolgn').AsString:=suiComboBox1.text;t_prep.FieldByName('zvan').AsString:=suiComboBox3.text;t_prep.FieldByName('stepen').AsString:=suiComboBox2.text;t_prep.FieldByName('fio').AsString:=suiEdit1.text;t_prep.FieldByName('tema_dis').AsString:=suiEdit20.text;t_prep.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0); end;end;procedure TForm1.suiButton2Click(Sender: TObject);begintryt_prep.Edit;t_prep.FieldByName('tab_nom').AsInteger:=strtoint(suimaskEdit8.text);t_prep.FieldByName('data_pov').AsString:=suimaskEdit7.text;t_prep.FieldByName('data_rogd').AsString:=suimaskEdit6.text;t_prep.FieldByName('dolgn').AsString:=suiComboBox1.text;t_prep.FieldByName('zvan').AsString:=suiComboBox3.text;t_prep.FieldByName('stepen').AsString:=suiComboBox2.text;t_prep.FieldByName('fio').AsString:=suiEdit1.text;t_prep.FieldByName('tema_dis').AsString:=suiEdit20.text;t_prep.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0); end;end;procedure TForm1.suiButton3Click(Sender: TObject);begint_prep.Delete;end;procedure TForm1.suiDBGrid1CellClick(Column: TColumn);beginsuimaskEdit8.text:=t_prep.FieldValues['tab_nom'];suimaskEdit7.text:=t_prep.FieldValues['data_pov'];suimaskEdit6.text:=t_prep.FieldValues['data_rogd'];suiComboBox1.text:=t_prep.FieldValues['dolgn'];suiComboBox3.text:=t_prep.FieldValues['zvan'];suiComboBox2.text:=t_prep.FieldValues['stepen'];suiEdit1.text:=t_prep.FieldValues['fio'];suiEdit20.text:=t_prep.FieldValues['tema_dis'];end;procedure TForm1.suiButton4Click(Sender: TObject);var n:integer;begintryt_nir.Append;t_nir.FieldByName('tab_nom').AsInteger:=t_prep.FieldValues['tab_nom'];t_nir.FieldByName('data_pub').AsString:=suimaskEdit5.text;t_nir.FieldByName('tema').AsString:=suiEdit5.text;t_nir.FieldByName('type').AsString:=suiComboBox4.text;t_nir.FieldByName('opis').AsString:=suimemo1.text;t_nir.FieldByName('fak').AsString:=suiComboBox8.text;t_nir.FieldByName('kaf').AsString:=suiComboBox7.text;t_nir.FieldByName('fio_ruk').AsString:=t_prep.FieldValues['fio'];t_nir.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0); end;end;procedure TForm1.suiButton5Click(Sender: TObject);begintryt_nir.Edit;t_nir.FieldByName('tab_nom').AsInteger:=t_prep.FieldValues['tab_nom'];t_nir.FieldByName('data_pub').AsString:=suimaskEdit5.text;t_nir.FieldByName('tema').AsString:=suiEdit5.text;t_nir.FieldByName('type').AsString:=suiComboBox4.text;t_nir.FieldByName('opis').AsString:=suimemo1.text;t_nir.FieldByName('fak').AsString:=suiComboBox8.text;t_nir.FieldByName('kaf').AsString:=suiComboBox7.text;t_nir.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0); end;end;procedure TForm1.suiButton6Click(Sender: TObject);begint_nir.Delete;end;procedure TForm1.suiDBGrid3CellClick(Column: TColumn);beginsuimaskEdit5.text:=t_nir.FieldValues['data_pub'];suiEdit5.text:= t_nir.FieldValues['tema'];suiComboBox4.text:= t_nir.FieldValues['type'];suimemo1.text:= t_nir.FieldValues['opis'];suiComboBox7.text:= t_nir.FieldValues['kaf'];suiComboBox8.text:= t_nir.FieldValues['fak'];end;procedure TForm1.suiButton7Click(Sender: TObject);begintryt_sp_disc.Append;t_sp_disc.FieldByName('kod_disc').AsInteger:=strtoint(suimaskEdit9.text);t_sp_disc.FieldByName('disc').AsString:=suiEdit7.text;t_sp_disc.FieldByName('kol_chas').AsInteger:=strtoint(suiEdit12.text);t_sp_disc.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0); end;end;procedure TForm1.suiButton8Click(Sender: TObject);begint_sp_disc.Delete;end;procedure TForm1.suiButton10Click(Sender: TObject);begintfak.Delete;end;procedure TForm1.suiButton11Click(Sender: TObject);begintspec.Append;tspec.FieldByName('shifr').AsInteger:=strtoint(suimaskEdit12.Text);tspec.FieldByName('spec').AsString:=suiEdit19.Text;tspec.Post;suiComboBox5.Items.Add(suiEdit19.Text);end;procedure TForm1.suiButton12Click(Sender: TObject);begint_disc.Append;t_disc.FieldByName('kod_disc').AsInteger:=t_sp_disc.FieldValues['kod_disc'];t_disc.FieldByName('tab_nom').AsInteger:=t_prep.FieldValues['tab_nom'];t_disc.FieldByName('disc').AsString:=t_sp_disc.FieldValues['disc'];t_disc.Post;end;procedure TForm1.suiButton14Click(Sender: TObject);beginfrxReport1.ShowReport;end;procedure TForm1.suiButton13Click(Sender: TObject);varzap:string; Variable: TfrxVariable;begint_nir.Filtered:=false;zap:='data_pub>''01.01.'+suimaskedit4.text+''' and data_pub<''30.12.'+suimaskedit4.text+''' and fak='''+suiComboBox9.Text+''' and kaf='''+suiComboBox10.Text+'''';t_nir.Filter:=zap;t_nir.Filtered:=true;tfak.Filtered:=false;tfak.Filter:='fak='''+suiComboBox9.Text+'''';tfak.Filtered:=true;frxReport2.Variables['Variable_dekan'] := ''''+tfak.FieldValues['dekan']+'''';tkaf.Filtered:=false;tkaf.Filter:='kaf='''+suiComboBox10.Text+'''';tkaf.Filtered:=true;frxReport2.Variables['Variable_zav'] := ''''+tkaf.FieldValues['zav_kaf']+'''';frxReport2.Variables['Variable1'] := suimaskEdit4.Text;frxReport2.Variables['Variable2'] := ''''+suiComboBox9.Text+'''';frxReport2.Variables['Variable3'] := ''''+suiComboBox10.Text+'''';doktor.IndexFieldNames:='kategor';frxReport2.ShowReport;t_nir.Filtered:=false;frxReport1.Variables.Clear;end;procedure TForm1.suiDBGrid5CellClick(Column: TColumn);begin{t_disc.Filtered:=false;t_disc.Filter:='tab_nom='+inttostr(t_prep.FieldValues['tab_nom']);t_disc.Filtered:=true;}end;procedure TForm1.suiPageControl1Change(Sender: TObject);begin{if suiPageControl1.ActivePageIndex=2 thenbegint_disc.Filtered:=false;t_disc.Filter:='tab_nom='+inttostr(t_prep.FieldValues['tab_nom']);t_disc.Filtered:=true;end;if suiPageControl1.ActivePageIndex=3 thenbegint_grup.Filtered:=false;t_grup.Filter:='tab_nom='+inttostr(t_prep.FieldValues['tab_nom']);t_grup.Filtered:=true;end;}end;procedure TForm1.suiDBGrid8CellClick(Column: TColumn);begint_grup.Filtered:=false;t_grup.Filter:='tab_nom='+inttostr(t_prep.FieldValues['tab_nom']);t_grup.Filtered:=true;end;procedure TForm1.suiButton15Click(Sender: TObject);beginfrxReport3.ShowReport;end;procedure TForm1.suiButton9Click(Sender: TObject);begintfak.Append; tfak.FieldByName('id_fak').AsInteger:=strtoint(suimaskEdit10.text);tfak.FieldByName('fak').AsString:=suiEdit9.text;tfak.FieldByName('dekan').AsString:=suiEdit24.text; suiComboBox8.Items.Add(tfak.FieldValues['fak']); suiComboBox9.Items.Add(tfak.FieldValues['fak']);tfak.Post;end;procedure TForm1.suiButton17Click(Sender: TObject);begintkaf.Append; tkaf.FieldByName('id_fak').AsInteger:=tfak.FieldValues['id_fak']; tkaf.FieldByName('id_kaf').AsInteger:=strtoint(suimaskEdit11.text);tkaf.FieldByName('kaf').AsString:=suiEdit14.text;tkaf.FieldByName('zav_kaf').AsString:=suiEdit15.text; suiComboBox7.Items.Add(tkaf.FieldValues['kaf']); suiComboBox10.Items.Add(tkaf.FieldValues['kaf']);tkaf.Post;end;procedure TForm1.suiButton18Click(Sender: TObject);begintkaf.Delete;end;procedure TForm1.suiButton16Click(Sender: TObject);begintspec.Delete;end;procedure TForm1.suiButton21Click(Sender: TObject);begintper_sost.Append; tper_sost.FieldByName('id').AsInteger:=strtoint(suimaskEdit2.text);tper_sost.FieldByName('fio').AsString:=suiEdit17.text;tper_sost.FieldByName('spec').AsString:=suiComboBox5.text; tper_sost.FieldByName('god_prik').AsInteger:=strtoint(suimaskEdit1.text);tper_sost.FieldByName('kategor').AsString:=suiComboBox6.text;tper_sost.FieldByName('tema_dis').AsString:=suiEdit10.text;tper_sost.FieldByName('data_zash').AsString:=suimaskEdit3.text;tper_sost.Post;end;procedure TForm1.suiButton22Click(Sender: TObject);begintper_sost.Delete;end;procedure TForm1.suiButton23Click(Sender: TObject);var n:integer;begintisp.append;tisp.FieldByName('id_isp').AsInteger:=n;tisp.FieldByName('fio').AsString:=tper_sost.FieldValues['fio'];tisp.FieldByName('tema').AsString:=t_nir.FieldValues['tema']; tisp.FieldByName('kategor').AsString:=tper_sost.FieldValues['kategor'];tisp.post;end;procedure TForm1.suiDBGrid10CellClick(Column: TColumn);begin{tisp.Filtered:=false;tisp.Filter:='tema='''+t_nir.FieldValues['tema']+'''';tisp.Filtered:=true;}end;procedure TForm1.suiButton19Click(Sender: TObject);begintisp.Delete;end;end.