Размещено на http://www.allbest.ru/

Министерство образования Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

"Тюменский государственный нефтегазовый университет"

Институт менеджмента и бизнеса

Кафедра "Математические методы в экономике"

КУРСОВАЯ РАБОТА

По курсу: Объектно-ориентированный анализ и программирование

На тему: "Автоматизированная система планирования и контроля доходной части бюджета "Департамента социального развития ХМАО-Югры""

Выполнил: Ст. гр. ЭБб 11-1

Прусак А. В.

Руководитель: Наурусова Г.А.

Тюмень 2013 г.

Содержание

• Введение
• Глава1. Исследование автоматизированной системы планирования и контроля доходной части бюджета
• 1.1 Основные элементы автоматизированной системы планирования и контроля доходной части бюджета
• 1.2 Исследование системы планирования и контроля доходной части бюджета "Департамента социального развития ХМАО-Югры"
• Глава2. Создание и разработка программы автоматизированной системы планирования и контроля доходной части бюджета
• 2.1 Техническое задание
• 2.2 Использование Microsoft Office Access и технологии ADO в Delphi для связи база данных с программой
• 2.3 Описание структуры программы
• 2.4 Результаты работы программы
• Заключение
• Список используемой литературы
• Приложение

Введение

Департамент социального развития Ханты-Мансийского автономного округа - Югры является исполнительным органом государственной власти. Осуществляет функции по ведению государственной политики и нормативно-правовому регулированию. Оказывает муниципальные услуги в сферах общественного и социального развития, включающие в себя социальную защиту населения, государственное пенсионное обеспечение лицам, замещавшим государственные должности автономного округа, опеку и попечительство, обеспечение жилыми помещениями детей-сирот и детей, оставшихся без попечения pодителей, лиц из числа детей-сирот и детей, остaвшихся без попечения родителей, не имеющих закрепленного жилого помещения.

Весь объем расходов, направленных на финансовое снабжение системы социальной защиты населения автономного округа, в 2011 году составил 15 408,3 млн. рублей, что на 17,7 % больше 2010 года (13 100,8 млн. рублей); из них: исполнение расходов Депсоцразвития Югры, утвержденных Законодательством Ханты-Мансийского автономного округа - Югры от 29.10.2011 №208-ОЗ "О бюджете Ханты-Мансийского автономного округа на 2011 год и на плановый период 2012-2013 годов" в 2011 году составило 14 504,1 млн. рублей, либо 99,0% от уточненного плaна на 2011год. По сравнению с 2010 годом подобные расходы увеличились на 2 175,8 млн. рублей, или на 17,7% (в 2010 году - 12 328,3 млн. рублей).

В настоящее время внутренний контpоль за бюджетом Департамента социального развития ХМАО-Югры исполняется отделом бюджетного планирования и экономики госудaрственных учреждений управления экономики и развития отрасли. В распоряжении этого отдела располагается только Прикладное программное обеспечение "Автоматизиpованная система обработки информации" (ППО АСОИ). По состоянию на 01.01.2011 в ППО АСОИ на учете числятся более 920 тыс. личных дел граждан, не считая архивных. В течение 2010 года сpедствами ППО АСОИ осуществлено ежемесячное начисление социальных выплат гражданам по 734 тысячам пластиковых карточек выплат, по 71 виду выплат. В автоматизированном режиме фоpмируется областной pегистр получателей мер социальной поддержки, включающий по состоянию на 01.01.2011 информацию по 109 тыс. гражданам, а также другая аналитическая информация для принятия управленческих pешений.

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

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

Предметная область:

Объект - Доходная часть бюджета Департамента социального развития ХМАО-Югры.

Предмет - Автоматизация системы планирования и контроля доходной части бюджета "Департамента социального развития ХМАО-Югры".

Входные данные - Денежные средства поступающие на счета организации от государственных органов и частных инвесторов.

Выходные данные - Данные о планировании и контроле доходной части бюджета "Департамента социального развития ХМАО-Югры".

Цель работы - Разработка программного продукта для автоматизированного контроля и планирования доходной части бюджета Департамента социального развития ХМАО-Югры.

Задачами работы является:

1. Исследование системы планирования и контроля доходной части бюджета "Департамента социального развития ХМАО-Югры"

2. Разработка автоматизированной системы планирования и контроля доходной части бюджета "Департамента социального развития ХМАО-Югры"

Глава 1. Исследование автоматизированной системы планирования и контроля доходной части бюджета

1.1 Основные элементы автоматизированной системы планирования и контроля доходной части бюджета

Бюджемт (от старонормандского bougette -- кошелёк, сумка, кожаный мешок, мешок с деньгами) -- методика доходов и расходов субъекта( определённого лица, семьи, организации, бизнеса, государства и т. д.), устанавливаемая на определённый период времени. Изучением бюджета занимается наука финансы. Бюджет -- это важнейшая концепция, как в микроэкономике, так и в макроэкономике (государственный бюджет). [1]

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

Деятельность государства по формированию, утверждению, рассмотрению, исполнению бюджета, а также составлению и утверждению отчёта об его исполнении (формулировка касается бюджетов всех уровней, входящих в бюджетную систему РФ) называется бюджетный процемсс.[1]

В бюджетную систему Российской Федерации входят бюджеты следующих видов:

· Бюджеты муниципальных образований (местные бюджеты)

· Федеральные бюджеты

· Бюджеты субъектов Российской Федерации (региональные бюджеты)

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

