Автоматизированное рабочее место дежурного воспитателя

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

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

ТАЛАССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ТЕХНОЛОГО-ЭКОНОМИЧЕСКИЙ ФАКУЛЬТЕТ

Курсовая работа

АРМ дежурного воспитателя

Таласского мужского лицея "Манас Ата-Себат"

Выполнил: Жаманбай уулу Таалайбек

Проверила: Курманалиева Айнура ?з?бековна

Содержание

• Введение
• 1. Microsoft Access
• 1.1 Базы данных. Общие понятия
• 1.2 Таблицы
• 1.3 Запросы
• 1.4 Отчеты
• 1.5 Формы
• 2. Delphi (язык программирования)
• 2.1 Целевая платформа
• 2.2 История языка
• 2.3 Синтаксис языка
• 2.4 Объектно-ориентированные особенности языка
• 2.5 Структура программы
• 2.6 Расширения файлов
• 2.7 Известное программное обеспечение, созданное на Delphi
• 3. Практическая часть
• 3.1 АРМ дежурного воспитателя
• Заключение
• Список использованной литературы
• 
• Введение
• Стержневые идеи современных информационных технологий базируются на концепции баз данных.
• Баз данных представляет собой именованную совокупность данных, отображающую состояние объектов и их отношения в рассматриваемой предметной области.
• База данных обеспечивает надежное хранение информации в структурированном виде и современный доступ к этим данным.
• В настоящее время практически любая организация, чем бы она ни занималась, имеет собственную базу данных. Базы данных и проектируемые на их основе информационные системы позволяют автоматизировать деятельность предприятий. Это, с одной стороны, ведет к снижению затрат на осуществление деятельности, а с другой стороны, к повышению эффективности работы предприятия.
• Целью выполнения данной курсовой работы является приобретение баз данных СУБД. В ходе работы необходимо разработать информационную базу стоматологии.
• Стоматология представляет собой организацию, в которой циркулирует большое количество информационных потоков: информация о сотрудниках стоматологической клиники и предоставленных услугах.
• 
• 1. Microsoft Access
• Для создания новой базы данных в Microsoft Access достаточно выбрать команду Создать из меню Файл.
• 1.1 Базы данных. Общие понятия
• Базы данных (БД) - это организованный набор фактов в определенной предметной области. БД - это информация, упорядоченная в виде набора элементов, записей одинаковой структуры. Для обработки записей используются специальные программы, позволяющие их упорядочить, делать выборки по указанному правилу. Базы данных относятся к компьютерной технологии хранения, поиска и сортировки информации.
• БД - это совокупность взаимосвязанных данных при предельно малой избыточности, допускающей их оптимальное использование в определённых областях человеческой деятельности. БД, в зависимости от способа представления данных и отношений между ними, могут иметь реляционную (таблицы связаны между собой), сетевую или иерархическую структуры. На эффективность БД с той или иной структурой влияют условия её применения. Данные в БД организованы, как правило, в виде таблиц. Табличный способ отображения информации широко используется в документах и отчётах, поскольку он удобен и позволяет наглядно представлять различного рода данные.
• В БД может храниться миллионы записей. В любое время можно найти запись, которая необходима в данный момент. Результатом поиска информации в приведенной БД могут быть названия, суммы, количество, даты. Например, можно выбрать все стулья по цене 500 руб., поступившие в 1995 году.
• В базах данных можно проводить сортировку информации и вывод её на печать, удаление старой и вставка новой информации, просматривать БД целиком или по частям. С числами в таблицах можно проводить обычные математические операции (+,-,Х,:). Фамилии людей и названия предметов можно упорядочить по алфавиту.
• Программное обеспечение для управления и поддержки работоспособности БД называют системой управления базами данных (СУБД). СУБД осуществляют ввод, проверку, систематизацию, поиск и обработку данных, распечатку их в виде отчётов.
• Среди множества СУБД для IBM PC наиболее часто используются пакеты программ dBASE разных версий, FoxBase +, FoxPro, Fox Soft Ware, Clipper, совместимые с dBASE по системе команд и файлам.
• Например, БД, созданная в одной СУБД, может использоваться в другой совместимой с ней СУБД, имеющей формат файлов dBASE (*.dbf). Однако есть иные СУБД, например PARADOX и RBase, несовместимые с dBASE. Кроме СУБД для DOS, существуют СУБД, работающие в среде Windows, например Access, MS Works и др.
• В основе БД лежит представление данных в виде таблиц. Основными понятиями в СУБД являются поля и записи. В полях содержатся данные. Поле характеризуется длиной. Совокупность всех полей в строке называется записью.
• Структуру простейшей базы данных можно рассматривать как прямоугольную таблицу, состоящую из вертикальных столбцов и горизонтальных строк. Вертикальные столбцы принято называть полями, а горизонтальные строки - записями. Единицей хранимой информации является горизонтальная строка-запись, которая хранит информацию, например, об одном сотруднике фирмы. Каждая запись представляет собой совокупность полей.
• Типы данных
• В СУБД Clipper 5.0 можно обрабатывать следующие типы данных:
• 1) Символьный (Character).
• 2) Числовой (Numeric).
• 3) Дата календарная (Date).
• 4) Логический (Logical).
• 5) Примечание (Memo).
• Данные символьного типа - это любая последовательность символов длиной не более 254.
• Числовые данные делятся на 2 вида: целые и вещественные. Длина числового поля должна быть достаточной, чтобы поместились знак числа, целая часть, точка (десятичная) и дробная часть.
• Значения календарной даты по умолчанию отображаются в Американском формате ММ/ЧЧ/ГГ (ММ-месяц, ЧЧ-число, ГГ-год). Длина этого поля установлена автоматически и равна 8.
• Данные логического типа имеют значения ДА (YES) и НЕТ (NO).
• В математической логике они называются Истина (True) и Ложь (False). В логических полях БД используются только первые буквы латинских слов Y,T,N,F. Длина логического поля равна 1.
• В поле примечаний отмечается признак, который указывает, что к записи прилагается дополнительный фрагмент текста.
• Рассмотрим структуру базы данных для формата файла DBF. Такие базы данных создаёт СУБД Clipper 5.0.
• 1.2 Таблицы
• Таблица -- это набор данных по конкретной теме, такой как товары или поставщики. Использование отдельной таблицы для каждой темы означает, что соответствующие данные сохранены только один раз, что делает базу данных более эффективной и уменьшает число ошибок при вводе данных. Таблицы организуют данные в столбцы (называемые полями) и строки (называемые записями).
• Для создания таблицы достаточно воспользоваться конструктором таблиц, с помощью которого можно определить имена полей таблицы и типы данных полей. Кроме того, для создания наиболее часто используемых в базе данных таблиц, можно воспользоваться режимом мастера.
• После того, как необходимые поля будут определены, можно определить первичный ключ для таблицы, содержащий одно или несколько полей. Первичный ключ используется для связывания таблицы с вторичными ключами в других таблицах. Это одно или несколько полей (столбцов), комбинация значений которых однозначно определяет каждую запись в таблице. Первичный ключ не допускает значений Null и всегда должен иметь уникальный индекс.
• После создания в базе данных Microsoft Access отдельных таблиц по каждой теме необходимо выбрать способ, которым Microsoft Access будет вновь объединять сведения таблиц. Первым делом следует определить связи между таблицами. После этого можно создать запросы, формы и отчеты для одновременного отображения сведений из нескольких таблиц. Для определения связей между таблицами следует воспользоваться командой
• Схема Данных из меню Сервис.
• Распределение данных по таблицам
• Чтобы распределить данные по таблицам, выделите основные группы или темы. Например, после поиска и организации данных для базы данных продаж продуктов может быть составлен следующий список:
• Основные группы -- продукты, поставщики, клиенты и заказы. Поэтому целесообразно создать четыре таблицы: по одной для сведений о продуктах, поставщиках, клиентах и заказах. Хотя составленный список не является полным, можно начать с этих основных таблиц. Список можно дополнять до тех пор, пока не будет получена нужная структура базы данных.
• При первом просмотре предварительного списка элементов может показаться, что целесообразнее поместить все элементы в единую таблицу вместо того чтобы создавать четыре таблицы, как показано в предыдущем примере. В этом разделе объясняется, почему такой подход неэффективен. Ознакомьтесь с таблицей на иллюстрации.
• В данном случае каждая строка содержит данные о продуктах и поставщиках. Поскольку один поставщик поставляет различные продукты, его имя и адрес приходится вводить повторно. При этом место на диске используется неэффективно. Более рациональным решением является сохранение сведений о поставщике в отдельной таблице поставщиков и связывание этой таблицы с таблицей продуктов.
• Вторая проблема при такой структуре базы данных возникает при необходимости изменить данные о поставщике. Предположим, что требуется изменить адрес поставщика. Поскольку данные о поставщике содержатся в большом количестве строк, пользователь может пропустить некоторые из них. Эту проблему можно также решить с помощью сохранения адреса поставщика в одном расположении.
• При разработке базы данных следует стремиться к однократному сохранению каждого элемента данных. Если данные повторяются (например, адрес отдельного поставщика), поместите их в отдельную таблицу.
• Наконец, предположим, что компания Coho Winery поставляет только один продукт и его требуется удалить, но при этом сохранить сведения об имени и адресе поставщика. Как удалить запись о продукте, сохранив при этом данные поставщика? Это невозможно. Поскольку каждая строка содержит данные о продукте, а также данные о поставщике, невозможно удалить эти данные отдельно друг от друга. Чтобы разделить эти данные, необходимо создать две таблицы: одну для сведений о продуктах, а вторую -- для сведений о поставщиках. В этом случае удаление записи о продукте не будет приводить к удалению данных о поставщике.
• После выбора темы для таблицы необходимо отслеживать, чтобы столбцы этой таблицы содержали данные только по этой теме. Например, таблица продуктов должна содержать только сведения о продуктах. Поскольку адрес поставщика относится к данным о поставщиках, а не о продуктах, он должен быть сохранен в таблице поставщиков.
• Таблицы и связи
• Для хранения данных необходимо создать таблицу для каждого типа отслеживаемых сведений. Типы сведений могут включать данные о покупателях, продуктах или подробные сведения о заказах. Чтобы объединить данные из нескольких таблиц в запросе, форме или отчете, нужно определить связи между таблицами.
• 1.3 Запросы
• Запрос -- это набор инструкций, который можно использовать для обработки данных. Чтобы эти инструкции были выполнены, запрос следует запустить. Запрос не только возвращает результаты -- которые можно сортировать, группировать и фильтровать -- с помощью запроса можно также создавать, копировать, удалять и изменять данные.
• Запросы используются для просмотра, изменения и анализа данных различными способами. Запросы также можно использовать в качестве источников записей для форм, отчетов и страниц доступа к данным.
• Запрос можно создать с помощью мастера или самостоятельно. Наиболее удобным является создание запроса в режиме конструктора непосредственно командами SQL.
• С помощью языка SQL (Structured Query Language) можно создавать не только запросы на выборку данных, но и на добавление, изменение, удаление данных. Подмножество SQL DDL (Data Defining Language) позволяет изменять структуру базы данных, создавая или изменяя таблицы, индексы, представления, процедуры и другие объекты базы данных.
• С помощью запроса можно найти и извлечь данные (в том числе и данные из нескольких таблиц), соответствующие указанным условиям. Запросы также используются для обновления или удаления нескольких записей одновременно и выполнения предопределенных или пользовательских вычислений на основе данных.
• 1.4 Отчеты
• Отчет представляет собой эффективный способ представления данных в печатном формате. Имея возможность управлять размером и внешним видом всех элементов отчета, пользователь может отобразить сведения желаемым образом. Большая часть сведений в отчете поступает из базовой таблицы, запроса или инструкции SQL, являющейся источником данных для отчета. Остальные сведения отчета хранятся в его структуре.
• Отчеты могут быть открыты в трех режимах: в режиме конструктора, в режиме предварительного просмотра и в режиме просмотра образца. Режим конструктора используют для создания отчета или изменения структуры существующего отчета. Режим предварительного просмотра позволяет просматривать данные в том виде, в котором они будут размещаться на печатных страницах. В режиме просмотра образца отображается макет отчета с образцами данных. Если форма или отчет создаются с помощью мастера, то по умолчанию задаются стандартные характеристики формы или отчета, определяемые используемым шаблоном. Шаблон определяет, какие разделы будут содержаться в создаваемом документе, и какие размеры будут иметь эти разделы. Кроме того, шаблон определяет стандартные настройки свойств формы или отчета, их разделов и содержащихся в них элементов управления. Для форм или отчетов по умолчанию используются шаблоны с именем "Обычный". Однако пользователь имеет возможность указать в качестве шаблона имя любой существующей формы или отчета. Допускается также создание специальных форм и отчетов, предназначенных для использования в виде шаблонов.
• Отчет - это форматированное представление данных, которое выводится на экран, в печать или файл. Они позволяют извлечь из базы нужные сведения и представить их в виде, удобном для восприятия, а также предоставляют широкие возможности для обобщения и анализа данных.
• При печати таблиц и запросов информация выдается практически в том виде, в котором хранится. Часто возникает необходимость представить данные в виде отчетов, которые имеют традиционный вид и легко читаются. Подробный отчет включает всю информацию из таблицы или запроса, но содержит заголовки и разбит на страницы с указанием верхних и нижних колонтитулов.
• 1.5 Формы
• Форма -- это объект базы данных, который можно использовать для создания интерфейса пользователя для приложения базы данных. "Привязанная" форма напрямую соединена с источником данных, например к таблице или запросу, и может использоваться для ввода, изменения или отображения данных из источника данных. Как вариант, можно создать "свободную" форму, которая не связана напрямую с источником данных, но которая все равно может содержать кнопки, надписи и другие элементы управления, необходимые для работы приложения.
• Access предоставляет возможность вводить данные как непосредственно в таблицу, так и с помощью форм. Форма в БД - это структурированное окно, которое можно представить так, чтобы оно повторяло форму бланка. Формы создаются из набора отдельных элементов управления.
• Внешний вид формы выбирается в зависимости от того, с какой целью она создается. Формы Access позволяют выполнять задания, которые нельзя выполнить в режиме таблицы. Формы позволяют вычислять значения и выводить на экран результат. Источником данных для формы являются записи таблицы или запроса
• Способы создания форм:
• Конструктор форм (предназначен для создания формы любой сложности)
• Мастер форм (позволяет создавать формы различные как по стилю, так и по содержанию)
• Автоформа: в столбец (многостраничная - поля для записи выводятся в один столбец, в форме одновременно отображаются данные для одной записи)
• Автоформа: ленточная (все поля записи выводятся в одну строку, в форме отображаются все записи)
• Автоформа: табличная (отображение записей осуществляется в режиме таблица)
• Автоформа: сводная таблица
• Автоформа: сводная диаграмма
• Диаграмма (создается форма с диаграммой, построенной Microsoft Graph)
• Сводная таблица (создается форма Access, отображаемая в режиме сводной таблицы Excel)
• Формы можно использовать для разных целей:
• § Для ввода данных в таблицу
• § Для открытия других форм и отчетов
• § Создания диалоговых окон
• Наиболее удобными способами создания формы являются создание формы с помощью конструктора и с помощью мастера.
• Мастер задает подробные вопросы об источниках записей, полях, макете, требуемых форматах и создает форму на основании полученных ответов. С помощью мастера наиболее удобно создавать формы, предназначенные для ввода и редактирования данных.
• 
• 2. Delphi (язык программирования)
• Delphi (Демлфи,произносится /?d?l?fi:/^[1]) императивный, структурированный, объектно-ориентированный язык программирования со строгой статической типизацией переменных. Основная область использования -- написание прикладного программного обеспечения.
• Первоначально носил название Object Pascal и исторически восходит к одноимённому диалекту языка, разработанному в фирме Apple в 1986 году группой Ларри Теслера^[2]. Однако в настоящее время термин Object Pascalчаще всего употребляется в значении языка среды программирования Delphi. Начиная с Delphi 7^[3], в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal.
• Embarcadero Delphi - ранее Borland Delphi и CodeGear Delphi, --интегрированная среда разработки ПО для Microsoft Windows, Mac OS, iOS иAndroid на языке Delphi (ранее носившем название Object Pascal), созданная первоначально фирмой Borland и на данный момент принадлежащая и разрабатываемая Embarcadero Technologies. Embarcadero Delphi является частью пакета Embarcadero RAD Studio и поставляется в пяти редакциях: Starter, Professional, Enterprise, Ultimate и Architect. Координирующий офис Embarcadero, ответственный за разработку Delphi, находится в Торонто, тогда как сама разработка сконцентрирована главным образом в России, Канаде и Испании^[2].
• 2.1 Целевая платформа
• Изначально среда разработки Delphi была предназначена исключительно для разработки приложений Windows, затем был реализован вариант для платформ Linux (как Kylix), однако после выпуска в 2002 году Kylix 3 его разработка была прекращена, и вскоре было объявлено о поддержке Microsoft .NET, которая, в свою очередь, была прекращена с выходом Delphi 2007.
• На сегодняшний день, наряду с поддержкой разработки 32 и 64-разрядных программ для Windows, реализована возможность создавать приложения для Apple Mac OS X (начиная с Embarcadero Delphi XE2), iOS (включая симулятор, начиная с XE4 посредством собственного компилятора), а также, в Delphi XE5, для Google Android (непосредственно исполняемые на ARM-процессоре).
• Независимая, сторонняя реализация среды разработки проектом Lazarus (Free Pascal, компиляция в режиме совместимости с Delphi) позволяет использовать его для создания приложений на Delphi для таких платформ, как Linux, Mac OS X и Windows CE.
• Также предпринимались попытки использования языка в проектах GNU (например, Notepad GNU) и написания компилятора^{[источник не указан 2359 дней]} для GCC.
• 2.2 История языка
• Object Pascal -- результат развития языка Турбо Паскаль, который, в свою очередь, развился из языка Паскаль. Паскаль был полностью процедурным языком, Турбо Паскаль, начиная с версии 5.5, добавил в Паскаль объектно-ориентированные свойства, а в Object Pascal -- динамическую идентификацию типа данных с возможностью доступа к метаданным классов (то есть к описанию классов и их членов) в компилируемом коде, также называемую интроспекцией -- данная технология получила обозначение RTTI. Так как все классы наследуют функции базового класса TObject, то любой указатель на объект можно преобразовать к нему, после чего воспользоваться методом ClassType и функцией TypeInfo, которые и обеспечат интроспекцию.
• Также отличительным свойством Object Pascal от С++ является то, что объекты по умолчанию располагаются в динамической памяти. Однако можно переопределить виртуальные методы NewInstance и FreeInstance класса TObject. Таким образом, абсолютно любой класс может осуществить "желание" "где хочу -- там и буду лежать". Соответственно организуется и "многокучность".
• Object Pascal (Delphi) является результатом функционального расширения Turbo Pascal^[4].
• Delphi оказал огромное влияние на создание концепции языка C# для платформы .NET.^{[источник не указан 1328 дней]} Многие его элементы и концептуальные решения вошли в состав С#. Одной из причин называют переход Андерса Хейлсберга, одного из ведущих разработчиков Дельфи, из компании Borland Ltd. в Microsoft Corp.
• · Версия 8 способна генерировать байт-код исключительно для платформы .NET. Это первая среда, ориентированная на разработку мультиязычных приложений (лишь для платформы .NET);
• · Последующие версии (обозначаемые годами выхода, а не порядковыми номерами, как это было ранее) могут создавать как приложения Win32, так и байт-код для платформы .NET.
• Delphi for .NET -- среда разработки Delphi, а также язык Delphi (Object Pascal), ориентированные на разработку приложений для .NET.
• Первая версия полноценной среды разработки Delphi для .NET -- Delphi 8. Она позволяла писать приложения только для .NET. Delphi 2006 поддерживает технологию MDA с помощью ECO (Enterprise Core Objects) версии 3.0.
• В марте 2006 года компания Borland приняла решение о прекращении дальнейшего совершенствования интегрированных сред разработки JBuilder, Delphi и C++ Builder по причине убыточности этого направления. Планировалась продажа IDE-сектора компании. Группа сторонников свободного программного обеспечения организовала сбор средств для покупки у Borland прав на среду разработки и компилятор^[5].
• Однако в ноябре того же года было принято решение отказаться от продажи IDE-бизнеса. Тем не менее, разработкой IDE продуктов теперь будет заниматься новая компания -- CodeGear, которая будет финансово полностью подконтрольна Borland.
• В августе 2006 года Borland выпустил облегченную версию RAD Studio под именем Turbo: Turbo Delphi (для Win32 и .NET), Turbo C#, Turbo C++.
• В марте 2008 года было объявлено о прекращении развития этой линейки продуктов.
• В марте 2007 года CodeGear порадовала пользователей обновлённой линейкой продуктов Delphi 2007 for Win32 и выходом совершенно нового продукта Delphi 2007 for PHP.
• В июне 2007 года CodeGear представила свои планы на будущее, то есть опубликовала так называемый roadmap^[6].
• 25 августа 2008 года компания Embarcadero, новый хозяин CodeGear, опубликовала пресс-релиз на Delphi for Win32 2009^[7]. Версия привнесла множество нововведений в язык, как то^[8]:
• · По умолчанию полная поддержка Юникода во всех частях языка, VCL и RTL; замена обращений ко всем функциям Windows API на юникодные аналоги (то есть MessageBox вызывает MessageBoxW, а не MessageBoxA).
• · Обобщённые типы, они же generics.
• · Анонимные методы.
• · Новая директива компилятора $POINTERMATH [ON|OFF].
• · Функция Exit теперь может принимать параметры в соответствии с типом функции.
• Вышедшая в 2011 году версия Delphi XE2 добавила компилятор Win64 и кросс-компиляцию для операционных систем фирмыApple (MacOS X, iOS).
• Вышедшая в 2013 году версия Delphi XE5 обеспечила кросс-компиляцию приложений для устройств на платформе ARM/Android.
• 2.3 Синтаксис языка
• Операторы
• Список операторов через пробел: := + -- * / div mod not and or with xor shl shr ^ = <> >= <= < > @ in is as
• Выражения
• Выражения в Object Pascal (Delphi) бывают арифметическими, логическими и строковыми.
• Основные логические выражения:
• Логические выражения в основном употребляются в условных операторах. К логическим выражениям относятся такие операции как:
• not -- "НЕ"
• and -- "И", умножение (пересечение) логических выражений (<логическое_выражение1> AND <логическое_выражение2>)
• or -- "ИЛИ", объединение логических выражений (<логическое_выражение1> OR <логическое_выражение2>)
• xor -- "Исключающее ИЛИ", оператор, дающий истину в случае истинности ровно одного из двух операндов (<логическое_выражение1> XOR <логическое_выражение2>)
• Те же четыре оператора используются как бинарные для целочисленных типов. К битовым операторам целочисленных типов относятся также shl, shr -- операторы логического сдвига.
• По типу возвращаемого значения различаются операторы целочисленного деления (div и mod) и оператор /. Последний, применяемый как к целочисленным, так и к вещественным операндам, всегда в результате дает вещественный тип.
• Операторы +, -, * -- сложение, вычитание, пересечение -- используются также для манипуляции со встроенныммножественным типом. Для проверки вхождения элемента во множество предназначен специальный оператор in:
• type
• TDayOfWeek = (Sunday, Monday, Tuesday, Wednesday, Thursday, Friday, Saturday); //задается тип перечислений
• TDays = set of TDayOfWeek; //задается тип множества
• var
• day: TDayOfWeek;
• days: TDays;
• isMyDay: Boolean;
• begin
• days := [Sunday, Tuesday, Saturday];
• day := Monday;
• isMyDay := day in days; // оператор in возвращает булевое значение, принимая первым операндом значение типа "элемент множества", а вторым -- значение типа "множество"
• end;
• Оператор сложения + используется также для конкатенации строк (когда используются встроенные строковые типы).
• Оператор ^ разыменовывает указатель. Оператор @ выполняет обратное действие, возвращая адрес переменной. Поддерживается простые операции сложения и вычитания над типизированными указателями, с учётом размера типов, на которые они указывают (умная арифметика указателей).
• В Delphi оператор присваивания, :=, образует не выражение, а операцию, таким образом, не допускается "нанизывание" присваиваний.
• Объекты
• Объекты как экземпляры класса объявляются в программе в разделе var как обычные переменные. Например:
• var
• CCircle1: TColorCircle;
• CircleA: TCircle;
• Как и в случае записей, для обращения к конкретному элементу объекта (полю, свойству или методу) указывается имя объекта и имя элемента, разделённые точкой, то есть имя элемента является составным.
• Классы
• В языке Object Pascal классы -- это специальные типы данных, используемые для описания объектов. Соответственно объект, имеющий тип какого-либо класса, является экземпляром (instance) этого класса или переменной этого типа.
• Класс представляет собой особый тип, имеющий в своём составе такие элементы, как поля, свойства и методы. Поля класса аналогичны полям записи и служат для хранения информации об объекте. Методами называются процедуры и функции, предназначенные как правило для обработки полей. Свойства занимают промежуточное положение между полями и методами.
• 2.4 Объектно-ориентированные особенности языка
• Инкапсуляция
• Объединение и скрытие объектных данных, а также обрабатывающих их методов, внутри конкретного класса от пользователя называется инкапсуляцией.
• Наследование. При создании новых объектов способность получить все свойства и методы от своих предков называют наследованием. Такие объекты наследуют после своего создания все поля, свойства, события, методы и прочее от своих предков. Наследование часто избавляет разработчиков от рутинной работы и позволяет не мешкая приступить к разработке чего-то нового.
• Полиморфизм. Delphi поддерживает только ad hoc полиморфизм, т. е. методы различных объектов, которые могут иметь одинаковые имена, но по внутреннему содержимому отличаются друг от друга.
• 2.5 Структура программы
• Каждая написанная программа на языке Delphi состоит из заголовка программы (program NewApplication;), поля используемых модулей Uses (к примеру, Uses Windows, Messages, SysUtils и т. д.), который может не входить в саму структуру, а также блоков описания и исполнения (начинаются составным оператором begin и заканчиваются end.).
• program Project1; // Заголовок программы, с её именем "Project1"
• uses
• Forms,
• Unit1 in 'Unit1.pas' {Form1}; // модули, которые подключены к проекту и используются программой
• {$R *.res}
• begin
• Application.Initialize; // Инициализация приложения
• Application.CreateForm(TForm1, Form1); // Создание формы/окна
• Application.Run; // Запуск и исполнение
• end.
• 2.6 Расширения файлов
• · .pas -- исходный код модуля (pascal)
• · .dpr -- исходный код проекта (pascal)
• · .dproj -- исходный код проекта (xml)
• · .dproj.local -- исходный код проекта (xml)
• · .dfm -- исходный код формы
• · .dpk -- скомпилированный пакет
• · .dcu -- скомпилированный модуль
• · .exe -- скомпилированное приложение
• .res -- ресурсы
• 2.7 Известное программное обеспечение, созданное на Delphi
• Среди многих распространённых программных продуктов, написанных на Delphi, можно найти[9]:
• Продукция Embarcadero: Embarcadero Delphi, Embarcadero C++ Builder, Borland JBuilder 1 и 2 версии.
• · Администрирование и разработка баз данных: MySQL Tools, IBExpert.
• · Инженерное программное обеспечение: Altium Designer, SprutCAM.
• · Файловые менеджеры: Total Commander, Frigate, ViewFD, FreeCommander.
• · Просмотрщики графики: FastStone Image Viewer, FuturixImager, drComRead.
• · Редакторы графики: IcoFX.
• · Видео- и аудиопроигрыватели: Light Alloy, The KMPlayer, AIMP, X-Amp, Nata Player.
• · Программы мгновенного обмена сообщениями: QIP 2012, R&Q, The Bat!, PopTray, FeedDemon, MyChat, Skype (до покупкиMicrosoft).
• · Клиенты файлообменных сетей: Shareman.
• · Создание музыки: FL Studio, Guitar Pro (до версии 6.0).
• · Разработка программного обеспечения: Dev-C++, DUnit, Game Maker, Inno Setup, PyScripter.
• · Веб-разработка: Macromedia HomeSite, PHPEdit.
• · Текстовые редакторы: BirEdit, Notepad GNU, Bred, PSPad.
• · Бухучёт и налогообложение: "Бюджет 21", "Парус", AVARDA (до версии 6.x включительно).
• · Система Электронной Очереди "МАКСИМА".
• · Программы хранения и обработки медицинских изображений Makhaon Worsktation, Makhaon Storage
• · Программы для создания анимаций: Pivot Stickfigure Animator.

