Разработка информационной системы для центра выплат

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

2015-08-07

5.35 MB

16 чел.


Поделитесь работой в социальных сетях

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



Оглавление

[1] Оглавление

[2]

[3] Введение

[4]

[5] Глава 1. Анализ предметной области и проектирование БД

[5.1] Технико-экономическая характеристика объекта

[5.2] автоматизации

[6]

[6.1] 1.2 Разработка АИС «Учёт»

[6.1.1] 1.2.1 Планирование БД, анализ требований к системе

[6.1.2] 1.2.2 Концептуальное проектирование

[6.1.3] 1.2.3 Логическое проектирование

[6.1.4] 1.2.4 Физическое проектирование

[7] Глава 2. Внешнее приложение «Учёт»

[7.1] 2.1 Основы разработки внешних приложений

[7.2] 2.2 Разработка внешнего приложения

[8] Глава 3. Руководство пользователя АИС «Учёт»

[9] Заключение

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

[11] Приложения


Введение

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

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

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

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

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

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


Глава 1. Анализ предметной области и проектирование БД

  1.  Технико-экономическая характеристика объекта

автоматизации

Учреждение является государственной бюджетной некоммерческой организацией, уполномоченной Правительством Камчатского края для обеспечения реализации прав граждан на получение мер государственной социальной поддержки, установленных нормативно-правовыми актами Российской Федерации и Камчатского края (далее – государственные услуги).

Учредителем Учреждения является Камчатский край в лице Министерства социального развития и труда Камчатского края.

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

Учреждение имеет следующие филиалы, расположенные на территории Камчатского края:

  •  Елизовский филиал (г. Елизово);
  •  Мильковский филиал (с. Мильково);
  •  Усть-Большерецкий филиал (п. Усть-Большерецк);
  •  Соболевский филиал (с. Соболево);
  •  Усть-Камчатский филиал (п. Усть-Камчатск);
  •  Быстринский филиал (с. Эссо);
  •  Алеутский филиал (с. Никольское);
  •  Вилючинский филиал (г. Вилючинск);
  •  Паланский филиал (п.г.т. Палана);
  •  Пенжинский филиал (с. Каменское);
  •  Олюторский  филиал (с. Тиличики);
  •  Карагинский филиал (п. Оссора);
  •  Тигильский филиал (с. Тигиль).

Основные цели деятельности Учреждения:

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

Основные задачи деятельности Учреждения:

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

Основные функции Учреждения:

  •  организация и осуществление работы по приему документов, необходимых для получения государственных и муниципальных услуг по мерам социальной поддержки населения, рассмотрение и обработка документов и информации, содержащих сведения о праве граждан на государственные услуги по социальной поддержке;
  •  определение права гражданина на назначение и выплату государственных пособий, субсидий и социальных выплат, льгот, установленных законодательством Российской Федерации и Камчатского края;
  •  распределение бюджетных средств, поступивших на выплату государственных пособий, социальных выплат, субсидий, льгот и контроль за целевым использованием, и сохранностью государственных средств, ассигнованных на эти цели;
  •  принятие решений в соответствии с действующим законодательством о предоставлении (приостановлении, прекращении) гражданам мер социальной поддержки;
  •  оформление и выдача документов, подтверждающих право граждан на меры социальной поддержки;
  •  обеспечение бесперебойной работы программно-аппаратных средств и ведение автоматизированной системы учета и обработки информации о предоставленных гражданам мерах социальной поддержки, формирование электронного социального регистра населения Камчатского края;
  •  обеспечение создания и поддержание работы центра телефонного обслуживания, телефона «горячей линии» по вопросам предоставления государственных и муниципальных услуг, Интернет сайта Центра Выплат;
  •  хранение и учёт личных дел получателей государственных услуг по мерам социальной поддержки;
  •  организационно-методическая деятельность, в том числе организация разъяснительной работы о видах, порядке и условиях предоставления мер социальной поддержки;
  •  осуществление контроля за достоверностью сведений, предоставляемых гражданами, для получения государственных услуг по социальной поддержке.        

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

