Работа с программным обеспечением компьютера

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ.

ГОУ СПО ТАМБОВСКИЙ БИЗНЕС-КОЛЛЕДЖ.

ОТЧЁТ ПО ПРОИЗВОДСТВЕННОЙ ПРАКТИКЕ.

Задание на практику.

Производственная практика студентов по специальности «Программное обеспечение вычислительной техники и автоматизированных систем» является неотъемлемой частью учебно-воспитательного процесса и имеет целью приобретение студентами практических навыков и умений производственной деятельности на предприятиях, в учреждениях и организациях, на основе применения теоретических знаний, полученных бизнес-колледже. Производственная практика завершает 2_й курс обучения студентов.

Объектами профессиональной деятельности техника по специальности «Программное обеспечение вычислительной техники и автоматизированных систем» являются информационные системы и сети, а также программное обеспечение и сопровождение.

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

В течение всего периода прохождения производственной практики необходимо:

1. Следовать указаниям руководителя, выполнять их с высшей степенью ответственности, профессионализма, приобретённого в бизнес — колледже, добросовестности и самоотдачи;

2. По указанию директора школы (либо его заместителя или какого-то другого уполномоченного должностного лица) выполнять требуемые действия с электронной вычислительной техникой, а именно осуществлять организацию работы с 5 имеющимися компьютерами, их обслуживание: установку на них программного обеспечения (ПО), а именно программ — антивирусов, корректирование или полная переустановка самой операционной системы, а также стандартных программ предназначенных для офиса (по мере необходимости).

3. Создавать текстовые документы, необходимые педагогам и начальству, в текстовом редакторе Microsoft Office Word в среде Windows.

4. В своей деятельности непосредственно руководствоваться требованиями и указаниями руководителя производственной практики, «приказ директора» ни в коем случае не предпринимать действий, которые могут повлечь за собой нежелательные последствия. Кроме того, крайне необходимо согласовывать свои действия с заведующим компьютерным классом (или, при его отсутствии учителем информатики).

5. Постоянно находиться на рабочем месте в указанное, отведённое руководителем практики время.

Описание деятельности учреждения.

Общество с ограниченной ответственностью «Строй сервис» основано в 2006 году является коммерческой организацией. На сегодняшний день основным направлением деятельности компании является комплекс услуг по благоустройству на объектах любой сложности. Так же производит продажу стройматериалов..

Описание индивидуальной работы.

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

На все компьютеры мной была установлена антивирусная программа: Avast Pro 4.7 Rus, которая является достаточно хорошим сканером среды Windows. Кроме того на компьютер был установлен пакет офисных программ (Microsoft Office 2007 Enterprise Final (Официальная Русская Версия)), этот набор программ является более поздней версией, чем тот который был установлен ранее (Microsoft Office 2003). Преимущество первого перед вторым состоит в модернизированном интерфейсе, а также, что не менее важно, в удобстве и простоте работы. Компьютер, на который я производил установку офисных программ и средств был снабжен операционной системой Microsoft Windows XP Service Pack2, поэтому установка прошла успешно и более поздняя версия была заменена более новой. До конца практики не наблюдалось сбоев в работе офисных программ и, по моему мнению, они были установлены вполне корректно. Также по моей инициативе и просьбе работников бухгалтерии, на компьютер была установлена программа «NERO 8.3.2.1RUS», для упрощения процесса записи данных на компакт диск. Так же в связи с частым использованием интернета, была установлена программа «Opera» которая облегчила доступ в интернет.

Приложение 1.

Программа использует два юнита (fil и Unit2) первый — главный, второй используется только при добавлении нового дилера или при его увольнении Код программы и интерфейс программы:

unit fil;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, StdCtrls, Buttons, Grids, XPMan, ComCtrls, Menus;

type.

TForm1 = class (TForm).

BitBtn1: TBitBtn;

StringGrid1: TStringGrid;

Button2: TButton;

StringGrid2: TStringGrid;

StringGrid3: TStringGrid;