• 3. Практическая часть
• 3.1 АРМ дежурного воспитателя

В данной курсовой работе разработана база данных

Автоматизированное рабочее место дежурного воспитателя в Таласского мужского лицея "Манас Ата-Себат"

1.1.1. Таблицы

База данных АРМ дежурного воспитателя включает в себя следующую таблицу

· Dat

Рисунок 1. Таблица date

Рисунок 2. Таблица dat после заполнения данными

Формы

Рисунок 3. Главная форма программы "Тизме"

Рисунок 4. Редактирование одного класса

Рисунок 5. Окно добавления нового ученика

Рисунок 6. Окно редактирования ФИО и класса

Рисунок 7. Панель управления

Рисунок 8. Кнопки манипулирования данными

Рисунок 9. Отчет 1

Рисунок 10. Отчет 2

Рисунок 11. Отчет 3

Рисунок 12. Шкала для изменения размера шрифта

Рисунок 13. Окно о программе

Код программы

unit main;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Data.DB,

Vcl.Grids, Vcl.DBGrids, Data.Win.ADODB, frxClass, frxDBSet, frxExportImage,

frxExportRTF, frxExportPDF, System.ImageList, Vcl.ImgList, sSkinManager, acPNG,

Vcl.Menus, Vcl.ComCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Panel3: TPanel;