Доход pегионального бюджета образуются за счет различных видов дохода: налоговых и неналоговых видов доходов, а также за счет пожертвований.

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

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

Основные направления использования средств региональных бюджетов:

1. обеспечение нормального функционирования органов законодательной и исполнительной власти субъектов РФ;

2. обслуживание и погашение государственного долга субъектов РФ;

3. реализации региональных целевых программ;

4. обеспечение формирования государственной собственности субъектов РФ;

5. реализация осуществления международных и внешнеэкономических связей субъектов РФ;

6. обеспечение деятельности средств массовой информации субъектов РФ;

7. оказание финансовой помощи местным бюджетам;

8. осуществление отдельных государственных полномочий, передаваемых на муниципальный уровень;

Автоматизированная система (сокращённо АС) -- Это комплекс аппаратных и программных средств, предназначенный для управления различными процессами в рамках технологического процесса, производства, предприятия. Автоматизированные системы имеют спрос в разных отраслях промышленности, энергетике, транспорте и т. п. Термин "автоматизированная", в отличие от термина "автоматическая" выделяет сохранение за человеком-оператором некоторых функций, либо наиболее общего, целеполагающего характера, либо не поддающихся автоматизации. АС с Системой поддержки принятия решений(СППР), являются основным инструментом повышения обоснованности управленческих решений.[1]

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

Система включает в себя основной орган принятия решений - Бюджетный комитет, определяющий общие приоритеты управления деятельностью предприятий. Бюджетный комитет разсредотачивает материальные и финансовые ресурсы меж центров финансовой ответственности или учета (ЦФО или ЦФУ). Когда строится система, основная задача заключается в том что бы разработать корректную структуру центров финансовой ответственности (учета). Для каждого из ЦФУ необходимо присвоить ряд целевых показателей. Так же важно обеспечить их связь между собой и с общими стратегическими целями.

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

Программные продукты выполняющие эти задачи:

bb workspace

Система bb workspace - это комплексная системa электронного документооборота и контроля бюджета с человеко - ориентированной архитектурой HOA (Human Oriented Architecture).

Систему bb workspace относят к классу ECM-систем (Enterprise Content Management). В свою очередь она поддеpживает полный жизненный цикл упpавления документацией от создания и pегистрации, до архивного хранения в отдельных базах данных за каждый календарный год. Комплексная системе bb-workspace pеализована STP-технология прозрачной обработки информации (Straight-Through Processing) и функция BPM-системы (Business Performance Management - управление эффективностью бизнеса).

Большинство программ для автоматизации документооборотa (СЭД) в России создавались под узкоспециализированную задачу конкретного заказчика, после чего такая СЭД предлагалась к установке другим организациям с минимальными доработками.

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

Миссия компании - предоставление комплексного программного продукта и услуг по технической поддержке, направленных на повышение качества управления.

Недостатки :

1. Так как система относительно новая, имеется множество проблем с сопровождением данного продукта

2. Не большое количество учебной литературы, помогающий в пользовании программы .[2]

Фирма "1С"

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

1С:Предприятие -- прикладная программa, служит для комплексной автоматизации различных видов анализа и учета, финансово-экономического анализа на предприятии любой сферы деятельности и любой организационной структуры. Программа имеет способность адаптироваться к особенностям любой конкретной области деятельности путём задействования различных конфигураций (прикладного решения). Так же она имеет способность работать в двух режимах: пользовательском и конфигурирования. В режиме конфигурирования программа имеет широкий набор механизмов позволяющих разработать необходимую конфигурацию с нуля, либо подстройки некой стандартной конфигурации под нужды конкретного предприятия. В число этих механизмов входят встроенный язык программирования 1C с закрытым исходным кодом, а также множество визуальных средств разработки.

Таким образом, термином "1С:Предприятие" принято обозначать и технологическую платформу, и пользовательский режим работы на ней. Эта технологическая платформа предоставляет объекты (данных и метаданных) и механизмы управления объектами. А совокупность объектов (данных и метаданных), а также связей между ними, задаваемых программистом, представляет собой конфигурацию. При автоматизации какой-либо деятельности разрабатывается оределенная конфигурация объектов, и связей между ними (либо приобретается стандартная, с последующей ручной подстройкой). Они задаются программно, которые и представляют собой законченное прикладное решение. Конфигурация задаётся в специальном режиме работы программного продукта под названием "Конфигуратор", который позволяет при разработке в срочном порядке проверять её работоспособность в режиме "1С:Предприятие", осуществляя отладку. Пользователь же имеет возможность работать исключительно в режиме "1С:Предприятие", в котором получают доступ ко всем функциям (сообразно правам каждого конкретного пользователя), реализованным в данном прикладном решении (конфигурации).[3]

Недостатки:

1. Довольно часто возникают проблемы с обменом данными

2. Имеется ограничение продажи программных продуктов системы "1С:Предприятие 7.7"

Абсолютно все базовые конфигурации "1С" являются полуфабрикатами, которые и идут по цене полуфабрикатов. Вот они -- недостатки 1с. И никуда от них не деться. Поэтому они, собственно, такие дешевые. Так же стоит заметить, что "1С"- не самая дешевая система на рынке. Конечную совокупную цену рабочего места можно оценить в 150-500 долларов, что вполне сравнимо с продвинутыми "настроечными" системами для среднего бизнеса.

1.2 Исследование системы планирования и контроля доходной части бюджета "Департамента социального развития ХМАО-Югры"

автоматизированный microsoft delphi программа

