Програма для отримання відомості відвантаження готової продукції
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?и ініціалізації процедури на екран виводиться екранна форма и відкривається вхідний файл OPER.DAT для читання. Записи файлу зчитуються з диска один за одним і виводяться на дисплей (див. додаток 4). Процедура завершує роботу при досягненні кінця файлу OPER.DAT і передає керування у викликаючу її програму.
Процедура DRUK_VIDOMOSTI. Призначення - вивід вихідного зведення на друкуючий пристрій ПК. Вхідна інформація для жаної процедури зберігається у файлі OPER.DAT. Виклик процедури здійснюється з головного меню програми при натисканні функціональної клавіші F6, тобто при виборі пункту Вивід таблиці на дисплей. Процедура в свою чергу викликає процедури DRSUM1, DRSUM2.
Дана процедура здійснює ввід записів вхідного файлу OPER.DAT та форматований вивід їх на друк з одночасним підрахунком підсумків по коду дільниці, коду складу та загальних підсумків по відомості. При досягненні кінця файлу OPER.DAT процедура завершує свою роботу і передає керування в програму.
Блок-схема процедури представлена в додатку 3.
Процедура DRSUM1. Призначення - вивід підсумків по коду дільниці та підрахунок підсумків по коду складу. Викликається з процедури DRUK_VIDOMOSTI. Повертає керування у викликаючу процедуру автоматично після підрахунку підсумків.
Процедура DRSUM2. Призначення - вивід підсумків по коду отримувача та підрахунок загальних підсумків по відомості. Викликається з процедури DRUK_VIODMOSTI. Повертає керування у викликаючу процедуру автоматично після підрахунку підсумків.
- Опис програми
Програма складена і відладжена в середовищі Turbo Pascal 6.0. На початку програми згідно вимог технології програмування розміщується вступний коментар, а решта операторів програми мають таке призначення:
001заголовок програми
002підключення зовнішніх модулів управління дисплеєм (Crt) та друкуючим пристроєм (Printer)
003опис типу даних vypusk для опису структури запису вхідного файлу
004 опис дискового файлу OPER
005-009опис робочих змінних програми
010заголовок процедури ZAPYS_NA_DYSK
011початок процедури
012очистка екрану
013присвоєння системній змінній ChekEof істиного значення, що забезпечує переривання вводу даних з клавіатури з допомогою комбінації клавіш CTRL+Z
014відкриття дискового файлу OPER для запису даних з первинних документів
015-023вивід екранної форми для вводу даних з первинних документів
024присвоєння змінній позиціонування курсора початкового значення 7
025заголовок оператора присвоєння
026початок циклу, котрий буде виконуватись поки змінна eof не набуде значення true ( цикл вводу даних з клавіатури)
027-031ввід значень змінних ceh (код цеху), dil (код дільниці), nop (код операції), tst (норма часу штучно-калькуляційного), rst (розцінка часу штучно-калькуляційного)
032запис даних у вхідний дисковий файл OPER.DAT
033збільшення змінної позиціонування курсора на одиницю
034кінець дії оператора приєднання
035кінець циклу вводу даних
036кінець тіла процедури
037закриття дискового файлу OPER
038кінець процедури ZAPYS_NA_DYSK
039заголовок процедури VYVID_Z_DYSKA
040початок процедури
041 відкриття дискового файлу OPER для читання записів
042очистка екрану
043-048вивід екранної форми для відображення вхідних даних
049присвоєння змінній позиціонування курсора початкового значення 7
050початок дії оператора приєднання
051початок циклу вводу записів файлу OPER (поки не eof)
053зчитування запису файлу OPER у змінну vps
054форматований вивід полів ceh, dil, nop, tst, rst введеного запису на дисплей
055збільшення змінної позиціонування курсора на одиницю
056кінець циклу вводу записів файлу MVPR
057кінець дії оператора приєднання
058вивід останньої стрічки екранної форми
059організація зупинки у виконанні програми (очікування вводу довільного символа з клавіатури)
060закриття дискового файлу OPER
061кінець процедури VYVID_Z_DYSKA
062заголовок процедури DRSUM1
063початок процедури
064-065вивід на дисплей підсумків по дільниці - pd1,pd2
066-067підрахунок пiдсумків по коду складу (pc1, pc2)
068кінець процедури DRSUM1
069заголовок процедури DRSUM2
070початок процедури
071-072вивід на дисплей підсумків по цеху - pc1,pc2
073-074підрахунок загальних підсумків по відомості (pv1, pv2)
075кінець процедури DRSUM2
076заголовок процедури DRUK_VIDOMOSTI
077опис локальної мітки pdsm
078початок процедури
080відкриття дискового файлу OPER для читання
081-088вивід заголовку та шапки вихідного зведення на друк
089читання запису файлу OPER в змінну vps
090заголовок циклу по кінцю файла OPER
091заголовок оператора приєднання
092присвоєння початкових значень змінним pv1,pv2, призначених для підрахунку підсумків по відомості
093запамятовування коду складу (ceh) введеного запису в змінній kod_ceh
094присвоєння початкових значень змінним pc1, pc2, які призначені для підрахунку підсумків по коду цеху
095заголовок циклу по цеху до тих пір поки kod_ceh = ceh
096запамятовування коду дільниці (dil) в змінній kod_dil
097присвоєння початкових значень змінним pd1, pd2, які призначені для підрахунку підсумків по коду дільниці
098заголовок циклу по коду дільниціача (до тих пір поки kod_dil=dil
099вивід показників введеного запису (ceh, dil, nop, tst, rst) на дисплей
100-101підрахунок підсумків по дільниці за показниками норма часу (tst), та розцінка (rsr)
102умовний оператор, котрий перевіряє, чи досягнуто кінець файлу OPER і в разі виконання цієї умови передає керування на мітку pdsm (оператор 109)
103читання наступного запису дискового файлу OPER в змінну vp