Для анализа бизнес-процессов происходящих в центре воспользуемся BPWin. CA ERwin Process Modeler (ранее BPwin) – инструмент для моделирования, анализа, документирования и оптимизации бизнес-процессов. CA ERwin Process Modeler можно использовать для графического представления бизнес-процессов. Графически представленная схема выполнения работ, обмена информацией, документооборота визуализирует модель бизнес-процесса. Графическое изложение этой информации позволяет перевести задачи управления организацией из области сложного ремесла в сферу инженерных технологий.

CA ERwin Process Modeler (BPwin) помогает четко документировать важные аспекты любых бизнес-процессов: действия, которые необходимо предпринять, способы их осуществления и контроля, требующиеся для этого ресурсы, а также визуализировать получаемые от этих действий результаты. CA ERwin Process Modeler повышает бизнес-эффективность ИТ-решений, позволяя аналитикам и проектировщикам моделей соотносить корпоративные инициативы и задачи с бизнес-требованиями и процессами информационной архитектуры и проектирования приложений. Таким образом, формируется целостная картина деятельности предприятия: от потоков работ в небольших подразделениях до сложных организационных функций.

На рисунке 1 представлена диаграмма IDEF0 верхнего уровня.

Рис. 1  Диаграмма IDEF0

Модель бизнес-процессов, в которых участвуют сотрудники центра, по приему документации представлена на рисунке 2.

Рис. 2 Диаграмма IDEF0 (0 уровень)

Процесс «Учёт входных документов» делится на следующие процессы (рисунок 3): ввод данных по филиалам, ввод данных по сотрудникам.

Рис. 3 Диаграмма IDEF0 (1 уровень)

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

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

Рис.4 Диаграмма потоков данных (DFD – Диаграмма)

Основные технологические процессы отражены на рисунке 5 на диаграмме IDEF3.

В процессе «Учёт входящей и исходящей документации» предполагается автоматизировать все процессы.

Рис.5  Технологические процессы учета документации  (Диаграмма  IDEF3)


1.2 Разработка АИС «Учёт»

АИС «Учёт» – АИС, позволяющая реализовывать процедуру учёта документации.

1.2.1 Планирование БД, анализ требований к системе

Программа должна предусматривать:

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

Данная база данных реализована с помощью языка программирования MS SQL Server 2012.

SQL(Structured Query Language) — это специальный язык структурированных запросов, используемый для определения данных, доступа к данным и их обработки [8].

Внешнее приложение для базы написано в Delphi2010.

1.2.2 Концептуальное проектирование

Концептуальное (инфологическое) проектированиеописание структуры программного обеспечения в понятных пользователю терминах, не зависящих от реализации БД [6]. Фундаментальными такого проектирования являются данные с их свойствами и связи между ними. Главными элементами МД являются типы объектов, их атрибуты и типы связей.

В данной работе были определены 4 объекта.

Объект: Филиалы. Свойства: Код Филиала, Название Филиала, Адрес, Телефон.

Объект: Сотрудники. Свойства: Код Сотрудника, ФИО, Телефон.

Объект: Входящие документы. Свойства: Kод входящего документа, Название, Тема, Отправитель, Дата.

Объект: Исходящие документы. Свойства: Код исходящего документа, Название, Тема, Отправитель, Дата.

1.2.3 Логическое проектирование

Логическое (даталогическое) проектирование – проектирование, результатом которого является концептуальная схема БД, которая включает в себя все информационные единицы и связи[6].

На уровне логического проектирования объекты преобразуются в сущности, а свойства - в атрибуты. Для каждой сущности выбирается ключевой атрибут. Ключевой атрибут – это атрибут отношения, который однозначно и точно определяет каждый объект.

Сущность Филиалы: ключевой атрибут – Код филиала.

Сущность Сотрудники: ключевой атрибут – Код сотрудника.

Сущность Входящие документы: ключевой атрибут – Код входящего документа.

Сущность Исходящие документы: ключевой атрибут – Код исходящего документа.

Также на данном уровне проектирования определяются связи.