На прошедший 2012 год известно, что во всем Ханты-Мансийском автономном округе - департаменты, учреждения фактически все работают на одной программе от Департамента финансов и от Казначейства - это УРМ АС "Бюджет" (Удаленное рабочее место автоматизированная система "Бюджет") АП СЭД-Система электронного документооборота казначейство.

Автоматизированная Система "УРМ"

НПО "Криста" предполагает, что вся документация используемая пользователем (как печатная, так и записанная на дисках), приложенная к программе, уже содержит необходимую информацию для ее использования. Тем не менее компания, оставляет за собой право пеpиодически вносить поправки и (или) изменения в документацию пользователя без пpямого или косвенного обязательства уведомлять кого-либо о таких поправках или изменениях. За исключением ограниченной гарантии, включенной в действующее Лицензионное соглашение по программному обеспечению, приложенной к данному продукту. Документация пользователю поставляется "такой, какая она есть". Так же компания на предлагает никакое патентное обязательство по отношению к использованию содержащейся информации. Однако пpи подготовке данного описания были приняты меры предосторожности, при этом НПО "Криста" не предполагает никакой ответственности за ошибки и пропуски. Также не предполагается никакой ответственности за повреждения, обусловленные использованием предлагаемой информации.[4]

Но эта система имеет множество недочетов:

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

"Криста" в принципе должна понимать платежки, выгруженные в формате ФК-2006-01. Но, во-первых, в этом формате номер счета только 11 знаков, а в "Кристе" в некоторых регионах странны 12 знаков.

В "Кристе" при добавлении банков в справочник нет никакой проверки на повторения. В итоге справочник банков забит дублями по самое немогу. При загрузке из файла платежек "Криста" просто не может определить, к какому из банков с совпадающими БИК и корсчетами отнести платеж и не принимает платежку.

Если в программе УРМ есть несколько организаций с одинаковым ИНН и разными КПП, то на каждый документ платежное поручение, необходимо из представленного списка организаций выбирать нужное. При небольшом объеме документов это не сложно, но когда их более 50, пользователь может ошибиться.

Для обмена между УРМ и 1С необходимо использовать программный продукт АРМ "Шлюз".

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

Сбор информации.(Ввод информации о всех финансовых поступлениях)

1. Хранение данных.

2. Учет данных.(Расчет сумм прихода, расчет сумм расхода, расчет остатка средств)

3. Контроль.(Фактически выполнение поиска с группировкой)

4. Составление отчетов.(Сводный отчет) [5]

Глава 2. Создание и разработка программы автоматизированной системы планирования и контроля доходной части бюджета

2.1 Техническое задание

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

"Автоматизированная система планирования и контроля доходной части бюджета "Департамента социального развития ХМАО-Югры""

Назначение и область применения:

Программный продук предназначена для создания, управления содержимым базы данных, содержащим следующие данные:

· Справочник организаций осуществляющих перевод денежных средств на счет департамента

· Список отделов в которые распределяются средства

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

· Информация о расходах

Программный продукт предоставляет удобный интерфейс для управления содержимым базы данным в соответствии с предъявляемыми требованиями по протоколу

Требования к программному продукту :

Требования к функциональным характеристикам:

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

· Пользователь должен иметь возможность вносить и удалять данные в БД

· Пользователь должен иметь возможность выполнять расчеты сумм прихода, расхода а так же остатка денежных средств

· Пользователь должн иметь возможность вывода и печати требуемого отчета

Требования к надежности:

Требования к обеспечению надежного функционирования программы:

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

а) организация бесперебойного питания технических средств;

б) использование лицензионного программного обеспечения;

в) регулярно выполнением рекомендаций Министерства труда и социального развития РФ, изложенных в Постановлении от 23 июля 1998 г. Об утверждении межотраслевых типовых норм времени на работы по сервисному обслуживанию ПЭВМ и оргтехники и сопровождению программных средств";

г) регулярное выполнение требований ГОСТ 51188-98. Защита информации. Испытания программных средств на наличие компьютерных вирусов

Время восстановления после отказа:

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

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

Отказы из-за некорректных действий пользователей системы:

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

Требования к квалификации и численности персонала:

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

а) поддержание работоспособности технических средств;

б) установка (инсталляции) и поддержания работоспособности системных программных средств -- операционной системы;

в) установка (инсталляции) программы.

г) создание резервных копий базы данных.

Требования к составу и параметрам технических средств:

Одним из важнейших требований к техническим средствам должено быть наличие IВМ-совместимый персональный компьютер (ПЭВМ), выполняющий роль сервера, включающий в себя:

процессор Pentium-2.0Hz, не менее;

оперативную память объемом, 1Гигабайт, не менее;

HDD, 40 Гигабайт, не менее;

операционную систему Windows 2000 Server или Windows 2003;

операционную систему Windows 2000 Server или Windows 2003;

Microsoft Access.

Требования к информационным структурам и методам решения:

База данных работающая под управлением Microsoft Access. Используемый много-поточный доступ к базе данных. Необходимо обеспечение одновременной работы программы с той же базой данной модулей экспорта внешних данных

Перечень таблиц и типов данных:

Справочник организаций осуществляющих перевод денежных средств на счет департамента - Organization

Рисунок 1

Список отделов в которые распределяются деежные средства - otdeli_departamenta

Рисунок 2

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

Рисунок 3

Информация о расходах - rashod



Рисунок 4

Требования к запросам пользователей данных из базы:

Пользователь и администратор работают с базой данных с помощью удобного интерфейса.

