45555 (технологическая практика ПрограммаShower-конвертор табличных файлов), страница 2

Выбираем файл и нажимаем кнопку [Открыть]. Итак, файл открыт, теперь необходимо нажать кнопку обработки (рисунок 7).

Рисунок 7.

Откроется окно сохранения файла (рисунок 8), где надо выбрать папку для хранения, обычно этой папкой является директория с самим сайтом, где находится файл Default.asp он то и отвечает за отображение информации на странице. Нажимаем кнопку [Сохранить] - программа начала работать.

Рисунок 8.

После чего индикатор работы будет заполняться (рисунок 9).

Рисунок 8.

Когда все необходимые операции выполнены, появится окно (рисунок 9), которое предложит закрыть программу, либо продолжить работу. Если в самом начале работы программы нажать кнопку пуска (рисунок 7), то появится окно предупреждения, что не выбран файл для обработки (рисунок 10).

Рисунок 9.

Рисунок 10.

4 Техника безопасности

Общие требования безопасности

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

2. На рабочем месте необходимо соблюдать правила внутреннего распорядка, запрещается курить.

3. Необходимо помнить, что опасным фактором при работе является возможность поражения электрическим током напряжением 220/380В.

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

5. Оператор обязан соблюдать требования по обеспечению пожаробезопасности. При любой неясной ситуации и в случае неисправности оборудования обращаться к дежурному инженеру, механику или непосредственному руководителю.

6. Обо всех случаях травмирования немедленно сообщать вышестоящему управляющему.

7. Оператор должен уметь оказывать первую помощь пострадавшему.

8. Оператору разрешается проводить на эксплуатируемом оборудовании только те операции, которые предусмотрены в инструкции по работе.

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

Требования безопасности перед началом работы.

1. Перед включением устройства убедиться, что на нем отсутствуют запрещающие таблички или надписи.

2. Принять оборудование от сменщика, ознакомится с имевшимися в предыдущей смене неполадками в работе и с принятыми мерами по их устранению.

Требования безопасности во время работы

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

2. Запрещается:

- включать заведомо неисправное оборудование; - вскрывать оборудование;

- проводить профилактические работы (протирка и т.п.) при включенном оборудовании;

- использовать в процессе работы подсобные приспособления, не предусмотренные инструкцией; - прикасаться к вращающимся и движущимся частям оборудования;

3. Продолжительность работы за монитором не должна превышать 4-х часов; через каждые 50 минут работы за монитором необходимо сделать перерыв на 10-15 минут для снятия напряжения мышц туловища и глаз.

Требования безопасности аварийных ситуациях

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

1) отключить электропитание оборудования;

2) сообщить в пожарную охрану о случившемся;

3) принять меры к тушению пожара первичными средствами пожаротушения. Запрещается использовать для тушения пожара в оборудовании воду.

2. В случае возникновения аварийной ситуации, связанной с разрывом трубопроводов отопления принять следующие меры:

- перекрыть неисправную часть трубопроводов вентилями и кранами, имеющимися в помещении; - отключить электропитание оборудования;

- сообщить дежурному сантехнику об аварии;

- принять меры к недопущению затопления оборудования.

3. В случае поражения электрическим током оказать пострадавшему первую помощь:

1) устранить воздействие на организм электрического тока (отключить электроэнергию, использовать резиновые перчатки или другие диэлектрические материалы);

2) определить характер и тяжесть травмы, наибольшую угрозу жизни пострадавшего и последовательность мероприятий по его спасению;

3) выполнить необходимые мероприятия по спасению пострадавшего в порядке срочности (восстановить проходимость дыхательных путей, провести искусственное дыхание, наружный массаж сердца, остановить кровотечение и т.п.);

4) поддерживать основные жизненные функции пострадавшего до прибытия медицинского работника;

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

Требования безопасности в окончании работы.

1. Выключить оборудование.

2. Привести в порядок рабочее место.

3. При сдаче смены сообщить сменщику или инженеру о замеченных неполадках и принять меры к их устранению.

Заключение

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

Программа в данный момент используется в торговом отделе фирмы, менеджер лаборатории остался довольным и признал мой продукт полностью пригодным в их сфере. Результаты моей работы и кропотливого труда WEB дизайнеров ЗАО «НПВЛ ЛИАНА» можно посмотреть на сайте http://www.liananet.ru.

Также в период прохождения технологической практики получены навык и практика в такой перспективной на данный момент сфере как разработка WEB страниц.

Литература

1. Культин Н.Б. Программирование в Turbo Pascal 7.0 и Delphi. – 2-е изд., перераб. и доп. – СПб.: БХВ - Петербург, 2001. – 416 с.: ил.

2. А. Я. Архангельский. Программирование в Delphi 6. – М.: ЗАО “Издательство БИНОМ”, 2002г. – 1120 с.: ил.

