Разработка приложения управления базами данных "Математика"

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

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

МИНИСТЕРСТВО ОБРАЗОВАНИЯ ОМСКОЙ ОБЛАСТИ

БОУ ОО СПО «Омский колледж транспортного строительства»

КУРСОВОЙ ПРОЕКТ

Разработка приложения управления базами данных "Математика"

Специальность № 230401 «Информационные системы»

Студента Шукурова Махаббат Жанбырбаевна

Омск 2015 г.

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

1. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ

1.1 Понятие об информационных системах

1.2 Характеристика среды создания базы данных

1.3 Характеристика среды разработки приложения

2. ПРАКТИЧЕСКАЯ ЧАСТЬ

2.1 Описание структуры таблиц

2.2 Интерфейс форм

2.3 Технология разработки приложения управления базами данных

2.4 Инструкция по эксплуатации приложения

ЗАКЛЮЧЕНИЕ

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

ПРИЛОЖЕНИЯ

ВВЕДЕНИЕ

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

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

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

· элементарная геометрия: планиметрия и стереометрия

· теория элементарных функций и элементы анализа.

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

· теоремы (утверждение, для которого в рассматриваемой теории существует доказательство)

· леммы (доказанное утверждение, полезное не само по себе, а для доказательства других утверждений)

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

· формулы (принятая в математике символическая запись законченного логического суждения)

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

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

Задачи курсового проекта:

1. изучить литературу и интернет-источники по теме разработки, исследовать предметную область;

2. разработать таблицы базы данных в СУБД Access;

3. создать приложение управления базами данных, используя среду программирования Delphi;

4. сформировать отчетную документацию по результатам работ.

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

1. ТЕОРЕТИЧЕСКАЯ ЧАСТЬ

1.1 Понятие об информационных системах

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

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

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

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

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

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

Информационные системы также классифицируются:

1. по функциональному назначению: производственные, коммерческие, финансовые, маркетинговые и др.;

2. по объектам управления: информационные системы автоматизированного проектирования, управления технологическими процессами, управления предприятием (офисом, фирмой, корпорацией, организацией) и т. п.;

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

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

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

В состав обеспечивающих подсистем обычно входят:

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

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

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

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

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

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

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

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

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

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

1.2 Характеристика среды создания базы данных

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

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

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

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

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

Состав программного продукта.

Основные компоненты MS Access:

· Таблицы. Это основные объекты любой базы данных. Именно в них хранятся, во-первых, все данные, имеющиеся в базе, а, во-вторых, структура самой базы (поля, их типы и свойства).построитель экранных форм;

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

· Формы. Это средства для ввода и просмотра данных. С помощью форм можно закрыть некоторые поля для несанкционированного ввода, можно разместить специальные элементы управления (счетчики, раскрывающиеся списки, переключатели, флажки и пр.) для автоматизации ввода. Можно представить форму с помощью графических средств, в виде бланка, если ввод производится со специальных бланков.

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

· Макросы и модули. Эти объекты предназначены как для автоматизации повторяющихся операций при работе с СУБД, так и для создания новых функций путем программирования. Макросы состоят из последовательности внутренних команд СУБД Access и являются одним из средств автоматизации работы с базой. Модули создаются средствами внешнего языка программирования Visual Basic forApplications.

Они могут вызывать скрипты на языке VBA, поэтому MS Access позволяет разрабатывать приложения и БД практически «с нуля» или написать оболочку для внешней БД.

Microsoft Jet Database Engine (англ.), которая используется в качестве движка базы данных MS Access является файл-серверной СУБД и потому применима лишь к приложениям, работающим с небольшими объёмами данных и при небольшом числе пользователей, одновременно работающих с этим данными. Непосредственно в Access отсутствует ряд механизмов, необходимых в многопользовательских базах данных, таких, например, как триггеры.

1.2. Характеристика среды разработки приложения

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

Delphi. Основные характеристики продукта. Delphi - это комбинация нескольких важнейших технологий:

· Высокопроизводительный компилятор в машинный код;

· Объектно-ориентированная модель компонент;

· Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов;

· Масштабируемые средства для построения баз данных.

