Разработка программы "Ведение основных фондов" для централизованной бухгалтерии комитета по образованию при администрации г. Богородицка

Введение


Потребность выразить и передать информацию привела к появлению речи, письменности, книгопечатания, почтовой связи, телеграфа, телефона, радио, телевидения и многого другого.

С самого раннего детства все мы вовлечены в процессы обмена информацией. Вопросы, ответы, просьбы – все это передача информации. Мы получаем информацию, когда читаем книги, газеты и журналы, слушаем радио или смотрим телевизор.

Общение людей друг с другом – это передача информации: сведений и суждений, данных и сообщений. Любая совместная деятельность людей – работа, учеба – невозможна без обмена информацией. Передаваемая информация обычно касается каких-то предметов или нас самих и связана с событиями, которые происходят в окружающем нас мире.

Выражение мыслей в письменной форме открыло возможность не только передавать сведения и сообщения, но и накапливать человеческие знания в форме рукописей и рукописных книг и тем самым передавать сокровища человеческой мысли от одного поколения к другому.

Совершенно новые возможности для поиска и обработки информации открыло перед людьми изобретение в середине XX века электронных вычислительных машин – ЭВМ. Первоначально ЭВМ создавались для автоматизации вычислений. Затем их научили записывать и хранить информацию на магнитных лентах, печатать ее на бумаге и выводить на экран ЭВМ. По мере развития они стали использоваться для создания архивов, подготовки и редактирования текстов, выполнения чертежных и графических работ, для автоматизации производства и многих других видов человеческой деятельности.

Вычислительная техника все более широко используется не только для автоматизации производства, но и в самых различных его сферах. Подобное вовлечение вычислительной и микроэлектронной техники в деятельность различных производственных систем называется компьютеризацией производства.

Компьютеризация – это основа технического перевооружения производства, необходимое условие повышения его эффективности. На базе ЭВМ и микропроцессоров создаются технологические комплексы, машины и оборудование, измерительные, регулирующие и информационные системы, ведутся проектно-конструкторские работы и научные исследования, осуществляется информационное обслуживание, обучение и многое другое, что обеспечивает повышение общественной и индивидуальной производительности труда, создание условий для всестороннего и гармоничного развития личности.

Для нормального развития и функционирования сложного народнохозяйственного механизма необходимы постоянный обмен информацией между его звеньями, своевременная обработка большого объема данных на различных уровнях управления, что также невозможно без использования ЭВМ. Поэтому от уровня компьютеризации в значительной степени зависит развитие экономики.

В процессе своего развития ЭВМ прошли путь от громоздких машин на электронных лампах, общение с которыми было возможно только на машинном языке, до современных ЭВМ.

Развитие ЭВМ происходит в двух основных направлениях. Первое – создание мощных многопроцессорных вычислительных систем с производительностью сотни и тысячи миллионов операций в секунду. Второе – создание дешевых и компактных микроЭВМ на базе микропроцессоров. В рамках второго направления развивается производство персональных компьютеров, которые становятся мощным универсальным инструментом, существенно повышающим производительность интеллектуального труда специалистов различного профиля. Персональные компьютеры отличает работа в диалоговом режиме с индивидуальным пользователем; небольшие размеры и автономность функционирования; аппаратные средства на базе микропроцессорной техники; универсальность, обеспечивающая ориентацию на широкий круг задач, решаемых одним пользователем с помощью технических и программных средств.

Следует отметить и такой важный факт компьютеризации производства, как широкое распространение собственно микропроцессоров, каждый из которых ориентирован на выполнение одной или нескольких специальных задач. Встраивание таких микропроцессоров в узлы промышленного оборудования позволяет обеспечить решение поставленных задач с минимальными затратами и в оптимальном виде. Использование микропроцессорной техники для сбора информации, регистрации данных или локального управления значительно расширяет функциональные возможности оборудования.

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

Целью данного дипломного проекта является разработка системы автоматизации рабочего места бухгалтера по учету основных фондов для предприятия.

Исходя из современных требований, предъявляемых к качеству работы финансового звена предприятия, нельзя не отметить, что эффективная работа его всецело зависит от уровня оснащения компании информационными средствами на базе компьютерных систем автоматизированного учета основных фондов.

В этом ряду особое место занимают базы данных и другое программное обеспечение, связанное с их использованием в качестве инструмента для автоматизации бухгалтерского учета и рационализации финансового труда. Их использование позволяет сократить время, требуемое на подготовку конкретных маркетинговых и производственных проектов, уменьшить непроизводительные затраты при их реализации, исключить возможность появления ошибок в подготовке бухгалтерской, технологической и других видов документации, что дает прямой экономический эффект.

Разумеется, для раскрытия всех потенциальных возможностей, которые несет в себе использование баз данных, необходимо применять в работе комплекс программных и аппаратных средств максимально соответствующий поставленным задачам. Поэтому в настоящее время велика потребность предприятий в компьютерных программах, поддерживающих и согласующих работу управленческого и финансового звеньев, а также в информации о способах оптимального использования имеющегося компьютерного оборудования.

Учет основных фондов – это одна из наиболее важных задач. В настоящее время в условиях рыночной экономики определяющее значение имеют своевременно полученные качественные показатели. Этого можно достичь с использованием вычислительной техники для учета основных фондов. Для реализации задач учета материалов используется комплекс программ «Е–Бухгалтерия».

В данном дипломном проекте рассматривается основной модуль программного комплекса osnfond.prg



1. Организационно-экономическая сущность задачи


В начале XXI века в развитии человеческой цивилизации происходят глобальные изменения, ведущие к её новому этапу – постиндустриальному обществу, все шире использующему компьютеризированные орудия труда и информационные технологии.

Для современных условий характерно применение высокоэффективного учета основных средств, основанного на использовании новейших технических средств автоматизированной обработки цифровой и текстовой информации на базе компьютеров, объединенных в локальную, единую внутрифирменную вычислительную сеть.

Управленческая и финансовая внутрифирменная информационная система представляет собой совокупность информационных процессов, для удовлетворения потребности в информации разных уровней принятия решений, как бухгалтерских, так и управленческих.

Информационная система состоит из компонентов обработки информации, внутренних и внешних каналов передачи.

Информационный процесс, направленный на получение научно-технической, плановой, контрольной, учетной и аналитической информации, в информационных системах унифицирован и базируется на электронно-вычислительной технике.

Повышение эффективности использования информационных систем достигается путем сквозного построения и совместимости информационных систем, что позволяет устранить дублирование и обеспечить многократное использование информации, установить определенные интеграционные связи, ограничить количество показателей, уменьшить объем информационных потоков, повысить степень использования информации. Информационное обеспечение предполагает: распространение информации, т.е. предоставление пользователям информации, необходимой для решения научно-производственных задач; создание наиболее благоприятных условий для распространения информации, т.е. проведение административно-организационных, научно-исследовательских и производственных мероприятий, обеспечивающих ее эффективное распространение.