Администратор системы должен иметь возможность редактирования таблицы (добавление, редактирование)

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

Стадии и этапы разработки:

Этапы разработки:

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

На стадии рабочего проектирования должны быть выполнены перечисленные ниже этапы работ:

разработка программы;

разработка программной документации;

испытания программы.

Содержание работ по этапам:

На этапе разработки технического задания должны быть выполнены перечисленные ниже работы:

постановка задачи;

определение и уточнение требований к техническим средствам;

определение требований к программе;

определение стадий, этапов и сроков разработки программы и документации на неё;

согласование и утверждение технического задания.

На этапе разработки программы должна быть выполнена работа по программированию (кодированию) и отладке программы.

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

На этапе испытаний программы должны быть выполнены перечисленные ниже виды работ:

разработка, согласование и утверждение и методики испытаний;

проведение приемо-сдаточных испытаний;

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

2.2 Использование Microsoft Office Access и технологии ADO в Delphi для связи база данных с программой

Microsoft Office Access

Для более удобного сбора данных на первом этапе планируется создать базу данных Microsoft Office Аccess 2007

Microsoft Office Access, или просто Microsoft Access -- реляционная СУБД разработанная корпорацией Microsoft. Ms Access - имеет широкий спектр функций, включающий связанные запросы, связь с внешними таблицами и базами данных. Благодаря встроенному языку VBA, в Access можно писать приложения, работающие с базами данных.[1]

Access, при работе с базой данных, иначе взаимодействует с жёстким (или гибким) диском, нежели другие программы.

В остальных программах, файл-документ, при открытии, полностью загружается в оперативную память, и новая редакция этого файла (изменённый файл) целиком записывается на диск только при нажатии кнопки "сохранить".

В Access каждая новая pедакция содержимого выбранной ячейки таблицы записывается на диск (сохраняется) сразу, как только курсор клавиатуры будет помещён в другую ячейку (или новая редакция изменённой записи записывается на диск сразу, как только курсор клавиатуры будет поставлен в другую запись (строку)). Следственно, если вдруг внезапно отключат электричество, то пропадёт только изменение той записи, которую не успели покинуть.

Целoстность данных в Access обеспечивается также за счет механизма тpанзакций.

Кнопка "Сохранить" в Access тоже есть, нo в Access в режиме просмотра данных она практически не нужна, в первую очередь она служит для сохранения изменённого режима вида таблицы или другого объекта -- то есть, для сохранения таких изменений, как:

· изменение ширины столбцов и высоты строк

· перестановка местами столбцов в режиме просмотра данных "закрепление" столбцов и освобождение закреплённых столбцов

· изменение сортировки

· применение нового фильтра

· изменение шрифта, цвета текста, сетки и фона и т. п.

К тому же, в Access эта кнопка необходима в режиме "Конструктор" для сохранения изменений структуры объекта базы данных, сделанных в этом режиме.

Уход за базой данных

Если же в процессе работы с файлом базы данных не применялся режим "Конструктор" и новые данные в базу не добавлялись, то есть если база данных только просматривалась, файл базы данных склонен к тенденции со временем, в процессе работы с ним, всё больше и больше увеличиваться в размере. Это естественно очень способствует увеличению размера файла применение новых сортировок и фильтров (особенно если было применено несколько разных, сильно отличающихся друг от друга сортировок/фильтров).

При увеличении размера файл является, фактически, пустотым, но эта пустота лежит внутри файла, увеличивая его объём.

Чтоб вернуть файлу базы данных нормальный (минимальный) объём, в Access имеется кнопка "Сжать и восстановить базу данных" -- эту кнопку необходимо время от времени нажимать (при нажатии этой кнопки никакая информация и никакие данные из файла базы данных не удаляются). Разумеется, базу данных можно запустить с параметром /compact, что выполнит сжатие автоматически и закроет базу по окончании процесса.

База будет содержать 4 таблицы:

Справочник организаций осуществляющих перевод денежных средств на счет департамента (Organization).

Рисунок 5

Список отделов в которые распределяются средства (otdeli_departamenta).

Рисунок 6

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

Рисунок 7

Информация о расходах (rashod).

Рисунок 8

Со схемой данных можно ознакомиться на рисунке 9.

Рисунок 9

Использование ADO средствами Delphi

Вместе с всем привычными инструментами доступа к данным Borland Database Engine и ODBC в приложениях Delphi возможно применять технологию Microsoft ActiveX Data Objects (ADO), которая основывается на возможностях СОМ,интерфейсов OLE DB. Данная технология заполучила популярность у разработчиков, благодаря своей универсальности -- базовый набор интерфейсов OLE DB имеется в каждой современной операционной системе Microsoft. Поэтому для обеспечения доступа приложения к данным достаточно будет только лишь правильно указать провайдер соединения ADO и затем переносить программу на любой компьютер, где имеется необходимая база данных и, конечно, установленная ADO. Палитра компонентов Delphi имеет страницу ADO, которая содержит набор компонентов, позволяющих создавать полноценные приложения БД, обращающиеся к данным через ADO.