Выделяют несколько типов связей:

  1.  «Один к одному». Он существует, когда один экземпляр одного объекта связан с единственным экземпляром другого объекта. Обозначается ←и→.
  2.  «Многие ко многим». Он существует, когда один экземпляр первого объекта связан с одним или большим количеством экземпляров второго объекта, при этом каждый экземпляр второго объекта связан с одним или многими экземплярами первого. Обозначается ↔.
  3.  «Один ко многим». Он существует, когда один экземпляр первого объекта связан с одним (или более) экземпляром второго объекта, при этом каждый экземпляр второго объекта связан только с одним экземпляром первого. Обозначается →→.
  4.  «Многие к одному». Этот тип связи аналогичен связи «один ко многим». Обозначается →→.

В данной работе использовались следующие связи:

связи «один ко многим»:

Атрибут Код Филиала сущности Филиалы связывается с атрибутом Код Филиала сущности Входящие документы.

Атрибут Код Филиала сущности Филиалы связывается с атрибутом Код Филиала сущности Исходящие документы.

Атрибут Код Сотрудника сущности Фирмы связывается с атрибутом Код Сотрудника сущности Входящие документы.

Атрибут Код Сотрудника сущности Фирмы связывается с атрибутом Код Сотрудника сущности Исходящие документы.

На основе этих данных была сделана ER-диаграмма, которая представлена.

Диаграммы сущность-связь построим в ERWin.  ERwin cоздает визуальное предcтавление (модель данных) для решаемой задачи. Это предcтавление может иcпользоватьcя для детального анализа, уточнения и раcпроcтранения документации, необходимой в цикле разработки. Однако ERwin далеко не только инcтрумент для риcования. ERwin автоматичеcки cоздает базу данных (таблицы, индекcы, хранимые процедуры, триггеры для обеcпечения ccылочной целоcтноcти и другие объекты, необходимые для управления данными).

ERwin являетcя ведущим решением для моделирования баз данных для cоздания и поддержки баз, витрин (data marts) и хранилищ данных, а также моделей реcурcов данных предприятия. Модели ERwin визуализируют cтруктуры данных для облегчения организации и управления данными, упрощения cложных взаимоcвязей данных, а также технологий cоздания баз данных и cреды развертывания. При этом упрощаетcя и уcкоряетcя процеcc разработки базы данных, а ее качеcтво и надежноcть cущеcтвенно улучшаютcя.  

Рис.6 Логическая схема данных

Рис.7 Физическая схема данных

1.2.4 Физическое проектирование

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

Модель данных предметной области «Учёт» представлена на рисунке 8.

Рис.8 Схема данных

В данной работе были созданы следующие запросы:

Параметрические:

Рис. 9 Запрос «Исходящие по филиалу»

Рис. 10 Код запроса «Исходящие по филиалу»

Рис. 11 Запрос «Входящие по филиалу»

Рис. 12 Код запроса «Входящие по филиалу»

Рис. 13 Запрос «Исходящие по сотруднику»

Рис. 14 Код запроса «Исходящие по сотруднику»

Рис. 15 Запрос «Входящие по сотруднику»

Рис. 16 Код запроса «Входящие по сотруднику»

Была создана АИС «Учёт» при помощи языка SQL, выводящая информацию о филиалах, сотрудниках, входящих и исходящих документах.


Глава 2. Внешнее приложение «Учёт»

2.1 Основы разработки внешних приложений

В данной курсовой работе используется среда программирования Delphi 2010.

Для создания приложения используются компоненты ADOConnection, ADOTable, ADOStoredProc, расположенные на вкладке ADO.

ADOConnection - Предназначен для установления соединения с данными.

ADOTable - предназначен для создания набора данных.

ADOStoredProcпредназначен для исполнения хранимой процедуры сервера БД. Для этого он имеет свойство ProcedureName и методы Open и ЕхсесРгос.

2.2 Разработка внешнего приложения

Для разработки приложения используются компоненты ADOConnection, ADOTable, ADOStoredProc и DataSource.

ADOConnection - предназначен для привязки БД к приложению.

ADOTable - предназначен для привязки таблиц к приложению.

