Автоматизированная система для локального, удалённого контроля и управления компьютером пользователя

Автор: Пользователь скрыл имя, 02 Апреля 2013 в 10:14, дипломная работа

Описание работы

В настоящее время трудно себе представить организацию или предприятие без вычислительной техники. Она настолько плотно вошла в нашу жизнь, что стала так же привычна, как письменные принадлежности или иные подсобные средства. Некоторые организации насчитывают до нескольких сотен компьютеров различной конфигурации.

Содержание

ВВЕДЕНИЕ……………………………………………………………………………………...4
1. АНАЛИЗ ИСХОДНЫХ ДАННЫХ И ПОСТАНОВКА ЗАДАЧИ…………………...…6
1.1 Анализ предметной области……………………………………………………….6
1.2 Анализ аналогов и прототипов…………………………………………….……6
1.3 Перечень задач, подлежащих решению в процессе разработки……………6
1.4 Входная, постоянная, выходная информации…………………………….…..7
2 ПРОЕКТИРОВАНИЕ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ…………………………8
2.1 Выбор и обоснование средств и методов решения для реализации проекта………………………………………………………………………………......8
2.2 Функциональные назначения программного обеспечения…………………9
2.3 Логическая модель данных………………………………………………….…10
3 РЕАЛИЗАЦИЯ И ТЕСТИРОВАНИЕ………………………………………………….....13
4 ЭКОНОМИЧЕСКАЯ ЧАСТЬ……………………………………………………………..14
4.1 Правовые аспекты использования программного обеспечения……………14
4.1.1 Правовая охрана информации………………………………………………...14
4.1.2 Лицензионные, условно бесплатные и бесплатные программы……….15
4.2 Расчет себестоимости разработанного программного продукта…………16
4.2.1 Общие сведения………………………………………………………….……..16
4.2.2 Расчет себестоимости программного продукта……………………………18
5 ОХРАНА ТРУДА…………………………………………………………………..………..24
5.1 Требования к освещению помещений и рабочих мест………………..……18
5.2 Расчёт искусственного освещения рабочего места…………………..……...25
ЗАКЛЮЧЕНИЕ……………………………………………………………………..…………28
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ………………………………..…………29
ПРИЛОЖЕНИЕ А Техническое задание…………………………………….………...…..30
ПРИЛОЖЕНИЕ Б Описание программы………………………………………………....33
ПРИЛОЖЕНИЕ В Программа и методика испытания…………………………….…....35
ПРИЛОЖЕНИЕ Г Руководство оператора……………………………………………..…37
ПРИЛОЖЕНИЕ Д Содержание электронного носителя…………………….…………..44
ПРИЛОЖЕНИЕ Ж Диаграмма вариантов использования……………………………..45
ПРИЛОЖЕНИЕ К Диаграмма компонентов……………………………………………...46
ПРИЛОЖЕНИЕ Л Листинг программных модулей……………………………….…….48
ДОПОЛНЕНЕНИЕ К ПУНКТУ 1.2 Анализ аналогов и прототипов……95

Работа содержит 1 файл

«Автоматизированная система для локального, удалённого контроля и управления компьютером пользователя ».docx

— 2.50 Мб (Скачать)

         Form13.mess.Text:=messag.Text;

         form13.Show;

         // MessageDlg(messag.Text,mtInformation,[mbOK],0)

        { icon1.BalloonTitle:='ASNCloseProc Вам пришло сообщение';

         icon1.BalloonHint:=messag.Text;

         Icon1.BalloonFlags:=bfInfo;

         icon1.ShowBalloonHint  }

      end;

      if FileExists(form4.edpat.Text+foldname+'\pril\stop.sps')then

      begin

        locclos.Lines.LoadFromFile(form4.edpat.Text+foldname+'\pril\stop.sps');

         h:=findwindow(nil,PChar(locclos.text));

          if h<>null then

          PostMessage(h,WM_CLOSE,0,0);

        DeleteFile(form4.edpat.Text+foldname+'\pril\stop.sps')

      end;

      if FileExists(form4.edpat.Text+foldname+'\proc\stop.sps')then

      begin

        locproc.Lines.LoadFromFile(form4.edpat.Text+foldname+'\proc\stop.sps');

        closs(locproc.Text);

        DeleteFile(form4.edpat.Text+foldname+'\proc\stop.sps')

      end;

          // записываем приложения и ставим  голочку


        Изм.