Cреда Delphi включает в себя полный набор визуальных инструментов для скоростной разработки приложений (RAD - rapid application development), поддерживающей разработку пользовательского интерфейса и подключение к корпоративным базам данных. VCL - библиотека визуальных компонент, включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE. Единственное, что можно поставить в вину Delphi, это то, что готовых компонент, поставляемых Borland, могло бы быть и больше. Однако, разработки других фирм, а также свободно распространяемые программистами freeware-компоненты уже восполнили этот недостаток. Постойте, - скажете вы, ведь это уже было. Да, это было в Visual Basic. Соответствующий стандарт компонент назывался VBX. И этот стандарт так же поддерживается в Delphi. Визуальные компоненты в Delphi обладают большей гибкостью.

Объекты БД в Delphi основаны на SQL и включают в себя полную мощь Borland Database Engine (BDE). В состав Delphi также включен Borland SQL Link, поэтому доступ к СУБД Oracle, Sybase, Informix и InterBase происходит с высокой эффективностью. Кроме того, Delphi включает в себя локальный сервер Interbase для того, чтобы можно было разработать расширяемые на любые внешние SQL-сервера приложения в офлайновом режиме. Разработчик в среде Delphi, проектирующий информационную систему для локальной машины (к примеру, небольшую систему учета медицинских карточек для одного компьютера), может использовать для хранения информации файлы формата .dbf (как в dBase или Clipper) или.db(Paradox). Если же он будет использовать локальный InterBase for Windows 4.0 (это локальный SQL-сервер, входящий в поставку), то его приложение безо всяких изменений будет работать и в составе большой системы с архитектурой клиент-сервер. Масштабируемость на практике - одно и то же приложение можно использовать как для локального, так и для более серьезного клиент-серверного вариантов Delphi - два варианта. Выпущены две версии Delphi - одна (Delphi Client-Server) адресована для разработчиков приложений в архитектуре “клиент-сервер”, а другая (Delphi for Windows) предназначена для остальных программистов. Приложения, разработанные при помощи Delphi, можно использовать без выплаты royalty-процентов и без оплаты runtime- лицензий Клиент-серверная версия Она адресована корпоративным разработчикам, желающим разрабатывать высокопроизводительные приложения для рабочих групп и корпоративного применения Клиент-серверная версия включает в себя следующие особенности:

· SQL Links: специально написанные драйвера для доступа к Oracle, Sybase, Informix, InterBase

· Локальный сервер InterBase: SQL-сервер для Windows 3.1. СУБД для разработки в корпоративных приложений на компьютере, не подключенном к локальной сети.

· ReportSmith Client/server Edition: генератор отчетов для SQL-серверов

· Team Development Support: предоставляет версионный контроль при помощи PVCS компании Intersolve (приобретается отдельно) или при помощи других программных продуктов версионного контроля

· Visual Query Builder - это средство визуального построения SQL-запросов

· лицензия на право распространения приложений в архитектуре клиент-сервер, изготовленных при помощи Delphi

· исходные тексты всех визуальных компонент

Delphi for Windows представляет из себя подмножество Delphi Client-Server и предназначен для разработчиков высокопроизводительных персональных приложений, работающих с локальными СУБД типа dBase и Paradox.Delphi. Desktop Edition предлагает такую же среду для быстрой разработки и первоклассный компилятор, как и клиент-серверная версия (Client/Server Edition). Эта среда позволяет разработчику быстро изготавливать персональные приложения, работающие с персональными СУБД типа dBase и Paradox Delphi позволяет также создавать разработчику собственные компьютерные библиотеки - DLL, которые могут быть вызваны из Paradox, dBase, C++ или каких-нибудь других готовых программ

В Delphi for Windows, как и в Delphi Client-Server, входят

· компилятор Object Pascal (этот язык является расширением языка Borland Pascal 7.0)

· генератор отчетов ReportSmith 2.5 (у которого, правда, отсутствует возможность работы с SQL-серверами)

· среда визуального построителя приложений

· библиотека визуальных компонент

· Локальный сервер InterBase

В первую очередь, Delphi предназначен для профессионалов-разработчиков корпоративных информационных систем. Некоторые удачные продукты, предназначенные для скоростной разработки приложений (RAD - rapid application development) прекрасно работают при изготовлении достаточно простых приложений, однако, разработчик сталкивается с непредвиденными сложностями, когда пытается сделать что-то действительно сложное. Бывает, что в продукте вскрываются присущие ему ограничения только по прошествии некоторого времени.

