технологічна практика ПрограммаShower-конвертор табличних файлів

Інформатика, програмування

ЗМІСТ

Введення

1. Автоматизація діяльності підприємства.

1.1. Технічне забезпечення.

1.2. Математичне та програмне забезпечення.

2. Постановка завдання.

2.1. Організаційно-економічна сутність задачі.

2.2. Математичне формулювання задачі.

2.3. Алгоритм рішення.

2.4. Умовно-постійна інформація.

2.5. Вибір мови програмування.

3. Комп'ютерно-інформаційна технологія.

3.1. Комплекс технічних засобів.

3.2. Програмне забезпечення комплексу технічних засобів.

3.3. Організаційно-методичне забезпечення.

4. Техніка безпеки.

Висновок

Література

Додаток

введення

Закрите акціонерне товариство «НПВЛ Ліана» було засновано в 1995 році. Юридична реєстрація за адресою м. Володимир вул. Б. Московська 57.

Фактична адреса вул. Токарева 5.

Організація складається з двох госпрозрахункових відділів згідно з малюнком 1.

Малюнок 1

Компанія спочатку виникла в 1992 році. До сьогоднішнього дня збереглася абревіатура Науково Практична Впроваджувальна Лабораторія

ЛІАНА (Лабораторні Дослідження та аналітика).

Все починалося з програмування. Пакети прикладних програм, розроблені фахівцями лабораторії і зараз працюють на всьому просторі країн СНД в центрах санепіднагляду, органах охорони природи.

Вінцем роботи тих років з'явилися договори на комп'ютеризацію всіх ЛПУ

Узбекистану, програма комп'ютеризації санепідемслужби України, виконання ряду робіт в рамках Російської програми охорони природи (так званий Хасбулатовскій проект). Поступово, паралельно з програмним забезпеченням, лабораторія стала постачати оргтехніку, будучи в той час офіційним представником комп'ютерної фірми «ЛЭНД» (м. Москва)

З 1996 року почали збирати комп'ютери під власною торговою маркою і надавати весь спектр послуг в ніші комп'ютеризації (поставка товарів, видаткових матеріалів, установка телекомунікаційного устаткування і т.п.). В1998 році створили спільне підприємство з компанією OLIVETTI (Італія), назване ЗАТ «ОЛІВЕТТІ-ЛІАНА» для просування товарів OLIVETTI в нашому регіоні.