GroupBox1: TGroupBox;

CheckBox1: TCheckBox;

Button1: TButton;

ADOConnection1: TADOConnection;

DBGrid1: TDBGrid;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

frxPDFExport1: TfrxPDFExport;

frxRTFExport1: TfrxRTFExport;

frxJPEGExport1: TfrxJPEGExport;

GroupBox2: TGroupBox;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

ImageList1: TImageList;

DataSource1: TDataSource;

GroupBox4: TGroupBox;

Memo1: TMemo;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

ADOQuery1: TADOQuery;

ADOQuery1id: TAutoIncField;

ADOQuery1Классы: TWideStringField;

ADOQuery1Тобу: TWideStringField;

ADOQuery1Атыж?н?: TWideStringField;

ADOQuery1Жума: TWideStringField;

ADOQuery1Ишемби: TWideStringField;

ADOQuery1Колу1: TStringField;

ADOQuery1Сааты1: TStringField;

ADOQuery1Колу2: TStringField;

ADOQuery1Сааты2: TStringField;

Label1: TLabel;

frxDBDataset1: TfrxDBDataset;

frxReport1: TfrxReport;

sSkinManager1: TsSkinManager;

Button6: TButton;

Button7: TButton;

GroupBox3: TGroupBox;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

frxReport2: TfrxReport;