Информация и, особенно, ее автоматизированная обработка, является важным фактором повышения эффективности производства.

Важную роль в исполнении информации играют способы ее регистрации, обработки, накопления и передачи, систематизированное хранение информации и выдача ее в требуемой форме, производство новой числовой и иной информации.

В современных условиях в крупных организациях созданы и эффективно действуют информационные системы, обслуживающие процесс подготовки и принятия бухгалтерских и управленческих решений, и решающие следующие задачи: обработка данных, обработка информации.

Основные фонды (средства) – материальные активы, которые предприятие содержит с целью использования их в процессе производства или поставки товаров, предоставления услуг, сдачи в аренду другим лицам или для осуществления административных и социально-культурных функций, ожидаемый срок полезного использования (эксплуатации) которых более одного года (или операционного цикла, если он больше года).

Эксплуатация основных фондов сопряжена с их износом, как физическим, так и моральным. Основные фонды требуют постоянного технического обслуживания. Кроме того, для их использования необходимо проводить текущий и капитальный ремонты, осуществлять реконструкцию, модернизацию, техническое перевооружение и другие улучшения основных фондов. Все эти мероприятия требуют определенных затрат, которые нужно отразить в бухгалтерском и налоговом учете.

Данная задача в централизованной бухгалтерии решается ежеквартально.

Входными данными для этой задачи являются базы данных: kodgrupp.dbf, kodobj.dbf, ofsys.dbf, ofdv.dbf, kodpodt.dbf, сформированные работниками расчетного отдела на основе нормативных бухгалтерских документов и приказов по организации.

В результате решения данной задачи информация баз данных актуализируется, а также могут быть получены следующие документы на бумажном носителе:

1. Оборотная ведомость по подотчетным лицам;

2. Оборотная ведомость по счетам;

3. Сальдовая ведомость на конец квартала;

4. Сальдовая ведомость на конец месяца (по подотчетным лицам);

5. Сводная ведомость начисления амортизации;

6. Инвентарная карточка.

Все карточки и ведомости также могут быть выгружены в файл.



2. Информационное обеспечение решения задачи


Входными данными для этой задачи является информация баз данных kodgrupp, kodobj, ofsys, ofdv, kodpodt, хранимых в формате DBF – файла, структура которых приведена в таблице 1. Данные базы формируются работниками расчетного отдела при помощи программы ввода ofinput.

База данных – это совокупность взаимосвязанной информации, организованной определенным образом и расположенной на внешнем носителе.

В базе данных kodobj хранится информация о соответствии кодов объектов их наименованию и наличию подотчетных лиц, в базе ofsys находятся системные настройки, ofdv – база движения, база основных фондов – of.dbf, kodgrupp и kodpodt – справочники кодов групп основных средств и подотчетных лиц соответственно.

Образцы входной информации даны в приложении А.

Таблица 1 – Сводное описание входной информации

Имя БД

Имя файла

Наименование поля

Идентифи-

катор

Тип, максимальная длина поля

Приме-чание

симво-льная

дата

числовая

целая

дробная


KODOBJ

KODOBJ.DBF

Код объекта
KOBJECT



3

0




Наименование объекта

NAIMOBJ

30







Подотчетные лица

PODOT

25





OFSYS

OFSYS.DBF

Текущий месяц

MECTEK


8






Предприятие

PREDPR

50







Директор

DIREK

30







Главн.бухгалтер

GLBUX

30







Константа

CONSTX



12

0




Тип принтера

Текущ. квартал

TIPPRINT

KWATEK

20




2


0



Базы данных формируются на ЖМД и изменяются по необходимости.

2.1 Описание выходной информации


В результате решения данной задачи модифицируются используемые базы данных, которые содержат информацию в виде DBF-файла, а также формируются и выводятся на печать документы: «Оборотная ведомость по подотчетным лицам», «Оборотная ведомость по счетам», «Сальдовая ведомость на конец квартала», «Сальдовая ведомость на конец месяца (по подотчетным лицам)», «Сводная ведомость начисления амортизации», «Инвентарная карточка».

Структура выходных баз данных аналогична структуре входных баз данных, описанных в пункте 3.3 в таблице 1.

Структура и информация баз данных даны в приложении Б.

Описание выходных документов показано в таблице 2.

Информация выходных документов представлена в приложении Б.


Таблица 2 – Описание выходной информации

Название документа

Назначение документа

Ключевые признаки

Периодичность составления

Количество

Куда передается

экз.

строк на листе

символов в строке

Оборотная ведомость по подотчетным лицам

Учет объектов осн. фондов, находящихся у подотчетных лиц

Код объекта

Ежеквартально

1

45

80

В расчетный отдел

Сальдовая ведомость на конец квартала

Учет сальдовых остатков на счетах учета основных фондов

Номер счета

Ежеквартально

1

40

120

Главному бухгалтеру

Сальдовая ведомость на конец месяца (по подотчетным лицам)

Контроль исходящего сальдо в разрезе подотчетных лиц

Код подотчетного лица

Ежеквартально

2

40

96

Главному бухгалтеру

Сводная ведомость начисления амортизации

Контроль за степенью амортизации основных фондов

Код объекта

Ежеквартально

4

35

80

Главному бухгалтеру, в расчетный отдел

Инвентарная карточка

Объект картотеки осн. фондов

Инвентарный номер

Ежеквартально

1

28

60

Картотека



3. Машинная реализация задачи


3.1 Характеристика технических средств


Комитет по образованию Администрации г. Богородицка оснащён персональными компьютерами ПЭВМ IBM PC/AT.

Данный проект реализован с помощью ПЭВМ IBM PC/AT-совместимого компьютера. Данная ПЭВМ создана на основе процессора AMD AthlonXP-1100 и состоит из следующих компонентов:

  • процессор;

  • оперативное запоминающее устройство (ОЗУ);

  • постоянное запоминающее устройство (ПЗУ);

  • накопитель на жёстком магнитном диске (НЖМД, «винчестер»);

  • накопитель на гибких магнитных дисках (НГМД);

  • устройства ввода информации (клавиатура, координатное устройство типа «мышь»);

  • устройства вывода информации (дисплей, принтер).

Процессор является основным устройством ЭВМ и предназначен для непосредственной обработки информации, которая поступает от различных внешних и внутренних устройств ПЭВМ.

Процессор AthlonXP разработки компании AMD имеет следующие технические характеристики:

  • разрядность по ширине данных 64 бит

  • тактовая частота 980 MGz

  • максимальный объем ОЗУ 128 Mb

  • кэш-память 2х64 Kb

  • быстродействие 1100 MGz (~980)

ОЗУ предназначено для временного хранения информации и имеет объём 256 Mb.

