Разработка программы оптимизации вычислительной сети для ИС

ИС окупит себя через 2 месяца.

ЗАКЛЮЧЕНИЕ

Итак, целью данной работы является — повышение эффективности оптимизации ЛВС путем разработки и внедрения ИС оптимизации ЛВСотдела информационно-технического обеспечения РУВД. В первой главе ДП было дано описание предметной области, рассмотрен процесс проектирования сети отдела информационно-технического обеспечения РУВД. Выявлены задачи подлежащие автоматизации. Описаны входные и выходные потоки задачи подлежащей автоматизации. Были выявлены недостатки существующей системы. Дано описание и сравнение существующих ИС. С учетом выявленных недостатков и на основании сравнения существующих систем, был выработан перечень требований к проектируемой

ИС.Во второй главе описана структура информационного фонда системы, описаны входные и выходные данные. Описана система кодирования и классификации ИС. Дано описание программной реализации системы, а именно: алгоритм работы программы, описаны экранные формы приложения, описан пример работы программы. В третьей главе выбрана методика расчета экономической эффективности. Осуществлено финансово-экономическое обоснование разработки и внедрения ИС оптимизации ЛВСотдела информационно-технического обеспечения РУВД. Период окупаемости ИС составляет 2 месяца. Таким образом, цель ДП можно считать достигнутой, а поставленные задачи — решенными. Список используемой литературы

ГОСТ 34.602−89 «Информационная технология. Комплекс стандартов на автоматизированные системы. Техническое задание на создание автоматизированной системы»; ГОСТ 34.601−90 «Информационная технология. Комплекс стандартов на автоматизированные системы. Автоматизированные системы. Стадии создания». Фаулер М.

UML — основы. Руководство по стандартному языку объектного моделирования.: Пер. с англ. — СПб.: Символ, 2006 — 342 с. Гультяев

А. К., «Microsoft Office Project 2007

