Реферат: АРМ для бухгалтерии ВУЗа
¦dekl < 10000000 +-----+ s.pn =(s.okl+ ww - +-¬
L-------------T-------------- L----------------------- ¦
--------------+----------¬ ¦
¦ s.pn = (s.okl+ ww - ¦ ¦
¦ - xx -¦ ¦
¦ - 833333) *0.2+¦ ¦
¦ +100000 ¦ ¦
L-------------T----------- ¦
¦ ¦
+---------------------------------------------
----------+--------------¬
¦s.penf = (s.okl+ ww - ¦
¦- xx)*0.01 ¦
L---------T---------------
¦
---------+-------------------¬
¦s.itog = s.okl+ww[i] -xx[i]-¦
¦-s.pn - p.penf ¦
L--------T--------------------
---------+-------------------¬
¦ запись s ¦
L-------T---------------------
6¦
---------------
¦7
-----------+-------¬
¦ конец ¦
L-------------------
2.4 Описание mодулей и процедур программы.
---Главная программа
¦
¦
+- работа со справочниками------------------------¬
¦ ¦
+- работа с записной книжкой ---------------------¬¦
¦ ¦¦
+- вычисление заработной платы ------------------¬¦¦
¦¦¦¦
+- операции с расчетной ведомостью ------------¬ ¦¦¦
¦ ¦ ¦¦¦
+- работа c банковскими документами-----------¬¦ ¦¦¦
¦ ¦¦ ¦¦¦
+- работа с главной книгой-------------------¬¦¦ ¦¦¦
¦ ¦¦¦ ¦¦¦
L- работа с сальдо счетов-------------------¬¦¦¦ ¦¦¦
¦¦¦¦ ¦¦¦
¦¦¦¦ ¦¦¦
подсчет сальдо -+¦¦¦ ¦¦¦
(saldo) ¦¦¦¦ ¦¦¦
просмотр сальдо -+¦¦¦ ¦¦¦
global¦¦¦¦ ¦¦¦
запись сальдо в архив -+¦¦¦ ¦¦¦
save_data_file ¦¦¦¦ ¦¦¦
чтение сальдо из архива -+¦¦¦ ¦¦¦
load_data_file ¦¦¦¦ ¦¦¦
печать сальдо --¦¦¦ ¦¦¦
printtable¦¦¦ ¦¦¦
¦¦¦ ¦¦¦
¦¦¦ ¦¦¦
добавление данных по зарплате -+¦¦ ¦¦¦
salary_great_book ¦¦¦ ¦¦¦
добавление данных по банку -+¦¦ ¦¦¦
scan_bank_for_great ¦¦¦ ¦¦¦
просмотр главной книги --¦¦ ¦¦¦
global ¦¦ ¦¦¦
¦¦ ¦¦¦
¦¦ ¦¦¦
ввод платежных поручений -+¦ ¦¦¦
global¦¦ ¦¦¦
ввод обьявлений на взнос -+¦ ¦¦¦
global¦¦ ¦¦¦
ввод выписок из банка --¦ ¦¦¦
global ¦ ¦¦¦
¦ ¦¦¦
¦ ¦¦¦
¦ ¦¦¦
¦ ¦¦¦
получение ведомости -+ ¦¦¦
salary ¦ ¦¦¦
просмотр ведомости -+ ¦¦¦
global ¦ ¦¦¦
занесение в архив -+ ¦¦¦
save_data_file ¦ ¦¦¦
чтение из архива -+ ¦¦¦
loads_data_file ¦ ¦¦¦
печать ведомости - ¦¦¦
printtable ¦¦¦
¦¦¦
просмотр файла начислений -+¦¦
global ¦¦¦
просмотр файла взысканий -+¦¦
global ¦¦¦
расчет начислений -+¦¦
add ¦¦¦
расчет взысканий -¦¦ sub ¦¦
¦¦
ввод в записную книжку -+¦
global¦¦
поиск в записной книжке --¦
search ¦
¦
справочник начислений -+
global ¦
справочник налогов -+
global ¦
спроавосчник общих налогов -+
global ¦
справочник разрядов -+
global ¦
справочник минимальной зарплаты -+
read_min_salary ¦
таблица аудита --
global
------------T-------------------------T--------------T-----------------¬
¦ Модуль ¦ Назначение¦ Вход.файл ¦ Выход.файл ¦
¦ ¦ ¦ ¦ ¦
¦ spr_work ¦ Работа со справочной ¦ salary.dat ¦ salary.dat¦
¦ ¦ информацией ¦ spr2.arm ¦ spr2.arm ¦
¦ ¦ ¦ spr3.arm ¦ spr3.arm ¦
¦ ¦ ¦ spr4.arm ¦ spr4.arm ¦
¦ ¦ ¦ spr5.arm ¦ spr5.arm ¦
¦ ¦ ¦ spr6.arm ¦ spr6.arm ¦
¦ ¦ ¦ audit.arm ¦ audit.arm ¦
¦ ¦ ¦ ¦ ¦
¦Saldo_work ¦Работа с сальдо счетов ¦ great.arm ¦ saldo.arm ¦
¦ ¦ ¦ saldo.arm ¦ saldo.ind ¦
¦ ¦ ¦ saldo.ind ¦ saldo.sav ¦
¦ ¦ ¦ saldo.sav ¦ prn ¦
¦ ¦ ¦ ¦ ¦
¦ Great ¦ Работа с главной книгой ¦ Great.arm ¦ great.arm ¦
¦ ¦ ¦ bank3.arm ¦ prn ¦
¦ ¦ ¦ sal.arm¦ ¦
¦ ¦ ¦ ¦ ¦
¦ copybook ¦ Работа с записной ¦ copybook.arm ¦copybook.arm ¦
¦ ¦ книгой бухгалтера ¦ ¦ ¦
¦ ¦ ¦ ¦ ¦
¦salary_work¦ Работа с расчетной¦ sal.arm¦ sal.arm ¦
¦ ¦ ведомостью ¦ sal.sav¦ sal.sav ¦
¦ ¦ ¦ sal.ind¦ sal.ind ¦
¦ ¦ ¦ ¦ ¦
¦ salary ¦ Создание ведомости¦ salary3.arm ¦ sal.arm ¦
¦ ¦ ¦ ¦ ¦
¦ add ¦ Расчет насчислений¦ spr1.arm ¦ salary1.arm ¦
¦ ¦ ¦ spsotr.arm ¦ ¦
¦ ¦ ¦ ¦ ¦
¦ sub ¦ Расчет вычетов ¦ spr2.arm ¦ salary2.arm ¦
¦ ¦ ¦ salary1.arm ¦ ¦
¦ ¦ ¦ ¦ ¦
¦ nalogs ¦ Вычет налогов ¦ salary2.arm ¦salary3.arm¦
¦ ¦ ¦ spnal.arm ¦ ¦
¦ search ¦ Поиск в записной книге ¦ Copybook.arm ¦ ttt.arm ¦
¦ ¦ ¦ ¦ ¦
¦ bank.arm ¦ Работа с банковскими¦ bank1.arm ¦ bank1.arm¦
¦ ¦ документами ¦ bank2.arm ¦ bank2.arm¦
¦ ¦ ¦ bank3.arm ¦ bank3.arm¦
¦cck_salary1¦ Проверка на соответствие¦ spsotr.arm ¦ ¦
¦ ¦ окладов разрядам ¦ spr6.arm ¦ ¦
¦ ¦ ¦ ¦ ¦
¦ ¦ ¦ ¦ ¦
¦chk_slalry2¦Проверка на соответствие ¦ spsotr.arm ¦ ¦
¦ ¦окладов фонду зарплаты ¦ fonds.dat ¦ ¦
¦ ¦ ¦ ¦ ¦
L-----------+-------------------------+--------------+------------------
Модуль Windenv
Процедура Savewindow(x1,y1,x2,y2:byte; var a:buffertype)
Сохраняет в оперативной памяти содержимое прямоугольной области экрана.
x1,y1,x2,y2 - Координаты области экрана. а - переменная, в которую заносится адрес области ОП. Процедура loadwindow(x1,y1,x2,y2:byte; var a:buffertype)
Восстанавливает прямоугольную область экрана, предварительно сохраненную процедурой Savewindow, и освобождает оперативную память, в которй хранилась область. Область экрана должна иметь ту же форму, но, вообще говоря, не обязательно те же координаты, что и сохраненная. x1,y1,x2,y2 - Координаты области на экране. а - адрес в оперативной памяти, где хранится область. Модуль Inter
Функция Max(a,b:integer):integer возвращает максимум из чисел a и b.
Функция Min(a,b:integer):integer
Возвращает минимум из чисел а и b.
Процедура curs_off
Делает курсор на экране невидимым.
Процедура Error(s:string);
Создает в центре экрана окно красного цвета необходимого размера и выводит в него сообщение об ошибке, после чего ждет нажатия на любую клавишу.
s - Сообщение об ошибке.
Процедура Input(x,y,l:byte;var s:string;w:settype)
Расширенная процедура ввода. Позволяет вводить строчку заданной длины, отслеживая недопустимые символы. Позволяет использовать клавиши "Влево","Вправо", Del,Backspase. Позволяет использовать строку по умолчанию, есть возможность Undo.
x,y - Координаты вводимой строки на экране.
l - Максимальная длина вводимой строки.
s - Строка по умолчанию. В ней же возвращается введенная строка. Если в течении ввода была нажата клавиша ESC, возвращается пустая строка.
w - Множество допустимых символов. Модуль Files2
Функция FOpen(FName:string;FMode:Word):Word
Открывает безтиповый файл. Возвращает заголовок файла.
В случае ошибки внутренняя переменная Fsuccess принимает значение False.
Fname - Имя файла.
Fmode - Режим (0 - только для чтения,1 - только для записи, 2 - и для чтения, и для записи.) Функция FCreate(FName:String;FAttr:Word):Word
Создает безтиповый файл. Возвращает заголовок файла.
В случае ошибки внутренняя переменная Fsuccess принимает значение False.
FName - Имя файла.
FAttr - атрибуты создаваемого файла.
Функция FRead(Handle,Segment,Offset,Bytes:Word):Word
Читает из безтипового файла блок. В случае ошибки чтения внутренняя переменная Fsuccess принимает значение False. Возвращает количество реально прочитанных байтов.
Наndle - Заголовок файла.
Segment - Сегментная часть адреса в оперативной памяти, в которую производится чтение.
Offset - Смещение этой области относительно сегмента в оперативной памяти.
Bytes - Сколько байтов необходимо прочитать.
Функция FWrite(Handle,Segment,Offset,Bytes:Word):Word
Записывает в безтиповый файл блок памяти. В случае ошибки записи внутренняя переменная Fsuccess принимает значение false. Возвращает количество реально записанных байтов. Наndle - Заголовок файла.
Segment - Сегментная часть адреса в оперативной памяти, из которой происходит чтение.
Offset - Смещение этой области относительно сегмента в оперативной памяти.
Bytes - Сколько байтов необходимо записать.
Процедура FClose(Handle:Word)
Закрывает безтиповый файл. В случае ошибки внутренняя переменная Fsuccess принимает значение False.
Наndle - Заголовок файла.
Процедура FSeek(Handle:Word; PosPnt:LongInt)
Перемещает указатель безтипового файла.
Страницы: 1, 2, 3, 4, 5, 6, 7, 8