Delphi такие ограничения не присущи. Хорошее доказательство тому - это тот факт, что сам Delphi разработан на Delphi. Можете делать выводы Однако Delphi предназначен не только для программистов-профессионалов. Есть примеры, как учителя, врачи, преподаватели ВУЗов, бизнесмены, все те, кто используют компьютер с чисто прикладной целью, приобретали Delphi for Windows для того, чтобы быстро решить какие-то свои задачи, не привлекая для этого программистов со стороны. В большинстве случаев, им это удается. И, конечно же, открытая технология Delphi является мощным гарантом того, что инвестици, сделанные в Delphi, будут сохранены в течение многих лет.

Открытая компонентная архитектура, благодаря такой архитектуре приложения, изготовленные при помощи Delphi, работают надежно и устойчиво. Delphi поддерживает использование уже существующих объектов, включая DLL, написанные на С и С++, OLE сервера, VBX, объекты, созданные при помощи Delphi. Из готовых компонент работающие приложения собираются очень быстро. Кроме того, поскольку Delphi имеет полностью объектную ориентацию, разработчики могут создавать свои повторно используемые объекты для того, чтобы уменьшить затараты на разработку. Delphi предлагает разработчикам - как в составе команды, так и индивидуальным - открытую архитектуру, позволяющую добавлять компоненты, где бы они ни были изготовлены, и оперировать этими вновь введенными компонентами в визуальном построителе. Разработчики могут добавлять CASE-инструменты, кодовые генераторы, а также авторские файлы помощи - help, доступные через меню Delphi. Two-way tools - однозначное соответствие между визуальным проектированием и классическим написанием текста программы Это означает, что разработчик всегда может видеть программный код - текст программы, соответствующий тому, что он построил при помощи визуальных инструментов и наоборот.

Библиотека визуальных компонент, эта библиотека объектов включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE. Структурное объектно-ориентированное программирование Delphi использует структурный объектно-ориентированный язык (Object Pascal), который сочетает с одной стороны выразительную мощь и простоту программирования, характерную для языков 4GL, а с другой стороны эффективность языка 3GL. Программисты немедленно могут начать производить работающие приложения, и им не придется для этого изучать особенности программирования событий в Windows. Delphi полностью поддерживает передовые программные концепции включая инкапсуляцию, наследование, полиморфизм и управление событиями. Поддержка OLE 2.0, DDE и VBX это очень важная особенность для разработчиков в среде Windows, поскольку в уже существующие Windows-приложения программист может интегрировать то, что разработает при помощи Delphi.

2. Практическая часть

2.1 Описание структуры таблиц

Первоначально были созданы таблицы в Access.

1. Сущность Ученые включает в себя математических открывателях и их биография. В таблицу входят поля Фамилия и Имя, Биография

2. Подсистема Научные утверждения содержит в себе математические утверждения, где указывается их название, тип и Фамилия ученого.

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

С помощью, конструктора форм были созданы таблицы. В Имя поля заносим имена полям, Тип данных дает значение полям:

Ученые Тип данных для поля Фото Поле OLE	Научные утверждения Тип данных для поля Доказательство Поле МЕМО

Формулы

Тип данных для поле Формула задано Поле Объекта OLE, поле для вставки документа

информационный таблица интерфейс delphi

Заполнение таблиц осуществляется в Режиме таблиц:

Ученые

Научные утверждения

Формулы

Схема данных связывает таблицы во избежание избыточности данных.

2.2 Интерфейс Форм

«Математика» Окно с таблицами

Таблица «Ученые» несет в себе биографический характер.

Таблица «Научные утверждения» представлен в виде таблицы, поле для Доказательство был выбран компонент Мемо большого объема текста

Таблица «Формулы» представлена в виде таблицы и картинки.

Запрос «Поиск по фамилии» осуществлен через таблицу Ученые.

Отчет по запросу «Ученые» осуществлен путем нажатии кнопки Печать на форме с запросом.

Справочная систем расположена на каждой таблице, при нажатии на Контекстном меню Справка

2.3 Технология разработки приложения управления базами данных

Приложение «Математика» было создано в среде Delphi 7. Для создания таблиц в приложении, был использован модуль баз данных, с помощью команды DataModule во вкладке файл - новый - DataModule

На DataModule были помещены компоненты:

ADOConnection из вкладки Standart (связывает Access с Delphi)

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

ADOTable из вкладки ADO (предназначен для доступа к таблице с помощью механизма ADO)