ПЗУ предназначено для хранения неизменяемой информации, то есть программ типа BIOS (basic input-output system – базовая система ввода-вывода), которые позволяют связать компоненты компьютера в единое целое. На данной ПЭВМ установлена BIOS AWARD 6.00

Процессор, модули ОЗУ и ПЗУ находятся на материнской плате компьютера. Данная материнская плата создана компанией EPoX на основе чипсета VIA KT66, имеет форм-фактор АТХ, встроенный звуковой кодек АС’97, поддержку интерфейса обмена информацией UDMA66 и интерфейса USB1.0 (2 порта USB, установленных по умолчанию)

Накопитель на жестком диске (винчестер, HDD) предназначен для постоянного хранения информации, используемой при работе с компьютером: программ операционной системы, часто используемые пакеты прикладных программ, редакторов документов, трансляторов с языков программирования и т.д. Наличие винчестера значительно повышает удобство работы с компьютером.

Для пользователя накопители на жестком диске отличаются друг от друга, прежде всего своей емкостью. На данной модели жесткий диск имеет емкость 40,1 Гбайт. Вторая существенная для пользователя характеристика диска – время доступа к информации. Для областей применения, требующих эффективного обмена с дисками, этот показатель является исключительно важным. Данная ПЭВМ оснащена жестким диском производства Maxtor со скоростью вращения шпинделя 7200 об/мин., что обеспечивает скорость доступа порядка 10 наносекунд для внутреннего интерфейса винчестера (от головок чтения / записи до вывода на шину данных) и 18 наносекунд для внешнего (при передаче до процессора и в обратном направлении).

Накопитель на гибких магнитных дисках (НГМД) является одним из старейших устройств, входящих в базовую конфигурацию и предназначен для хранения информации небольших объёмов, её переноса между компьютерами, архивации и других целей. На данной машине имеется один НГМД 3,5» ёмкостью 1,44 Mb.

Клавиатура предназначена для ввода пользователем различной информации и управления ПЭВМ. Данный ПК оборудован 104-клавишной клавиатурой.

Специальный манипулятор типа «мышь» позволяет указывать или выбирать объекты, отображаемые на экране. Компьютер, на котором разрабатывался данный дипломный проект, оснащен двухкнопочной мышью с оптико-механическим принципом работы производства фирмы Genius.

Монитор (дисплей) компьютера IBM PC предназначен для вывода на экран текстовой и графической информации. Мониторы бывают цветными и монохромными. Они могут работать в одном из двух режимов: текстовом или графическом.

Мониторы VGA и Super VGA давно и заслуженно получили очень широкое распространение, они фактически стали стандартом для тех применений, в которых требуются графические средства приемлемого качества. Данная ПЭВМ оснащена монитором SyncMaster 763 MagicBright, который имеет следующие характеристики:

– тип Samsung SyncMaster 763 MB

– количество цветов 16,5 млн.

– разрешающая способность:

в текстовом режиме 600х800

в графическом режиме 1024х724 (рекомендуемая)

1600х1200 (максимальная)

– размер экрана по диагонали 17 ''

– частота обновления экрана 85 Гц (в режиме 1024х724)

Принтер предназначен для вывода информации на бумагу.

Все принтеры могут выводить текстовую информацию, многие из них могут выводить рисунки и графики, а некоторые принтеры могут выводить и цветные изображения. Лазерный принтер, который используется при работе программы osnfond.prg, является наиболее распространенным типом принтеров для IBM PC, он имеет следующие характеристики:

тип лазерный

память 2 Мб

скорость печати 9 стр./мин

тип бумаги листовая

формат листа А4

Лазерные принтеры обеспечивают в настоящее время наилучшее качество печати за минимальный промежуток времени, причем себестоимость этого процесса сравнительно низка. В этих принтерах для печати используется принцип ксерографии.

ПЭВМ AMD Athlon XP-1100 является современным вычислительным средством, обладает высоким быстродействием, значительным объемом памяти и удобным интерфейсом.


3.2 Математическое обеспечение


Программа, описанная в данном дипломном проекте, была разработана на ПЭВМ Athlon XP-1100 под управлением операционной системы MS-DOS 7.0 и Windows 98 Second Edition фирмы Microsoft.

Программное обеспечение представляет собой неотъемлемую часть любой ЭВМ. С конца семидесятых годов для персональных компьютеров был разработан огромный фонд программного обеспечения, который открыл путь к их массовому применению практически во всех сферах – от игр и до решения сложных научно-технических задач.

Математическое обеспечение – это программное обеспечение машин, предназначенное для повышения эффективности их использования, для снижения ёмкости работ, связанных с эксплуатацией и облегчением труда при подготовке данных и обработки их на ЭВМ. Математическое обеспечение делится на прикладное и системное.

Системное – это интегрированные системы отладки программ и операционные системы. Операционные системы (ОС) – программы, которые делают возможным диалог человек – компьютер. На данном компьютере установлена ОС Windows 98SE, которая сочетает в себе надёжность и поддержку большого количества разнообразных устройств.

Многозадачный (многопрограммный) режим позволяет разнообразным приложениям работать взаимосвязано, наличие единого буфера обмена даёт возможность переносить данные между приложениями как MS-DOS, так и Windows.

Интегрированные системы отладки программ – программы, помогающие программисту создавать, отлаживать и компилировать новые программы. На компьютере установлена интегрированная система программирования FoxPro 2.6 (X).

Расширение (X) позволяет FoxPro работать на машине, используя максимум её ресурсов.

Широкие возможности FoxPro по отладке и тестированию программ делает её незаменимой в работе над созданием приложений.

Драйверы устройств – это специальные программы, которые дополняют систему ввода / вывода DOS и обеспечивают обслуживание новых устройств или нестандартное использование имеющихся устройств. Драйверы загружаются в память компьютера при загрузке ОС, их имена указываются в специальном файле CONFIG.SYS. Такая схема облегчает добавление новых устройств и позволяет делать это, не затрагивая системные файлы.

Данный дипломный проект набран и сверстан с помощью программы Word 9.0, входящей в пакет Microsoft Office 2000.

Microsoft Office – это пакет программ, разработанных фирмой Microsoft, который содержит текстовый процессор Microsoft Word, табличный процессор Microsoft Excel и другие программы. Microsoft Office – это, наверное, самый продаваемый компьютерный продукт после Windows. Microsoft Office обладает удобным интерфейсом, понятным, наверное, каждому. При этом с его помощью можно выполнять как легкие задачи, так и очень сложные. В Microsoft Office существуют такие необходимые функции, как взаимодействие приложений (вставка объекта одного приложения в другое), настройка приложений, поиск любых документов и файлов, созданных как в Microsoft Office, так и в других программах.

Microsoft Word делает написание, редактирование и печать документов, содержащих текст, настоящим удовольствием. С помощью Microsoft Word можно подготовить на профессиональном уровне письма, отчеты, таблицы, записки, рекламные листки, а также многое другое. Word можно использовать практически для всего, что содержит текст.