ComboBox3: TComboBox;

CheckBox1: TCheckBox;

Button4: TButton;

Button3: TButton;

MainMenu1: TMainMenu;

menu1: TMenuItem;

newDealer1: TMenuItem;

eXIt1: TMenuItem;

ExitProgramm1: TMenuItem;

Memo1: TMemo;

Button1: TButton;

Help1: TMenuItem;

procedure BitBtn1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure CheckBox1Click (Sender: TObject);

procedure ComboBox3Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure ExitProgramm1Click (Sender: TObject);

procedure newDealer1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure FormClick (Sender: TObject);

procedure Help1Click (Sender: TObject);

procedure Memo1Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure FormDblClick (Sender: TObject);

private.

{Private declarations}.

public.

{Public declarations}.

end;

var.

Form1: TForm1;

implementation.

uses Math, Unit2;

{$R *.dfm}.

Var.

z: integer=1;

procedure TForm1. BitBtn1Click (Sender: TObject);

begin.

StringGrid1. Visible:= true;

StringGrid2. Visible:= false;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin.

StringGrid1. Visible:= False;

StringGrid2. Visible:= True;

end;

procedure TForm1. FormClick (Sender: TObject);

begin.

if StringGrid2. Cells [5,5]='fil' then Button4. Visible:= true;

end;

end.

procedure TForm1. Button4Click (Sender: TObject);

var.

h, l, p, f, x, a: integer;

begin.

p:= 1;

Randomize;

for f:= 1 to 37.

do begin.

for x:= 1 to 5 do begin.

a:= (Random ((49)+1)*100+Random (200)*50);

StringGrid1. Cells [f, x]: = IntToStr (a);

end;

end;

for l:= 1 to 37 do begin.

for h:= 1 to 5 do begin.

StringGrid2. Cells [l, h]: = IntToStr (p);

inc (p);

if p > z₁ then p:= 1;

end;

end;

end;

procedure TForm1. CheckBox1Click (Sender: TObject);

begin.

if CheckBox1. Checked.

then StringGrid3. Visible:= true.

else StringGrid3. Visible:= false.

end;

Procedure TForm1. ComboBox3Click (Sender: TObject);

Begin.

StringGrid3. Cells [0, z]: = ComboBox3. Text;

Inc (z);

End;

Procedure TForm1. FormCreate (Sender: TObject);

Var.

o, x, i, q: integer;

Begin.

Button4. Visible:= false;

Form1. ComboBox3. Items. LoadFromFile ('c:file.txt');

i:= 0;

for q:=1 to 40.

do begin.

*озаглавливаем String Grid 1, 2, 3..

StringGrid3. Cells [1, q]: = '0';

end;

StringGrid3. Cells [1,0]: = 'total';

StringGrid2. Cells [0,0]: = 'Dealers';

StringGrid1. Cells [0,0]: = 'money';

StringGrid2. ColCount:= 38;

StringGrid2. Cells [0,1]: = 'AR';

StringGrid2. Cells [0,2]: = 'BJ';

StringGrid2. Cells [0,3]: = 'OP1';

StringGrid2. Cells [0,4]: = 'OP2';

StringGrid2. Cells [0,5]: = 'OP3';

StringGrid1. ColCount:=38;

StringGrid1. Cells [0,1]: = 'AR';

StringGrid1. Cells [0,2]: = 'BJ';

StringGrid1. Cells [0,3]: = 'OP1';

StringGrid1. Cells [0,4]: = 'OP2';

StringGrid1. Cells [0,5]: = 'OP3';

for o:= 8 to 20 do begin.

for x:= 0 to 2 do begin.

Inc (i);

StringGrid1. Cells [i, 0]: = IntToStr (o) + ':' + IntToStr (x*2) + '0';

StringGrid2. Cells [i, 0]: = IntToStr (o) + ':' + IntToStr (x*2) + '0';

end;

end;

end;

procedure TForm1. Button3Click (Sender: TObject);