TableName указывает выбор таблицы



DataSource из вкладки DataAccess (обеспечивает связь между набором данных и компонентами отображения и редактирования данных.)

Изначально была создана форма, на которой был размещен компонент DBGrid из вкладки Data Controls. Следовательно, имея готовую Data Module с компонентами были проведены следующие действия:

Для каждой формы была выполнена команда: File - Use Unit, для отображения записей. Следовательно, выделив компонент DBGrid в окне Object Inspector в свойстве DataSource DataModule5.DataSource1. Для отображения записей в самой таблице с помощью, ADOTable1 в окне Object Inspector в свойстве Active был выбран True.

Таким образом, аналогично были созданы последующие таблицы в приложении «Математика».

Для создания запросов был использован компонент ADOQuery из вкладки ADO, который был добавлен в Дата модуль, затем в окне Object Inspector в свойстве Connection был выбран ADOConnection, таким образом, подключили ADOQuery к таблице. Следовательно, для тоо чтобы Запрос был на определенную таблицу, в окне Object Inspector в свойстве DataSet был выбран DataSource. После чего, была создана форма на которой расположили определенное количество полей. Чтобы в полях были записи, изначально, было объединение формы с Unit, затем в окне Object Inspector в свойстве DataSet был выбран ADOConnection, в свойстве DataField было выбрано поле, например Фамилия.

2.4 Инструкция по эксплуатации приложения

Для того, чтобы запустить приложение «Математика», необходимо вставить диск в дисковод, затем в папке mathematics открыть приложение matem.exe.

Заключение

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

Данное приложение удовлетворяет всем требованиям, предъявленным в задании, и реализует большинство необходимых пользователей в использовании данного приложения.

В результате выполнения курсовой работы был сделан вывод, что данное приложение освобождает пользователя от:

-долгих поисков данных об ученых, формулах и утверждениях

-быстрый переход из таблицы в таблицу.

-меньше затрат времени.

-готовый отчет к распечатке

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

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

БИБЛИОГРАФИЧЕСКИЙ Список

1. Голицин О.Л., Максимов Н.В., Васильков И.А. Информационные системы. Учеб. пособие. - М.: Форум 2010

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

3. Осипов Д.Л. Базы данных и Delphi: Теория и практика. (+DVD) - СПб.: БХВ-Петербург, 2011 - 752 с.

4. Петров, В.Н. Информационные системы: учеб. пособие / В.Н. Петров. - СПб.: Питер, 2002. - 588 с.

5. Фленов М.Е. Библия Delphi. (+CD-ROM) - СПб.: БХВ - Петербург, 2011 - 688 с.

Интернет-ресурсы:

1. Московский государственный университет им. М.В.Ломоносова: [Электронный ресурс] URL: http://www.msu.ru. (Дата обращения: 08.04.2015).

2. Интернет ресурс Википедия https://ru.wikipedia.org (Дата обращения: 08.04.2015).

3. Пошаговая инструкция создания программы на Delphi - чайнику! [Электронный ресурс] http://delphinew.ru // Создание базы данных в Delphi: URL: http://delphinew.ru/sozdanie-bazi-dannich-v-delphi/ (Дата обращения: 10.04.2015)

4. Теоремы по математике. Категории. http://ru.math.wikia.com/ (Дата обращения: 10.04.2015)

5. Теоремы http://edu.alnam.ru/

Приложения

Листинг

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.Show;

Form1.Hide;

form8.DBNavigator1.Visible:=true;

form8.DBNavigator2.Visible:=false;

form8.DBGrid1.ReadOnly:=false;

form8.DBImage1.ReadOnly:=false;

form6.DBNavigator2.Visible:=true;

form6.DBNavigator1.Visible:=false;

form6.DBEdit1.ReadOnly:=false;

form6.DBEdit2.ReadOnly:=false;

form6.DBMemo1.ReadOnly:=false;

form6.DBImage1.ReadOnly:=false;

form4.DBNavigator1.Visible:=True;

form4.DBNavigator2.Visible:=False;

form4.DBGrid1.ReadOnly:=false;

form4.DBMemo1.ReadOnly:=false;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.Show;

Form8.DBNavigator1.Visible:=false;

Form8.DBNavigator2.Visible:=true;

form8.DBGrid1.ReadOnly:=true;

form8.DBImage1.ReadOnly:=true;

Form4.DBNavigator1.Visible:=false;