В дополнение к обработке собственно текста, Microsoft Word включает простые способы индивидуальной настройки символов, форматирования абзацев и встраивания в документ элементов графики. Для получения документа на профессиональном уровне можно проверить правописание, добавить графические образы, линии, границы, выделить текст тенью. Word позволяет объединить в одном документе текст, рисунки, графики, электронные таблицы и диаграммы, а затем просмотреть на экране все страницы в том виде, как они будут выглядеть на бумаге.


3.3 Обоснование выбора языка программирования


Опыт применения ЭВМ для построения прикладных систем обработки данных показывает, что самым эффективным инструментом являются специализированные языки для создания систем управления данными. Такие средства обычно включаются в состав систем управления базами данных. СУБД дают возможность пользователям осуществлять непосредственное управление данными, а программистам быстро разрабатывать более совершенные программные средства их обработки.

В настоящее время реляционные системы лучше соответствуют их техническим возможностям и вполне удовлетворяют большинство пользователей. Скоростные характеристики этих СУБД поддерживаются специальными средствами ускоренного доступа к информации – индексированием баз данных.

На текущий момент достаточно широко распространено поколение популярного пакета FoxPro.

СУБД FoxPro обладает исключительно высокими скоростными характеристиками и в этом отношении заметно выделяется среди интерпретирующих систем. Сравнительно ее скорость не только не уступает, но и в несколько раз выше, чем скорость систем-компиляторов. Практически по всем показателям Fox-программы работают значительно быстрее Clipper-программ. Набор команд и функций, предлагаемых разработчикам программных продуктов в среде FoxPro, по мощи и гибкости отвечает любым современным требованиям к представлению и обработке данных. Здесь может быть реализован максимально удобный, гибкий и эффективный пользовательский интерфейс. В FoxPro поддерживаются разнообразные всплывающие и многоуровневые меню, работа с окнами и мышью, реализованы функции низкоуровневого доступа к файлам, управление цветами, настройка принтера, данные могут быть представлены в виде, похожем на электронные таблицы и тому подобное. Система также обладает средствами быстрой генерации экранов, отчетов и меню, поддерживает язык SQL, хорошо работает в сети. В пакете имеется компилятор, позволяющий при желании сформировать EXE-файлы готовых программ.

Наличие в СУБД языка программирования позволяет создавать сложные системы обработки данных, ориентированные под конкретные задачи и даже под конкретного пользователя.

Язык FoxPro имеет следующие возможности:

Динамическое распределение памяти компьютера. Системе доступна область памяти за пределами 640 Кбайт. Стандартный вариант FoxPro дает возможность использовать Expanded LIM-4.0 память. Причем 64 Кбайта может быть задействовано для хранения окон и других данных, а остальная часть – под весьма эффективный буфер ввода-вывода. Расширенная версия работает в защищенном режиме и использует всю Extended-память, установленную на машине (Extended-память не используется).

СУБД FoxPro обладает следующими свойствами:

Поддержка и активное использование мыши.

Язык FoxPro позволяет создавать хорошо структурированные программы. Практически из всех опций команд могут быть вызваны пользовательские процедуры / функции, что придает ему исключительную гибкость. Допускаются как внешние, так и внутренние процедуры.

Новые типы индексных файлов, а также возможность применения индексов не только для поиска отдельной записи, но и быстрой локализации групп записей с общим признаком (технология Rushmore).

Установка реляционных связей между базами данных вида одна запись ко многим.

Возможность построения многоуровневых световых меню, в качестве элементов которых могут фигурировать как произвольные строки, так и элементы массивов и компоненты файлов. Допускается множественный отбор данных. Меню получили статус объектов в памяти компьютера.

СУБД предоставляет программисту средства конфигурации и системного меню самого FoxPro, что дает возможность легко настраивать его для работы в оболочке.

FoxPro стал располагать средствами языка SQL, дающими программисту исключительные возможности по формированию сложных запросов к базе, обрабатываемых с использованием одного из самых интеллектуальных оптимизаторов запросов.

Язык FoxPro включает теперь средства создания Windows-подобного интерфейса, то есть так называемого интерфейса, управляемого событиями.

FoxPro предлагает интерфейс, обеспечивающий быстрый доступ ко всем нужным данным и вместе с тем возможность поддержания их четкой взаимосвязи и порядка.

FoxPro дает возможность разработчику самому написать удобный драйвер принтера.

Обработка данных в FoxPro может выполняться с помощью следующих подходов:

Непосредственная обработка данных пользователем через систем-ные меню FoxPro. Работа на этом уровне требует от пользователя хорошего владения интерфейсом системы и умения читать англоязычные сообщения. Здесь могут быть поставлены лишь очень простые задачи.

Обработка данных с помощью прикладных программ. Создание программных продуктов в среде FoxPro может быть выполнено только квалифицированным программистом. Использование готовых прикладных пакетов совершенно освобождает пользователя от необходимости что-нибудь изучать, кроме самой прикладной системы, а также от выполнения каких-либо технических действий по обработке данных и позволяет сосредоточиться только на принятии содержательных решений.

Обработка данных с помощью программ, созданных средствами генератора приложений.

FoxPro обладает эффективным языком программирования прикладных информационных систем. Ввиду того, что языки создания информационных систем ориентированы на непосредственный диалог с пользователем по обработке данных, находящихся в дисковых файлах, для них обычно характерны следующие особенности:

наличие мощных команд обработки файлов;

развитые средства ведения диалога (меню, «горячие» клавиши);

удобные средства ввода / редактирования данных;

возможность ускоренного доступа к данным (индексирование);

возможность обеспечить контекстно-чувствительную помощь – такую как инструкции по вводу данных – при нажатии клавиши F1;

использование утилит, вызываемых прямо из операционной системы для создания файлов базы данных и индексов, наклеек и отчетов;

полные отладочные возможности.

Учитывая возможности описанного языка программирования СУБД FoxPro и информационный характер задачи дипломного проекта, необходимость обработки нескольких связанных таблиц, в качестве языка программирования для решения задачи «Ведение основных фондов» был выбран язык программирования FoxPro.


Описание программы

Наименование программы

«Ведение основных фондов»

Идентификатор:

Osnfond

Язык программирования:

Fox Pro 2.6 for MS-DOS

Назначение программы:

Обеспечить бухгалтерский учёт основных фондов организации

Оборудование:

Компьютер IBM PC/AT AMD Athlon XP-1100 ОЗУ 256Мбайт, жесткий диск 40 Гб (Maxtor), монитор 17'' SyncMaster 763 MagicBright, клавиатура, мышь, принтер Oki 778 L

Входные данные:

Базы данных: kodgrupp.dbf, kodobj.dbf, ofsys.dbf, ofdv.dbf, kodpodt.dbf, номенклатурная информация бухгалтерии, отражающая изменения в составе основных фондов