Технология Microsoft ActiveX Data Objects позволяет обеспечить универсальный доступ к источникам данных из приложений баз данных. Подобную возможность предоставляют функции набора интерфейсов, которые созданные на основе общей модели объектов СОМ и описанные в спецификации OLE DB. Технология ADO и интерфейсы OLE DB обеспечивают для приложений единый способ доступа к источникам данных различных типов. Например, приложение, использующее ADO, может применять одинаково сложные операции к электронным таблицам, к данным, хранящимся на корпоративном сервере SQL, и локальным СУБД. Запрос SQL, который направлен любому источнику данных через ADO, будет выполнен. Возникает вопрос: каким образом источники данных смогут выполнить этот запрос? Не стоит беспокоиться за серверы БД, обработка запросов SQL -- это их основная обязанность. Как быть с файловыми последовательностями, электронными таблицами, файлами электронной почты и т. д.? В этом случае на помощь нам приходят механизмы ADO и интерфейсы OLE DB. OLE DB - это набор специализированных объектов СОМ, инкапсулирующие стандартные функции обработки данных, и специализированные функции конкретных источников данных и интерфейсов, которые обеспечивают передачу данных между объектами. Согласно терминологии ADO, различные источники данных (база данных, электронная таблица, файл) называются хранилищем данных, с которыми при помощи провайдера данных взаимодействует приложение. Минимальный набор компонентов приложения может включать в себя объект соединения, объект набора данных, объект процессора запросов.

Распространённой задачей, которую решают приложения работающие с базами данных, является поиск различных записей по заданному критерию. В Delphi, компоненты ADOExpress включают в себя методы поиска записей, которые аналогичны тем, что используются в BDE. С архитектурой компонентов АDO можно ознакомится на рисунке 10.

По набору возможностей ADO напоминает BDE, хотя, и является гораздо более мощным инструментом. Компания Borland разработала набор компонентов для доступа к ADO и первоначально назвала его ADOExpress. Однако поскольку корпорация Microsoft упорно противится использованию своих обозначений в продуктах сторонних разработчиков, поэтому, начиная с Delphi 6, этот набор компонентов стал именоваться dbGo. Данные компоненты можно увидеть на вкладке ADO палитры компонентов.

Технология ADO, как и BDE, независима от какого либо конкретного сервера БД. Она имеет поддержку, как локальных баз данных различных типов, так и некоторых клиент-серверных БД. У данной технологии довольно много плюсов. Драйверы, разработанные корпорацией Microsoft для собственных нужд, гораздо более надежные, чем драйверы сторонних производителей. Поэтому если пользователю требуется работать с базами данных MS Access или для архитектуры клиент-сервеp использовать MS SQL Server, то использование ADO будет наиболее предпочтительным. Кроме того, имеется большой плюс и в вопросе распространения программных продуктов - во всех современных Windows встроены драйверы ADO. Другими словами, программа будет работать на любом ПК, где установлен Windows.

Но и основным минусом является распространение программ. Поскольку корпорация Microsoft каждые пару-тройку лет возникает новые версии Windows,а пользователю обычно нет нужды переходить на свежую ОС, тем более что каждая новая система становится все требовательней к ресурсам ПК. Для того чтобы заставить пользователя перебрести новую версию, корпорация Microsoft в обязательном порядке вводит несколько новых стандартов или технологий, несовместимых со старыми версиями. А для старых версий доработок не предусматривается. Вот и приходится пользователю тратиться на новые версии операционной системы и пакета MS Office. Поэтому при использовании технологии ADO приходится думать о том, какая версия Windows стоит у конечного пользователя, будет ли программа работать у него на ПК.

Рисунок 10

2.3 Описание структуры программы

Form1:TForm1;

c_num:integer;

arredt:array of TEdit; //массив компонентов TEdit

arrlbl:array of tlabel; //массив компонентов Tlabel

bt:tbutton; //переменная для кнопки

procedure TForm1.FormCreate(Sender: TObject); //загрузка таблицы базы данных в DBGrid

var i:integer;

SL:String;

index: Integer;

begin

ADOConnection1.GetTableNames(tablebox.items, False);

tablebox.ItemIndex:=0;

view(adoquery1,tablebox); //изменяем ширину столбцов таблицы

size(dbgrid1);

end;

procedure TForm1.addbtnClick(Sender: TObject); //отображение формы "Добавить"

begin

addform.showmodal;

end;

procedure tform1.dobavlenie(sender: tobject); //добавление данных в таблицу БД

var i:integer;

arr:array of string;

begin

setlength(arr,c_num);

for i:=1 to c_num-1 do

arr[i]:=arredt[i].Text;

case tablebox.ItemIndex of