ADOStoredProc - предназначен для привязки запроса к приложению.

На форму добавляем компонент DBGrid, отражающий запросы и таблицы. В его свойстве DataSource выбираем DataSource1.


Глава 3. Руководство пользователя АИС «Учёт»

Загружая приложение, нам представляется форма с расположенными на ней объектами (Рисунок 17):

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

Рис. 17 Форма «Учёт»

Чтобы просмотреть имеющиеся таблицы, выбирается вкладка «Таблицы» из главного меню (Рисунок 18). 

Рис. 18 Вкладка «Таблицы»

После чего на экране отображается выбранная таблица (Рисунок 19). 

Рис. 19 Таблица «Заказы»

Чтобы выполнить запрос, выбирается во вкладке «Запросы» из главного меню интересующий запрос (Рисунок 20).

Рис. 20 Запрос «Входящие по филиалам»

Если запрос параметрический, то на экране сначала появится окно для ввода параметра. После ввода параметра результат отображается в поле для просмотра (Рисунок  21).

Рис. 21 Запрос «Исходящие по филиалам» (ввод параметра)

Рис. 22 Запрос «Исходящие по филиалам» (результат)

Для выполнения поиска по имеющимся данным таблицы, заполняются поля «Поле» и «Значение», после чего осуществляется поиск и курсор переместится на искомую запись (Рисунок 23).

Рис. 23 Организация поиска по таблице

Для осуществления фильтрации заполняется поле «Поле» и выбирается вид сортировки, после чего результат появится в поле для просмотра (Рисунок 24).

Рис. 24 Сортировка «по возрастанию»

Фильтрация осуществляется способом аналогичным способу осуществления поиска, но в поле для просмотра отобразится только отфильтрованные записи (Рисунок 25).

Рис. 25 Фильтрация

В главном меню имеется вкладка «О программе», в которой описаны сведения о программе (Рисунок 26).

Рис. 26 О программе

Чтобы выйти из программы в главном меню нажимается кнопка «Выход».


Заключение

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

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

Цель курсовой работы достигнута путем решения следующих задач:

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

В качестве среды разработки была выбрана СУБД MS SQL Server, приложение создано в Delphi 2010.

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


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

  1.  Астахова И.Ф., Толстобров А.П., Мельников В.М., Фертиков В.В. СУБД. Язык SQL в примерах и задачах. – М.: Физматлит, 2009. – 168 с.
  2.   Ачкасов В.Ю. Программирование баз данных в Delphi. – Самара: СамГТУ, 2010. – 255 с.
  3.  Баженова И.Ю. Основы проектирования приложений баз данных. Учебное пособие. – М.: ИНТУИТ, 2009. – 325 с.
  4.  Баканов М.В., Романова В.В., Крюкова Т.П. Базы данных. Системы управления базами данных. Лабораторный практикум. – Кемерово: Кемеровский технологический институт пищевой промышленности, 2010. – 70 с.
  5.  Голицына О.Л., Максимов Н.В., Попов И.И. Базы данных: учебное пособие. – М.: ФОРУМ, ИНФРА-М, 2012. – 399 с.
  6.  Дунаев В.В. Базы данных. Язык SQL для студента: учебник. – СПб.: БХВ-Петербург, 2012. - 312 с.
  7.  Жилинский А.А. Самоучитель Microsoft SQL Server 2008. – СПб.: БХВ-Петербург, 2009. – 240 с.
  8.  Карпова И.П. Базы данных: учебное пособие. – СПб.: Питер, 2013. – 240 с.
  9.  Кириллов В.В., Громов Г.Ю.  Введение в реляционные базы данных: учебное пособие. – СПб.: БХВ-Петербург, 2012. – 464 с.
  10.  Кузин А.В., Левонисова С.В. Базы данных: учебное пособие. – М.: Академия, 2012. – 320 с.
  11.  Маркин А.В., Аникеев С.В. Разработка приложений баз данных в Delphi: учебное пособие. – М.: Диалог-МИФИ, 2013. – 160 с.
  12.  Осипов Д.Л. Базы данных и Delphi: Теория и практика: учебник. – СПб.: BHV-CПб, 2011. – 733 с.
  13.  Советов Б.Я., Цехановский В.В., Чертовский В.Д. Базы данных: теория и практика: учебное пособие. – М.: Юрайт, 2013. – 463 с.
  14.  Тернстрем Т., Вебер Э., Хотек М. Microsoft SQL Server 2008. Разработка баз данных. Учебный курс Microsoft. – М.: Русская Редакция, 2010. – 496 с.