На сьогоднішній день ЛІАНА є офіційним партнером таких фірм, як:
. Olivetti (дистриб'ютор)
. Olivetti (авторизований сервіс-центр)
. Intel (інтегратор продуктів Intel (IPI)
. Intel (авторизований мережевий реселлер (ANR)
. View Sonic (авторизований реселлер)
. APC (авторизований дилер)
. APC (авторизований сервіс-центр)
. CANON (авторизований дилер) а також є дилером більшості нинішніх виробників комп'ютерної техніки.

Колектив фірми невеликий (близько 40 чоловік) і згуртований, розуміє, що розвиток ЗАТ в його руках і тому вперто працює.

Структура підрозділів ЗАТ «НПВЛ ЛІАНА» (малюнок 2):

Малюнок 2

1 Автоматизація діяльності підприємства

1.1 Технічне забезпечення

Місце розташування, кількість і характеристики обчислювальної техніки лабораторії представлені в таблиці 1.

Таблиця 1 - Обчислювальна техніка

Місце розташування відповідає малюнку 3.

Малюнок 3

1.2 Математичне та програмне забезпечення

Пакети прикладних програм, що використовуються на підприємстві, представлені в таблиці 2.

Таблиця 2 - Пакети прикладних програм

2 Постановка завдання

2.1 Організаційно-економічна сутність задачі

Програма Shower призначена для перетворення price аркушів формату Excel в формат Include (*. inc) для подальшого відображення на

WEB сторінці Ліани типу ASP. Це програма постійно використовується менеджером в торговому відділі, так як price листи інших відділів постійно змінюються й оновлюються, а дана програма дуже швидко конвертує їх в потрібний формат WEB дизайну. Програма дуже зручна у використанні, тому що користувачу достатньо лише вказати ім'я вихідного файлу та папку де знаходиться сама WEB сторінка (Сервер Лабораторії).

2.2 Математичне формулювання завдання

Програма "Shower" дозволяє конвертувати файли price листів набрані в Excel в файли формату include, які здатна відображати

WEB сторінка. Робиться це за допомогою читання рядків з файлу Excel спеціальними командами, описаними в процедурах, тут же виконується умова, що якщо в наступному стовпці є запис строкового типу, то продовжувати запис відповідного рядка в файл Include мовою WEB дизайну, інакше йде перехід на наступний рядок, і виконуються ті ж операції. Рядки в Include фото виглядають так само, тільки йде додавання різних команд і символів, які розпізнаються браузером.

2.3 Алгоритм рішення

Завдання виконувалася в наступній послідовності:

1 . Вивчення структури WEB сторінки.

2. Програмування і проектування в Delphi 5.

3. Налагодження та тестування програми, сюди також входить тест самої сторінки - чи правильно вона відображає необхідні дані на сайті.

2.4 Умовно-постійна інформація

У моїй програмі за основу беруться дані з табличних файлів
(*. xls). Тип даних під час роботи програми приймається як текстовий або рядковий. Файл повинен обов'язково мати тільки 4 стовпця і необмежену кількість рядків. У цьому файлі міститься інформація про послуги, ціні роздрібної, ціні зі знижками і посиланням до сторінки з малюнком і описом цієї послуги. Посилання є адреса HTML, який направляє користувача на вже заздалегідь створену сторінку.

2.5 Вибір мови програмування.

Вибір мови програмування, а вибрав я середовище розробки Delphi
5, я обгрунтовую, по-перше, тим, що це єдина ліцензійна копія продукту для програмування, яку мені надали на підприємстві.
Це необхідно враховувати, тому що за законом заборонено використовувати програмний продукт, написаний на неліцензійне програмне забезпечення.

По-друге, я вибрав Delphi 5 з причини її простоти і зручності у використанні. Тут можна з легкістю, без шкоди якості створювати повноцінні програми та прикладні програми. Також в Delphi забезпечена підтримка практично всіх відомих нам додатків, таких як Word,
Excel і т.п. що ще більше спрощує роботу в цьому середовищі, а для моєї програми це необхідно, тому що вона працює саме з файлами
Excel'евского формату.

3. Комп'ютерно-інформаційна технологія

3.1 Комплекс технічних засобів

Перелік обчислювальної техніки, необхідної для вирішення поставленого завдання представлений в таблиці 3.

Таблиця 3 - Перелік обчислювальної техніки

3.2 Програмне забезпечення комплексу технічних засобів

Пакети прикладних програм, необхідні для вирішення поставленого завдання представлені в таблиці 4.

Таблиця 4. Пакети прикладних програм

3. Організаційно-методичне забезпечення

Для того, щоб відправити свій price лист на сайт необхідно його спочатку набрати в Excel. Необхідна умова - обов'язкова кількість стовпів має бути тільки чотири. Другий етап полягає в тому, що б запустити програму «Shower», програма запускається шляхом подвійного кліка на файлі Shower.exe. Відкрите вікно виглядає у відповідності з малюнком

4.Папка з програмою може знаходиться у будь-якій папці диска (за замовчуванням

Gotovo_Shower).

Малюнок 4.

Першою дією є натискання на кнопку відкрити файл (малюнок

5), після чого відкриється стандартне вікно (малюнок 6).

Малюнок 5. Малюнок 6.

Вибираємо файл і натискаємо кнопку [Відкрити]. Отже, файл відкритий, тепер необхідно натиснути кнопку обробки (малюнок 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: TmpNachalniy Fileprice33.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.

----------------------- Генеральний директор

комп'ютерний центр

Відділпродаж

Сервіс - центр

Склад

КМА - Сервіс

Сервіс - оргтехніки

Сервіс
ПЕОМ

ЛОМ - Центр

Начальник мед. відділу

Медичний відділ

Медикаменти

Медтехніка

«Арніка»

Аптечний кіоск Обслуговування мед техніки