Вход

Разработка информационной системы планирования финансовых ресурсов предприятия

Рекомендуемая категория для самостоятельной подготовки:
Дипломная работа*
Код 178053
Дата создания 2013
Страниц 99
Источников 18
Покупка готовых работ временно недоступна.
4 830руб.

Содержание

Оглавление
Введение
1.Аналитическая часть
1.1 Описание предприятия
1.2 Структура управления предприятия
1.3 Программная и техническая архитектура предприятия
1.4 Анализ процесса планирования финансовых ресурсов предприятия
1.5 Обзор аналогов программного обеспечения
1.6 Разработка требований к системе
2. Проектный раздел
2.1 Обоснование выбора средств разработки
2.1.1 Обоснование выбора языка программирования
2.1.2 Обоснование выбора СУБД
2.2 Описание программной реализации клиентской части ИС
2.2.1 Дерево функций и сценарий диалога
2.2.2 Структурная схема пакета
2.3 Описание реализации БД ИС
2.4 Схема функционирования ИС
2.5 Описание технологии работы с ЭИС
3. Мероприятия по обеспечению безопасности жизнедеятельности
3.1 Мероприятия по эргономическому обеспечению
3.2 Мероприятия по технике безопасности
Заключение
Список использованных источников
?

Фрагмент работы для ознакомления