0:begin{//…..} end;

1:begin{//…..} end;

2:begin{//…..} end;

3:begin{//…..} end;

end;

for i:=0 to c_num-1 do

begin

arredt[i].Free;

arrlbl[i].Free;

end;

bt.Free;

end;

begin

adoquery1.SQL.Clear;//расчет дохода за весь период

adoquery1.SQL.Add('select "for", sum(prihod.summa)-sum(rashod.summa) from prihod,rashod ');

ADOQuery1.Active:=true;

size(dbgrid1);

end;

2.4 Результаты работы программы

При запуске программы нам открывается интерфейс программного продукта

Рисунок 11

Мы видим компонент позволяющий выбирать нам необходимую таблицу из списка представленных



Рисунок 12

Так же мы видим многостраничную панель имеющую вкладки

Расчеты

Рисунок 13

Содержащую компоненты позволяющие выполнять предложенные расчеты

Рисунок 14

Отчет

Рисунок 15

Мы имеем возможность запрашивать отчеты как по определенной таблице

Рисунок 16

Так и по выполненным расчетам



Рисунок 17

Так же мы имеем возможность вызвать вкладку Добавить, при нажатии одноименной кнопки

Рисунок 18

На этой вкладке мы имеем возможность вносить данные в любую выбранную таблицу



Рисунок 19

Ниже мы видим кнопку позволяющую удалять данные из выбранной таблицы

Рисунок 20



Рисунок 21

Заключение

В результате выполнения данной курсовой работы были рассмотрены теоретические аспекты разработки программного продукта "Автоматизированная система планирования и контроля доходной части бюджета", а так же значимость темы работы и этапы разработки; а так же изучена система планирования и контроля доходной части бюджета "Департамента социального развития ХМАО-Югры". После всех этапов разработки был получен итоговый программный продукт "Автоматизированная система планирования и контроля доходной части бюджета", позволяющий планировать и контролировать бюджет Департамента социального развития ХМАО-Югры, а так же работать с фильтрами и отчетами по данным.

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

Был произведен тестовый запуск программы и рассмотрение ее работы на основе контрольного примера - Департамента социального развития ХМАО-Югры. Тестовый запуск подтвердил работоспособность программы. Тестирование и отладка позволили выявить и устранить все возможные недостатки и привести программу к конечному для использования виду.

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

Список используемой литературы

1. Свободная энциклопедия "Википедия" http://ru.wikipedia.org/wiki/

2. Официальный сайт компании "bb workspace" http://www.bbsoftware.ru/history.php

3. Свободная энциклопедия "Википедия" http://ru.wikipedia.org/wiki/1%D0%A1:%D0%9F%D1%80%D0%B5%D0%B4%D0%BF%D1%80%D0%B8%D1%8F%D1%82%D0%B8%D0%B5

4. Руководство пользователя. Методические указания. г.Рыбинск, Научно - производственное объединение "Криста". 2008 г.;

5. Официальный сайт компании НПО КРИСТА http://www.krista.ru/products/URM/

6. Электронный учебник http://delphi.support.uz/index.php

7. Бобровский, С.И. Delphi 7. Учебный курс/ С. И. Бобровский - СПб.: Питер, 2004. - 736 с.

8. Культин, Н.Б. Основы программирования в Delphi 7/ Н. Б. Культин - СПб.: БХВ.- СПб, 2003. - 608 с.

9. Фаронов, В.В. Delphi. Программирование на языке высокого уровня: Учебник для вузов/ В. В. Фаронов - СПб.: Питер, 2006. - 640 с.

10. Архангельский, А.Я. 100 компонентов общего назначения библиотеки Delphi / А. Я. Архангельский. -- Москва : Бином, 2002. - 272 с.

Приложение

Листинг программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, Menus,

ExtCtrls, QuickRpt, QRCtrls,unit4;

type

TForm1 = class(TForm)

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

MainMenu1: TMainMenu;

afqk1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

DBGrid1: TDBGrid;

upbtn: TBitBtn;

lastbtn: TBitBtn;

prevbtn: TBitBtn;

nextbtn: TBitBtn;

refreshbtn: TBitBtn;

tablebox: TComboBox;

PageControl2: TPageControl;

SchetSheet: TTabSheet;

othetSheet: TTabSheet;

Previewbtn: TButton;

printbtn: TButton;

addsheet: TTabSheet;

dobbtn: TButton;

prihodGroup: TRadioGroup;

rashodGroup: TRadioGroup;

Edit1: TEdit;

Edit2: TEdit;

rashetbtn: TButton;

dohodGroup: TRadioGroup;

Edit3: TEdit;

deletebtn: TButton;

procedure FormCreate(Sender: TObject);

procedure upbtnClick(Sender: TObject);

procedure lastbtnClick(Sender: TObject);

procedure nextbtnClick(Sender: TObject);

procedure prevbtnClick(Sender: TObject);

procedure refreshbtnClick(Sender: TObject);

procedure addbtnClick(Sender: TObject);

procedure tableboxChange(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure dobbtnClick(Sender: TObject);

procedure rashetbtnClick(Sender: TObject);

procedure dohodGroupClick(Sender: TObject);

procedure rashodGroupClick(Sender: TObject);

procedure prihodGroupClick(Sender: TObject);

procedure PreviewbtnClick(Sender: TObject);

procedure deletebtnClick(Sender: TObject);

procedure DataSource1DataChange(Sender: TObject; Field: TField);

private

{ Private declarations }

procedure dobavlenie(sender: tobject);

public

{ Public declarations }

end;

var

Form1:TForm1;

c_num:integer;

arredt:array of TEdit; //массив компонентов TEdit

arrlbl:array of tlabel; //массив компонентов Tlabel

bt:tbutton; //переменная для кнопки

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure size(grid1:tdbgrid);

var i:integer;

begin

for i := 0 to grid1.Columns.Count-1 do

Grid1.Columns[i].Width:=length(Grid1.Columns[i].Title.Caption)*Grid1.Columns[i].Title.Font.Size*2;

end;

procedure view(query:tadoquery;box:tcombobox);

begin

query.SQL.Clear;

query.SQL.Add('SELECT * FROM '+box.Text+'');

query.Active:=True;

end;

procedure Preview(Grid: TDBGrid);

var

i, CurrentLeft, CurrentTop : integer;

BMark: TBookmark;

begin

tgridreport.GridRep.Dataset:=Grid.DataSource.DataSet;

if not tgridreport.GridRep.Bands.HasColumnHeader then

tgridreport.GridRep.Bands.HasColumnHeader:=true;

if not tgridreport.GridRep.Bands.HasDetail then

tgridreport.GridRep.Bands.HasDetail:=true;

tgridreport.GridRep.Bands.ColumnHeaderBand.Height:=Abs(Grid.TitleFont.Height) + 10;

tgridreport.GridRep.Bands.DetailBand.Height:=Abs(Grid.Font.Height) + 10;

CurrentLeft := 12;

CurrentTop := 6;

BMark:=Grid.DataSource.DataSet.GetBookmark;

Grid.DataSource.DataSet.DisableControls;

try

for i:=0 to Grid.FieldCount - 1 do

begin

if (CurrentLeft + tgridreport.Canvas.TextWidth(Grid.Columns[i].Title.Caption)) >

(tgridreport.GridRep.Bands.ColumnHeaderBand.Width) then

begin

CurrentLeft := 12;

CurrentTop := CurrentTop + tgridreport.Canvas.TextHeight('A') + 6;

tgridreport.GridRep.Bands.ColumnHeaderBand.Height :=

tgridreport.GridRep.Bands.ColumnHeaderBand.Height + (tgridreport.Canvas.TextHeight('A') + 10);

tgridreport.GridRep.Bands.DetailBand.Height :=

tgridreport.GridRep.Bands.DetailBand.Height + (tgridreport.Canvas.TextHeight('A') + 10);

end;

with TQRLabel.Create(tgridreport.GridRep.Bands.ColumnHeaderBand) do

begin

Parent := tgridreport.GridRep.Bands.ColumnHeaderBand;

Color := tgridreport.GridRep.Bands.ColumnHeaderBand.Color;

Left := CurrentLeft;

Top := CurrentTop;

Caption:=Grid.Columns[i].Title.Caption;

end;

with TQRDbText.Create(tgridreport.GridRep.Bands.DetailBand) do

begin

Parent := tgridreport.GridRep.Bands.DetailBand;

Color := tgridreport.GridRep.Bands.DetailBand.Color;

Left := CurrentLeft;

Top := CurrentTop;

Alignment:=Grid.Columns[i].Alignment;

AutoSize:=false;

AutoStretch:=true;

Width:=Grid.Columns[i].Width;

Dataset:=tgridreport.GridRep.Dataset;

DataField:=Grid.Fields[i].FieldName;

CurrentLeft:=CurrentLeft + (Grid.Columns[i].Width) + 15;

end;

end;

tgridreport.GridRep.PreviewModal;

finally

with Grid.DataSource.DataSet do

begin

GotoBookmark(BMark);

FreeBookmark(BMark);

EnableControls;

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject); //загрузка таблицы базы данных в DBGrid

var i:integer;

SL:String;

index: Integer;

begin

ADOConnection1.GetTableNames(tablebox.items, False);

tablebox.ItemIndex:=0;

view(adoquery1,tablebox); //изменяем ширину столбцов таблицы

size(dbgrid1);

end;

procedure TForm1.upbtnClick(Sender: TObject);//перемещение к первой строке таблицы

begin

ADOQuery1.first;

end;

procedure TForm1.lastbtnClick(Sender: TObject); //перемещение к последней строке таблицы

begin

ADOQuery1.Last;

end;

procedure TForm1.nextbtnClick(Sender: TObject);//перемещение на следующую строку таблицы

begin

ADOQuery1.Next;

end;

procedure TForm1.prevbtnClick(Sender: TObject); //перемещение к предыдущей строке таблицы

begin

ADOQuery1.Prior;//

end;

procedure TForm1.refreshbtnClick(Sender: TObject);//обновление данных таблицы

begin

view(adoquery1,tablebox);

end;

procedure TForm1.addbtnClick(Sender: TObject); //отображение формы "Добавить"

begin

addform.showmodal;

end;

procedure TForm1.tableboxChange(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

adoquery1.SQL.Add('SELECT * FROM '+tablebox.Text+'');

ADOQuery1.Active:=True;

case tablebox.itemindex of

3:begin

rashodgroup.Enabled:=false;

end;

4:begin

prihodgroup.enabled:=false;

end;

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

form1.Close

end;

procedure TForm1.N5Click(Sender: TObject);

begin

preview(dbgrid1);

end;

procedure TForm1.dobbtnClick(Sender: TObject);

var a,f,j,i:integer;

begin

addsheet.Visible:=true;

addsheet.TabVisible:=true;

pagecontrol2.TabIndex:=2;

a:=0;f:=0;

c_num:=dbgrid1.Columns.count; //инициализация переменных

SetLength(Arredt,c_num); //задаем размер массива компонентов Edit

for i:=1 to c_num-1 do

begin

arredt[i]:=tedit.create(addsheet); //создаем компонент Edit

with arredt[i] do

begin

parent:=addsheet;

top:=20+a; //отступ от верхнего края формы

left:=10; //отступ от левого края формы

height:=25; //высота

width:=120; //ширина

a:=a+45; //пробел между компонентами Edit

end; end;

SetLength(Arrlbl,c_num); //задаем размер массива компонентов Label

for j:=1 to c_num-1 do

begin

arrlbl[j]:=tlabel.create(addsheet); //создаем компоненты Label

with arrlbl[j] do

begin

parent:=addsheet;

top:=5+f; //отступ от верхнего края формы

left:=10; //отступ от левого края формы

height:=20; //высота

width:=120; //ширина

Caption:=dbgrid1.Columns[j].DisplayName; //заголовок

f:=f+45; //пробел между компонентами Label

end; end;

bt:=tbutton.create(addsheet); //создаем кнопку

with bt do

begin

parent:=addsheet;

top:=15; //отступ от верхнего края формы

left:=180; //отступ от левого края формы

height:=20; //высота

width:=80; //ширина

caption:='Добавить'; //заголовок

name:='addbtn';

onClick:=dobavlenie; //создаем событие для кнопки

end;end;

procedure tform1.dobavlenie(sender: tobject); //добавление данных в таблицу БД

var i:integer;

arr:array of string;

begin

setlength(arr,c_num);

for i:=1 to c_num-1 do

arr[i]:=arredt[i].Text;

case tablebox.ItemIndex of

0:begin

form1.ADOQuery1.SQL.Clear;

form1.ADOQuery1.SQL.Add('INSERT INTO organization ');

form1.ADOQuery1.SQL.Add('values('''+(arr[0])+''','''+arr[1]+''','''+(arr[2])+''','''+arr[3]+''')');

form1.ADOQuery1.ExecSQL;

view(adoquery1,tablebox);

size(dbgrid1);

end;

1:begin

form1.ADOQuery1.SQL.Clear;

form1.ADOQuery1.SQL.Add('INSERT INTO otdeli_departamenta(otd_name) ');

form1.ADOQuery1.SQL.Add('values('''+arr[1]+''')');

form1.ADOQuery1.ExecSQL;

view(adoquery1,tablebox);

size(dbgrid1);

end;

2:begin

form1.ADOQuery1.SQL.Clear;

form1.ADOQuery1.SQL.Add('INSERT INTO prihod(data,shet_id,summa,num,prichina,otd_id) ');

form1.ADOQuery1.SQL.Add('values(:a2,:a3,:a4,:a5,:a6,:a7)');

form1.ADOQuery1.Parameters.ParamByName('a2').value := arr[1];

form1.ADOQuery1.Parameters.ParamByName('a3').value := arr[2];

form1.ADOQuery1.Parameters.ParamByName('a4').value := arr[3];

form1.ADOQuery1.Parameters.ParamByName('a5').value := arr[4];

form1.ADOQuery1.Parameters.ParamByName('a6').value := arr[5];

form1.ADOQuery1.Parameters.ParamByName('a7').value := arr[6];

form1.ADOQuery1.ExecSQL;

view(adoquery1,tablebox);

size(dbgrid1);

end;

3:begin

form1.ADOQuery1.SQL.Clear;

form1.ADOQuery1.SQL.Add('INSERT INTO rashod(data,shet_id,summa,id_organization,prichina,id_otd) ');

form1.ADOQuery1.SQL.Add('values(:a2,:a3,:a4,:a5,:a6,:a7)');

form1.ADOQuery1.Parameters.ParamByName('a2').value := strtodate(arr[1]);

form1.ADOQuery1.Parameters.ParamByName('a3').value := strtoint(arr[2]);

form1.ADOQuery1.Parameters.ParamByName('a4').value := strtoint(arr[3]);

form1.ADOQuery1.Parameters.ParamByName('a5').value := strtoint(arr[4]);

form1.ADOQuery1.Parameters.ParamByName('a6').value := arr[5];

form1.ADOQuery1.Parameters.ParamByName('a7').value := strtoint(arr[6]);

form1.ADOQuery1.ExecSQL;

view(adoquery1,tablebox);

size(dbgrid1);

end;end;

for i:=0 to c_num-1 do

begin

arredt[i].Free;

arrlbl[i].Free;

end;

bt.Free;

end;

procedure TForm1.rashetbtnClick(Sender: TObject);

var i:integer;

begin

case prihodgroup.ItemIndex of

0:begin

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select sum(summa) from prihod');

ADOQuery1.Active:=True;

size(dbgrid1);

end;

1:begin

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select data,summa from prihod where data="'+edit1.text+'"');

ADOQuery1.Active:=True;

size(dbgrid1); //изменяем ширину столбцов таблицы

end;

end;

case rashodgroup.ItemIndex of

0:begin

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select sum(summa) from rashod');

ADOQuery1.Active:=True;

size(dbgrid1);

end;

1:begin

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select data,summa from rashod where data="'+edit2.text+'"');

ADOQuery1.Active:=True;

end;

end;

case dohodgroup.ItemIndex of

0:begin

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select "for", sum(prihod.summa)-sum(rashod.summa) from prihod,rashod ');

ADOQuery1.Active:=true;

size(dbgrid1);

end;

1:begin

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select "doxod za",prihod.data, (prihod.summa-rashod.summa) from rashod,prihod where (prihod.data="'+edit3.text+'") and (rashod.data="'+edit3.text+'")');

ADOQuery1.Active:=True;

size(dbgrid1);

end;end;end;

procedure TForm1.dohodGroupClick(Sender: TObject);

begin

prihodgroup.ItemIndex:=-1;

rashodgroup.ItemIndex:=-1;

end;

procedure TForm1.rashodGroupClick(Sender: TObject);

begin

dohodgroup.ItemIndex:=-1;

prihodgroup.ItemIndex:=-1;

end;

procedure TForm1.prihodGroupClick(Sender: TObject);

begin

dohodgroup.ItemIndex:=-1;

rashodgroup.ItemIndex:=-1;

end;

procedure TForm1.PreviewbtnClick(Sender: TObject);

begin

preview(dbgrid1);

end;

procedure TForm1.deletebtnClick(Sender: TObject);

begin

adoquery1.Delete;

end;

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);

begin

size(dbgrid1);

end;

end.

Размещено на Allbest.ru