var.

dl: integer;

st, y: string;

fl: TextFile;

sav: TextFile;

q, w, c, s, f, d, r, t, l, p: integer;

begin.

w:= 0;

for c:= 1 to 36.

do begin.

for s:= 1 to 5.

do begin.

d:= StrToInt (StringGrid2. Cells [c, s]);

f:= StrToInt (StringGrid1. Cells [c, s]);

t:= StrToInt (StringGrid1. Cells [c+1, s]);

r:= t-f;

l:= StrToInt (StringGrid3. Cells [1, d]);

p:= r+l;

StringGrid3. Cells [1, d]: = IntToStr (p);

Button3. Enabled:= false;

Button4. Enabled:= false;

end;

end;

for q:= 1 to 40 do begin.

w:= w + StrToInt (StringGrid3. Cells [1, q]);

end;

For dl:= 1 to z do begin.

st:= StringGrid3. Cells [0, dl];

y:= StringGrid3. Cells [1, dl];

assignfile (fl, 'c:rez' + st +'.txt');

if not fileexists ('c:rez' + st +'.txt') then.

rewrite (fl).

else append (fl);

writeln (fl, y);

closefile (fl);

end;

assignfile (sav, 'c:rez.txt');

if not fileexists ('c:rez.txt') then.

rewrite (sav).

else append (sav);

writeln (sav, IntToStr (w));

closefile (sav);

ShowMessage ('Результат дня: ' + IntToStr (w));

end;

procedure TForm1. ExitProgramm1Click (Sender: TObject);

begin.

ShowMessage ('Good Luck!!!');

Hide;

Form1. Close;

Form2. Close;

end;

procedure TForm1. newDealer1Click (Sender: TObject);

begin.

Form1. Visible:= False;

form2. Visible:= true;

Form2. ComboBox1. Items. LoadFromFile ('c:file.txt');

end;

procedure TForm1. FormClose (Sender: TObject; var Action: TCloseAction);

begin.

ShowMessage ('Good Luck!!!');

form1. Hide;

end;

procedure TForm1. Memo1Click (Sender: TObject);

begin.

Button1. Visible:= true;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin.

Memo1. Visible:= false;

Button1. Visible:= false;

end;

procedure TForm1. FormDblClick (Sender: TObject);

begin.

Button3. Visible:= false;

end;

end.

unit Unit2;

interface.

uses.

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, ComCtrls, StdCtrls, CheckLst;

type.

TForm2 = class (TForm).

Button1: TButton;

Button2: TButton;

Button3: TButton;

ComboBox1: TComboBox;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

procedure Button2Click (Sender: TObject);

procedure FormHide (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button3Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private.

{Private declarations}.

public.

{Public declarations}.

end;

var.

Form2: TForm2;

implementation.

uses fil, Math;

{$R *.dfm}.

procedure TForm2. Button2Click (Sender: TObject);

var.

q: string;

w: TextFile;

begin.

q:= Edit1. Text + ' ' + Edit2. Text;

Form2. ComboBox1. Items. Add (q);

Form2. Close;

Form1. ComboBox3. Items. Add (q);

AssignFile (w, 'c:file.txt');

If not FileExists ('c:file.txt').

Then Rewrite (w).

else Append (w);

Writeln (w, Edit1. Text + ' ' + Edit2. Text);

CloseFile (w);

end;

procedure TForm2. FormHide (Sender: TObject);

begin.

Form1. Visible:= true;

end;

procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);

begin.

Form1. Visible:= true;

end;

procedure TForm2. Button3Click (Sender: TObject);

begin.

Hide;

end;

procedure TForm2. Button1Click (Sender: TObject);

begin.

ComboBox1. Items. Delete (ComboBox1. ItemIndex);

ComboBox1. Items. SaveToFile ('c:file.txt');

form1. ComboBox3. Items. LoadFromFile ('c:file.txt');

ComboBox1. Items. LoadFromFile ('c:file.txt');

hide;

end;

end.