3. Гусева А. И. Учимся программировать: PASCAL 7. 0. Задачи и методы их решения. – 2-е изд., перераб. и доп. – М.: “Диалог – МИФИ”, 1999. – 256 с.

4. Канту М. Delphi 2 для Windows 95/NT. Полный курс. В 2-х томах. Том 1: Пер. с англ. – М.: Малип., 1997. – 400 с., ил.

5. Гофман В. Э., Хомоненко А. Д. Delphi 6 – СПБ.:БХВ – Петербург, 2002.Наиболее полное руководство.

Приложение

program shower;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

Unit Unit1;

Interface

uses

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

ExtCtrls, StdCtrls, Buttons, ComCtrls, Gauges;

type

TForm1 = class(TForm)

Edit1: TEdit;

label1: TLabel;

OpenDialog1: TOpenDialog;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

SaveDialog1: TSaveDialog;

ProgressBar1: TProgressBar;

Label2: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

EFile : String;

OFile : String;

F : TextFile;

public

{ Public declarations }

procedure CreateMovieTable;

end;

var

Form1: TForm1;

implementation

uses

rxStrUtils, Excel_Lbl, IniFiles;

{$R *.DFM}

procedure TForm1.CreateMovieTable;

var

Listok : TStringList;

E : TAppExcel;

S,St,L : String;

I,j : Integer;

V : Variant;

begin

SaveDialog1.Execute;

Listok := TStringList.Create;

// Listok.Sorted := true;

Listok.Duplicates := dupAccept;

(* S := AnsiLowerCase(ParamStr(0));

S := ReplaceStr(S,'.exe','.ini');

EFile := '';

if FileExists(S) then

with TIniFile.Create(S) do begin

S := ReadString('Base','Database','ERR');

if S <> 'ERR' then EFile := S;

S := ReadString('Base','OutFile','ERR');

if S <> 'ERR' then OFile := AnsiLowerCase(S) else

OFile := 'pictures.inc';

Free;

end else *)

// if (EFile = '') or not FileExists(EFile) then begin

// EFile := 'C:\Tmp\Nachalniy File\price33.xls';

// OFile := 'pictures.inc';

EFile := Edit1.Text;

OFile := 'pictures.inc';

if not FileExists(EFile) then begin

MessageDlg('Укажите обрабатываемый файл (*.xls).', mtError, [mbOk], 0);

Exit;

end;

E := TAppExcel.Create;

E.OpenFile(EFile);

I := 1;

S := '';

repeat

E.GetValue(i, 1, V);

S := V;

if Trim(S) > '' then begin

label2.Caption:='Чтение |';

label2.Caption:='Чтение /';

label2.Caption:='Чтение -';

label2.Caption:='Чтение \';

label2.Caption:='Чтение |';

label2.Caption:='Чтение /';

label2.Caption:='Чтение -';

label2.Caption:='Чтение \';

L := '';

L := L + ' '+Trim(S)+'';

// цена первая

E.GetValue(i, 2, V);

St := V;

if Trim(St)='' then St := ' ';

L := L + ' '+Trim(St)+'';

// цена вторая

E.GetValue(i, 3, V);

St := V;

if Trim(St)='' then St := ' ' else St :=trim(st) ;

L := L + ''+Trim(St)+'';

// ссылки

E.GetValue(i, 4, V);

St := V;

if Trim(St)='' then St := ' '

else St := '';

L := L + ''+Trim(St)+'';

Listok.Add(L+'');

inc(i);

end;

until S = '';

E.Free;

label2.caption:='Запись';

// вывод нормальный .inc

AssignFile(F,SaveDialog1.Filename);

Rewrite(F);

for i := 0 to Listok.Count-1 do begin

progressbar1.max:=listok.count*2;

progressbar1.stepby(i);

writeln(F,''+IntToStr(i+1)+'',Listok.Strings[i]);

end;

CloseFile(F);

// вывод отсортированный .crt

OFile := ReplaceStr(SaveDialog1.Filename,'inc','srt');//Замена inc на crt

Listok.Sort;

AssignFile(F,OFile);

Rewrite(F);

for i := 0 to Listok.Count-1 do begin

progressbar1.StepBy(i);

writeln(F,''+IntToStr(i+1)+'',Listok.Strings[i]);

end;

CloseFile(F);

Listok.Free; //for j:=0 to 100 do begin

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

SaveDialog1.FileName := 'pictures.inc';

SaveDialog1.InitialDir := ExtractFilePath(ParamStr(0));

Form1.CreateMovieTable;

If Application.MessageBox('Готово. Закрыть программу?','Запись файла',mb_IconInformation+mb_YesNo)=6 then

Form1.Close;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

If OpenDialog1.Execute Then Edit1.Text:= OpenDialog1.FileName;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text := '';

end;

end.