Лист

№ докум.

Подпись

Дата

Лист

70

 

ДП 509000.10101 ПЗ


if FileExists(form4.edpat.Text+foldname+'\pril\Dobspis.sps') then

        begin

         dopspis.Lines.LoadFromFile(form4.edpat.Text+foldname+'\pril\Dobspis.sps');

         rem:=dopspis.Text;

         int:=StrToInt(rem[2]);

         POS:=StrToInt(rem[1]);

         Delete(rem,1,3);

           case int of

              0 : begin

                    ed_1.Text:=rem;

                    if POS=0 then h_1.Checked:=True else h_1.Checked:=False;

                   end;

 

              1 : begin

                    ed_2.Text:=rem;

                    if POS=0 then h_2.Checked:=True else h_2.Checked:=False;

                   end;

 

              2 : begin

                    ed_3.Text:=rem;

                    if POS=0 then h_3.Checked:=True else h_3.Checked:=False;

                   end;

 

              3 : begin

                    ed_4.Text:=rem;

                    if POS=0 then h_4.Checked:=True else h_4.Checked:=False;

                   end;

              

              4 : begin

                    ed_5.Text:=rem;

                    if POS=0 then h_5.Checked:=True else h_5.Checked:=False;

                   end;

           end;

            DeleteFile(form4.edpat.Text+foldname+'\pril\Dobspis.sps')

          end;

          // запись процессов

          if FileExists(form4.edpat.Text+foldname+'\proc\Dobspis.sps') then


          Изм.

Лист

№ докум.

Подпись

Дата

Лист

 

ДП 509000.10101 ПЗ


begin

           proczag.Items.LoadFromFile(form4.edpat.Text+foldname+'\proc\Dobspis.sps');

           int2:=StrToInt(proczag.Items.Strings[0]);

           pos2:=StrToInt(proczag.Items.Strings[3]);

           //tim:=Strtoint(proczag.Items.Strings[2]);

           case int2 of

            0 : begin

                 ed0.Text:=proczag.Items.Strings[1];

                 vr0.Text:=proczag.Items.Strings[2];

                 SpeedButton5Click(self);

                 if pos2=1 then

                    begin

                      ch0.Checked:=True;

                      ch0Click(self);

                    end

                    else

                    begin

                     ch0.Checked:=false;

                     ch0Click(self);

                    end;

                end;

 

             1 : begin

                 ed2.Text:=proczag.Items.Strings[1];

                 vr2.Text:=proczag.Items.Strings[2];

                 SpeedButton6click(self);

                 if pos2=1 then

                    begin

                      ch2.Checked:=True;

                      ch2click(self);

                   end

                     else

                    begin

                     ch2.Checked:=false;

                     ch2Click(self);

                    end;

                  end;

 

               2 : begin

                     ed3.Text:=proczag.Items.Strings[1];

                     vr3.Text:=proczag.Items.Strings[2];

                     SpeedButton7click(self);

                     if pos2=1 then

                        begin

                          ch3.Checked:=True;

                          ch3click(self);

                        end  else

                        begin


                      Изм.

Лист

№ докум.

Подпись

Дата

Лист

72

 

ДП 509000.10101 ПЗ


   ch3.Checked:=false;

                         ch3Click(self);

                        end;

                  end;

 

               3 : begin

                     ed4.Text:=proczag.Items.Strings[1];

                     vr4.Text:=proczag.Items.Strings[2];

                     SpeedButton8click(self);

                     if pos2=1 then

                        begin

                          ch4.Checked:=True;

                          ch4click(self);

                        end

           &nbs


Информация о работе Автоматизированная система для локального, удалённого контроля и управления компьютером пользователя