PopupMenu1: TPopupMenu;

R1: TMenuItem; хранение информация программный обеспечение

N1: TMenuItem;

N2: TMenuItem;

ComboBox3: TComboBox;

Label2: TLabel;

N3: TMenuItem;

CheckBox2: TCheckBox;

frxReport3: TfrxReport;

TrackBar1: TTrackBar;

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure frxReport1GetValue(const VarName: string; var Value: Variant);

procedure R1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure ComboBox3MouseLeave(Sender: TObject);

procedure TrackBar1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses addandedit, gitkal, ABOUT;

procedure TForm1.Button1Click(Sender: TObject);

begin

if radiobutton6.Checked=true then

begin

if radiobutton1.Checked=true then

begin

if checkbox2.Checked=true then

frxReport2.ShowReport()

else

frxReport3.ShowReport();

end

else

frxReport1.ShowReport();

end

else

begin

if checkbox2.Checked=true then

frxReport2.ShowReport()

else

frxReport3.ShowReport();

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

ADOQuery1.Delete;

ADOQuery1.Refresh;

CheckBox1.OnClick(sender);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

ADOQuery1.Append;

Form3.ShowModal;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

aboutbox.ShowModal;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

close;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked=true then

begin

combobox1.Enabled:=false;

combobox2.Enabled:=false;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