Form4.DBNavigator2.Visible:=true;

form4.DBGrid1.ReadOnly:=true;

form4.DBMemo1.ReadOnly:=true;

form6.DBNavigator2.Visible:=false;

form6.DBNavigator1.Visible:=true;

form6.DBEdit1.ReadOnly:=true;

form6.DBEdit2.ReadOnly:=true;

form6.DBMemo1.ReadOnly:=true;

form6.DBImage1.ReadOnly:=true;

end;

end.

procedure TForm2.Button2Click(Sender: TObject);

begin

Form2.Close;

form1.Show;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

if edit1.Text='20021995' then form3.Show

else

Showmessage('Неправильно!');

end;

end.

procedure TForm3.Button1Click(Sender: TObject);

begin

form6.show;

close;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

form4.show;

close;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

form8.show;

end;

procedure TForm3.Button4Click(Sender: TObject);

begin

form1.show;

form2.close;

form3.Close;

end;

end.

procedure TForm4.N5Click(Sender: TObject);

begin

datamodule4.ADOTable2.IndexFieldNames:='название ASC';

end;

procedure TForm4.N6Click(Sender: TObject);

begin

datamodule5.ADOTable2.IndexFieldNames:='название DESC';

end;

procedure TForm4.N4Click(Sender: TObject);

begin

t:=inputbox('Поиск типа','Введите тип','');

datamodule5.ADOTable2.Filtered:=true;

datamodule5.ADOTable2.Filter:='тип='+quotedstr(t);

if datamodule5.ADOTable2.RecordCount=0 then

begin

showmessage('Нет таких записей!'); datamodule5.ADOTable2.Filtered:=false;

end;

end;

procedure TForm4.N3Click(Sender: TObject);

begin

f:=inputbox('Поиск Типа','Введите фамилию','');

With datamodule5.ADOQuery2 do

begin

sql.Clear;

sql.Add('Select Ученые.Фамилия,Ученые.Фото,Научные_утв.название,Научные_утв.тип,Научные_утв.Доказательство,Научные_утв.наименование_раздела');

sql.Add('From Ученые,Научные_утв');

