Автоматическое робоче місце для працівника склада

Ця програма автоматизованого робочого місця розроблена для працівників складських приміщень, природно якщо в неї лише комп’ютер класом не нижче Pentium. Зараз ринку програмного забезпечення з’являються дедалі більше різних програм до роботи як зі складом, а й інші програмні кошти автоматизованого робочого місця, але вартість їхнього перебування ліцензійних копій доходить часом до кількох тисяч, а моя програма то, можливо звісно трішечки ще «вогкувата», але у процесі роботи з ним їх можна «довести до розуму» і всі це лише над п’ятірку з програмування ціна невелика за твір програмного мистецтва. Які її плюси: ну це природно простота і зрозумілість (російського людини) інтерфейсу програми, що ні вимагає додаткового навчання чи проходження спеціальних курсів, особливо жінок, працівників складах і втаємничених у ази комп’ютерів, і програмного забезпечення; не вимогливість до системним ресурсів машини; легкість введення і відстежування; простота резервування бази даних (всього 1 файл), що важливо на таку програми. Під час написання та розробки курсового проекту я навчився працювати з Borland Pascal, Microsoft Windows 95OSR2, Microsoft Word 97 SR-2 що були до роботи над курсовим проектом, навчився використовувати довідку та інші функції Borland Pascal у своїй навіть розібрався з англійською мовою та використанням електронних словників перекладачів як-от Promt, Stylus, Magic Gooddy 98. Величезна подяка Волкову А.І. — за чудове викладання предметів, Billу Gaits — через те що він уміє заробляти гроші власним розумом, Мерзлякову Д. С. — на підтримку у скрутну хвилину, Барышеву А. А. — за технічну підтримку, Російських А.І. — за програмну підтримку, Казакову В. С. — за дозвіл працювати за комп’ютером, Sting, Queen, та інших за хорошу музику під час роботи над курсовым.

I. Задание.

Скласти програму автоматичного робочого місця до роботи зі складом.

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

V Наименование;

V Количество;

V Цену;

V Дату надходження. 2. Здійснювати пошук товару по найменуванням і видавати її параметри. 3. Помічати вибувши товар, вказуючи дату видачі. 4. Виводити список наявного товару із можливістю сортування з кожного параметру. 5. Виводити список вибулого товару із можливістю сортування з кожного параметру. 6. Видавати загальну статистичну характеристику:

V Загальна вартість наявного товара;

V Кількість наявного товара;

V Кількість вибулого товару. 7. Зберігати і відновлювати усю інформацію АРМ з диска.

I. опис змінних і алгоритму роботи програми. Опис змінних. V basskl — основна запис з необхідними перемінними это:

> naim — найменування товара;

> kol — кількість товара;

> price — ціна товара;

> kol_p — кількість який прийшов товара;

> kol_r — кількість товару який ушел;

> date_p — дата приходу товара;

> date_r — дата витрати товару. V f — file бази слада; V list — масив даних бази; V schet — cчетчик; V curs — показник позиції; V stran — лічильник позиції курсору; V і - змінна використання; V mcurs — змінна початковій позиції меню; V k -змінна визначення клавіші; V res -змінна вибору меню; V da — змінна використання; V er — змінна помилки перетворення; V tx — змінна тексту у пошуку; V fil — змінна імені бази; V key — прапорець; V seter — змінна использования.

Кроме змінних у програмі використовуються процедури і функції опис яких наведено нижче; Функція probel; Використовується для доповнення тексту необхідними кількостями прогалин. Вхід: Текст, необхідна довжина. Вихід: Текст необхідної длины.

Функция Edtext; Використовується висновку на екран у потрібний позицію тексту та її наступного редагування Функція працює так: Зациклюється до того часу поки що не натискання Enter чи Esc. Саме тоді виводить на екран текст у потрібний позицію, оновлюється, очікує натискання клавіш чи delete. Вхід: Координати, текст, довжина тексту, прапорець. Вихід: Висновок на екран тексту, виправлений текст.

Функция Cifri; Подібна функції Edtext лише введення тексту обмежений цифрами. Працює также.

Процедура Prishlo; Застосовується висновку на екран меню «Прихід» і занесення даних в позицію бази. Опис роботи: Працює зі рядком масиву бази. Виводить на екран меню «Прихід», перетворює текстові перемінні після входження у рядки меню.