if radiobutton1.Checked=true then

begin

if radiobutton4.Checked=true then

begin

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=false;

ADOQuery1.SQL.Add(memo1.Text+' where Жума="Кетпейт" order by Классы,Тобу');

end;

if radiobutton5.Checked=true then

begin

ADOQuery1Жума.Visible:=false;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add(memo1.Text+' where Ишемби="Кетпейт" order by Классы,Тобу');

end;

if radiobutton6.Checked=true then

begin

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add(memo1.Text+' where Жума="Кетпейт" or Ишемби="Кетпейт" order by Классы,Тобу');

end;

end;

if radiobutton2.Checked=true then

begin

if radiobutton4.Checked=true then

begin

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=false;

ADOQuery1.SQL.Add(memo1.Text+' where Жума="Кетет" order by Классы,Тобу');

end;

if radiobutton5.Checked=true then

begin

ADOQuery1Жума.Visible:=false;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add(memo1.Text+' where Ишемби="Кетет" order by Классы,Тобу');

end;

if radiobutton6.Checked=true then

begin

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add(memo1.Text+' where Ишемби="Кетет" or Жума="Кетет" order by Классы,Тобу');

end;

end;

if radiobutton3.Checked=true then

begin

ADOQuery1.SQL.Add(Memo1.Text+' order by Классы,Тобу');