dfm}procedure TForm1.suiButton7Click(Sender: TObject);begintrytpokazatel.Append;tpokazatel.FieldByName('pokazatel').AsString:=suiEdit4.text;tpokazatel.FieldByName('ed_izm').AsString:=suiComboBox1.text;tpokazatel.FieldByName('opis').AsString:=suiMemo1.Text;tpokazatel.FieldByName('min').AsInteger:=strtoint(suiEdit1.text);tpokazatel.FieldByName('max').AsInteger:=strtoint(suiEdit7.text);tpokazatel.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiButton8Click(Sender: TObject);begintrytpokazatel.edit;tpokazatel.FieldByName('pokazatel').AsString:=suiEdit4.text;tpokazatel.FieldByName('ed_izm').AsString:=suiComboBox1.text;tpokazatel.FieldByName('opis').AsString:=suiMemo1.Text;tpokazatel.FieldByName('min').AsInteger:=strtoint(suiEdit1.text);tpokazatel.FieldByName('max').AsInteger:=strtoint(suiEdit7.text);tpokazatel.Post;ExceptMessageDlg('Ошибкавводаданных!',mtInformation,[mbYes],0);end;end;procedure TForm1.suiDBGrid3CellClick(Column: TColumn);beginsuiEdit4.text:=tpokazatel.FieldValues['pokazatel'];suiComboBox1.text:=tpokazatel.FieldValues['ed_izm'];suiEdit1.text:=tpokazatel.FieldValues['min'];suiEdit7.text:=tpokazatel.FieldValues['max'];suiMemo1.Text:=tpokazatel.FieldValues['opis'];end;procedure TForm1.suiButton3Click(Sender: TObject);vari,j:integer;begintstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiedit2.Text+'''';tstat_pokazatel.Filtered:=true;iftstat_pokazatel.RecordCount<>0 thenbegintstat_pokazatel.first;for j:=0 to tstat_pokazatel.RecordCount-1 dobegintstat_pokazatel.delete;tstat_pokazatel.next;end;end;//tpokazatel.First;fori:=1 to tpokazatel.RecordCount dobegintstat_pokazatel.Append; tstat_pokazatel.FieldByName('pokazatel').AsString:=suiStringGrid3.Cells[0,i];tstat_pokazatel.FieldByName('god').AsString:=suiEdit2.Text; tstat_pokazatel.FieldByName('m1').AsString:=suiStringGrid3.Cells[1,i]; tstat_pokazatel.FieldByName('m2').AsString:=suiStringGrid3.Cells[2,i]; tstat_pokazatel.FieldByName('m3').AsString:=suiStringGrid3.Cells[3,i]; tstat_pokazatel.FieldByName('m4').AsString:=suiStringGrid3.Cells[4,i]; tstat_pokazatel.FieldByName('m5').AsString:=suiStringGrid3.Cells[5,i]; tstat_pokazatel.FieldByName('m6').AsString:=suiStringGrid3.Cells[6,i]; tstat_pokazatel.FieldByName('m7').AsString:=suiStringGrid3.Cells[7,i]; tstat_pokazatel.FieldByName('m8').AsString:=suiStringGrid3.Cells[8,i]; tstat_pokazatel.FieldByName('m9').AsString:=suiStringGrid3.Cells[9,i]; tstat_pokazatel.FieldByName('m10').AsString:=suiStringGrid3.Cells[10,i]; tstat_pokazatel.FieldByName('m11').AsString:=suiStringGrid3.Cells[11,i]; tstat_pokazatel.FieldByName('m12').AsString:=suiStringGrid3.Cells[12,i]; tstat_pokazatel.post;tpokazatel.Next;end;end;procedure TForm1.suiButton17Click(Sender: TObject);begin{suiEdit5.Text:=inttostr((strtoint(suiEdit5.Text)+1));tstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiEdit5.Text+'''';tstat_spros.Filtered:=true; }end;procedure TForm1.suiButton9Click(Sender: TObject);begintpokazatel.Delete;end;procedure TForm1.FormCreate(Sender: TObject);vari,j,m:integer;beginsuiPageControl1.ActivePageIndex:=0;fori:=1 to 12 do suiStringGrid3.Cells[i,0]:=inttostr(i);fori:=1 to tpokazatel.RecordCount dobeginsuiStringGrid3.Cells[0,i]:=tpokazatel.FieldValues['pokazatel'];tpokazatel.Next;end;tpokazatel.First;fori:=1 to tpokazatel.RecordCount dobegintstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god=''2012'' and pokazatel='''+tpokazatel.FieldValues['pokazatel']+'''';tstat_pokazatel.Filtered:=true;iftstat_pokazatel.RecordCount<>0 thenbeginsuiStringGrid3.Cells[1,i]:=tstat_pokazatel.FieldValues['m1'];suiStringGrid3.Cells[2,i]:=tstat_pokazatel.FieldValues['m2'];suiStringGrid3.Cells[3,i]:=tstat_pokazatel.FieldValues['m3'];suiStringGrid3.Cells[4,i]:=tstat_pokazatel.FieldValues['m4'];suiStringGrid3.Cells[5,i]:=tstat_pokazatel.FieldValues['m5'];suiStringGrid3.Cells[6,i]:=tstat_pokazatel.FieldValues['m6'];suiStringGrid3.Cells[7,i]:=tstat_pokazatel.FieldValues['m7'];suiStringGrid3.Cells[8,i]:=tstat_pokazatel.FieldValues['m8'];suiStringGrid3.Cells[9,i]:=tstat_pokazatel.FieldValues['m9'];suiStringGrid3.Cells[10,i]:=tstat_pokazatel.FieldValues['m10'];suiStringGrid3.Cells[11,i]:=tstat_pokazatel.FieldValues['m11'];suiStringGrid3.Cells[12,i]:=tstat_pokazatel.FieldValues['m12'];tpokazatel.Next;endelse for m:=1 to 12 do for j:=1 to tpokazatel.RecordCount do suiStringGrid3.Cells[m,j]:='0';end;{ iftstat_pokazatel.RecordCount<>0 thenbeginsuiStringGrid1.Cells[1,i]:=tstat_spros.FieldValues['sp1'];suiStringGrid2.Cells[1,i]:=tstat_spros.FieldValues['pr1'];suiStringGrid1.Cells[2,i]:=tstat_spros.FieldValues['sp2'];suiStringGrid2.Cells[2,i]:=tstat_spros.FieldValues['pr2'];suiStringGrid1.Cells[3,i]:=tstat_spros.FieldValues['sp3'];suiStringGrid2.Cells[3,i]:=tstat_spros.FieldValues['pr3'];suiStringGrid1.Cells[4,i]:=tstat_spros.FieldValues['sp4'];suiStringGrid2.Cells[4,i]:=tstat_spros.FieldValues['pr4'];suiStringGrid1.Cells[5,i]:=tstat_spros.FieldValues['sp5'];suiStringGrid2.Cells[5,i]:=tstat_spros.FieldValues['pr5'];suiStringGrid1.Cells[6,i]:=tstat_spros.FieldValues['sp6'];suiStringGrid2.Cells[6,i]:=tstat_spros.FieldValues['pr6'];suiStringGrid1.Cells[7,i]:=tstat_spros.FieldValues['sp7'];suiStringGrid2.Cells[7,i]:=tstat_spros.FieldValues['pr7'];suiStringGrid1.Cells[8,i]:=tstat_spros.FieldValues['sp8'];suiStringGrid2.Cells[8,i]:=tstat_spros.FieldValues['pr8'];suiStringGrid1.Cells[9,i]:=tstat_spros.FieldValues['sp9'];suiStringGrid2.Cells[9,i]:=tstat_spros.FieldValues['pr9'];suiStringGrid1.Cells[10,i]:=tstat_spros.FieldValues['sp10'];suiStringGrid2.Cells[10,i]:=tstat_spros.FieldValues['pr10'];suiStringGrid1.Cells[11,i]:=tstat_spros.FieldValues['sp11'];suiStringGrid2.Cells[11,i]:=tstat_spros.FieldValues['pr11'];suiStringGrid1.Cells[12,i]:=tstat_spros.FieldValues['sp12'];suiStringGrid2.Cells[12,i]:=tstat_spros.FieldValues['pr12'];tprog.Next;endelse }// for m:=1 to 12 do for j:=1 to tpokazatel.RecordCount do// begin // suiStringGrid1.Cells[m,j]:='0'; // suiStringGrid2.Cells[m,j]:='0'; // suiStringGrid3.Cells[m,j]:='0'; // end;// tstat_pokazatel.Filtered:=false;// tstat_pokazatel.Filter:='god=''2012'' and pokazatel='''+tpokazatel.FieldValues['pokazatel']+'''';// tstat_pokazatel.Filtered:=true;tstat_pokazatel.Filtered:=false;//tstat_spros.Filtered:=false;end;procedure TForm1.suiSpinEdit2Change(Sender: TObject);vari,j,m:integer;begin{tprog.Filtered:=false;tprog.First;fori:=1 to tprog.RecordCount dobegintstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiSpinEdit2.Text+''' and prog='''+tprog.FieldValues['prog']+'''';tstat_spros.Filtered:=true;iftstat_spros.RecordCount<>0 thenbeginsuiStringGrid1.Cells[1,i]:=tstat_spros.FieldValues['sp1'];suiStringGrid2.Cells[1,i]:=tstat_spros.FieldValues['pr1'];suiStringGrid1.Cells[2,i]:=tstat_spros.FieldValues['sp2'];suiStringGrid2.Cells[2,i]:=tstat_spros.FieldValues['pr2'];suiStringGrid1.Cells[3,i]:=tstat_spros.FieldValues['sp3'];suiStringGrid2.Cells[3,i]:=tstat_spros.FieldValues['pr3'];suiStringGrid1.Cells[4,i]:=tstat_spros.FieldValues['sp4'];suiStringGrid2.Cells[4,i]:=tstat_spros.FieldValues['pr4'];suiStringGrid1.Cells[5,i]:=tstat_spros.FieldValues['sp5'];suiStringGrid2.Cells[5,i]:=tstat_spros.FieldValues['pr5'];suiStringGrid1.Cells[6,i]:=tstat_spros.FieldValues['sp6'];suiStringGrid2.Cells[6,i]:=tstat_spros.FieldValues['pr6'];suiStringGrid1.Cells[7,i]:=tstat_spros.FieldValues['sp7'];suiStringGrid2.Cells[7,i]:=tstat_spros.FieldValues['pr7'];suiStringGrid1.Cells[8,i]:=tstat_spros.FieldValues['sp8'];suiStringGrid2.Cells[8,i]:=tstat_spros.FieldValues['pr8'];suiStringGrid1.Cells[9,i]:=tstat_spros.FieldValues['sp9'];suiStringGrid2.Cells[9,i]:=tstat_spros.FieldValues['pr9'];suiStringGrid1.Cells[10,i]:=tstat_spros.FieldValues['sp10'];suiStringGrid2.Cells[10,i]:=tstat_spros.FieldValues['pr10'];suiStringGrid1.Cells[11,i]:=tstat_spros.FieldValues['sp11'];suiStringGrid2.Cells[11,i]:=tstat_spros.FieldValues['pr11'];suiStringGrid1.Cells[12,i]:=tstat_spros.FieldValues['sp12'];suiStringGrid2.Cells[12,i]:=tstat_spros.FieldValues['pr12'];tprog.Next;endelsefor m:=1 to 12 do for j:=1 to tprog.RecordCount dobeginsuiStringGrid1.Cells[m,j]:='0';suiStringGrid2.Cells[m,j]:='0';end;end; }end;procedure TForm1.suiSpinEdit3Change(Sender: TObject);vari,j,m:integer;begin{tprog.Filtered:=false;tprog.First;fori:=1 to tprog.RecordCount dobegintstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiSpinEdit3.Text+''' and prog='''+tprog.FieldValues['prog']+'''';tstat_pokazatel.Filtered:=true;iftstat_pokazatel.RecordCount<>0 thenbeginsuiStringGrid3.Cells[1,i]:=tstat_pokazatel.FieldValues['m1'];suiStringGrid3.Cells[2,i]:=tstat_pokazatel.FieldValues['m2'];suiStringGrid3.Cells[3,i]:=tstat_pokazatel.FieldValues['m3'];suiStringGrid3.Cells[4,i]:=tstat_pokazatel.FieldValues['m4'];suiStringGrid3.Cells[5,i]:=tstat_pokazatel.FieldValues['m5'];suiStringGrid3.Cells[6,i]:=tstat_pokazatel.FieldValues['m6'];suiStringGrid3.Cells[7,i]:=tstat_pokazatel.FieldValues['m7'];suiStringGrid3.Cells[8,i]:=tstat_pokazatel.FieldValues['m8'];suiStringGrid3.Cells[9,i]:=tstat_pokazatel.FieldValues['m9'];suiStringGrid3.Cells[10,i]:=tstat_pokazatel.FieldValues['m10'];suiStringGrid3.Cells[11,i]:=tstat_pokazatel.FieldValues['m11'];suiStringGrid3.Cells[12,i]:=tstat_pokazatel.FieldValues['m12'];tprog.Next;endelse for m:=1 to 12 do for j:=1 to tprog.RecordCount do suiStringGrid3.Cells[m,j]:='0';end; }end;procedure TForm1.suiButton1Click(Sender: TObject);vari,j,m:integer;beginsuiEdit2.Text:=inttostr((strtoint(suiEdit2.Text)+1));tpokazatel.Filtered:=false;tpokazatel.First;fori:=1 to tpokazatel.RecordCount dobegintstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiEdit2.Text+''' and pokazatel='''+tpokazatel.FieldValues['pokazatel']+'''';tstat_pokazatel.Filtered:=true;iftstat_pokazatel.RecordCount<>0 thenbeginsuiStringGrid3.Cells[1,i]:=tstat_pokazatel.FieldValues['m1'];suiStringGrid3.Cells[2,i]:=tstat_pokazatel.FieldValues['m2'];suiStringGrid3.Cells[3,i]:=tstat_pokazatel.FieldValues['m3'];suiStringGrid3.Cells[4,i]:=tstat_pokazatel.FieldValues['m4'];suiStringGrid3.Cells[5,i]:=tstat_pokazatel.FieldValues['m5'];suiStringGrid3.Cells[6,i]:=tstat_pokazatel.FieldValues['m6'];suiStringGrid3.Cells[7,i]:=tstat_pokazatel.FieldValues['m7'];suiStringGrid3.Cells[8,i]:=tstat_pokazatel.FieldValues['m8'];suiStringGrid3.Cells[9,i]:=tstat_pokazatel.FieldValues['m9'];suiStringGrid3.Cells[10,i]:=tstat_pokazatel.FieldValues['m10'];suiStringGrid3.Cells[11,i]:=tstat_pokazatel.FieldValues['m11'];suiStringGrid3.Cells[12,i]:=tstat_pokazatel.FieldValues['m12'];tpokazatel.Next;endelse for m:=1 to 12 do for j:=1 to tpokazatel.RecordCount do suiStringGrid3.Cells[m,j]:='0';end;end;procedure TForm1.suiButton6Click(Sender: TObject);vari,j,m:integer;beginsuiEdit2.Text:=inttostr((strtoint(suiEdit2.Text)-1));tpokazatel.Filtered:=false;tpokazatel.First;fori:=1 to tpokazatel.RecordCount dobegintstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiEdit2.Text+''' and pokazatel='''+tpokazatel.FieldValues['pokazatel']+'''';tstat_pokazatel.Filtered:=true;iftstat_pokazatel.RecordCount<>0 thenbeginsuiStringGrid3.Cells[1,i]:=tstat_pokazatel.FieldValues['m1'];suiStringGrid3.Cells[2,i]:=tstat_pokazatel.FieldValues['m2'];suiStringGrid3.Cells[3,i]:=tstat_pokazatel.FieldValues['m3'];suiStringGrid3.Cells[4,i]:=tstat_pokazatel.FieldValues['m4'];suiStringGrid3.Cells[5,i]:=tstat_pokazatel.FieldValues['m5'];suiStringGrid3.Cells[6,i]:=tstat_pokazatel.FieldValues['m6'];suiStringGrid3.Cells[7,i]:=tstat_pokazatel.FieldValues['m7'];suiStringGrid3.Cells[8,i]:=tstat_pokazatel.FieldValues['m8'];suiStringGrid3.Cells[9,i]:=tstat_pokazatel.FieldValues['m9'];suiStringGrid3.Cells[10,i]:=tstat_pokazatel.FieldValues['m10'];suiStringGrid3.Cells[11,i]:=tstat_pokazatel.FieldValues['m11'];suiStringGrid3.Cells[12,i]:=tstat_pokazatel.FieldValues['m12'];tpokazatel.Next;endelse for m:=1 to 12 do for j:=1 to tpokazatel.RecordCount do suiStringGrid3.Cells[m,j]:='0';end;tstat_pokazatel.Filtered:=false;end;procedure TForm1.suiButton12Click(Sender: TObject);beginsuiEdit3.Text:=inttostr((strtoint(suiEdit3.Text)-1));tstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiEdit3.Text+'''';tstat_pokazatel.Filtered:=true;end;procedure TForm1.suiButton13Click(Sender: TObject);beginsuiEdit3.Text:=inttostr((strtoint(suiEdit3.Text)+1));tstat_pokazatel.Filtered:=false;tstat_pokazatel.Filter:='god='''+suiEdit3.Text+'''';tstat_pokazatel.Filtered:=true;end;procedure TForm1.suiButton11Click(Sender: TObject);var i:integer;s:array of TLineSeries;beginsuiListBox1.Items.Add(tstat_pokazatel.FieldValues['pokazatel']);setlength(s,suiListBox1.Count+1);s[suiListBox1.Count]:= TLineSeries.Create(nil);s[suiListBox1.Count].ParentChart:=Chart1;s[suiListBox1.Count].AddXY(1,strtoint(tstat_pokazatel.FieldValues['m1']));s[suiListBox1.Count].addxy(2,strtoint(tstat_pokazatel.FieldValues['m2']));s[suiListBox1.Count].addxy(3,strtoint(tstat_pokazatel.FieldValues['m3']));s[suiListBox1.Count].addxy(4,strtoint(tstat_pokazatel.FieldValues['m4']));s[suiListBox1.Count].addxy(5,strtoint(tstat_pokazatel.FieldValues['m5']));s[suiListBox1.Count].addxy(6,strtoint(tstat_pokazatel.FieldValues['m6']));s[suiListBox1.Count].addxy(7,strtoint(tstat_pokazatel.FieldValues['m7']));s[suiListBox1.Count].addxy(8,strtoint(tstat_pokazatel.FieldValues['m8']));s[suiListBox1.Count].addxy(9,strtoint(tstat_pokazatel.FieldValues['m9']));s[suiListBox1.Count].addxy(10,strtoint(tstat_pokazatel.FieldValues['m10']));s[suiListBox1.Count].addxy(11,strtoint(tstat_pokazatel.FieldValues['m11']));s[suiListBox1.Count].addxy(12,strtoint(tstat_pokazatel.FieldValues['m12']));end;procedure TForm1.suiButton10Click(Sender: TObject);beginChart1.Series[suiListBox1.ItemIndex].Clear;suiListBox1.DeleteSelected;end;procedure TForm1.suiButton16Click(Sender: TObject);begin{suiEdit5.Text:=inttostr((strtoint(suiEdit5.Text)-1));tstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiEdit5.Text+'''';tstat_spros.Filtered:=true; }end;procedure TForm1.suiButton14Click(Sender: TObject);var i:integer;s:TLineSeries;begin{s:= TLineSeries.Create(nil);s.ParentChart:=Chart4;s.AddXY(1,strtoint(tstat_spros.FieldValues['sp1']));s.AddXY(1,strtoint(tstat_spros.FieldValues['pr1']));s.addxy(2,strtoint(tstat_spros.FieldValues['sp2']));s.addxy(3,strtoint(tstat_spros.FieldValues['sp3']));s.addxy(4,strtoint(tstat_spros.FieldValues['sp4']));s.addxy(5,strtoint(tstat_spros.FieldValues['sp5']));s.addxy(6,strtoint(tstat_spros.FieldValues['sp6']));s.addxy(7,strtoint(tstat_spros.FieldValues['sp7']));s.addxy(8,strtoint(tstat_spros.FieldValues['sp8']));s.addxy(9,strtoint(tstat_spros.FieldValues['sp9']));s.addxy(10,strtoint(tstat_spros.FieldValues['sp10']));s.addxy(11,strtoint(tstat_spros.FieldValues['sp11']));s.addxy(12,strtoint(tstat_spros.FieldValues['sp12']));Chart4.Series[0].clear;Chart4.Series[1].clear;Chart4.Series[0].AddXY(1,strtoint(tstat_spros.FieldValues['sp1']));Chart4.Series[1].AddXY(1,strtoint(tstat_spros.FieldValues['pr1']));Chart4.Series[0].AddXY(2,strtoint(tstat_spros.FieldValues['sp2']));Chart4.Series[1].AddXY(2,strtoint(tstat_spros.FieldValues['pr2']));Chart4.Series[0].AddXY(3,strtoint(tstat_spros.FieldValues['sp3']));Chart4.Series[1].AddXY(3,strtoint(tstat_spros.FieldValues['pr3']));Chart4.Series[0].AddXY(4,strtoint(tstat_spros.FieldValues['sp4']));Chart4.Series[1].AddXY(4,strtoint(tstat_spros.FieldValues['pr4']));Chart4.Series[0].AddXY(5,strtoint(tstat_spros.FieldValues['sp5']));Chart4.Series[1].AddXY(5,strtoint(tstat_spros.FieldValues['pr5']));Chart4.Series[0].AddXY(6,strtoint(tstat_spros.FieldValues['sp6']));Chart4.Series[1].AddXY(6,strtoint(tstat_spros.FieldValues['pr6']));Chart4.Series[0].AddXY(7,strtoint(tstat_spros.FieldValues['sp7']));Chart4.Series[1].AddXY(7,strtoint(tstat_spros.FieldValues['pr7']));Chart4.Series[0].AddXY(8,strtoint(tstat_spros.FieldValues['sp8']));Chart4.Series[1].AddXY(8,strtoint(tstat_spros.FieldValues['pr8']));Chart4.Series[0].AddXY(9,strtoint(tstat_spros.FieldValues['sp9']));Chart4.Series[1].AddXY(9,strtoint(tstat_spros.FieldValues['pr9']));Chart4.Series[0].AddXY(10,strtoint(tstat_spros.FieldValues['sp10']));Chart4.Series[1].AddXY(10,strtoint(tstat_spros.FieldValues['pr10']));Chart4.Series[0].AddXY(11,strtoint(tstat_spros.FieldValues['sp11']));Chart4.Series[1].AddXY(11,strtoint(tstat_spros.FieldValues['pr11']));Chart4.Series[0].AddXY(12,strtoint(tstat_spros.FieldValues['sp12']));Chart4.Series[1].AddXY(12,strtoint(tstat_spros.FieldValues['pr12'])); }end;procedure TForm1.suiButton19Click(Sender: TObject);begin{suiEdit5.Text:=inttostr((strtoint(suiEdit5.Text)-1));tklient.Filtered:=false;tklient.Filter:='god='''+suiEdit5.Text+'''';tklient.Filtered:=true; }end;procedure TForm1.suiPageControl1Change(Sender: TObject);vara,b,c,i:integer; sp1,sp2,sp3,sp4,sp5,sp6,sp7,sp8,sp9,sp10,sp11,sp12:integer; pr1,pr2,pr3,pr4,pr5,pr6,pr7,pr8,pr9,pr10,pr11,pr12:integer;begin{if suiPageControl1.ActivePageIndex=3 thenbegintklient.Filtered:=false;tklient.Filter:='class=''крупный''';tklient.Filtered:=true;a:=tklient.RecordCount;tklient.Filtered:=false;tklient.Filter:='class=''постоянный''';tklient.Filtered:=true;b:=tklient.RecordCount;tklient.Filtered:=false;tklient.Filter:='class=''разовый''';tklient.Filtered:=true;c:=tklient.RecordCount;Chart3.Series[0].Clear;Chart3.Series[0].Add(a,'крупный');Chart3.Series[0].Add(b,'постоянный');Chart3.Series[0].Add(c,'разовый');tklient.Filtered:=False;tstat_spros.Filtered:=false;tstat_spros.Filter:='god=''2010'' and segment=''общегоназначения''';tstat_spros.Filtered:=true;tstat_spros.First;fori:=1 to tstat_spros.RecordCount dobegin sp1:=sp1+strtoint(tstat_spros.FieldValues['sp1']); pr1:=pr1+strtoint(tstat_spros.FieldValues['pr1']); sp2:=sp2+strtoint(tstat_spros.FieldValues['sp2']); pr2:=pr2+strtoint(tstat_spros.FieldValues['pr2']); sp3:=sp3+strtoint(tstat_spros.FieldValues['sp3']); pr3:=pr3+strtoint(tstat_spros.FieldValues['pr3']); sp4:=sp4+strtoint(tstat_spros.FieldValues['sp4']); pr4:=pr4+strtoint(tstat_spros.FieldValues['pr4']); sp5:=sp5+strtoint(tstat_spros.FieldValues['sp5']); pr5:=pr5+strtoint(tstat_spros.FieldValues['pr5']); sp6:=sp6+strtoint(tstat_spros.FieldValues['sp6']); pr6:=pr6+strtoint(tstat_spros.FieldValues['pr6']); sp7:=sp7+strtoint(tstat_spros.FieldValues['sp7']); pr7:=pr7+strtoint(tstat_spros.FieldValues['pr7']); sp8:=sp8+strtoint(tstat_spros.FieldValues['sp8']); pr8:=pr8+strtoint(tstat_spros.FieldValues['pr8']); sp9:=sp9+strtoint(tstat_spros.FieldValues['sp9']); pr9:=pr9+strtoint(tstat_spros.FieldValues['pr9']); sp10:=sp10+strtoint(tstat_spros.FieldValues['sp10']); pr10:=pr10+strtoint(tstat_spros.FieldValues['pr10']); sp11:=sp11+strtoint(tstat_spros.FieldValues['sp11']); pr11:=pr11+strtoint(tstat_spros.FieldValues['pr11']); sp12:=sp12+strtoint(tstat_spros.FieldValues['sp12']); pr12:=pr12+strtoint(tstat_spros.FieldValues['pr12']);tstat_spros.Next;end;Chart2.Series[0].Clear;Chart2.Series[1].Clear;Chart2.Series[0].AddXY(1,sp1);Chart2.Series[1].AddXY(1,pr1);Chart2.Series[0].AddXY(2,sp2);Chart2.Series[1].AddXY(2,pr2);Chart2.Series[0].AddXY(3,sp3);Chart2.Series[1].AddXY(3,pr3);Chart2.Series[0].AddXY(4,sp4);Chart2.Series[1].AddXY(4,pr4);Chart2.Series[0].AddXY(5,sp5);Chart2.Series[1].AddXY(5,pr5);Chart2.Series[0].AddXY(6,sp6);Chart2.Series[1].AddXY(6,pr6);Chart2.Series[0].AddXY(7,sp7);Chart2.Series[1].AddXY(7,pr7);Chart2.Series[0].AddXY(8,sp8);Chart2.Series[1].AddXY(8,pr8);Chart2.Series[0].AddXY(9,sp9);Chart2.Series[1].AddXY(9,pr9);Chart2.Series[0].AddXY(10,sp10);Chart2.Series[1].AddXY(10,pr10);Chart2.Series[0].AddXY(11,sp11);Chart2.Series[1].AddXY(11,pr11);Chart2.Series[0].AddXY(12,sp12);Chart2.Series[1].AddXY(12,pr12);end; }end;procedure TForm1.suiButton21Click(Sender: TObject);var i,sp1,sp2,sp3,sp4,sp5,sp6,sp7,sp8,sp9,sp10,sp11,sp12:integer; pr1,pr2,pr3,pr4,pr5,pr6,pr7,pr8,pr9,pr10,pr11,pr12:integer;begin{ sp1:=0; pr1:=0; sp2:=0; pr2:=0; sp3:=0; pr3:=0; sp4:=0; pr4:=0; sp5:=0; pr5:=0; sp6:=0; pr6:=0; sp7:=0; pr7:=0; sp8:=0; pr8:=0; sp9:=0; pr9:=0; sp10:=0; pr10:=0; pr11:=0; sp12:=0; pr12:=0;suiEdit6.Text:=inttostr((strtoint(suiEdit6.Text)+1));case suiRadioGroup1.ItemIndex of 0: begintstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiEdit6.Text+''' and segment=''общегоназначения''';tstat_spros.Filtered:=true;end; 1: begintstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiEdit6.Text+''' and segment=''домашнегоназначения''';tstat_spros.Filtered:=true;end; 2: begintstat_spros.Filtered:=false;tstat_spros.Filter:='god='''+suiEdit6.Text+''' and segment=''деловогоназначения''';tstat_spros.Filtered:=true;end;end; tstat_spros.First;fori:=1 to tstat_spros.RecordCount dobegin sp1:=sp1+strtoint(tstat_spros.FieldValues['sp1']); pr1:=pr1+strtoint(tstat_spros.FieldValues['pr1']); sp2:=sp2+strtoint(tstat_spros.FieldValues['sp2']); pr2:=pr2+strtoint(tstat_spros.FieldValues['pr2']); sp3:=sp3+strtoint(tstat_spros.FieldValues['sp3']); pr3:=pr3+strtoint(tstat_spros.FieldValues['pr3']); sp4:=sp4+strtoint(tstat_spros.FieldValues['sp4']); pr4:=pr4+strtoint(tstat_spros.FieldValues['pr4']); sp5:=sp5+strtoint(tstat_spros.FieldValues['sp5']); pr5:=pr5+strtoint(tstat_spros.FieldValues['pr5']); sp6:=sp6+strtoint(tstat_spros.FieldValues['sp6']); pr6:=pr6+strtoint(tstat_spros.FieldValues['pr6']); sp7:=sp7+strtoint(tstat_spros.FieldValues['sp7']); pr7:=pr7+strtoint(tstat_spros.FieldValues['pr7']); sp8:=sp8+strtoint(tstat_spros.FieldValues['sp8']); pr8:=pr8+strtoint(tstat_spros.FieldValues['pr8']); sp9:=sp9+strtoint(tstat_spros.FieldValues['sp9']); pr9:=pr9+strtoint(tstat_spros.FieldValues['pr9']); sp10:=sp10+strtoint(tstat_spros.FieldValues['sp10']); pr10:=pr10+strtoint(tstat_spros.FieldValues['pr10']); sp11:=sp11+strtoint(tstat_spros.FieldValues['sp11']); pr11:=pr11+strtoint(tstat_spros.FieldValues['pr11']); sp12:=sp12+strtoint(tstat_spros.FieldValues['sp12']); pr12:=pr12+strtoint(tstat_spros.FieldValues['pr12']);tstat_spros.Next;end;Chart2.Series[0].Clear;Chart2.Series[1].Clear;Chart2.Series[0].AddXY(1,sp1);Chart2.Series[1].AddXY(1,pr1);Chart2.Series[0].AddXY(2,sp2);Chart2.Series[1].AddXY(2,pr2);Chart2.Series[0].AddXY(3,sp3);Chart2.Series[1].AddXY(3,pr3);Chart2.Series[0].AddXY(4,sp4);Chart2.Series[1].AddXY(4,pr4);Chart2.Series[0].AddXY(5,sp5);Chart2.Series[1].AddXY(5,pr5);Chart2.Series[0].AddXY(6,sp6);Chart2.Series[1].AddXY(6,pr6);Chart2.Series[0].AddXY(7,sp7);Chart2.Series[1].AddXY(7,pr7);Chart2.Series[0].AddXY(8,sp8);Chart2.Series[1].AddXY(8,pr8);Chart2.Series[0].AddXY(9,sp9);Chart2.Series[1].AddXY(9,pr9);Chart2.Series[0].AddXY(10,sp10);Chart2.Series[1].AddXY(10,pr10);Chart2.Series[0].AddXY(11,sp11);Chart2.Series[1].AddXY(11,pr11);Chart2.Series[0].AddXY(12,sp12);Chart2.Series[1].AddXY(12,pr12); }end;functionCutIt (Number: Real; Digits: Integer): Real;//Number - число, которое нужно обрезать, Digits - количество знаков, которое нужно оставитьvar i: Integer; //простой счетчикst: Integer; // пригодиться для определения порядкаbeginst:=1; For i:=1 to Digits dost:=st*10; Number:=trunc(Number*st)/st;CutIt:=Number;end;procedure TForm1.suiButton2Click(Sender: TObject);var KL, KSR, KTL, KA, KFZ, KM, KOSR, KPI, KRA, KRSK: real;beginKL:=(strtofloat(suiEdit8.Text)+strtofloat(suiEdit6.Text))/strtofloat(suiEdit5.Text);label14.Caption:=floattostr(CutIt(KL,2));KSR:=(strtofloat(suiEdit8.Text)+strtofloat(suiEdit6.Text)+strtofloat(suiEdit11.Text))/strtofloat(suiEdit5.Text);label48.Caption:=floattostr(CutIt(KSR,2));KTL:=strtofloat(suiEdit17.Text)/strtofloat(suiEdit5.Text);label49.Caption:=floattostr(CutIt(KTL,2));KA:=strtofloat(suiEdit9.Text)/strtofloat(suiEdit13.Text);label50.Caption:=floattostr(CutIt(KA,2));KFZ:=strtofloat(suiEdit14.Text)/strtofloat(suiEdit9.Text);label51.Caption:=floattostr(CutIt(KFZ,2));KM:=(strtofloat(suiEdit9.Text)-strtofloat(suiEdit15.Text))/(strtofloat(suiEdit9.Text)+strtofloat(suiEdit12.Text));label52.Caption:=floattostr(CutIt(KM,2));KOSR:=(strtofloat(suiEdit9.Text)+strtofloat(suiEdit12.Text)-+strtofloat(suiEdit15.Text))/strtofloat(suiEdit17.Text);label53.Caption:=floattostr(CutIt(KOSR,2));KPI:=strtofloat(suiEdit9.Text)+strtofloat(suiEdit12.Text)/strtofloat(suiEdit13.Text);label54.Caption:=floattostr(CutIt(KPI,2));KRA:=strtofloat(suiEdit16.Text)/strtofloat(suiEdit15.Text);label55.Caption:=floattostr(CutIt(KRA,2));KRSK:=strtofloat(suiEdit16.Text)/strtofloat(suiEdit9.Text);label56.Caption:=floattostr(CutIt(KRSK,2));end;end.

