ОГЛАВЛЕНИЕ

ГЛАВА 1
1.1 Постановка задачи и ее экономическая сущность
1.1.1 Формальная постановка задачи расчета заработной платы
1.1.2 Требования к программной реализации
1.2 Технология решения задачи
1.2.1 Сущность АРМ
1.2.2 Типовая структура АРМ
1.2.3 Классификация АРМ
1.2.4 Выбор средств для реализации

ГЛАВА 2
2.1 Сценарий диалога с пользователем
2.2 Структура комплекса АРМ "Бухгалтер»
2.3 Схема модуля вычисления заработной платы
2.4 Описание модулей программы

ГЛАВА 3
3.1 Надежность программного изделия
3.1.1 Основные определения
3.1.2 Модель Миллса
3.2 Эффективность программного изделия
3.2.2 Оценка эффективности программного комплекса
3.3 Тестирование комплекса
Основные обозначения
Список литературы

ГЛАВА 1

1.1 Постановка задачи и ее экономическая сущность.
Очевидно, что в работе бухгалтерии профсоюзного комитета ВУЗа есть много технической, рутинной работы, которая хорошо поддается автоматизации. Хранение документов в виде компьютерных данных на диске безусловно более целесообразно, чем хранение их в классическом виде, то есть в виде бумаг. Значительно упрощается поиск нужного документа, имеется возможность хранить данные за много лет и не путаться в них, сильно упрощается изменение любого документа, составление многочисленных справок.
Всю работу бухгалтерии можно разделить на несколько основных подпунктов:
1. Работа со справочной и нормативной информацией. В качестве основных тут можно отметить справочник различных начислений сотрудникам, справочник сотрудников с хранящимися в нем фамилией сотрудника, его табельным номером, окладом,полем, показывающим, является ли он членом профсоюза, обоснованием оклада, справочник налогов с хранящимися названием и размером налога, справочником по тарифной
сетке, и другие.
Необходимо поддерживать своевременное изменение этой информации, организовать гибкую систему справок.
2. Ведение записной книжки бухгалтера. Эта книжка как бы дублирует Главную книгу и служит для контроля. В ней отражаются любой приход или расход денег. По этой книге каждый месяц необходимо подводить баланс и проверять, сколько денег осталось на каждом из счетов.
3. Расчет платежной ведомости организации. При подсчете заработной платы необходимо учитывать файл, в котором хранятся начисления сотрудникам за почасовую работу. Следует автоматизировать вычитание разнообразных налогов, учитывать льготы различным категориям сотрудников. Система должна следить за фондом заработной платы, автоматически предупреждать пользователя при перерасходе фонда, и наоборот, учитывать экономию фонда и учитывать эту экономию в дальнейшем. Программа должна тщательно документировать все свои действия и выдавать отчеты, по которым можно было всегда ревизовать ее деятельность.
4. Ведение файла, в котором отражается выдача различных льгот в подведомственной организации. Должно быть возможно путем несложного запроса выяснить, сколько и каких льгот получал каждый конкретный сотрудник за какой-то период времени.
5. Работа с банками. Необходимо автоматизироваь учет и хранение банковских документов, как-то: платежные поручения, банковские обьявления, выписки из банка на каждую проведенную операцию
6. Работа с главной книгой. Пользуясь различными введенными документами, программа должна генерировать записи в главной книге, подсчитывать баланс по ней, позволять просматривать главную книгу для контроля.
1.1.1. Формальная постановка задачи расчета заработной платы.


----------------¬ Фонд
¦Государственный¦ зарплаты
¦Комитет +------¬ Профсоюзные --------------¬
¦по народному ¦¦ взносы ¦Банк ¦
¦образованию ¦¦ -------------+-------------+--¬
¦ ¦¦ ¦¦счет профкома¦ ¦
¦ ¦¦ ¦+-------------+ ¦
L----------------¦ ¦¦ ¦ ¦
¦ ¦L-------------- ¦
¦ ¦¦
-----+---+--¬ ¦
¦МЭСИ +--------¬¦
¦¦Профком +------------------
L-----------+--------- Фонд зарплаты
профкома
N1
K = 1% * ЗП[i] (1)
i=1
где К - сумма проф.взносов, поступающих на счет МЭСИ.
N1 - количество сотрудников института - членов профсоюза.
ЗП[i] - Заработная плата i-го сотрудника.
i1
K |NMB ---> K | NП (2)
(Перевод со счета МЭСИ на счет профкома)
где K - проф. фонд в банке.
K ---> K[mi] - Сохранение фонда за каждый месяц.
K - Фонд зарплаты профкома.
Кmin = ((1/3)*K[mi-2]+(1/3)*К[mi-1]+(1/3)*K[mi])/3 (3) _
Kmin - Минимальная граница фонда заработной платы. _
Кmax - Максимальная граница фонда заработной платы.
Kmax = Kmin + W[mi] * (1/3) (4)
W[mi] = Внебюджетные поступления.
_ _ _
K = K - 0.036*K - 0.26*0.054*K (5)