Процедура Ushlo; Аналогічна процедурі Prishlo .Замінена лише формула обчислення количества.

Процедура Vvodnov; Процедура забезпечує висновок на екран меню «Новий товар», введення нової рядки у базу. Працює: Обмежується рядком, до роботи зі змінними записи, виводить на екран меню, користувачем редагуються рядки меню, перетворюються, збільшується лічильник числа рядків бази на 1.

Процедура Edzapic; Використовується для редагування запис у поточної позиції курсору лістингу переліку товарів. Вхід: Позиція Вихід: виправлений текст у цій позиции.

Процедура Ekran; Відображає на екрані заголовок таблиці бази й заповнює таблицю, розраховує і відображає на екрані нижню рядок стану бази загальну суму, загальний прихід, загальний витрата, загальна кількість товарів. Опис: Формує вікно до роботи, відображає заголовок таблиці, цикл для виведення перших двадцяти рядків бази на вікно, обнуління лічильників сум, цикл на все позиції бази, розрахунок сум у тому циклі висновок результату на екран як рядки состояния.

Функция Vivstr; Формує рядок за позицією у базі. Обнуляется. Працює зі рядком в масиві бази. Виробляє перетворення на стринговые перемінні числових значень бази (кількості ціни, прихід, витрата), сума формується шляхом обчислення. Додавання потрібними прогалинами функцією Probel.

Процедура Vivlist; Забезпечує формування екрана з допомогою процедури Ekran, висновок яка б пояснила рядки. Подкрашивание рядки у позиції курсору, опитування клавіш курсору і службових (для введення нової, коригування, видалення). Працює так: Виконує процедуру Ekran, прорисовывает рядок пояснення, цикл доки натиснута клавіша «вліво», «вправо», «Enter», «Esc» — запитує клавіатуру з допомогою функції «Readkey» якщо натиснута «Донизу» чи «Угору» уменьшаетя чи збільшується відповідно поточний лічильник позицій меню Функция Vstroca; Функція організує головне меню у верхній рядку екрана. Встановлює параметри кольору, виводить на екран масив зі змінними меню тобто. назвами меню. Запитує клавіатуру на натискання клавіші «Вліво», «Вправо», «Enter» виконує відповідні цим клавішах команди. Потім якщо було натиснуто «Esc» функція приймає значення менше 1 і у головний програмі відбувається выход.

Процедура Sortirovka; Сортує дані про заданої колонці. Організується цикл попри всі позиції масиву бази. База переносить дані в сторонню базу. Обирає стовпець сортування порівнює зі сторонньої базою якщо більше то переносить в сторонню базу запам’ятовує позицію. Наприкінці циклу переставляє позиції основної бази. Опис алгоритму роботи програми. Очищається екран виводиться меню для вказівки розташування назви файла бази вмовчанням це «С:base.dat» потім перевіряється створено чи файл якщо ні створюється. Організується цикл остаточно файла переписуються дані в масив бази. Обнуляются перемінні. організується меню за даними функції Vstroka потім станься вибір з допомогою оператора Case яким здійснюються переходи. Що стосується «1» приходу функції Vstroka виводиться лістинг даних бази й заголовків, організація руху курсору по рядкам бази з допомогою процедури Vivlist. Що стосується результату «2» формується вікно із тінню «Настав», заповнюється вікно з допомогою процедури Prishlo за поточною позиції курсору екрану і лістингу. «3» формується вікно «Витрата», заповнюється з допомогою процедури Ushlo. «4» організується вікно «Знайти найменування» вводиться текст з допомогою функції Edtext. порівнюється зі найменуваннями бази якщо знаходить встановлює курсор цього місце. Не знаходить виводить повідомлення встановлює на кінцеву позицію. «5» Вікно сортування. Виконується процедура Sortirovka. За інших значеннях функції Vstroca відбувається запис файла бази, закриття файла.

II. Алгоритм программы.

IV. Текст програми. Program kursovoi; uses crt; type basskl = record naim: string[40]; kol: integer; price: single; kol_p:integer; date_p:string[8]; kol_r:integer; date_r:string[8]; end;

var f: file of basskl;

List:array[0.255] of basskl;

Schet:Integer; curs, stran, i, mcurs:integer; k: char;

Res, da, er, seter: Integer;