Выходные данные:

Печатные ведомости или файлы на магнитном носителе, содержащие электронные формы

Краткий алгоритм:

Программа обеспечивает ввод движения осн. фондов, архивацию текущих периодов, изменение сальдовой базы, переброску данных из путёвок, получение различных ведомостей


3.4 Инструкция пользователю по работе с программой


Для запуска программы необходимо войти в папку of на диске С: и запустить файл o.bat. Помимо него в этой папке также находятся файлы используемых в работе баз данных и программные *.prg файлы.

Интерфейс программы является многооконным и интуитивно понятным. На любом этапе работы в случае необходимости можно получить справку. Алгоритм работы с программой следующий:

1. Проверить, был ли переход на следующий квартал. Если нет, то выполнить пункт 7 (переход на след. квартал).

2. Если необходимо, произвести корректировку данных сальдовой базы, справочников учреждений и подотчетников. Произвести контроль сальдовой базы, если необходимо.

3. За текущий квартал вводится движение: приход (код-1)\расход (код-2)\ликвидация (код-3). По приходу вводятся все параметры. По расходу \ ликвидации достаточно ввести код учреждения, дату движения, инв. номер. Дата движения любая, относящаяся к данному кварталу.

4. Производится контроль базы движения, устраняются ошибки ввода.

5. Формируются все необходимые ведомости. Если обнаружены в ведомостях ошибки, то необходимо исправить их в сальдовой базе и\или базе движения. Опять провести контроль и вновь сформировать ведомости и т.д.

6. Распечатать полученные результаты

7. В конце текущего квартала, перед тем как производить расчеты для следующего квартала выполнить переход:

7.1. Переформировать базу на следующий период (Пункт.F гл. меню)

7.2. Провести инициализацию системы (Пункт. 1 гл. меню), на запрос «ЗА КАКОЙ КВАРТАЛ \ ГОД АРХИВИРОВАТЬ» ввести xxyy xx-номер текущего квартала (01\02\03\04), yy-последние две цифры года. на запрос 'ПОДТВЕРДИТЕ…' ответить ДА большими буквами. На экране должно появиться сообщение о переходе на новый квартал.

8. Примечания:

8.1. П. 7 необходимо четко выполнить единожды за квартал (без экспериментов) Иначе расчет износа может быть нарушен. Если величина износа Вас не устраивает, то необходимо проставить правильную величину в сальдовой базе.

8.2. Если Вы уверены, что архивы за предыдущие квартала не нужны, Вы можете полностью удалить архивный директорий OF\ARXxxyy для увеличения свободного места на диске.

8.3. На возникающие вопросы в процессе работы на номер месяца необходимо вводить 01,02,03…11,12. На запросы 'ПОДТВЕРДИТЕ..' везде вводить ДА большими буквами в утвердительном случае.

8.4. Добавить запись в базе CTRL+N. Удалить запись в базе CTRL+T

9. Выход из программы осуществляется выбором пункта Q из главного меню работы.



4. Контрольный пример


В качестве входной информации при выполнении программы osnfond.prg используются документы и базы данных, описание которых дано в пункте 3.3 в таблице 2.

Входная информация дана в приложении А.

На основании разработанного алгоритма, представленного в виде блок-схемы в пункте 4.1. и описания в пункте 4.2. разработана программа ведения основных фондов централизованной бухгалтерии комитета по образованию при администрации г. Богородицка, листинг которой показан в приложении В.

В результате работы программы формируется выходная информация, описание которой дано в пункте 3.4. в таблице 2, структура и информация выходных баз данных дана в приложении Б.

Полученные выходные данные доказывают работоспособность программы и являются контрольным примером.



5. Экономическое обоснование программы


Применение персональных компьютеров позволяет совершенно по-новому организовать процесс решения многих задач учета, в том числе и задачу данного дипломного проекта – «Разработка программы «Ведение основных фондов» для централизованной бухгалтерии комитета по образованию при администрации г. Богородицка».

Входной информацией для этой задачи являются базы данных kodgrupp, kodobj, ofsys, ofdv, kodpodt, сформированные ранее работниками расчётного отдела на основании документов бухгалтерского учета о поступлении, движении и ликвидации объектов основных фондов, содержащие информацию о модификации фондов.

Выходная информация представляет собой изменённые БД, а также типовые документы: оборотная ведомость по подотчетным лицам, оборотная ведомость по счетам, сальдовая ведомость на конец квартала, сальдовая ведомость на конец месяца (по подотчетным лицам), сводная ведомость начисления амортизации, инвентарная карточка.

Экономическая эффективность – это оценка результатов, выполнение различных действий, направленных на изменение способа, скорости и качества учета.

Наиболее распространенным методом определения экономической эффективности является метод сравнения. Его сущность заключается в сопоставлении трудоемкости и себестоимости выполненных работ с аналогичными показателями предыдущих периодов, то есть экономическую эффективность определяют по совокупности высвобож-денного времени, работников, совершенствованию способов обработки информации путём применения более современных методов обработки.

Выделяются два вида показателей эффективности: прямая (непосредственно снижает трудовые и стоимостные затраты) и косвенная (косвенно улучшает учет за счет усовершенствований в работе сотрудников бухгалтерии), рассмотренных далее.

Основным показателем прямой эффективности является снижение стоимостных и трудовых затрат на расчётные работы. В основе выявления прямой эффективности лежит принцип сопоставления затрат при различных способах решения.

Показателями прямой экономической эффективности являются:

абсолютное снижение трудовых и стоимостных затрат, показывающих на сколько времени и на какую сумму снизились затраты;

относительное снижение трудовых и стоимостных затрат, показывающее, какая часть затрат при предполагаемом варианте экономится;

индекс роста производительности труда, показывает, во сколько раз произошло изменение.

Косвенная эффективность имеет скрытую форму и проявляется в улучшении качества управления объектом, может быть определена экспертным путем.

Косвенная эффективность позволяет оценить влияние задачи на различные стороны деятельности через качественные факторы.

Из-за отсутствия единой методики расчета прямой эффективности программных продуктов, внедряемых на персональном компьютере, в данном дипломном проекте по разработке системы ведения основных фондов рассматривается косвенная эффективность.

Косвенная эффективность автоматизации задачи ведения основных фондов заключается в следующем:

внедрение безбумажной технологии обработки информации сильно сокращает расходы на покупку бумаги и других расходных материалов;

использование разработанной программы позволяет упорядочить большие объёмы информации для удобного использования;

формировать выходные документы в удобной для пользователя форме.

Все вышеперечисленные факторы приводят к уменьшению расходов на обработку экономической информации, повышению производительности труда, получению оперативных данных о состоянии фондов, что в свою очередь влияет на эффективность работы и является основанием для анализа деятельности.