Список литературы [ всего 18]

Список использованных источников
1.Антопольский А.Б. Проблемы классификации информационных ресурсов по критериям информационной безопасности/ А.Б. Антопольский. - НТИ.- 2007. - № 6.- С. 125-126.
2.Атлас науки [Электронный ресурс]. – Режим доступа: http://www.atlasofscience.org/ (10.01.2009).
3.Бочаров Е.П. Интегрированные Корпоративные информационные системы: Принципы построения: лабораторный практикум на/ Е.П. Бочаров. – М.: Финансы и статистика, 2005. – 234 с.
4.Вузы России [Электронный ресурс]. – Режим доступа: http://www.students.ru (10.01.2009).
5.Зенкин А.А. Основы когнитивной компьютерной графики/ А.А. Зенкин - М.:Наука, 2006. – 271 с.
6.Интернет университет информационных технологий [Электронный ресурс]. – Режим доступа: http://www.intuit.ru (17.12.2008).
7. Казиев. В.М. Введение в практическое тестирование [Электронный ресурс].– Режим доступа: http://www.intuit.ru/department/informatics/practest/ (20.01.2009).
8.Карпова Т.С. Базы данных: модели, обработка, реализация / Карпова Т.С. – СПб.: Питер, 2005. – 392с.
9.Клещев Н.Т. Проектирование информационных систем/ Н.Т. Клещев, А.А. Романов. – М.: Российская экономическая академия, 2000.- 283с.
10.Кобринский Б.А. К вопросу о формальном отображении образного мышления и интуиции специалиста в слабоструктурированной предметной области / Б.А. Кобринский. - Новости искусственного интеллекта. – 2008.
11.Конноли Т. Базы данных: проектирование, реализация и сопровождение. Теория и практика: [пер. с англ.] / Конноли Т., Бегг К., Страчан А. - 2-е изд.- М.: Вильямс, 2001. – 394с.
12.Кот ученый [Электронный ресурс]. – Режим доступа: http://www.smartcat.ru/ (10.01.2009).
13.Кривошеин М. ER: диаграммы сущность-связь [Электронный ресурс]. – Режим доступа: http://mikkri.narod.ru (03.03.2009).
14.Кузнецов С.Д. Основы современных баз данных/ С.Д. Кузнецов К. – Курск [б.и.], 2009. – 276с.
15.Леоненков А. Объектно-ориентированный анализ и проектирование с использованием UML и IBM Rational Rose / А. Леоненков. - М.: Вильямс, 2006.- 357с.
16.Любушин Н.П. Анализ финансово-экономической деятельности предприятия./ Н.П. Любушин. – М.: ЮНИТИ, 2006. – 251с.
17.Хмельницкого С.В. Концепция развития информационных ресурсов/ С.В. Хмельницкого, В.В. Шарыхин, Н.В. Каплунова. – СПб.: Европейский университет в Санкт-Петербурге, 2007. – 321с.
18.Хомоненко А.Д. Базы данных: учебник для высших учебных заведений / А.Д. Хомоненко, В.М. Цыганков, В.М. Мальцев. - СПб.: КОРОНА принт, 2004. - 437с.
?
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
© Рефератбанк, 2002 - 2022