end;

ADOQuery1.Active:=true;

ADOQuery1.ExecSQL;

label1.Caption:='Окуучулардын саны: '+ADOQuery1.RecordCount.ToString();

end;

if checkbox1.Checked=false then

begin

combobox1.Enabled:=true;

combobox2.Enabled:=true;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

if radiobutton1.Checked=true then

begin

if radiobutton4.Checked=true then

begin

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=false;

ADOQuery1.SQL.Add(memo1.Text+' where Классы=:p1 and Тобу=:p2 and Жума="Кетпейт" order by Классы,Тобу');

end;

if radiobutton5.Checked=true then

begin

ADOQuery1Жума.Visible:=false;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add(memo1.Text+' where Классы=:p1 and Тобу=:p2 and Ишемби="Кетпейт" order by Классы,Тобу');

end;

if radiobutton6.Checked=true then

begin

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add(memo1.Text+' where Классы=:p1 and Тобу=:p2 and Жума="Кетпейт" or Классы=:p1 and Тобу=:p2 and Ишемби="Кетпейт" order by Классы,Тобу');

end;

end;

if radiobutton2.Checked=true then

begin

if radiobutton4.Checked=true then

begin

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=false;

ADOQuery1.SQL.Add(memo1.Text+' where Классы=:p1 and Тобу=:p2 and Жума="Кетет" order by Классы,Тобу');