Косвенный эффект позволяет оценить влияние задачи на различные стороны деятельности данного объекта. Проявляется он через качественные факторы.

Экономическая эффективность задачи ведения основных фондов закладывается уже при разработке проекта.

Режимы работы выбираются с таким расчетом, чтобы в своей совокупности они обеспечивали максимальную эффективность задачи.

При этом ускоряется не только процесс поиска и обработки данных, но что немаловажно, повышается контроль за качеством выполненной работы.

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



Список литературы


  1. Автоматизированное рабочее место в системе управления предприятием. Сборник научных трудов, – Ленинград, 1989.

  2. В.В. Шураков. Автоматизированное рабочее место для статической обработки данных, 1990.

  3. И.Л. Кантарь. Автоматизированные рабочие места управленческого аппарата, 1990.

  4. Данилевский Ю.Г., Петухов ИА. Информационная технология в промышленности. Л.: Машиностроение, 1988, 284 с.

  5. П.И. Камышанов. Практическое пособие по бухгалтерскому учету: – Издание третье, дополненное и переработанное – Москва: ООО «МЕДпресс»; – Элиста: АПП «Джангар», 1998. – 528 с.

  6. А.А. Попов Программирование в среде СУБД FoxPro 2.0. Построение систем обработки данных. – М.: Издательство Март, 1996–352 с.

  7. Глушаков С.В., Ломотько Д.В. Базы данных. – Харьков: Издательство «Фолио», 2001



Приложение А


Structure for database: C:\OF\KODOBJ.DBF

Number of data records: 1

Date of last update: 02/06/04

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 KOBJECT Numeric 3

2 NAIMOBJ Character 30

3 PODOT Character 25

** Total ** 59

Structure for database: C:\OF\OFSYS.DBF

Number of data records: 1

Date of last update: 08/28/03

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 MECTEK Date 8

2 PREDPR Character 50

3 DIREK Character 30

4 GLBUX Character 30

5 CONSTX Numeric 12

6 TIPPRINT Character 20

7 KVATEK Numeric 2

** Total ** 153

Structure for database: C:\OF.INT\OFDV.DBF

Number of data records: 9

Date of last update: 08/28/03

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 KODPR Numeric 1

2 DCEX Numeric 3

3 INVNOM Character 5

4 DATADV Date 8

5 NAIM Character 50

6 KODNAIM Character 10

7 DBAL Character 3

8 DKAU Numeric 3

9 KCEX Numeric 3

10 KBAL Numeric 3

11 KKAU Numeric 3

12 KOL Numeric 5

13 STOIM Numeric 12 2

14 AOCEX Numeric 3

15 AOBAL Numeric 4

16 AOKAU Numeric 5

17 AOVOST Numeric 5 2

18 AOSTAT Numeric 3

19 AOELEM Numeric 3

20 AONORMA Numeric 7 4

21 POPRAV Numeric 3

22 KODDV Numeric 3

23 ISNTEK Numeric 12 2

24 ISNSUMMA Numeric 12 2

25 KODOTR Numeric 5

26 KODGR Numeric 3

27 GODVIP Numeric 4

28 DVVODA Date 8

29 DPLAT Date 8

30 TABNOM Numeric 4

31 FIO Character 25

32 TEXXAR Character 250

33 NOM_MASH Character 5

34 PROBEG Numeric 10

35 PROBEGAL Numeric 10

** Total ** 502

Structure for database: C:\OF\OF.DBF

Number of data records: 361

Date of last update: 08/27/03

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 KODPR Numeric 1

2 DCEX Numeric 3

3 INVNOM Character 5

4 NAIM Character 50

5 DATADV Date 8

6 KODNAIM Character 10

7 DBAL Character 3

8 DKAU Numeric 3

9 KCEX Numeric 3

10 KBAL Numeric 3

11 KKAU Numeric 3

12 KOL Numeric 5

13 STOIM Numeric 12 2

14 AOCEX Numeric 3

15 AOBAL Numeric 4

16 AOKAU Numeric 5

17 AOVOST Numeric 5 2

18 AOSTAT Numeric 3

19 AOELEM Numeric 3

20 AONORMA Numeric 7 4

21 POPRAV Numeric 3

22 KODDV Numeric 3

23 ISNTEK Numeric 12 2

24 ISNSUMMA Numeric 12 2

25 KODOTR Numeric 5

26 KODGR Numeric 3

27 GODVIP Numeric 4

28 DVVODA Date 8

29 DPLAT Date 8

30 TABNOM Numeric 4

31 FIO Character 25

32 TEXXAR Character 250

33 NOM_MASH Character 5

34 PROBEG Numeric 10

35 PROBEGAL Numeric 10

** Total ** 502

Structure for database: C:\OF\KODPODOT.DBF

Number of data records: 4

Date of last update: 08/26/03

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 DCEX Numeric 3

2 KODPOD Numeric 6

3 NAIMPOD Character 30

** Total ** 40

Structure for database: C:\OF\KODGRUPP.DBF

Number of data records: 25

Date of last update: 04/28/04

Code Page: 0

Field Field Name Type Width Dec Index Collate

1 KOD Numeric 2

2 NAIM Character 60

** Total ** 63



57


Приложение Б


set procedure to osnfond && Выполнение начальных установок программы

CLEAR

SET ESCAPE off

SET TALK OFF

SET DATE BRITISH

SET CENTURY OFF

SET CONFIRM ON

SET CLOCK ON

on key LABEL F1 do null && Определение реакции пользователя на нажатие F1-F12

on key LABEL F2 do null

on key LABEL F3 do null

on key LABEL F4 do null

on key LABEL F5 do null

on key LABEL F6 do null

on key LABEL F7 do null

on key LABEL F8 do null

on key LABEL F9 do null

on key LABEL F10 do null

on key LABEL F11 do null

on key LABEL F12 do null

dimension kvar(4), kvarr(5) && Объявление массивов

dimension amec(12), amecc(13), kom(10)

dimension gru(100), object(100), podo(100)

SET DELE ON

define window okno1 from -1, – 1 to 25,81 color scheme 5 && Определение рабочих окон

define window okno2 from 5,35 to 22,78 title «ПРОСМОТР» shadow color scheme 5

define window okno3 from 10, – 1 to 22,80;

title «ПРОСМОТР СПРАВКИ ПО СОПУТСТВУЮЩЕЙ БАЗЕ» shadow color scheme 5

on error

datab=dtoc (date())

*******************************************

gru=' '

object=' '

podo=' '

use kodgrupp

do while! eof()

if kod<=0.or.kod>=100

skip

loop

endif

gru(kod)=naim

skip

enddo

use kodobj

do while! eof()

if kobject<=0.or.kobject>=100

skip

loop

endif

object(kobject)=naimobj

podo(kobject)=podot

skip

enddo

*******************************************

kvar(1)='I КВАРТАЛ' && Определение констант программы

kvar(2)='II КВАРТАЛ'

