Отчет по практике в ЦСПД ОАО Междугородной и Международной Связи «Ростелеком»

Автор работы: Пользователь скрыл имя, 11 Марта 2014 в 06:56, отчет по практике

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

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

Содержание работы

Введение 3

I. Безопасность жизнедеятельности 4

II. Основы экономики 5

III. Основы построения автоматизированных систем 8

IV. Основы алгоритмизации и программирования 17

V. Пакеты прикладных программ 17

VI. Информационная безопасность 19

VII. Компьютерные сети 24

VIII.Операционные системы 28

IX. Технология разработки программных продуктов 30

Заключение 54

Список литературы 55

Скачать архив (68.84 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

ОТЧЕТ по преддипломной практике_в работе.DOC

— 312.00 Кб (Скачать файл)

Выходная информация

В качестве выходных данных формируется диалоговый  интерфейс, который позволяет выполнять запросы по сотрудникам и запускает на выполнение расчетные функции (модули).

Структура таблиц базы данных

Наименование поля

Тип поля

Кол-во символов

ID

N

5

FIO

A

30

GodR

D

10

Ctag

N

5

Podr

A

20

Dol

A

20

Oklad

N

5

Adres

A

30

Tel

N

10

Obraz

A

15

Data_ras

A

10

Kol_shas

N

5

Norma_shas_stoit

N

5

Vrem_rabot

N

5

Obed

N

5

Vx

A

25

Nashisl

A

10

Uderg

A

10

Itog

A

10

Premiikol

A

10


 

Алгоритм работы проекта

Модуль программы

program Project1;

 

uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1},

  Unit2 in 'Unit2.pas' {DataModule2: TDataModule},

  Unit3 in 'Unit3.pas' {Form3},

  Unit4 in 'Unit4.pas' {Form4},

  Unit5 in 'Unit5.pas' {Form5},

  Unit6 in 'Unit6.pas' {Form6},

  Unit7 in 'Unit7.pas' {Form7},

  Unit8 in 'Unit8.pas' {Form8},

  Unit9 in 'Unit9.pas' {Form9},

  Unit10 in 'Unit10.pas' {Form10};

 

{$R *.RES}

 

begin

  Application.Initialize;

    Application.CreateForm(TForm1, Form1);

  Application.CreateForm(TDataModule2, DataModule2);

  Application.CreateForm(TForm3, Form3);

  Application.CreateForm(TForm4, Form4);

  Application.CreateForm(TForm5, Form5);

  Application.CreateForm(TForm6, Form6);

  Application.CreateForm(TForm7, Form7);

  Application.CreateForm(TForm8, Form8);

  Application.CreateForm(TForm9, Form9);

  Application.CreateForm(TForm10, Form10);

  Application.Run;

end.

 

 

 

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Unit2,

  Grids, DBGrids, ImgList, ComCtrls, ToolWin, ExtCtrls, DBCtrls, Menus;

 

type

  TForm1 = class(TForm)

    ImageList1: TImageList;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    ToolBar1: TToolBar;

    ToolButton1: TToolButton;

    ToolButton2: TToolButton;

    ToolButton3: TToolButton;

    Panel1: TPanel;

    ToolButton4: TToolButton;

    ToolButton5: TToolButton;

    ToolButton6: TToolButton;

    ToolButton7: TToolButton;

    ToolButton8: TToolButton;

    procedure ToolButton1Click(Sender: TObject);

    procedure ToolButton2Click(Sender: TObject);

    procedure ToolButton3Click(Sender: TObject);

    procedure ToolButton4Click(Sender: TObject);

    procedure ToolButton5Click(Sender: TObject);

    procedure ToolButton6Click(Sender: TObject);

    procedure ToolButton7Click(Sender: TObject);

    procedure ToolButton8Click(Sender: TObject);

      private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit3, Unit4, Unit5, Unit7, Unit8, Unit9, Unit10;

 

{$R *.DFM}

 

procedure TForm1.ToolButton1Click(Sender: TObject);

begin

Form3.ShowModal;

end;

 

procedure TForm1.ToolButton2Click(Sender: TObject);

begin

Form4.ShowModal;

end;

 

procedure TForm1.ToolButton3Click(Sender: TObject);

begin

Form5.ShowModal;

end;

 

procedure TForm1.ToolButton4Click(Sender: TObject);

begin

Form7.ShowModal;

end;

 

procedure TForm1.ToolButton5Click(Sender: TObject);

begin

Form8.ShowModal;

end;

 

 

procedure TForm1.ToolButton6Click(Sender: TObject);

begin

Form9.RichEdit1.Lines.Clear;