end;

if radiobutton5.Checked=true then

begin

ADOQuery1Жума.Visible:=false;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add(memo1.Text+' where Классы=:p1 and Тобу=:p2 and Ишемби="Кетет" order by Классы,Тобу');

end;

if radiobutton6.Checked=true then

begin

ADOQuery1Жума.Visible:=true;

ADOQuery1Ишемби.Visible:=true;

ADOQuery1.SQL.Add(memo1.Text+' where Классы=:p1 and Тобу=:p2 and Ишемби="Кетет" or Классы=:p1 and Тобу=:p2 and Жума="Кетет" order by Классы,Тобу');

end;

end;

if radiobutton3.Checked=true then

ADOQuery1.SQL.Add(memo1.Text+'where Классы=:p1 and Тобу=:p2 order by Классы,Тобу');

ADOQuery1.Parameters.ParamByName('p1').Value:=ComboBox1.Text;

ADOQuery1.Parameters.ParamByName('p2').Value:=ComboBox2.Text;

ADOQuery1.Active:=true;

ADOQuery1.ExecSQL;

label1.Caption:='Окуучулардын саны: '+ADOQuery1.RecordCount.ToString();

end;

end;

procedure TForm1.ComboBox3Change(Sender: TObject);

var stxt,stxt1:string;