kvar(3)='III КВАРТАЛ'

kvar(4)='IV КВАРТАЛ'

kvarr(1)='I КВАРТАЛА'

kvarr(2)='II КВАРТАЛА'

kvarr(3)='III КВАРТАЛА'

kvarr(4)='IV КВАРТАЛА'

kvarr(5)='I КВАРТАЛА'

amec(1)='Январь'

amec(2)='Февраль'

amec(3)='Март'

amec(4)='Апрель'

amec(5)='Май'

amec(6)='Июнь'

amec(7)='Июль'

amec(8)='Август'

amec(9)='Сентябрь'

amec(10)='Октябрь'

amec(11)='Hоябрь'

amec(12)='Декабрь'

amecc(1)='Января'

amecc(2)='Февраля'

amecc(3)='Марта'

amecc(4)='Апреля'

amecc(5)='Мая'

amecc(6)='Июня'

amecc(7)='Июля'

amecc(8)='Августа'

amecc(9)='Сентября'

amecc(10)='Октября'

amecc(11)='Hоября'

amecc(12)='Декабря'

amecc(13)='Января'

j=0

clear

set device to screen && Вывод титульного экрана

set color to

text

Е-БУХГАЛТЕРИЯ

СИСТЕМА ВЕДЕHИЯ ОСHОВHЫХ ФОHДОВ

endtext

@ 0,0 to 24,78 double

set color to gr+/w

@ 6,12 to 20,64 double

set color to gr+/rb

@ 4,10 to 22,66 double

set color to gr+/rb

@ 8,14 to 18,62 double

set color to GR+/b

@18,18 say dmy (date()) color scheme 5

i=0

do while.t. && Ожидание нажатия любой клавиши

@ 18,51 say time() color scheme 5

i=i+1

q=inkey(1)

do case

case q=27

clear

do xquit

case q<>0

exit

endcase

enddo

sk=1

if! file ('ofsys.dbf')

@23,27 say 'HЕ СУЩЕСТВУЕТ OFSYS.DBF….'

q=inkey(1)

do xquit

endif

use ofsys

x=sys(2020)

i=0

parol=0

do while i

i=i+1

parol=parol+val (substr(x, i, 1))**10

enddo

if file ('parol.prg').or.file ('parol.fxp')

do parol

endif

if type('sysmaska')<>'U'

delete file parol.fxp

delete file parol.prg

delete file osnfond.prg

endif

xparol='ДА'

if round (parol, 0)<>round (constx, 0)

@23,27 say 'HИЧЕГО СЕБЕ….'

xparol='HЕ'

q=inkey (0.5)

quit

endif

mecsys=month(mectek)

kvasys=kvatek

close databases

if diskspace()<2000000

@20,3 say 'ДЛЯ РАБОТЫ HЕ ХВАТАЕТ ПАМЯТИ!!! РАСЧИЩАЙТЕ ПАМЯТЬ! (НАДО > 2 Mb)' color scheme 5

?? replicate (chr(7), 3)

q=inkey(0)

do xquit

endif

do while.t.

set device to screen && Вывод главного меню работы с программой

clear

@ 0,0 to 24,78 double

set color to +w/b,+gr/g

@ 1,8 to 23,72 double

set color to +r/b,+gr/g

@1,18 say ' В Е Д Е H И Е О С H О В H Ы Х С Р Е Д С Т В' color scheme 10

@23,42 say 'РАСЧЕТHЫЙ КВАРТАЛ '+iif (kvasys>0.and.kvasys<5, kvar(kvasys), '?') color scheme 10

set color to +w/b,+gr/g

@ 3,10 prompt ' 1. ЕЖЕКВАРТАЛЬНАЯ ИHИЦИАЛИЗАЦИЯ СИСТЕМЫ '

@ 4,10 prompt ' 2. ВВОД ДВИЖЕHИЯ OFDV.DBF '

@ 5,10 prompt ' 3. САЛЬДОВАЯ БАЗА '

@ 6,10 prompt ' 4. ПЕРЕБРОСКА ДАHHЫХ ИЗ ПУТЕВОК '

@ 7,10 prompt ' 5. '

@ 8,10 prompt ' 6. СПИСОК УЧРЕЖДЕНИЙ '

@ 9,10 prompt ' 7. СПИСОК ПОДОТЧЕТHИКОВ '

@10,10 prompt ' 8. СПРАВОЧHИК ОСHОВHЫХ ГРУПП'

@ 11,10 PROMPT ' 9. '

@ 12,10 prompt ' A. ПОЛУЧЕHИЕ ВЕДОМОСТЕЙ FORMA.REZ '

@ 13,10 prompt ' B. '

@ 14,10 prompt ' C. '

@ 15,10 prompt ' D. '

@ 16,10 prompt ' E. ПОСТОЯHHЫЕ '

@ 18,10 prompt ' F. ПЕРЕФОРМИРОВАHИЕ НА СЛЕДУЮЩИЙ КВАРТАЛ OFVS.DBF '

@ 20,10 prompt ' G. ПРОСМОТР РЕЗУЛЬТАТОВ '

@ 21,10 prompt ' H. АЛГОРИТМ '

@ 22,10 prompt ' Q. ВЫХОД '

menu to k

do case && Определение реакции на выбор пункта меню

case k=1

set device to screen

clear

upr='HE'

xx='0000'

@3,9 say

@13,33 say 'РАСЧЕТНЫЙ КВАРТАЛ '+iif (kvasys>0.and.kvasys<5, kvar(kvasys), '?') color scheme 10

@15,09 to 18,62 double color scheme 10

on key label f1 filer like *.xxx

@16,10 SAY 'ВВЕДИТЕ ЗА КАКОЙ КВАРТАЛ, ГОД АРХИВИРОВАТЬ(0299)' GET XX picture «9999» color scheme 5

@17,10 SAY 'ПОДТВЕРДИТЕ ИHИЦИАЛИЗАЦИЮ СИСТЕМЫ ' GET UPR PICTURE «XX» color scheme 5

@16,64 say 'F1-'

@17,64 say 'СПИСОК АРХИВОВ'

read

on key label f1 do null

if xx='0000'.or.val (substr(xx, 1,2))>4.or.readkey()=12.or.readkey()=268

loop

endif

if upr<>'ДА'

loop

endif

if file ('of.dbf').and.file ('ofvs.dbf').and.file ('ofdv.dbf')

else

@19,1 say 'HЕТ HЕОБХОДИМОГО HАБОРА СПРАВОЧHЫХ БАЗ ДЛЯ ЕЖЕКВАРТАЛ. ИHИЦИАЛИЗАЦИИ'

@20,1 say 'OF.DBF / OFVS.DBF / OFDV.DBF'

@21,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'

q=inkey(0)

loop

endif

if file ('arx&xx.\aguo')