Tx, files: String; key: boolean; const mnu: array[1.6] of string[13]=(.

" Введення " ,.

" Прихід " ,.

" Витрата " ,.

" Знайти " ,.

" Сортування " ,.

" Вихід ");

function Probel (Text:String;Len:Integer):String; begin.

While length (Text) "); writeln («Дата приходу ДД.ММ.ГГ-> «); val (Cifri (25,2, «», 6, key), kl, er); if NOT key then exit; kol_p:=kol_p+kl; kol:=kol+kl;

Date_p:=Cifri (25,3, «», 8, key); if NOT key then exit; end; end;

procedure Ushlo (posiz:integer); var er: integer; key: Boolean; kl: integer; begin clrscr;

With List[Posiz] do begin writeln («Витрата »); writeln («Кількість -> «); writeln («Дата витрати ДД.ММ.ГГ-> «); val (Cifri (25,2, «», 6, key), kl, er); if NOT key then exit; kol_r:=kol_r+kl; kol:=kol-kl;

Date_r:=Cifri (25,3, «», 8, key); if NOT key then exit; end; end;

procedure Vvodnov; var Tx: String; er: integer; key: Boolean; begin clrscr;

With List[Schet] do begin writeln («Новий товар »); writeln («Найменування товару: »); writeln («Кількість: »); writeln («Ціна: »); writeln («Дата приходу ДД.ММ.ГГ: »); {readln (date_p);}.

Naim:=Edtext (25,2, «», 20, key); if NOT key then exit; val (Cifri (25,3, «», 6, key), kol, er); if NOT key then exit; kol_p:=kol; val (Cifri (25,4, «», 10, key), price, er); if NOT key then exit;

Date_p:=Cifri (25,5, «», 8, key); if NOT key then exit; inc (Schet); end; end;

procedure Edzapic (posiz:integer); var Tx: String; er: integer; key: Boolean; begin clrscr;

With List[posiz] do begin writeln («Редагування товару »); writeln («Найменування товару: »); writeln («Ціна: »);

Tx:=Edtext (25,2,Naim, 20, key); if key then Naim:=tx; str (price:0:2,tx); tx:=Cifri (25,3,tx, 10, key); if key then val (tx, price, er); end; end;

function vstroca (var curs: integer):integer; var i: integer; begin.

Textbackground (15);

TextColor (0); gotoxy (1,1); write (Probel («», 80)); for i:=0 to 5 do begin gotoxy (i*13+1,1); write (mnu[i+1]); end;

Textbackground (0);

TextColor (14); gotoxy ((curs-1)*13+1,1); write (mnu[curs]); repeat k:=readkey;

Textbackground (15);

TextColor (0); gotoxy ((curs-1)*13+1,1); write (mnu[curs]); if k=#0 then k:=readkey; case k of.

#75: if curs>1 then dec (curs) else curs:=6;

#77: if cursList[j]. naim then begin Bas:=List[j]; k:=j end;

2: if Bas. kol>List[j]. kol then begin Bas:=List[j]; k:=j end;

3: if Bas. price>List[j]. price then begin Bas:=List[j]; k:=j end;

5: if Bas. kol_p>List[j]. kol_p then begin Bas:=List[j]; k:=j end;

6: if Bas. date_p>List[j]. date_p then begin Bas:=List[j]; k:=j end;

7: if Bas. kol_r>List[j]. kol_r then begin Bas:=List[j]; k:=j end;

8: if Bas. date_r>List[j]. date_r then begin Bas:=List[j]; k:=j end; end; end;

List[k]: =List[i]; List[i]: =Bas; end; end;

procedure Vivlist (var seek, curs: integer); var c, k: char; i: integer; begin.

Ekran;

Textbackground (3); gotoxy (1,24); write (Probel («- меню | Ins — Додати | Ctrl+F8 — Видалити | Ctrl+Enter — Змінити », 79));

Textbackground (15);

TextColor (1); gotoxy (1,1+curs); write (VIVSTR (curs+stran-1)); repeat c:=readkey;

Textbackground (5);

TextColor (14); gotoxy (1,1+curs); write (VIVSTR (curs+stran-1)); if c=#0 then k:=readkey; case k of.

#72: begin {Угору курсор} if (curs=1) and (stran>0) then begin dec (stran); Ekran end; if (curs>1) then dec (curs); end;

#80: begin {Донизу курсор} if (curs=20) and (stran+20.