sql.Add('where(Ученые.Фамилия like'''+'%'+f+'%'+''')and(Ученые.КодУченого=Научные_утв.Фамилия)');

sql.Add('order by Ученые.Фамилия asc');

active:=true;

end;

if datamodule5.Adoquery2.recordcount<>0 then

begin

form14.show;

{Form7.DBEdit1.datafield:='Фамилия'; form7.DBEdit2.datafield:='Имя';}

end

else showmessage ('Нет таких записей!');

form4.Hide;

end;

procedure TForm4.Dthyenmcz1Click(Sender: TObject);

begin

form4.Close;

form3.Show;

end;

procedure TForm4.N11Click(Sender: TObject);

begin

form11.show;

end;

end.

procedure TForm6.N10Click(Sender: TObject);

begin

f:=inputbox('Поиск Фамилии','Введите Фамилию','');

With datamodule5.ADOQuery1 do

begin

sql.Clear;

sql.Add('Select Ученые.Фамилия,Ученые.Имя,Ученые.Фото,научные_утв.название,научные_утв.Доказательство');

sql.Add('From Ученые,научные_утв');

sql.Add('where(Ученые.Фамилия like'''+'%'+f+'%'+''')and(Ученые.КодУченого=научные_утв.Фамилия)');

sql.Add('order by Ученые.Фамилия');

active:=true;

end;

if datamodule5.ADOQuery1.RecordCount<>0 then

begin

form7.show;

end

else showmessage ('Нет таких записей!');

form6.Hide;

end;

procedure TForm6.N14Click(Sender: TObject);

begin

datamodule5.ADOTable1.IndexFieldNames:='Фамилия ASC';

end;

procedure TForm6.N15Click(Sender: TObject);

begin

datamodule5.ADOTable1.IndexFieldNames:='Фамилия DESC';

end;

procedure TForm6.N1Click(Sender: TObject);

begin

form6.Close;

Form3.Show;

end;

procedure TForm6.N5Click(Sender: TObject);

begin

AboutBox.Show;

end;

procedure TForm6.N3Click(Sender: TObject);

begin

Form11.show;

end;

procedure TForm6.N6Click(Sender: TObject);

begin

f:=inputbox('Поиск Фамилии','Введите Фамилию','');

With datamodule5.ADOQuery1 do

begin

sql.Clear;

sql.Add('Select Ученые.Фамилия,Ученые.Имя,Ученые.Фото,научные_утв.название,научные_утв.Доказательство');

sql.Add('From Ученые,научные_утв');

sql.Add('where(Ученые.Фамилия like'''+'%'+f+'%'+''')and(Ученые.КодУченого=научные_утв.Фамилия)');

sql.Add('order by Ученые.Фамилия');

active:=true;

end;

if datamodule5.ADOQuery1.RecordCount<>0 then

begin

form7.show;

end

else showmessage ('Нет таких записей!');

form6.Hide;

end;

end.

procedure TForm7.Button1Click(Sender: TObject);

begin

form7.Close;

Form6.Show;

end;

end.

procedure TForm8.N7Click(Sender: TObject);

begin

AboutBox.show;

end;

procedure TForm8.N8Click(Sender: TObject);

begin

datamodule5.ADOTable1.Filtered:=false;

end;

procedure TForm8.N2Click(Sender: TObject);

begin

t:=inputbox('Поиск фигуры','Введите фигуру','');

datamodule5.ADOTable4.Filtered:=true;

datamodule5.ADOTable4.Filter:='фигура='+quotedstr(t);

if datamodule5.ADOTable4.RecordCount=0 then

begin

showmessage('Нет таких записей!'); datamodule5.ADOTable4.Filtered:=false;

end;

end;

procedure TForm8.N3Click(Sender: TObject);

begin

datamodule5.ADOTable4.Filtered:=false;

end;

procedure TForm8.N14Click(Sender: TObject);

begin

f:=inputbox('Поиск Фамилии','Введите Фамилию','');

With datamodule5.ADOQuery1 do

begin

sql.Clear;

sql.Add('Select Ученые.Фамилия,Ученые.Имя,Ученые.Фото,Научные_утв.название,Научные_утв.Доказательство');

sql.Add('From Ученые,Научные_утв');

sql.Add('where(Ученые.Фамилия like'''+'%'+'%'+''')and(Ученые.КодУченого=Научные_утв.Фамилия)');

sql.Add('order by Ученые.Фамилия asc');

active:=true;

end;

if datamodule5.Adoquery1.recordcount<>0 then

begin

form7.show;

{Form7.DBEdit1.datafield:='Фамилия'; form7.DBEdit2.datafield:='Имя';}

end

else showmessage ('Нет таких записей!');

form6.Hide;

end;

procedure TForm8.N1Click(Sender: TObject);

begin

form8.Close;

form3.Show;

end;

procedure TForm8.N12Click(Sender: TObject);

begin

datamodule5.ADOTable4.IndexFieldNames:='наименование ASC';

end;

procedure TForm8.N13Click(Sender: TObject);

begin

datamodule5.ADOTable4.IndexFieldNames:='наименование DESC';

end;

procedure TForm8.N6Click(Sender: TObject);

begin

form11.show;

end;

end.

procedure TForm11.TreeView1DblClick(Sender: TObject);

begin

if TreeView1.Items.Item[0].Selected=true

Then form11.Memo1.Lines.Loadfromfile('spravka/vvod parolya.txt');

if TreeView1.Items.Item[2].Selected=true

Then form11.Memo1.Lines.Loadfromfile('spravka/sort.txt');

if TreeView1.Items.Item[3].Selected=true

Then form11.Memo1.Lines.Loadfromfile('spravka/poisk.txt');

if TreeView1.Items.Item[4].Selected=true

Then form11.Memo1.Lines.Loadfromfile('spravka/pechat.txt');

if TreeView1.Items.Item[6].Selected=true

Then form11.Memo1.Lines.Loadfromfile('spravka/dobavl.txt');

if TreeView1.Items.Item[7].Selected=true

Then form11.Memo1.Lines.Loadfromfile('spravka/izmen.txt');

if TreeView1.Items.Item[8].Selected=true

Then form11.Memo1.Lines.Loadfromfile('spravka/udaslen.txt');

if TreeView1.Items.Item[9].Selected=true

Then form11.Memo1.Lines.Loadfromfile('spravka/vyhod.txt');

end;

end.

procedure TForm14.Button1Click(Sender: TObject);

begin

Form14.Close;

Form4.Show;

end;

end.

Распечатка запросов

Распечатка отчетов

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

...