Try

form9.RichEdit1.Lines.LoadFromFile('Общие данные.rtf');

Form9.ShowModal;

Except

ShowMessage('Отсутствует файл данных');

End;

end;

 

procedure TForm1.ToolButton7Click(Sender: TObject);

begin

DataModule2.Table1.Close;

Close;

end;

 

procedure TForm1.ToolButton8Click(Sender: TObject);

begin

Form10.ShowModal;

 

end;

 

end.

 

 

 

unit Unit2;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  Db, DBTables;

 

type

  TDataModule2 = class(TDataModule)

    Table1: TTable;

    DataSource1: TDataSource;

    Table1Id: TAutoIncField;

    Table1Cod: TFloatField;

    Table1Fio: TStringField;

    Table1Godr: TStringField;

    Table1Stag: TFloatField;

    Table1Podr: TStringField;

    Table1Dol: TStringField;

    Table1Oklad: TFloatField;

    Table1Adres: TStringField;

    Table1Tel: TStringField;

    Table1Obraz: TStringField;

    Table1Dataras: TStringField;

    Table1Kolchas: TFloatField;

    Table1Normachasctoit: TFloatField;

    Table1Premii: TFloatField;

    Table1Vremrabot: TFloatField;

    Table1Obed: TFloatField;

    Table1Vx: TStringField;

    Table1Nachisl: TStringField;

    Table1Udergi: TStringField;

    Table1Itog: TStringField;

    Table1Premiikol: TStringField;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  DataModule2: TDataModule2;

 

implementation

 

{$R *.DFM}

 

end.

 

 

unit Unit3;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Unit2,

  StdCtrls;

 

type

  TForm3 = class(TForm)

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    Edit3: TEdit;

    Label4: TLabel;

    Edit4: TEdit;

    Label5: TLabel;

    Edit5: TEdit;

    Label6: TLabel;

    Edit6: TEdit;

    Label7: TLabel;

    Edit7: TEdit;

    Label8: TLabel;

    Edit8: TEdit;

    Label9: TLabel;

    Edit9: TEdit;

    Label10: TLabel;

    Edit10: TEdit;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

 

{$R *.DFM}

 

procedure TForm3.Button1Click(Sender: TObject);

begin

DataModule2.Table1.Insert;

DataModule2.Table1.Fields[1].AsInteger:=strtoint(Edit1.Text);

DataModule2.Table1.Fields[2].AsString:=Edit2.Text;

DataModule2.Table1.Fields[3].AsString:=Edit3.Text;

DataModule2.Table1.Fields[4].AsInteger:=strtoint(Edit4.Text);

DataModule2.Table1.Fields[5].AsString:=Edit5.Text;

DataModule2.Table1.Fields[6].AsString:=Edit6.Text;

DataModule2.Table1.Fields[7].AsInteger:=strtoint(Edit7.Text);

DataModule2.Table1.Fields[8].AsString:=Edit9.Text;

DataModule2.Table1.Fields[10].AsString:=Edit8.Text;

DataModule2.Table1.Fields[9].AsString:=Edit10.Text;

DataModule2.Table1.Post;

end;

 

end.

 

 

 

unit Unit4;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Unit2,

  ExtCtrls, DBCtrls, Grids, DBGrids;

 

type

  TForm4 = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    Panel1: TPanel;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4;

 

implementation

 

{$R *.DFM}

 

end.

 

 

unit Unit5;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Unit2,

  StdCtrls, ExtCtrls, DBCtrls, Mask, ToolWin, ComCtrls;

 