Отчисления на медицинское страхование и социальное страхование.
N2
K >Q[i](6)
i=1
Q[i] - оклад i-го сутрудника профкома.
N2 - Количество сотрудников профкома.
Q[i]>Q~[i] (7)
Q`[i] - Оклад, полагающийся i-му сотруднику по его разряду.

Если (6) или (7) не выполняются, то профсоюзный комитет не может содержать столько сотрудников.

M[mi,k]
Q1[k] = Q[k] + P[k,j](8)
j=1
Q1[k] - Промежуточное значение - оклад k-го сотрудника вместе с начислениями
P[k,j] - j-е начисление k-му сотруднику.
M[mi,k] - Количество начислений k-му сотруднику в mi-ом месяце.
T[mi,k]
Q2[k] = Q1[k] -H[k,j](9)
j=1
Q1[k] - Промежуточное значение - оклад k-го сотрудника вместе с начислениями
P[k,j] - j-е начисление k-му сотруднику.
M[mi,k] - Количество начислений k-му сотруднику в mi-ом месяце.
Q2[k] - Промежуточное значение - оклад к-го сотрудника вместе с начислениями и удержаниями.

H[k,j] - j-е удержание с k-го сотрудника.
T[mi,k] - Количество удержаний с k-го сотрудника в mi-ом месяце.
U[k]
S[k] = Q2[k] -V[j]*Q2[k] (10) *
J=1
S[k] - Окончательная сумма для выдачи k-му сотруднику.
V[j] - Значение J-го налога.
U[k] - Множество налогов, применимых к k-му сотруднику.
* - вообще говоря, U[k] может формироваться достаточно сложным образом, но в конкретном случае оно отличается от U (всего множества налогов) только подоходными налогами в зависимости от совокупного дохода k-го сотрудника за предыдущий год.
1.1.2 Требования к информационной технологии. Вся система должна обладать надежностью, необходимо предусмотреть самые неожиданные действия пользователя, и, если они неправильны, программа должна объяснить, как именно сделать то, чего хочет пользователь.
Так как программа имеет дело с материальными ценностями, необходимозащищать апрограмму и данные от несанкционированного доступа и изменения. Специфика работы бухгалтерии показывает, что удобнее всего это сделать при помощи двухуровневой системы паролей. Один пароль находится у председателя профкома, второй - у бухгалтера. При введении одного из паролей система должна позволять просматривать, но не изменять данные, при двух правильно введенных паролях - позволять и просматривать, и изменять данные. Если ни один пароль не был введен правильно, то система должна дентифицировать пользователя как "чужого" и отказаться с ним работать.
Должна существовать возможность перевода документов с машинных носителей в обычный вид. Система должна работать на машинах, совместимых с IBM PC, под управлением дисковой операционной системы MS-DOS.
1.2 Технология решения задачи.
На современном этапе автоматизации управления общественным производством наиболее перспективным является автоматизация планово-управленческих функций на базе персональных ЭВМ, установленных непосредственно на рабочих местах специалистов.Эти системы получили широкое распространение в организационном управлении под названием автоматизированных рабочих мест(АРМ). Специфика деятельности бухгалтерии профсоюзного комитета ВУЗа позволяет выбрать методом решения создание автоматизированного рабочего места(АРМ). Это позволит использовать систему людям,не имеющим специальных знаний в области программирования, и одновременно позволит дополнять систему по мере надобности.
1.2.1 Сущность АРМ.
Автоматизированное рабочее место (АРМ) можно определить как комплекс информационных ресурсов, программно-технических и организационно-технологических средств индивидуального и коллективного пользования, объединенных для выполнения определенных функций профессионального работника управления.
С помощью АРМ специалист может обрабатывать тексты, посылать и принимать сообщения, хранящиеся в памяти ЭВМ, участвовать в совещаниях, организовывать и вести личные архивы документов, выполнять расчеты и получать готовые результаты в табличной и графической форме. Обычно процессы принятия решений и управления в целом реализуются коллективно, но необходима проблемная реализация АРМ управленческого персонала, соответствующая различным уровням управления и реализуемым функциям. Подготовка информации для принятия решений, собственно принятие решений и их реализация могут иметь много общего в разлиных экономических службах предприятия. Также многие функции являются являются типовыми для многих предприятий. Это позволяет создавать гибкие, перестраиваемые структуры управления. В основу конструирования АРМ положены следующие основные принципы:
1. Максимальная ориентация на конечного пользователя, достигаемая созданием инструментальных средств адаптации АРМ к уровню подготовки пользователя, возможностей его обучения и самообучения.
2. Формализация профессиональных знаний, то есть возможность предоставления с помощью АРМ самостоятельно автоматизировать новые функции и решать новые задачи в процессе накопления опыта работы с системой.
3. Проблемная ориентация АРМ на решение определенного класса задач, обьединенных общей технологией обработки информации, единством режимов работы и эсплуатации, что характерно для специалистов экономических служб.
4. Модульность построения, обеспечивающая сопряжение АРМ с другими элементами системы обработки информации, а также модификацию и наращивание возможностей АРМ без прерывания его функционирования.
5. Эргономичность, то есть создание для пользователя комфортных условий труда и дружественного интерфейса общения с системой.

1.2.2. Типовая структура АРМ. Создание АРМ для систем организационного управления предполагает проведение их структуризации и параметризации на стадии проектирования. Структуризация АРМ включает описание среды функционирования: обеспечивающих и функциональных подсистем и связей между ними, интерфейсов с пользователем и техническими средствами, средств информационного и программного обеспечения Параметризация предусматривает выделение и исследование параметров
выделение и исследование параметров технических, программных и информационных средств, удовлетворяющих требованиям и ограничениям, сформированным при структуризации Структурно АРМ включает функциональную и обеспечивающую части.
Функциональная часть определяет содержание конкретного АРМ и включает описание совокупности взаимосвязанных задач, отражающих особенности автоматизируемых функций деятельности пользователя. В основе разработки функционального обеспечения лежат требования пользователя к АРМ и его функциональная спецификация, включающая
описание входной и выходной информации, средств и методов достижения достоверности и качества информации, применяемых носителей, интерфейсов связи. Обычно сюда же относятся описания средств защиты от несанкционированного доступа, восстановления системы в сбойных ситуациях, управление в нестандартных случаях. Обеспечивающая часть включает традиционные виды обеспечения: информационное, программное, техническое, технологическое, и другие. Информационное обеспечение включает описание организации информационной базы, регламентирует информационные связи, предопределяет состав и содержание всей системы информационного отображения. Программное обеспечение АРМ подразделяется на общее и функциональное. Общее программное обеспечение поставляется в комплекте с ПЭВМ и включает операционные системы, прикладные программы, расширяющие возможности операционных систем, программные средства диалога и другие. Общее ПО предназначено для управления работой процессора, организации доступа к памяти,
периферийным устройствам, запуска и управления процессором, выполнения прикладных программ, обеспечения выполнения программ на языках высокого уровня.
Функциональное программное обеспечение предназначено для автоматизации решения функциональных задач, включает универсальные программы и функциональные пакеты. При проектировании этих программных средств необходимо соблюдать принципы ориентации разработки на конкретного пользователя. Совокупность требований к программному и техническому обеспечению отображается на множестве функций пользователя, и это позволяет решать проблему профессиональной ориентации на пользователя.
Техническое обеспечение АРМ представляет собой комплекс технических средств обработки информации на базе ПЭВМ, предназначенный для автоматизации функций специалиста в предметной и проблемной областях его профессиональных интересов.
АРМ специалиста сферы организационного управления обычно базируется на ПЭВМ индивидуального или коллективного пользования. Технологическое обеспечение АРМ предназначено для организации технологического процесса использования АРМ применительно к комплексу решаемых задач, соответствующих функциям специалиста.
Технологический процесс представляет собой совокупность функциональных работ, включающих обеспечение ввода, контроля, редактирования и манипулирования данными, накопление, хранение, поиск, защиту, получение выходных документов. В связи с тем,
что пользователь является, как правило, участнирком некоторого коллектива и выполняет в нем определенную работу, необходимо предусмотреть технологическое взаимодействие исполнителей при решении задач, обеспечить условие совместной работы
специалистов. Эти положения должны отражаться в квалификационных требованиях и должностных инструкциях пользователей АРМ.

1.2.3 Классификация АРМ. В основу классификации АРМ может быть положен ряд классификационных признаков. С учетом областей применения возможна классификация АРМ по функциональному признаку :
1. АРМ административно - управленческого персонала;
2. АРМ проектировщика радиоэлектронной аппаратуры, автоматизированных систем управления и т.д.
3. АРМ специалиста в области экономики, математики, физики, и т. д.
4. АРМ производственно-технологического назначения. Важным классификационным признаком АРМ является режим его эксплуатации, по которому выделяются одиночный, групповой и сетевой режимы эксплуатации. В первом случае АРМ реализуется на обособленной ПЭВМ, все ресурсы который находятся в монопольном распоряжении пользователя. Такое рабочее место ориентировано на решение нестандартных, специфических задач, и для его реализации применяются ЭВМ небольшой мощности.
При групповом режиме эсплуатации на базе одной ЭВМ реализуется несколько рабочих мест, обьединенных по принципу административной или функциональной общности. В этом случае требуются уже более мощные ЭВМ и достаточно сложное программное обеспечение. Групповой режим эсплуатации обычно используется для организации распределенной обработки данных в пределах отдельного подразделения или организации для обслуживания стабильных групп специалистов и руководителей.
Сетевой режим эксплуатации АРМ обьединяет достоинства первого и второго. В этом случае каждое АРМ строится на базе одной ЭВМ, но в то же время имеется возможность использовать некоторые общие ресурсы вычислительной сети.
Одним из подходов к классификации АРМ является их систематизация по видам решаемых задач. Возможны следующие группы АРМ:
1. Для решения информационно-вычислительных задач;
2. Для решения задач подготовки и ввода данных;
3. Для решения информационно-справочных задач;
4. Для решения задач бухгалтерского учета;
5. Для решения задач статистической обработки данных;
6. Для решения задач аналитических расчетов;
Обоснованное отнесения АРМ к определенной группе будет способствовать более глубокому и тщательному анализу, возможности сравнительной оценки различных однотипных АРМ с целью выбора наиболее предпочтительного.

1.3 Выбор технических средств для реализации. Для реализации программного комплекса выберем систему программирования Borland Pascal ver. 7.0. Этот выбор позволит, во-первых, создать эффективный программный код, а во-вторых, позволит сделать систему открытой и впоследствии дополняемой. Поскольку вся обработка ведется внутри системы,представляется нецелесообразным использовать какой-либо стандартный формат данных, такой, как, например, DBASE-формат. Использование этих форматов сильно замедлит работу с данными, увеличит их обьем и не даст никаких очевидных преимуществ.
Для упорядочения файлов системы представляется разумным создать файл-каталог системы, в котором будет храниться имя каждого файла базы, его структура. Это позволит жестко не встраивать в систему форматы файлов, то есть позволит изменять форматы файлов, не перекомпилируя системы. Для системы необходимы поля трех типов - числовой, строковый и дата. В файле-каталоге при перечислении полей указывается тип поля имаксимальный размер этого поля при выводе. В систему имеет смысл встроить систему " Архив". Так как данные системы нужно хранить длительное время, то, чтобы не загружатьданными файлы , имеет смысл базу разделить на текущие данные, которые подвергаются изменению, и архив, который не изменяется. Текущий файл можно записать в архив, поставив ему в соответствие уникальный ключ-дату. Таким образом, ситуация напоминает обычную картотеку - данные делятся на текущие, лежащие на столе, и архив, который лежит в папках на полках.

ГЛАВА 2

2.1 Сценарий диалога с системой.
В начале работы программа спрашивает пароли, чтобы определить статус пользователя и его полномочия. Система спрашивает последовательно два пароля, известных соответсвенно председателю профкома и бухгалтеру. При правильном вводе одного из паролей пользователь получает доступ к просмотру, но не изменению данных системы. Если оба пароля введены правильно, то система позволяет просматривать и изменять данные, если же оба пароля введены неправильно, то система отказывает пользователю в доступе.
Непосредственно после ввода паролей на экране появляется приветствие пользователя и запрос сегодняшней даты. Эта дата используется по умолчанию при вводе в полях, имеющих тип "Дата". В этом запросе пользователь может либо подтвердить ту дату, которая стоит на машине по умолчанию, нажатием "Enter" либо ввести новую дату, если дата на машине установлена неправильно. После этого на экране высвечивается главное меню системы ( Экран 1). При помощи стрелок управления курсором пользователь выбирает интересующий его пункт. Выбор первого пункта означает, что пользовательжелает просмотреть нормативно - справочную информацию, использующуюся в системе. При
выборе этого пункта на экране высвечивается меню нормативно-справочной информации ( Экран 2). В зависимости от выбора пользователя ему предоставляется возможность просмотреть и редактировать тот или иной справочник. Отмена режима справочников осуществляется клавишей ESC. В этом случае система возвращается в предыдущее меню.
Выбор второго пункта означает, что пользователь хочет работать с записной книжкой бухгалтера, в которой хранятся дааные о выдаче кредитов, материальной помощи и так далее. ( Экран 3).
Пользователь может вводить новые данные в записную книжку( выбор первого пункта), или осуществлять поиск в текущих данных (выбор пункта 2). В этом режиме пользователь вводит табельный номер интересующего его сотрудника и получает список всех выданных этому сотруднику льгот. Выход из режима осуществляется клавишей ESC. Выбор третьего пункта дает возможность пользователю рассчитать заработную плату сотрудников профкома( Экран 4). В этом режиме пользователь может просматривать и редактировать файл начислений (выбор первого пункта меню), файл взысканий с сотрудников (второй пункт), список сотрудников с окладами (третий пункт), просматривать общий фонд заработной платы( четвертый пункт), а также поэтапно рассчитывать заработную плату. Сначала пользователь может посчитать оклад сотрудников вместе со всеми начислениями (пятый пункт). При этом система запросит у него дату, которая показывает, за какой месяц начисляется зарплата. Он может также посчитать все взыскания с сотрудников за этот месяц. Для этого пользователь должен выбрать 6-й пункт меню и ввести дату, за которую считаются взыскания. Пользователь может отдельно посчитать налоги, вычитаемые с заработной платы (седьмой пункт) или получить сразу полную ведомость. При выборе девятого пункта система подсчитывает экономию фонда заработной платы в каком-дибо году. Выход из режима осуществляется клавишей ESC. Выбирая четвертый пункт Главного меню, пользователь выбирает работу с ведомостью заработной платы ( Экран 5). В этом режиме пользователь может просмотреть ведомость, причем если ведомость не была рассчитана, то система рассчитает ее, распечатать ведомость, занести ее в архив, найти ведомость в архиве. Выход из режима осуществляется клавишей ESC. При выборе пятого пункта меню пользователь получает возможность работать с банковскими документами ( Экран 6). Он может вводить и просматривать платежные поручения, банковские выписки, банковские обьявления на взнос. При выборе шестого пункта пользователь выбирает работу с главной книгой бухгалтера ( Экран 7). В этом режиме он может приказать системе добавить в главную книгу данные по последней ведомости заработной платы, добавить данные по последним платежным поручениям, просмотреть
главную книгу. Выбор седьмого пункта меню дает возможность пользователю просмотреть
сальдо счетов.( Экран 8) Для того, чтобы система подсчитывала сальдо по какому-нибудь конкретному счету, он должен находиться в списке счетов. В этом режиме пользователь может рассчитать текущее сальдо, просмотреть его, занести сальдо в архив или найти его в архиве. При поиске или занесении в архив сальдо у пользователя спрашивается уникальный ключ-дата, который будет будет связан с этим сальдо. В режиме редактирования любого файла данных системы пользователь имеет возможность получить справку об активных в данный момент клавишах с помощью нажатия F1. Также пользователь может изменить по своему выбору размеры и местоположение на экране окна, в котором происходит редактирование файла данных. Пользователь может одновременно открыть еще несколько файлов данных одновременно, если ему нужно просмотреть какие-то данные прямо в процессе редактирования. Пример: Пользователь вводит очередные начисления сотрудникам. При вводе табельного номера он забывает, какой у интересующего его сотрудника табельный номер. В этом случае ему нужно нажать клавишу F10, выбрать из предлагаемого списка ( Экран 9 ) пункт " Cписок сотрудников", и на экране появится окно с номером 2, в котором будет отражаться файл сотрудников. Теперь пользователь должен нажать Ctrl - F5 для перехода в режим изменения размера окна, расположить первое и второе окна так, чтобы они не перекрывались, и продолжать вводить файл начислений. При этом список сотрудников с их фамилиями будут у него перед глазами.

Модуль 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)
Перемещает указатель безтипового файла.
В случае ошибки внутренняя переменная Fsuccess принимает значение False.
Наndle - Заголовок файла.
PosPnt - новое положение указателя.
Функция FTell(Handle:Word):LongInt
Возвращает позицию указателя файла.
В случае ошибки внутренняя переменная Fsuccess принимает значение False.
Наndle - Заголовок файла.

Функция FSize(FName:String;FAttr:Word):LongInt
Возвращает размер файла в байтах.
В случае ошибки внутренняя переменная Fsuccess принимает значение
False.
FName - Имя файла.
FAttr - Атрибуты файла.
Модуль Field
В программе используются специальные обьекты, которые мы в дальнейшем будем именовать "Таблицами".

Они описаны ниже:
type ftype=array [1..32000] of word
fieldtype=record
field: ^ftype;
tc,tb:byte;

xmax,ymax:integer;
currentx,currenty:integer;
end;

Функция creatfield(var T:fieldtype;X,Y:integer):integer
Создает таблицу заданного размера. Возвращает признак успеха.
T - Таблица.
X - Размер по горизонтали.
Y - Размер по вертикали.
Процедура clearfield(var T:fieldtype;Beg:integer;Textc,Textb:byte)
Очищает созданную таблицу и устанавливает цвет текста и фона для выводимой информации.
T - Таблица.
Beg - Строка таблицы, начиная с которой идет очищение.
Textc - цвет текста для выводимой информации.
Textb - цвет фона для выводимой информации.
Процедура Window_To_Field(T:fieldtype;X1,Y1,X2,Y2,Xx,Yy:integer)
Сохраняет прямоугольную область экрана в таблицу. Для правильной работы процедуры необходимо, чтобы эта область умещалась в таблицу, иначе будет сохранена только часть области.
T - Таблица.
X1,Y1,X2,Y2 - координаты области на экране.
Xx,Yy - Координаты области внутри таблицы.
Процедура field_to_window(T:fieldtype;X1,Y1,X2,Y2,Xx,Yy:integer)
Выводит часть таблицы на экран. Для правильной работы процедуры необходимо, чтобы область не выходила за границы таблицы, иначе на экране будет только часть области.
T - Таблица
X1,Y1 - Координаты левого верхнего угла области.
X2,Y2 - Координаты правого нижнего угла области.
Xx,Yy - Координаты области внутри таблицы.
Процедура put_char(T:fieldtype;X,Y:integer;Sym,Textc,Textb:byte)
Выводит в таблицу символ по заданным координатам с заданным цветом текста и цветом фона.
T - Таблица.
X,Y - Координаты в таблице.
Sym - Код символа.
Textc - Цвет текста.
Textb - Цвет фона.

Процедура deletefield(var T:fieldtype)
Удаляет таблицу,высвобождает память,занятую ей.
T - Таблица.
Модуль Data
Процедура strtotable(X,Y,L:integer;Source:arr;T:fieldtype)
Выводит в таблицу строку символов.
X,Y - координаты в таблице.
L - Максималная длина строки.
Sourсe - Массив, в котором находится строка.
T - Таблица.
Процедура numtotable(X,Y,L:integer;D:longint;T:fieldtype)
Выводит в таблицу целое число.
X,Y - координаты в таблице.
L - Максималная длина поля.
D - Выводимое число.
T - Таблица.
Процедура tabletostr(X,Y,L:integer;var S:string;T:fieldtype);
Считывает поле из таблицы.
X,Y - координаты в таблице.
L - Максималная длина поля.
S - Строка, в которую помещается поле.

T - Таблица.
Модуль Types
Описание типов
rectype= record
len :word;
typ: char;
end;
Запись, описывающая поле в базе данных.
len - длина поля в текстовом представлении.
typ - тип поля.
fileinfo= record
Name:string[20];
Size:longint;
Nf:byte;
Ptr:longint;
Names:longint;
LNames:longint;
end;
Запись, хранящая информацию о файле базы данных.
Name - Имя реального файла на диске.
Size - Его размер.
Nf - Число полей в базе.
Ptr - Ссылка на файл описания полей.
Names - Ссылка на файл имен полей.
LNames - Длина участка в файле имен полей.
schet=record
Cod:string[10];
Name:string[30];
Debet,Kredit:longint;
end;

Запись файла счетов.
Cod - Код счета.
Name - Имя счета.
Debet - Дебет счета.
Kredit - Кредит счета.
windowtype=record
X1,Y1:byte;
X2,Y2:byte;
Save:buffertype;
X,Y:integer;
NF:integer;
Currentline:integer;
currentrow:integer;
priority:longint;
end;

Запись, описывающая обьект "окно" в системе многооконного интерфейса.
X1,Y1 - Координаты левого верхнего угла окна на экране.
X2,Y2 - Координаты правого нижнего угла окна на экране.
Save - Буфер, хранящий образ окна.
X,Y - Координаты окна левого верхнего угла в таблице
NF - Номер файла базы, с которым связано окно.
Currenline - Текущая запись в файле.
Currentrow - Текущее поле в файле.
Priority - Приоритет окна.
fnw = record
Dat:Date;
F:string[25];
Tab:string[10];
Sum:longint;
Cod:string[10];
end;
Запись в файлах начислений и взысканий.
Dat - Дата начисления.
F - Фамилия сотрудника.
Tab - Табельный номер.
Sum - Сумма.
Cod - Код начисления.
sp_nal = record
Kod:string[10];
Name:string[25];
Val:string[15];
end;
Запись в файле-справочнике налогов.
Kod - Код налога.
Name - Название налога.
Val - Величина налога.
string1=string[15];
pl_p=record
Numb:longint;
D:date;
Source::string[30];
Bank1:string[30];
Cod1:string[10];
Dest:string[30];
Bank2:string[30];
Cod2:string[10];
Debet:string[10];
Credit:string[10];
Sum:longint;
Target:string[30];
end;
Запись в файле платежных поручений.
Numb - Номер платежного поручения.
D - Дата.
Source - Плательщик.
Bank1 - Банк плательщика.
Cod1 - Код плательщика.
Dest - Получатель.
Bank2 - Банк получателя.
Cod2 - Код получателя.
Debet - Дебетуемый счет.
Crtedit - Кредитуемый счет.
Sum - Сумма.
Target - Назначение.
great_book_type=record
num:longint;
target:string[30];
sum:longint;
cod1,cod2:string[15];
end;
Запись в файле главной книги.
Num - Порядковый номер.
Target - Назначение платежа.
Sum - Сумма.
Cod1 - Дебетуемый счет.
Cod2 - Кредитуемый счет.
levels=record
L:longint;
Coeff:string[15];
end;

Запись в справочнике разрядов.
L- Разряд.
Coeff - Коэффициент.
Sp_sotr= record
Tab:string[10];
Name:string[25];
Raz:longint;
Oklad:longint;
Prof:string[6];
Obosnov:string[30];
end;

Запись в справочнике сотрудников.
Tab - Табельный номер
Name - Ф.И.О.
Raz - Разряд.
Oklad - Оклад.
Prof - Членство в профсоюзе.
Obosnov - Обоснование оклада.
spr_nw=record
Kod:string[10];
Name:string[30];
end;
Запись в файле-справочнике начислений.
Кod - Код начисления.
Name - Наименование начисления.
index=record
Beg:longint;
Key:date;
Len:longint;
end;
Запись в индексном файле.
Beg - Адрес начала данных.
Кеу - Ключ для доступа.
Len - Длина данных.
Sal=record
Num:longint;
Dd:date;
Tab:string[10];
Oklad:longint;
Pn:longint;
Penf:longint;
Ost:longint;
Plus:longint;
Minus:longint;
Itog:longint;
end;

Запись в ведомости зарплаты.

Num - Номер по порядку.
Dd - Дата.
Tab - Табельный номер.
Oklad - Оклад.
Pn - Подоходный налог.
Penf - Пенсионный фонд.
Ost - Остаток.
Plus - Начисления.
Minus - Взыскания.
Itog - Итого на руки.
Модуль Main
Процедура Readfileinfo(Number:integer;var R:rec; var Name:string1; var N:integer; var Aon:strarr)
Процедура считывает структуру рабочего файла из файла-каталога. Number - Номер рабочего файла. R- Массив, в котором возвращается информация о файле. Массив содержит столько элементов, сколько полей в рабочем файле.
Name - Имя рабочего файла.
N- Количество полей в рабочем файле.
Aon - Массив, в котором хранятся имена полей рабочего файла. Массив содержит столько элементов, сколько полей в рабочем файле.
Функция Exists(Fname:string1):boolean
Функция проверяет существование файла на диске.
Возвращает True, если файл существует, и False в противном случае.
Fname - Имя файла.
Процедура Check_begin
Процедура проверяет работоспособность программы.
Вначале проверяется количество свободной памяти, потом существование необходимых внутренних файлов системы.
Функция Vmenu(Size,Current, X1,Y1,Len,Mask:byte):integer
Функция обработки вертикального меню небольшого размера.
Используется, если все пункты меню помещаются на экране.Возвращает номер выбранного элемента.
Size - Размер меню по вертикали.
Current - Номер элемента, на котором вначале стоит указатель.
X1,Y1 - Координаты первого элемента.
Len- Длина элементов.
Mask - Переменная, показывающая, как изменять цвет фона и символа у выделенного элемента.
Процедура Translate(S:string;var Ns:string)
Процедура предназначена для расшифровывания паролей, считанных из файла паролей.
S - Зашифрованная строка.
Ns - Расшифрованная строка.
Процедура Input_key(var S:string;Ss:string;L:byte;W:settype)
Процедура создает на экране окно и считывает в нем с клавиатуры трочку. После этого процедура восстанавливает старое содержимое экрана.
S - Вводимая строка.
SS - Строка подсказки.
L - Максимальная длина строки.
W - Множество допустимых символо в строке.
Процедура Querry_parole
Запрашивает в начале работы пароли и по ним определяет статус пользователя и его полномочия.
Функция Is_number(S:string):boolean
Проверяет, является ли строка числом.
S - Проверяемая строка.
Процедура Stringtotable(S:string;X,Y:integer;T:fieldtype)
Процедура помещает произвольную строку в таблицу по заданным координатам.
S - Строка.
X,Y - Координаты строки в таблице.
T - Таблица.
Процедура Memcopy(P1,P2:pointer;L:word)

Процедура копирует участок памяти.
P1 - Адрес источника.
P2 - Адрес приемника.
L - Длина участка.
Процедура Help(Index:integer)
Процедура активизируется по нажатию клавиши F1 и выдает контекстно-ориентированный Help.
Index - Номер контекста.
Функция StrtoDate(Str:string;var D:date):integer
Переводит дату из строковой записи во внутренний формат. Возвращает 0 в случае успеха. Str - Строка, содержащая дату.
D - Запись, содержащая дату после работы процедуры.
Функция Move_file(Source,Dest:string1):integer
Копирует файл. Возвращает 0 в случае успеха, -1 в случае нехватки памяти, -2 в случае ошибки чтения или записи на диск.
Source - Название исходного файла.
Dest - Имя нового файла.
Процедура Lines(T:fieldtype,R:rec;N,N1:integer)
Процедура разделяет таблицу на шапку и графы путем внесения в таблицу символов псевдографики. Используется при печати таблиц.
T - Имя таблицы.

R - Массив, хранящий описание структуры файла базы.
N - Количество столбцов в таблице.
N1 - Количество строк в таблице.
Функция Load_data_file(Fname:string1;D:date):integer
Функция ищет в архиве файл, связанный с ключом - датой и делает этот файл текущим.
Fname - Имя файла, в кото