begin

if Checkbox1.Checked=true then

begin

if radiobutton3.Checked=true then

begin

stxt:=adoquery1.SQL.Text;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

if radiobutton4.Checked=true then

ADOQuery1.SQL.Add('UPDATE dat SET Жума = '''+combobox3.Text+'''');

if radiobutton5.Checked=true then

ADOQuery1.SQL.Add('UPDATE dat SET Ишемби = '''+combobox3.Text+'''');

if radiobutton6.Checked=true then

ADOQuery1.SQL.Add('UPDATE dat SET Жума = '''+combobox3.Text+''', Ишемби = '''+combobox3.Text+'''');

ADOQuery1.ExecSQL;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(stxt);

ADOQuery1.Open;

end

else

showmessage('К?рс?т?лс?н тобунан баарын тандап, кайра аракет кылы?ыз!');

end

else

begin

if radiobutton3.Checked=true then

begin

stxt1:=adoquery1.SQL.Text;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

if radiobutton4.Checked=true then

ADOQuery1.SQL.Add('UPDATE dat SET Жума = '''+combobox3.Text+''' where Классы=:p1 and Тобу=:p2');

if radiobutton5.Checked=true then

ADOQuery1.SQL.Add('UPDATE dat SET Ишемби = '''+combobox3.Text+''' where Классы=:p1 and Тобу=:p2');

if radiobutton6.Checked=true then

ADOQuery1.SQL.Add('UPDATE dat SET Жума = '''+combobox3.Text+''', Ишемби = '''+combobox3.Text+''' where Классы=:p1 and Тобу =:p2');

ADOQuery1.Parameters.ParamByName('p1').Value:=ComboBox1.Text;

ADOQuery1.Parameters.ParamByName('p2').Value:=ComboBox2.Text;

ADOQuery1.ExecSQL;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(stxt1);

ADOQuery1.Open;

end

else

showmessage('К?рс?т?лс?н тобунан баарын тандап, кайра аракет кылы?ыз!');

end;

checkbox1.OnClick(Sender);

end;

procedure TForm1.ComboBox3MouseLeave(Sender: TObject);

begin

ComboBox3.Text:='';

end;

procedure TForm1.DBGrid1DblClick(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

label1.Caption:='Окуучулардын саны: '+ADOQuery1.RecordCount.ToString();

trackbar1.Position:=DBGrid1.Font.Size;

end;

procedure TForm1.frxReport1GetValue(const VarName: string; var Value: Variant);

begin

if CompareText(VarName, 'My Variable 1') = 0 then

begin

if checkbox1.Checked=true then

Value := 'Баардык класстар';

if checkbox1.Checked=false then

Value:=combobox1.Text+'-'+combobox2.Text+' классы';

end;

if CompareText(VarName, 'My Variable 2') = 0 then

begin

if radiobutton4.Checked=true then

Value:=radiobutton4.Caption;

if radiobutton5.Checked=true then

Value:=radiobutton5.Caption;

if radiobutton6.Checked=true then

Value:=radiobutton6.Caption;

end;

if CompareText(VarName, 'My Variable 3') = 0 then

begin

if radiobutton1.Checked=true then

Value:=radiobutton1.Caption;

if radiobutton2.Checked=true then

Value:=radiobutton2.Caption;

if radiobutton3.Checked=true then

Value:=radiobutton3.Caption;

end;

if CompareText(VarName, 'My Variable 4') = 0 then

Value:='Жума, Ишемби';

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Form3.ShowModal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

ADOQuery1.Delete;

ADOQuery1.Refresh;

end;

procedure TForm1.R1Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.TrackBar1Change(Sender: TObject);

begin

DBGrid1.Font.Size:=trackbar1.Position;

end;

end.

• 
• Заключение
• Информатизация освобождает работников учреждений "Манас Ата-Себат" от рутинных и бумажных операций и позволяет им больше времени уделять ученикам. Это приводит к сокращению нецелевого расхода интеллектуального багажа, позволяет работать и заниматься именно воспитателем.
• Главной целью курсовой работы является разработка информационной системы для автоматизации рабочего места дежурного. Для достижения цели, для обработку данных выполняемых объемов учеников лицея, были решены следующие задачи:
• 1. Включены все списки учеников лицея (ФИО);
• Благодаря информационной системе автоматизации дежурный воспитатель намного быстрее и качественно будет работать.


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

1. Бекаревич Ю. Б., Пушкина Н. В., Смирнова Е. Ю. Управление базами данных. СПб.: Изд. СПбГУ, 1999.

2. Горев А., Ахаян Р., Макашарипов С. Эффективная работа с СУБД. СПб.: Питер, 1997.

3. Информатика. Базовый курс /Симонович С.В. и др. - СПб: Издательство "Питер", 2000.

4. Информатика. Учебное пособие /Ломтадзе В.В., Шишкина Л.П. - Иркутск: ИрГТУ, 1999.

5. Информатика. Учебное пособие /Под ред. В.Г. Кирия. - Иркутск: ИрГТУ,1998 часть 2.

6. Интернет. www.wikipedia.org

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

...