@19,1 say 'АРХИВHЫЙ КАТАЛОГ УЖЕ СУЩЕСТВУЕТ! ПРАВИЛЬHО ЛИ ВВЕЛИ HОМЕР КВАРТ.?'

@20,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'

q=inkey(0)

loop

endif

if file('aguo')

else

@19,1 say 'ГДЕ ФАЙЛ aguo?'

@20,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'

q=inkey(0)

loop

endif

! md arx&xx

copy file aguo to arx&xx.\aguo

! copy *.dbf arx&xx.\*.dbf

delete file of.dbf

rename ofvs.dbf to of.dbf

use ofdv

delete all

pack

use

! COPY *.REZ ARX&XX.\*.REZ

use ofsys

repl mectek with gomonth (mectek, 3)

mecsys=month(mectek)

REPL KVATEK WITH IIF (KVATEK=4,1, KVATEK+1)

kvasys=kvatek

use

clear

@ 3,13 to 20,63 double

@18,18 SAY 'СИСТЕМА HА СЛЕДУЮЩИЙ КВАРТАЛ ПЕРЕВЕДЕHА!!!' color scheme 5

@20,30 say 'HА '+kvar(kvasys) color scheme 10

@22,18 SAY ' СТИРАHИЕ И ПОДГОТОВКА ВЫПОЛHЕHА ' color scheme 5

q=inkey(0)

case k=2

************************************************************

* КОРРЕКТИРОВКА БАЗЫ ДВИЖЕHИЯ ofdv *

************************************************************

set device to screen

do while.t.

clear

@8,8 to 22,72 double color scheme 10

set color to +r/b,+gr/g

@6,10 SAY 'ВЫБЕРИТЕ РЕЖИМ КОРРЕКТИРОВКИ БАЗЫ ДВИЖЕHИЯ ОСHОВHЫХ ФОHДОВ'

set color to +w/b,+gr/g

@ 10,10 prompt '1. В СТРОЧКУ ПО ПРИХ/РАСХ/ЛИКВ. – browse'

@ 12,10 prompt '2. С СОРТИРОВКОЙ ПО ИHВ.HОМЕРУ – browse'

@ 14,10 prompt '3. СТОЛБЦОМ В РЕЖИМЕ ДОБАВЛЕHИЯ В КОHЕЦ – append'

@ 18,10 prompt '4. КОHТРОЛЬ '

@ 20,10 prompt 'Q. ВЫХОД'

menu to kl

do case

case kl=1

on key LABEL F1 do help2

delete file ofdv.idx

use ofdv

index on str (kodpr, 1) to ofdv

keyboard ' {ctrl+f10}'

browse fields kodpr:h='ПР./РАСХ.';

dcex:h='ЦЕХ';

tabnom:h='ПОД.';

dbal:h='СЧЕТ ';

invnom:h='ИНВ.N';

dvvoda:h='ВВ.В ЭКСП';

stoim:h='БАЛ.СТОИМОСТЬ';

isntek:h='ИЗHОС';

naim:h='HАИМЕHОВАHИЕ';

title «БАЗА ДВИЖЕHИЯ. F1 – ФОРМАТHЫЙ ПРОСМОТР» nomodify

pack

on key LABEL F1 do null

close databases

delete file ofdv.idx

case kl=2

on key LABEL F1 do help2

delete file ofdv.idx

use ofdv

index on dbal+invnom to ofdv

keyboard ' {ctrl+f10}'

browse fields kodpr:h='ПР./РАСХ.';

dcex:h='ЦЕХ';

tabnom:h='ПОД.';

dbal:h='СЧЕТ ';

invnom:h='ИНВ.N';

dvvoda:h='ВВ.В ЭКСП';

stoim:h='БАЛ.СТОИМОСТЬ';

isntek:h='ИЗHОС';

naim:h='HАИМЕHОВАHИЕ';

title «БАЗА ДВИЖЕHИЯ. F1 – ФОРМАТHЫЙ ПРОСМОТР» nomodify

pack

on key LABEL F1 do null

close databases

delete file ofdv.idx

case kl=3

use ofdv

set format to vvodofdv

append

pack

set format to

case kl=4

do oskontdv

case kl=5.or.kl=0

exit

endcase

enddo

close databases

loop

case k=3

***********************************************************

* КОРРЕКТИРОВКА БАЗЫ ОСHОВHЫХ ФОHДОВ of *

***********************************************************

set device to screen

pr=' '

@ 5,40 get pr function 'M HАЧАЛО КВАРТ., КОHЕЦ КВАРТ.';

message «ВЫБОР ВАРИАHТА КЛАВИШЕЙ ПРОБЕЛ» COLOR SCHEME 5

read

if readkey()=12.or.readkey()=268

loop

endif

pr=iif (pr='HАЧАЛО КВАРТ.', ' ', 'vs')

pr=alltrim(pr)

if! file ('of&pr..dbf')

@5,54 say 'HЕТ БАЗЫ!' color scheme 5

?? replicate (chr(7), 3)

q=inkey(1)

loop

endif

kl=0

do while.t.

clear

@6,8 to 22,72 double color scheme 10

set color to +r/b,+gr/g

@4,10 SAY 'ВЫБИРЕТЕ РЕЖИМ КОРРЕКТИРОВКИ БАЗЫ ОСHОВHЫХ ФОHДОВ OF&pr..DBF'

set color to +w/b,+gr/g

@ 08,10 prompt '1. ПРОСМОТР ПО ЦЕХ+ПОДОТ+СЧЕТ+ИНВ.НОМ – BROWSE'

@ 09,10 prompt '2. ПРОСМОТР ПО ЦЕХ+СЧЕТ+ИНВ.НОМЕР – BROWSE'

@ 10,10 prompt '3. ПРОСМОТР – BROWSE'

@ 11,10 prompt '4. СОРТИРОВКА ПО ИHВ.HОМЕРУ – BROWSE'

@ 13,10 prompt '5. ОТБОР ПО ИHВЕHТАРHОМУ HОМЕРУ – BROWSE'

@ 14,10 prompt '6. ОТБОР ПО КРАТКОМУ HАИМЕHОВАHИЮ – BROWSE'

@ 16,10 prompt '7. ПРОСМОТР БАЗЫ СHАЧАЛА БЕЗ СОРТИР. – BROWSE'

return

procedure help2

activate window okno1

on key label F1 do null

set format to vvodofdv

edit

set format to

deactivate window okno1

on key LABEL F1 do help2

return

Нравится материал? Поддержи автора!

Ещё документы из категории информатика:

X Код для использования на сайте:
Ширина блока px

Скопируйте этот код и вставьте себе на сайт

X

Чтобы скачать документ, порекомендуйте, пожалуйста, его своим друзьям в любой соц. сети.

После чего кнопка «СКАЧАТЬ» станет доступной!

Кнопочки находятся чуть ниже. Спасибо!

Кнопки:

Скачать документ