type

  TForm5 = class(TForm)

    Panel1: TPanel;

    Button2: TButton;

    Button3: TButton;

    GroupBox1: TGroupBox;

    Label6: TLabel;

    Label5: TLabel;

    Label4: TLabel;

    Label3: TLabel;

    Label2: TLabel;

    Edit6: TEdit;

    Edit5: TEdit;

    Edit4: TEdit;

    Edit3: TEdit;

    GroupBox2: TGroupBox;

    Label9: TLabel;

    Label8: TLabel;

    Label7: TLabel;

    Edit9: TEdit;

    Edit8: TEdit;

    Edit7: TEdit;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBNavigator1: TDBNavigator;

    Label1: TLabel;

    Edit1: TEdit;

    Label10: TLabel;

    ToolBar1: TToolBar;

    Panel2: TPanel;

    ToolButton1: TToolButton;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    Label11: TLabel;

    Label12: TLabel;

    procedure Button2Click(Sender: TObject);

    procedure Edit3KeyPress(Sender: TObject; var Key: Char);

    procedure Edit4KeyPress(Sender: TObject; var Key: Char);

    procedure Edit5KeyPress(Sender: TObject; var Key: Char);

    procedure Edit6KeyPress(Sender: TObject; var Key: Char);

    procedure FormActivate(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button3KeyPress(Sender: TObject; var Key: Char);

    procedure ToolButton1Click(Sender: TObject);

      private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

  Zarp,Prem,Resume,Kol_Cl,N_Cl,P_Prem,NALOG,zero,Kol_Cl1:real;

  BLCH,BL,PR,PRCH:REAL;

  implementation

 

uses Unit3, Unit1, Unit6;

 

{$R *.DFM}

 

 

procedure TForm5.Button2Click(Sender: TObject);

begin

  BL:=strtoint(DBEdit3.Text);

  BLCH:=BL*8;

  PR:=strtoint(DBEdit4.Text);

  PRCH:=PR*8;

  Kol_Cl:=StrToFloat(Edit4.Text);

  N_Cl:=StrToFloat(Edit5.Text);

    Kol_Cl1:=Kol_Cl-PRCH-BLCH;

 

  Zarp:=Kol_Cl1*N_Cl+BLCH*(N_Cl/2);

  If Edit6.Text='' then

     begin

     NALOG:=(Zarp*13)/100;

     Resume:=Zarp-NALOG;

     zero:=0;

     Edit9.Text:=FloatToStr(zero);

     Edit1.Text:=FloatToStr(NALOG);

     end

  else

     begin

     P_Prem:=StrToFloat(Edit6.Text);

     Prem:=(P_Prem*Zarp)/100;

     NALOG:=((Zarp+Prem)*13)/100;

     Resume:=Zarp+Prem-NALOG;

     Edit9.Text:=FloatToStr(Prem);

     end;

  Edit1.Text:=FloatToStr(NALOG);

  Edit7.Text:=FloatToStr(Zarp);

  Edit8.Text:=FloatToStr(Resume);

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[18].AsString:=Edit7.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[21].AsString:=Edit9.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[19].AsString:=Edit1.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[20].AsString:=Edit8.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[11].AsString:=Edit3.Text;

DataModule2.Table1.Post;

end;

 

end;

 

 

 

procedure TForm5.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

   if key=#13 then

     if Edit3.Text<>'' then

        Edit4.SetFocus

     else

        begin

        ShowMessage('Введите дату расчета!!!');

        Edit3.SetFocus;

        end;

 

end;

 

procedure TForm5.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

   if key=#13 then

     if Edit4.Text<>'' then

        Edit5.SetFocus

     else

        begin

        ShowMessage('Введите коллтчество отработанных часов!!!');

        Edit4.SetFocus;

        end;

 

end;

 

procedure TForm5.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

   if key=#13 then

     if Edit5.Text<>'' then

        Edit6.SetFocus

     else

        begin

        ShowMessage('Введите норму!!!');

        Edit5.SetFocus;

        end;

 

end;

 

procedure TForm5.Edit6KeyPress(Sender: TObject; var Key: Char);

begin

  if key=#13 then

     if Edit6.Text<>'' then

     begin

     BL:=strtoint(DBEdit3.Text);

  BLCH:=BL*8;

  PR:=strtoint(DBEdit4.Text);

  PRCH:=PR*8;

  Kol_Cl:=StrToFloat(Edit4.Text);

  N_Cl:=StrToFloat(Edit5.Text);

    Kol_Cl1:=Kol_Cl-PRCH-BLCH;

  Zarp:=Kol_Cl1*N_Cl+BLCH*(N_Cl/2);

 

  If Edit6.Text='' then

     begin

     NALOG:=(Zarp*13)/100;

     Resume:=Zarp-NALOG;

     zero:=0;

     Edit9.Text:=FloatToStr(zero);

     Edit1.Text:=FloatToStr(NALOG);

     end

     else

     begin

     P_Prem:=StrToFloat(Edit6.Text);

     Prem:=(P_Prem*Zarp)/100;

     NALOG:=((Zarp+Prem)*13)/100;

     Resume:=Zarp+Prem-NALOG;

     Edit9.Text:=FloatToStr(Prem);

     end;

  Edit1.Text:=FloatToStr(NALOG);

  Edit7.Text:=FloatToStr(Zarp);

  Edit8.Text:=FloatToStr(Resume);

  end

     else

        begin

        ShowMessage('Премия не начислена?');

        BL:=strtoint(DBEdit3.Text);

  BLCH:=BL*8;

  PR:=strtoint(DBEdit4.Text);

  PRCH:=PR*8;

  Kol_Cl:=StrToFloat(Edit4.Text);

  N_Cl:=StrToFloat(Edit5.Text);

    Kol_Cl1:=Kol_Cl-PRCH-BLCH;

 

  Zarp:=Kol_Cl1*N_Cl+BLCH*(N_Cl/2);

 

  If Edit6.Text='' then

     begin

     NALOG:=(Zarp*13)/100;

     Resume:=Zarp-NALOG;

     zero:=0;

     Edit9.Text:=FloatToStr(zero);

     Edit1.Text:=FloatToStr(NALOG);

     end

  else

  begin

     P_Prem:=StrToFloat(Edit6.Text);

     Prem:=(P_Prem*Zarp)/100;

     NALOG:=((Zarp+Prem)*13)/100;

     Resume:=Zarp+Prem-NALOG;

     Edit9.Text:=FloatToStr(Prem);

     end;

  Edit1.Text:=FloatToStr(NALOG);

  Edit7.Text:=FloatToStr(Zarp);

  Edit8.Text:=FloatToStr(Resume);

    end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[18].AsString:=Edit7.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[21].AsString:=Edit9.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[19].AsString:=Edit1.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[20].AsString:=Edit8.Text;

DataModule2.Table1.Post;

end;

begin

DataModule2.Table1.Edit;

DataModule2.Table1.Fields[11].AsString:=Edit3.Text;

DataModule2.Table1.Post;

end;

 

end;

 

procedure TForm5.FormActivate(Sender: TObject);

begin

   Edit3.SetFocus;

end;

 

procedure TForm5.Button3Click(Sender: TObject);

begin

   Edit1.Text:='';

   Edit3.Text:='';

   Edit4.Text:='';

   Edit5.Text:='';

   Edit6.Text:='';

   Edit7.Text:='';

   Edit8.Text:='';

   Edit9.Text:='';

 

end;

 

 

procedure TForm5.Button3KeyPress(Sender: TObject; var Key: Char);

begin

   Edit3.Text:='';

   Edit4.Text:='';

   Edit5.Text:='';

   Edit6.Text:='';

   Edit7.Text:='';

   Edit8.Text:='';

   Edit9.Text:='';

end;

 

 

 

procedure TForm5.ToolButton1Click(Sender: TObject);

begin

Form6.ShowModal;

end;

 

end.

 

 

unit Unit6;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Unit2,

  StdCtrls, Qrctrls, QuickRpt, ExtCtrls, DBCtrls;

 

type

  TForm6 = class(TForm)

    QuickRep1: TQuickRep;

    QRBand1: TQRBand;

    QRLabel1: TQRLabel;

    QRDBText1: TQRDBText;

    QRLabel2: TQRLabel;

    QRDBText2: TQRDBText;

    QRLabel3: TQRLabel;

    QRDBText3: TQRDBText;

    QRLabel4: TQRLabel;

    QRDBText4: TQRDBText;

    Button1: TButton;

    QRShape1: TQRShape;

    QRShape2: TQRShape;

    QRShape3: TQRShape;

    QRShape4: TQRShape;

    QRShape5: TQRShape;

    QRShape6: TQRShape;

    QRShape7: TQRShape;

    QRShape8: TQRShape;

    Panel1: TPanel;

    QRLabel5: TQRLabel;

    QRShape9: TQRShape;

    QRDBText5: TQRDBText;

    procedure Button1Click(Sender: TObject);

     private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form6: TForm6;

 

implementation

 

uses Unit5;

 

{$R *.DFM}

 

procedure TForm6.Button1Click(Sender: TObject);

begin

QuickRep1.Preview;

QuickRep1.Print;

end;

 

 

 

end.

 

 

unit Unit7;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, QuickRpt, Qrctrls, Db, DBTables, ExtCtrls;

 

type

  TForm7 = class(TForm)

    QuickRep1: TQuickRep;

    Table1: TTable;

    Button1: TButton;

    QRSubDetail1: TQRSubDetail;

    QRShape1: TQRShape;

    QRBand1: TQRBand;

    QRDBText1: TQRDBText;

    QRShape2: TQRShape;

    QRDBText2: TQRDBText;

    QRShape3: TQRShape;

    QRDBText3: TQRDBText;

    QRShape4: TQRShape;

    QRDBText4: TQRDBText;

    QRShape5: TQRShape;

    QRDBText5: TQRDBText;

    QRShape6: TQRShape;

    QRShape7: TQRShape;

    QRShape8: TQRShape;

    QRLabel1: TQRLabel;

Информация о работе Отчет по практике в ЦСПД ОАО Междугородной и Международной Связи «Ростелеком»