Управление проектами: практическое пособие. «- СПб.: КОРОНА-Век, 2008 — 480 с. ил. Гвоздева Т. В., Баллод Б. А., Проектирование информационных систем, — М.: Феникс, 2009 — 512 с. Гамма Э., Приемы объектно-ориентированного проектирования, — СПБ: Питер, 2007 — 345 с. Пол Киммел, UML. Основы визуального анализа и проектирования, М.:НТ Пресс, 2008 — 300 с. Гультяев А. К., Машин В. А., Проектирование и дизайн пользовательского интерфейса, СПБ: Корона-Принт, 2010 — 299 с. Грекул В. И., Проектирование информационных систем, М.: Бином, 2008 — 399 с.В. И. Грекул, Управление внедрением информационных систем, М.: Бином, 2008 — 243 с. Приложение — Исходныйкодпрограммыunitmain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, SUIForm, SUIButton, StdCtrls, SUIComboBox, SUIEdit, Mask, Grids, DBGrids, SUIDBCtrls, DB, ADODB, jpeg, math, SUIGrid, SUIMemo, SUIListBox, TeeProcs, TeEngine, Chart, series, SUIRadioGroup, SUIImagePanel, SUIGroupBox, SUIPageControl, SUITabControl, frxClass, frxDBSet;type TForm1 = class (TForm) ADOConnection1: TADOConnection;tnastr_protokola: TADOTable;tparametr_seti: TADOTable;tpokazatel_seti: TADOTable;nastr_protokola: TDataSource;parametr_seti: TDataSource;pokazatel_seti: TDataSource;tslugba: TADOTable;slugba: TDataSource; suiForm1: TsuiForm; suiPageControl1: TsuiPageControl; suiTabSheet3: TsuiTabSheet; suiTabSheet2: TsuiTabSheet; suiGroupBox3: TsuiGroupBox; suiDBGrid3: TsuiDBGrid; suiPanel3: TsuiPanel; Label13: TLabel; Label15: TLabel; suiButton7: TsuiButton; suiButton9: TsuiButton; suiEdit4: TsuiEdit; suiGroupBox4: TsuiGroupBox; suiDBGrid4: TsuiDBGrid; suiTabSheet1: TsuiTabSheet; suiSpinEdit2: TsuiSpinEdit; suiButton2: TsuiButton; suiMemo1: TsuiMemo; suiPanel2: TsuiPanel; suiStringGrid1: TsuiStringGrid; suiGroupBox1: TsuiGroupBox; suiDBGrid1: TsuiDBGrid; suiPanel1: TsuiPanel; Label3: TLabel; Label4: TLabel; Label5: TLabel; suiButton1: TsuiButton; suiButton3: TsuiButton; suiButton6: TsuiButton; suiEdit2: TsuiEdit; suiGroupBox2: TsuiGroupBox; suiDBGrid5: TsuiDBGrid; suiPanel5: TsuiPanel; Label6: TLabel; Label7: TLabel; suiEdit3: TsuiEdit; suiComboBox4: TsuiComboBox; suiButton10: TsuiButton; suiButton11: TsuiButton; suiDBGrid6: TsuiDBGrid;tspr_slugba: TADOTable;spr_slugba: TDataSource; suiButton4: TsuiButton; Label1: TLabel; suiEdit1: TsuiEdit; suiEdit7: TsuiEdit; suiEdit8: TsuiEdit; Label2: TLabel; suiEdit9: TsuiEdit; Label8: TLabel; suiEdit10: TsuiEdit; Label9: TLabel; suiEdit11: TsuiEdit; Label10: TLabel; suiEdit12: TsuiEdit; Label11: TLabel; suiEdit13: TsuiEdit; Label12: TLabel; suiEdit14: TsuiEdit; suiPanel4: TsuiPanel; suiDBGrid7: TsuiDBGrid; suiDBGrid8: TsuiDBGrid;tizm_pokaz: TADOTable;izm_pokaz: TDataSource; suiButton5: TsuiButton; frxReport1: TfrxReport; frxDBDataset1: TfrxDBDataset; frxDBDataset2: TfrxDBDataset; suiButton8: TsuiButton; frxReport2: TfrxReport;procedure suiButton3Click (Sender: TObject);procedureFormCreate (Sender: TObject);procedure suiButton2Click (Sender: TObject);procedure suiSpinEdit2Change (Sender: TObject);procedure suiSpinEdit3Change (Sender: TObject);procedure suiButton1Click (Sender: TObject);procedure suiButton6Click (Sender: TObject);procedure suiButton12Click (Sender: TObject);procedure suiButton13Click (Sender: TObject);procedure suiButton11Click (Sender: TObject);procedure suiButton10Click (Sender: TObject);procedure suiButton16Click (Sender: TObject);procedure suiButton14Click (Sender: TObject);procedure suiButton19Click (Sender: TObject);procedure suiPageControl1Change (Sender: TObject);procedure suiButton21Click (Sender: TObject);procedure suiButton20Click (Sender: TObject);procedure suiRadioGroup1Click (Sender: TObject);procedure suiDBGrid1CellClick (Column: TColumn);procedure suiButton9Click (Sender: TObject);procedure suiButton7Click (Sender: TObject);procedure suiButton4Click (Sender: TObject);procedure suiDBGrid8CellClick (Column: TColumn);procedure suiDBGrid4CellClick (Column: TColumn);procedure suiButton5Click (Sender: TObject);procedure suiButton8Click (Sender: TObject);// procedure suiSpinEdit3Change (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form1: TForm1; fl1, fl2,fl3,fl4:boolean;implementation{$R *.dfm}procedure TForm1. suiButton3Click (Sender: TObject);vari, j: integer;begintrytparametr_seti.Edit; tparametr_seti.FieldByName ('kol_serv').asinteger:=strtoint (suiEdit2.Text); tparametr_seti.FieldByName ('kol_slugb').asinteger:=strtoint (suiEdit7.Text); tparametr_seti.FieldByName ('kol_user').asinteger:=strtoint (suiEdit8.Text);tparametr_seti.Post;exceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;tpokazatel_seti.Filtered:=false;tpokazatel_seti.Filter:='id_net='+inttostr (tparametr_seti.FieldValues['id_net']);tpokazatel_seti.Filtered:=true;iftpokazatel_seti.RecordCount<>0 thenfori:=0 to tpokazatel_seti.RecordCount-1 do tpokazatel_seti.Delete;fori:=1 to 25 dofor j:=1 to 14 dobegintpokazatel_seti.Append; tpokazatel_seti.FieldByName ('id_net').AsInteger:=tparametr_seti.FieldValues['id_net']; tpokazatel_seti.FieldByName ('nom_izm').AsInteger:=i;tpokazatel_seti.FieldByName ('nomer').AsInteger:=j;tpokazatel_seti.FieldByName ('vr_og_dostup').AsInteger:=0;tpokazatel_seti.FieldByName ('koef_isp').AsString:='0';tpokazatel_seti.FieldByName ('ef_prop_sp').AsInteger:=0;tpokazatel_seti.FieldByName ('nom_prop').AsInteger:=0;tpokazatel_seti.FieldByName ('kolich_poter_pak').AsInteger:=0; tpokazatel_seti.post;end;tizm_pokaz.Filtered:=false;tizm_pokaz.Filter:='id_net='+inttostr (tparametr_seti.FieldValues['id_net']);tizm_pokaz.Filtered:=true;iftizm_pokaz.RecordCount<>0 thenfori:=0 to tizm_pokaz.RecordCount-1 do tizm_pokaz.Delete;fori:=1 to 25 dobegintizm_pokaz.Append; tizm_pokaz.FieldByName ('id_net').AsInteger:=tparametr_seti.FieldValues['id_net']; tizm_pokaz.FieldByName ('nom_izm').AsInteger:=i;tizm_pokaz.FieldByName ('p1').AsInteger:=0;tizm_pokaz.FieldByName ('p2').AsInteger:=0;tizm_pokaz.FieldByName ('p3').AsString:='0';tizm_pokaz.FieldByName ('p4').AsInteger:=0;tizm_pokaz.FieldByName ('p5').AsInteger:=0; tizm_pokaz.post;end;end;procedure TForm1. FormCreate (Sender: TObject);vari, j, m:integer;beginsuiPageControl1.ActivePageIndex:=0;suiStringGrid1.ColWidths[0]: =270;suiStringGrid1.Cells[0,1]:='Времяожиданиядоступа';suiStringGrid1.Cells[0,2]:='Коэффициентиспользования';suiStringGrid1.Cells[0,3]:='Эффективнаяпропускнаяспособность';suiStringGrid1.Cells[0,4]:='Количество потерянных пакетов';suiStringGrid1.Cells[0,5]: ='Номинальная пропускная способность';fori:=1 to 14 do suiStringGrid1. Cells[i, 0]: =inttostr (i);tpokazatel_seti.Filtered:=false;tpokazatel_seti.Filter:='nom_izm=1 and id_net='+inttostr (tparametr_seti.FieldValues['id_net']);tpokazatel_seti.Filtered:=true;tpokazatel_seti.first;fori:=1 to 14 dobeginsuiStringGrid1. Cells[i, 1]: =tpokazatel_seti.FieldValues['vr_og_dostup'];suiStringGrid1.Cells[i, 2]:=tpokazatel_seti.FieldValues['koef_isp'];suiStringGrid1.Cells[i, 3]:=tpokazatel_seti.FieldValues['ef_prop_sp'];suiStringGrid1.Cells[i, 4]:=tpokazatel_seti.FieldValues['nom_prop'];suiStringGrid1.Cells[i, 5]:=tpokazatel_seti.FieldValues['kolich_poter_pak'];tpokazatel_seti.Next;end;end;procedure TForm1. suiButton2Click (Sender: TObject);var i, j, p1,p2,p3,p4,p5:integer;beginfori:=1 to 14 dobegintpokazatel_seti.Filtered:=false;tpokazatel_seti.Filter:='nom_izm='+suispinedit2.Text+' and id_net='+inttostr (tparametr_seti.FieldValues['id_net'])+' and nomer='+inttostr (i);tpokazatel_seti.Filtered:=true;tpokazatel_seti.First;tpokazatel_seti.edit; tpokazatel_seti.FieldByName ('id_net').AsInteger:=tparametr_seti.FieldValues['id_net']; tpokazatel_seti.FieldByName ('nom_izm').AsInteger:=strtoint (suiSpinEdit2.text); tpokazatel_seti.FieldByName ('nomer').AsInteger:=strtoint (suiStringGrid1.Cells[i, 0]); tpokazatel_seti.FieldByName ('vr_og_dostup').AsInteger:=strtoint (suiStringGrid1.Cells[i, 1]); tpokazatel_seti.FieldByName ('koef_isp').AsString:=suiStringGrid1.Cells[i, 2]; tpokazatel_seti.FieldByName ('ef_prop_sp').AsInteger:=strtoint (suiStringGrid1.Cells[i, 3]); tpokazatel_seti.FieldByName ('nom_prop').AsInteger:=strtoint (suiStringGrid1.Cells[i, 4]); tpokazatel_seti.FieldByName ('kolich_poter_pak').AsInteger:=strtoint (suiStringGrid1.Cells[i, 5]); tpokazatel_seti.post; p1:=p1+strtoint (suiStringGrid1.Cells[i, 0]); p2:=p2+strtoint (suiStringGrid1.Cells[i, 1]); p3:=p3+strtoint (suiStringGrid1.Cells[i, 2]); p4:=p4+strtoint (suiStringGrid1.Cells[i, 3]); p5:=p5+strtoint (suiStringGrid1.Cells[i, 5]);end;tizm_pokaz.Filtered:=false;tizm_pokaz.Filter:='nom_izm='+suispinedit2.Text+' and id_net='+inttostr (tparametr_seti.FieldValues['id_net']);tizm_pokaz.Filtered:=true;tizm_pokaz.Edit;tizm_pokaz.FieldByName ('p1').AsInteger:=p1 div 14;tizm_pokaz.FieldByName ('p2').AsInteger:=p2 div 14;tizm_pokaz.FieldByName ('p3').AsInteger:=p3 div 14;tizm_pokaz.FieldByName ('p4').AsInteger:=p4 div 14;tizm_pokaz.FieldByName ('p5').AsInteger:=p5 div 14;tizm_pokaz.Post;tizm_pokaz.Filtered:=false;end;procedure TForm1. suiSpinEdit2Change (Sender: TObject);vari, j, m:integer;begintpokazatel_seti.Filtered:=false;tpokazatel_seti.Filter:='nom_izm='+suispinedit2.Text+' and id_net='+inttostr (tparametr_seti.FieldValues['id_net']);tpokazatel_seti.Filtered:=true;tpokazatel_seti.first;fori:=1 to 14 dobeginsuiStringGrid1. Cells[i, 1]: =tpokazatel_seti.FieldValues['vr_og_dostup'];suiStringGrid1.Cells[i, 2]:=tpokazatel_seti.FieldValues['koef_isp'];suiStringGrid1.Cells[i, 3]:=tpokazatel_seti.FieldValues['ef_prop_sp'];suiStringGrid1.Cells[i, 4]:=tpokazatel_seti.FieldValues['nom_prop'];suiStringGrid1.Cells[i, 5]:=tpokazatel_seti.FieldValues['kolich_poter_pak'];tpokazatel_seti.Next;end;end;procedure TForm1. suiButton1Click (Sender: TObject);vari, j, m:integer;begintrytparametr_seti.Append; tparametr_seti.FieldByName ('kol_serv').asinteger:=strtoint (suiEdit2.Text); tparametr_seti.FieldByName ('kol_slugb').asinteger:=strtoint (suiEdit7.Text); tparametr_seti.FieldByName ('kol_user').asinteger:=strtoint (suiEdit8.Text);tparametr_seti.Post;exceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;fori:=1 to 25 dofor j:=1 to 14 dobegintpokazatel_seti.Append; tpokazatel_seti.FieldByName ('id_net').AsInteger:=tparametr_seti.FieldValues['id_net']; tpokazatel_seti.FieldByName ('nom_izm').AsInteger:=i;tpokazatel_seti.FieldByName ('nomer').AsInteger:=j;tpokazatel_seti.FieldByName ('vr_og_dostup').AsInteger:=0;tpokazatel_seti.FieldByName ('koef_isp').AsString:='0';tpokazatel_seti.FieldByName ('ef_prop_sp').AsInteger:=0;tpokazatel_seti.FieldByName ('nom_prop').AsInteger:=0;tpokazatel_seti.FieldByName ('kolich_poter_pak').AsInteger:=0; tpokazatel_seti.post;end;fori:=1 to 25 dobegintizm_pokaz.Append; tizm_pokaz.FieldByName ('id_net').AsInteger:=tparametr_seti.FieldValues['id_net']; tizm_pokaz.FieldByName ('nom_izm').AsInteger:=i;tizm_pokaz.FieldByName ('p1').AsInteger:=0;tizm_pokaz.FieldByName ('p2').AsInteger:=0;tizm_pokaz.FieldByName ('p3').AsString:='0';tizm_pokaz.FieldByName ('p4').AsInteger:=0;tizm_pokaz.FieldByName ('p5').AsInteger:=0; tizm_pokaz.post;end;end;procedure TForm1. suiButton10Click (Sender: TObject);begintrytnastr_protokola.Append; tnastr_protokola.FieldByName ('id_net').asinteger:=tparametr_seti.FieldValues['id_net']; tnastr_protokola.FieldByName ('id_nastr').asinteger:=strtoint (suiEdit14.Text); tnastr_protokola.FieldByName ('protokol').AsString:=suiComboBox4.Text; tnastr_protokola.FieldByName ('period_ust').asinteger:=strtoint (suiEdit3.Text); tnastr_protokola.FieldByName ('taimaut').asinteger:=strtoint (suiEdit9.Text); tnastr_protokola.FieldByName ('razmer_okna').asinteger:=strtoint (suiEdit10.Text); tnastr_protokola.FieldByName ('razm_paket').asinteger:=strtoint (suiEdit11.Text); tnastr_protokola.FieldByName ('razm_kadra').asinteger:=strtoint (suiEdit12.Text); tnastr_protokola.FieldByName ('vr_paketa').asinteger:=strtoint (suiEdit13.Text);tnastr_protokola.Post;exceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiDBGrid1CellClick (Column: TColumn);beginsuiEdit2.Text:= tparametr_seti.FieldValues['kol_serv']; suiEdit7. Text:= tparametr_seti.FieldValues['kol_slugb']; suiEdit8. Text:= tparametr_seti.FieldValues['kol_user']; tnastr_protokola.Filtered:=false;tnastr_protokola.Filter:='id_net='+tparametr_seti.FieldValues['id_net'];tnastr_protokola.Filtered:=true;end;procedure TForm1. suiButton9Click (Sender: TObject);begintspr_slugba.Delete;end;procedure TForm1. suiButton7Click (Sender: TObject);begintrytspr_slugba.Append;tspr_slugba.FieldByName ('slugba').AsString:=suiEdit4.Text;tspr_slugba.FieldByName ('opis').AsString:=suiMemo1.Text;tspr_slugba.Post;exceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiButton4Click (Sender: TObject);begintrytslugba.Append;tslugba.FieldByName ('id_net').AsInteger:=tparametr_seti.FieldValues['id_net']; // tslugba. FieldByName ('id_slugba').AsInteger:=tspr_slugba.FieldValues['id_sl']; tslugba. FieldByName ('slugba').AsString:=tspr_slugba.FieldValues['slugba'];tslugba.FieldByName ('int_obrash').Asinteger:=strtoint (suiEdit1.text);tslugba.Post;exceptMessageDlg ('Ошибкавводаданных!', mtInformation,[mbYes], 0);end;end;procedure TForm1. suiDBGrid8CellClick (Column: TColumn);begintizm_pokaz.Filtered:=false;tizm_pokaz.Filter:='id_net='+inttostr (tparametr_seti.FieldValues['id_net']);tizm_pokaz.Filtered:=true;end;procedure TForm1. suiDBGrid4CellClick (Column: TColumn);begintslugba.Filtered:=false;tslugba.Filter:='id_net='+inttostr (tparametr_seti.FieldValues['id_net']);tslugba.Filtered:=true;end;procedure TForm1. suiButton5Click (Sender: TObject);beginfrxReport1.ShowReport;end;procedure TForm1. suiButton8Click (Sender: TObject);begintnastr_protokola.Filtered:=false;tnastr_protokola.Filter:='id_net='+inttostr (tparametr_seti.FieldValues['id_net']);tnastr_protokola.Filtered:=true;frxReport2.ShowReport;end;end.