Приложения

Приложение 1

Таблицы БД

Рисунок 1 Таблица Филиалы

Рисунок 2 Таблица Исходящие документы

Рисунок 3 Таблица Сотрудники

Рисунок 4 Таблица Входящие документы


Приложение 2

Код приложения в Delphi

unit Учет;

interface

uses

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

 Dialogs, StdCtrls, Menus, ADODB, DB, ExtCtrls, DBCtrls, Grids, DBGrids,

 pngimage;

type

 TForm1 = class(TForm)

   DBGrid1: TDBGrid;

   DBNavigator1: TDBNavigator;

   DataSource1: TDataSource;

   ADOTable1: TADOTable;

   ADOQuery1: TADOQuery;

   ADOStoredProc1: TADOStoredProc;

   MainMenu1: TMainMenu;

   GroupBox1: TGroupBox;

   GroupBox2: TGroupBox;

   GroupBox3: TGroupBox;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Label5: TLabel;

   Label6: TLabel;

   Label7: TLabel;

   Edit1: TEdit;

   Edit2: TEdit;

   Edit3: TEdit;

   Edit4: TEdit;

   Edit5: TEdit;

   ComboBox1: TComboBox;

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   Button4: TButton;

   N1: TMenuItem;

   N2: TMenuItem;

   N3: TMenuItem;

   N4: TMenuItem;

   N5: TMenuItem;

   N6: TMenuItem;

   N7: TMenuItem;

   N8: TMenuItem;

   N9: TMenuItem;

   N10: TMenuItem;

   N11: TMenuItem;

   N12: TMenuItem;

   N13: TMenuItem;

   ADOConnection1: TADOConnection;

   ADOQuery2: TADOQuery;

   ADOQuery3: TADOQuery;

   ADOQuery4: TADOQuery;

   Image1: TImage;

   Label8: TLabel;

   procedure N13Click(Sender: TObject);

   procedure N2Click(Sender: TObject);

   procedure N3Click(Sender: TObject);

   procedure N4Click(Sender: TObject);

   procedure N5Click(Sender: TObject);

   procedure N7Click(Sender: TObject);

   procedure N8Click(Sender: TObject);

   procedure N9Click(Sender: TObject);

   procedure N10Click(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure N12Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

uses Справка;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

try

DataSource1.DataSet.Locate(Edit1.Text,Edit2.Text,[]);

except messageDlg('Невозможно выполнить данный поиск', mtError, [mbOK], 0);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

DataSource1.DataSet.Filtered:=false;

Button3.Enabled:=true;

Button2.Enabled:=false;

end;

procedure TForm1.Button3Click(Sender: TObject);

var s: string;

begin

try

DataSource1.DataSet.Filter:=''+Edit3.Text+' LIKE ' + #39 + '%' + Edit4.Text + '%' + #39;

DataSource1.DataSet.Filtered:=true;

Button2.Enabled:=true;

Button3.Enabled:=false;

except

messageDlg('Невозможно выполнить данный фильтр', mtError, [mbOK], 0);

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

var k: string;

begin

if Combobox1.Text='По возрастанию' then k:='ASC ';

if Combobox1.Text='По убыванию' then k:='DESC ';

try

if ADOTable1.Active=true then ADOTable1.Sort:=' ['+Edit5.Text+'] '+k;

if ADOQuery1.Active=true then ADOQuery1.Sort:=' ['+Edit5.Text+'] '+k;

except

messageDlg('Невозможно выполнить данную сортировку', mtError, [mbOK], 0);

end;

end;

procedure TForm1.N10Click(Sender: TObject);

var

a4:string;

begin

ADOQuery4.Active:=false;

a4:=inputbox('Ввод параметра', 'Введите ФИО сотрудника', '');

ADOQuery4.Parameters.ParamByName('a').Value:=a4;

ADOQuery4.Active:=True;

DataSource1.DataSet:=ADOQuery4;

DBGrid1.DataSource:=DataSource1;

Label1.Caption:='Запрос «Входящие по сотрудникам»';

end;

procedure TForm1.N12Click(Sender: TObject);

begin

form2.Show;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

ADOQuery1.Active:=false;

ADOTable1.Active:=False;

ADOTable1.TableName:='Filial';

ADOTable1.Active:=True;

DataSource1.DataSet:=ADOTable1;

DBGrid1.DataSource:=DataSource1;

Label1.Caption:='Таблица «Филиалы»';

end;

procedure TForm1.N3Click(Sender: TObject);

begin

ADOTable1.Active:=False;

ADOTable1.TableName:='Sotrud';

ADOTable1.Active:=True;

DataSource1.DataSet:=ADOTable1;

DBGrid1.DataSource:=DataSource1;

Label1.Caption:='Таблица «Сотрудники»';

end;

procedure TForm1.N4Click(Sender: TObject);

begin

ADOTable1.Active:=False;

ADOTable1.TableName:='Vhod';

ADOTable1.Active:=True;

DataSource1.DataSet:=ADOTable1;

DBGrid1.DataSource:=DataSource1;

Label1.Caption:='Таблица «Входящие документы»';

end;

procedure TForm1.N5Click(Sender: TObject);

begin

ADOTable1.Active:=False;

ADOTable1.TableName:='Ishod';

ADOTable1.Active:=True;

DataSource1.DataSet:=ADOTable1;

DBGrid1.DataSource:=DataSource1;

Label1.Caption:='Таблица «Исходящие документы»';

end;

procedure TForm1.N7Click(Sender: TObject);

var

a1:string;

begin

ADOQuery1.Active:=false;

a1:=inputbox('Ввод параметра', 'Введите название филиала', '');

ADOQuery1.Parameters.ParamByName('a').Value:=a1;

ADOQuery1.Active:=false;

ADOQuery1.Active:=True;

DataSource1.DataSet:=ADOQuery1;

DBGrid1.DataSource:=DataSource1;

Label1.Caption:='Запрос «Исходящие по филиалам»';

end;

procedure TForm1.N8Click(Sender: TObject);

var

a2:string;

begin

ADOQuery2.Active:=false;

a2:=inputbox('Ввод параметра', 'Введите название филиала', '');

ADOQuery2.Parameters.ParamByName('a').Value:=a2;

ADOQuery2.Active:=True;

DataSource1.DataSet:=ADOQuery2;

DBGrid1.DataSource:=DataSource1;

Label1.Caption:='Запрос «Входящие по филиалам»';

end;

procedure TForm1.N9Click(Sender: TObject);

var

a3:string;

begin

ADOQuery3.Active:=false;

a3:=inputbox('Ввод параметра', 'Введите ФИО сотрудника', '');

ADOQuery3.Parameters.ParamByName('a').Value:=a3;

ADOQuery3.Active:=True;

DataSource1.DataSet:=ADOQuery3;

DBGrid1.DataSource:=DataSource1;

Label1.Caption:='Запрос «Исходящие по сотрудникам»';

end;

end.



 

Другие похожие работы, которые могут вас заинтересовать.
1642. Разработка элементов информационной системы мини-отеля 3.75 MB
  Актуальность темы работы обоснована тем, что сама сфера деятельности, в которой реализуется данный проект ориентирована на широкой круг потенциальных постояльцев. Так как целью является оказание качественных гостиничных услуг в максимально доступной ценовой категории, реализация механизмов позволяющих предельно сократить издержки, особо важна
18464. Разработка структуры базы данных информационной системы 971.23 KB
  Требуется разработать приложение и базу данных для компьютерной фирмы занимающейся продажей вычислительной техники комплектующих для неё и периферии. Формы первичных учетных документов определяются и устанавливаются организацией в составе применяемой ею системы учетной документации для регистрации хозяйственных операций. Первые быстродействующие компьютеры использовались предпринимателями в основном для автоматизации процессов которые раньше выполнялись вручную большим числом сотрудников невысокой квалификации; типичный пример - обработка...
17472. Разработка автоматизированной информационной системы «Штатное расписание» 278.42 KB
  Работа сотрудника отдела кадров организации связана с необходимостью обработки и учета больших объемов информации. Учет этой информации «вручную» зачастую приводит к ошибкам и задержкам. В связи с этим встает вопрос о необходимости автоматизации работы.
20323. Разработка структуры базы данных информационной системы 971.23 KB
  Требуется разработать приложение и базу данных для компьютерной фирмы занимающейся продажей вычислительной техники комплектующих для неё и периферии. Формы первичных учетных документов определяются и устанавливаются организацией в составе применяемой ею системы учетной документации для регистрации хозяйственных операций. Первые быстродействующие компьютеры использовались предпринимателями в основном для автоматизации процессов которые раньше выполнялись вручную большим числом сотрудников невысокой квалификации; типичный пример - обработка...
19045. Разработка автоматизированной информационной системы отеля туристической фирмы 6.19 MB
  Актуальность проекта построена на разработке и внедрении автоматизированной системы работы с клиентами отеля туристической фирмы что предопределит успешную реализацию качественного туристского продукта потребителю и явится одним из главных источников функционирования туристического предприятия. С помощью данной системы появится...
11708. Разработка информационной системы учета товаров для магазина «Аистенок» 726.86 KB
  Результаты выполнения торговых операций записываются в надлежащих журналах. Автоматизация данных процессов позволит сохранить информацию в базе, в которую вводится данная информация с помощью удобного интерфейса программы.
19460. Разработка программного обеспечения информационной системы «Дом детского творчества» 1.08 MB
  Программное обеспечение – это программа, которая управляет работой компьютера или выполняет какие либо расчеты или действия. Это могут быть внутренние команды, управляющие оборудованием или программа, выполняющая какие либо действия в ответ на вводимые с клавиатуры команды. Программное обеспечение ПК может быть с открытым исходным кодом или являться собственностью компании разработчика.
13280. РАЗРАБОТКА ИНФОРМАЦИОННОЙ СИСТЕМЫ АКТ НА СПИСАНИЕ МАЛОЦЕННЫХ И БЫСТРОИЗНАШИВАЮЩИХСЯ ПРЕДМЕТОВ 1.3 MB
  На сегодняшний день существует множество программных продуктов, с помощью которых можно автоматизировать документооборот, что позволяет значительно увеличить количество предлагаемых разработок различным организациям. Данная ситуация увеличивает конкурентную борьбу среди разработчиков, что положительно сказывается на качестве и конкурентоспособности предлагаемых продуктов.
18391. Проектирование и разработка информационной системы «Планирование и управление ресурсами предприятия» 973.77 KB
  Более быстрая обработка данных и централизация их хранения с использованием клиент серверных технологий позволяют сберечь значительные средства а главное и время для получения необходимой информации а также упрощает доступ и ведение данных. Оценка накопление и развитие интеллектуального капитала и управление им для достижения целей организации стали важной задачей для ведущих мировых компаний Одним из способов решения описанной проблемы является построение автоматизированной системы сбора накопления и обработки информации вписывающейся в...
15749. Разработка многопользовательской информационной системы «Отдел кадров РОВД г.Климовичи» 395.26 KB
  Отдел кадров, деятельность которого планируется автоматизировать, занимается учётом сотрудников РОВД г. Климовичи. Важнейшим звеном в данной деятельности являются специалисты по работе с сотрудниками милиции. В зависимости от того, насколько автоматизирована их работа, можно судить об эффективности работы отдела кадров. Каждый день отдел кадров осуществляет операции по работе с сотрудниками.
© "REFLEADER" http://refleader.ru/
Все права на сайт и размещенные работы
защищены законом об авторском праве.