Автор работы: Пользователь скрыл имя, 10 Января 2011 в 16:45, курсовая работа
Целью любой информационной системы является обработка данных об объектах реального мира.
В широком смысле слова база данных - это совокупность сведений о конкретных объектах реального мира в какой-либо предметной области.
I.Введение________________________________________________3
II.Формулировка задачи_____________________________________ 4
III.Создание Базы Данных “Поликлиника”(учет пацентов)
1.Создание таблиц и определение связей____________________5
2.Создание экранной формы______________________________10
3.Организация поиска____________________________________15
4.Создание и печать отчетов______________________________ 21
5.Создание меню _______________________________________ 26
IV.Заключение______________________________________________32
V.Список использованной литературы_________________________33
ФЕДЕРАЛЬНОЕ
АГЕНТСТВО ПО ОБРАЗОВАНИЮ
ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ
ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
НИЖЕГОРОДСКИЙ
ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ
им. Р.Е. АЛЕКСЕЕВА
ДЗЕРЖИНСКИЙ
ПОЛИТЕХНИЧЕСКИЙ ИНСТИТУТ (ФИЛИАЛ)
Создание
Базы Данных с помощью
Visual FoxPro
Вариант
№6
ПОЯСНИТЕЛЬНАЯ ЗАПИСКА
Работа
защищена ______________(дата)
С оценкой
________________________
СОДЕРЖАНИЕ
В настоящее время жизнь человека настолько насыщена различного рода информацией, что для ее обработки требуется создание огромного количества хранилищ информации различного назначения.
Современные информационные системы характеризуются огромными объемами хранимых данных, сложной организацией, необходимостью удовлетворять разнообразные требования многочисленных пользователей.
Основой информационной системы является база данных.
Целью любой информационной системы является обработка данных об объектах реального мира.
В широком смысле слова база данных - это совокупность сведений о конкретных объектах реального мира в какой-либо предметной области.
Кроме того, база данных - это хранилище данных для совместного использования. При автоматизации деятельности человека происходит перенос реального мира в электронный формат. Для этого выделяется какая-то часть этого мира и анализируется на предмет возможности автоматизации. Она называется предметной областью и строго очерчивает круг объектов, которые изучаются, измеряются, оцениваются и т.д. В результате этого процесса выделяются объекты автоматизации и определяются реквизиты, по которым данные объекты оцениваются.
Система управления базами данных (СУБД) — специализированная программа (чаще комплекс программ), предназначенная для организации и ведения базы данных.
Основные функции СУБД:
При разработке приложения я использовала программу Microsoft Visual FoxPro. Пакет Visual FoxPro включает в себя визуальную среду разработки СУБД, использующую в качестве языка программирования основы FoxPro. На протяжении длительного периода, Visual FoxPro оставался одним из наиболее популярных инструментов создания баз данных.
Предметная область: Поликлиника (учет пациентов).
Основные предметно-значимые сущности: Пациенты, Врачи.
Основные предметно-значимые атрибуты сущностей:
Основные требования к функциям системы:
(УЧЕТ ПАЦИЕНТОВ)
Для создания
среды окружения формы
Таблица «Пациенты»
Вкладка Fields:
Visual FoxPro не позволяет иметь в таблице поля с одинаковыми именами. При вводе имени, уже имеющегося в таблице, программа выдает предупреждение, указывающее, что поле с таким именем в таблице уже существует.
Вкладка Indexes.
Типы индексов.
Regular(Обычный). Создается индекс, в котором для каждой записи таблицы хранится значение индексного выражения. Если несколько записей имеют одинаковое значение индексного выражения, то каждое значение хранится отдельно и содержит ссылку на связанную с ней запись.
Unique(Уникальный). Создается индекс, в котором хранятся только неповторяющиеся значения индексного выражения. Таблица может иметь несколько уникальных индексов.
Candidate(Кандидат). Создается уникальный индекс, который не содержит полей с пустыми значениями. Этот индекс обладает всеми качествами первичного ключа и не является им только по той причине, что таблица не может содержать более одного первичного ключа.
Primary(Первичный). Создается уникальный индекс, который используется для связывания таблиц и определения условий целостности данных. Поля, входящие в первичный ключ, не должны допускать ввода пустых значений. В отличие от уникального индекса, таблица может иметь только один первичный ключ.
Вкладка Table
В ее верхней части расположено поле Name (Имя), в котором вы можете задать длинное имя таблицы. Это имя будет отображаться в окне проекта, а также использоваться при создании форм, запросов и отчетов.
Поле Browse.
В Visual FoxPro существует два режима просмотра таблицы: Edit (Ввод) и Browse (Обзор).При вводе данных в таблицу, представленную в режиме Browse (Обзор), после ввода одной записи пользователю необходимо самому добавлять новую пустую запись, используя для этого команду Append New Record (Добавить новую запись) из меню Table (Таблица) или комбинацию клавиш <Ctrl>+<Y>.
Таблица «Врачи»
Вкладка
Fields:
Вкладка Table.
Поле Browse.
В Visual FoxPro для
просмотра, ввода и редактирования
данных, хранящихся в таблицах, используются
формы, являющиеся более наглядным
средством представления
Кнопки управления
| Добавить | Просмотр | Удалить | Начало таблицы |
| append blank
thisform.refresh() |
browse | delete
do form Z:\fpro\form3.scx thisform.refresh() |
go top
thisform.refresh() |
| Конец таблицы | Вверх по таблице | Вниз по таблице | Выход |
| go bottom
thisform.refresh() |
if EOF()=.t.
go top else skip 1 endif thisform.refresh() |
if BOF()=.t.
go bottom else skip -1 endif thisform.refresh() |
thisform.release |
Среда окружения:
Кнопки управления
| Начало таблицы | Конец таблицы | Вверх по таблице | Вниз по таблице | Выход |
| go top
thisform.refresh() |
go bottom
thisform.refresh() |
if EOF()=.t.
go top else skip 1 endif thisform.refresh() |
if BOF()=.t.
go bottom else skip -1 endif thisform.refresh() |
thisform.release |
Кнопки «да», «нет».
| да | нет |
| pack
thisform.release() |
recall
thisform.release() |
Вид
Содержит следующие элементы управления:
Label, Command Button
Свойства формы:
| Объект-Имя_Объекта | Свойство | Значение |
| Form-Poisk | Caption | Поиск |
Свойства элементов управления:
| № | Объект-Имя_Объекта | Свойство | Значение |
| 1 | Label-Label1 | Caption | ПОИСК |
| 2 | CommandButton-Command1 | Caption | Найти диагноз по пациенту |
| 3 | CommandButton-Command2 | Caption | Найти пациентов ко врачу на дату |
| 4 | CommandButton-Command3 | Caption | Найти врачей по пациенту |
| 5 | CommandButton-Command4 | Caption | Выход |
События, связанные с объектами:
| № | Имя_Объекта.Метод | Код |
| 2 | Command1.Click | do form Z:\FoxPro\posl.scx |
| 3 | Command2.Click | do form Z:\FoxPro\uskr.scx |
| 4 | Command3.Click | do form Z:\FoxPro\zapr.scx |
| 5 | Command4.Click | thisform.release() |
Форма Posl
Последовательный поиск
Вид
Содержит следующие элементы управления:
Text Box
Command Button
Label
Свойства формы:
| Объект-Имя_Объекта | Свойство | Значение |
| Form-posl | Caption | Диагноз по пациенту |
Свойства элементов управления:
| № | Объект-Имя_Объекта | Свойство | Значение |
| 1 | TextBox-txt1 | Name | txt1 |
| 2 | CommandButton-Command1 | Caption | Найти |
| 3 | CommandButton-Command2 | Caption | Выход |
| 4 | Label-Label1 | Caption | Введите фамилию пациента: |
События, связанные с объектами:
| № | Имя_Объекта.Метод | Код |
| 2 | Command1.Click | d=alltrim(thisform.Text1. if len(d)!=0 locate for alltrim(fio)==d if found() browse for alltrim(fio)==d else MessageBox ("Совпадений не обнаружено!" , 0+48+0, "РЕЗУЛЬТАТ ПОИСКА") endif thisform.release() else MessageBox ("Введите Фамилию!" , 0+48+0, "РЕЗУЛЬТАТ ПОИСКА") endif |
| 3 | Command2.Click | thisform.release() |
Среда Окружения (Data Environment)
Форма Uskr
Ускоренный поиск
Вид
Содержит следующие элементы управления:
ComboBox
Command Button
Label
Свойства формы:
| Объект-Имя_Объекта | Свойство | Значение |
| Form-uskr | Caption | Пациенты к опр.врачу на опр.дату |
Свойства элементов управления:
| № | Объект-Имя_Объекта | Свойство | Значение |
| 1 | ComboBox-Combo1 | Name | Combo1 |
| 2 | CommandButton-Command1 | Caption | Найти |
| 3 | CommandButton-Command2 | Caption | Выход |
| 4 | Label-Label1 | Caption | Выберите ФИО врача : |
События, связанные с объектами:
| № | Имя_Объекта.Метод | Код |
| 2 | Command1.Click | d=Val(thisform.Сombo1.Value)
if d!=0 set order to fio if SEEK(d) browse for fiovracha=d else MessageBox ("Совпадений не обнаружено!" , 0+48+0, "РЕЗУЛЬТАТ ПОИСКА") endif thisform.release() else MessageBox ("Введите корректное ФИО врача" , 0+48+0, "РЕЗУЛЬТАТ ПОИСКА") endif |
| 3 | Command2.Click | thisform.release() |
Среда Окружения (Data Environment)
Форма Zapr
Поиск Запросом.
Вид
Содержит следующие элементы управления:
1 – Text Box
2,3 – Command Button
4 – Label
Свойства формы:
| Объект-Имя_Объекта | Свойство | Значение |
| Form-zapr | Caption | Врачи по пациентам |
Свойства элементов управления:
| № | Объект-Имя_Объекта | Свойство | Значение |
| 1 | TextBox-txt1 | Name | txt1 |
| 2 | CommandButton-Command1 | Caption | Найти |
| 3 | CommandButton-Command2 | Caption | Выход |
| 4 | Label-Label1 | Caption | Введите номер пациента: |
События, связанные с объектами:
| № | Имя_Объекта.Метод | Код |
| 2 | Command1.Click | d=Val(thisform.Text1.Value)
if d!=0 locate for nomer=d if found() SELECT Patient.fiovracha; FROM patient!patient; WHERE UPPER(Patient.fiovracha) = ""; ORDER BY Patient.fiovracha else MessageBox ("Совпадений не обнаружено!" , 0+48+0, "РЕЗУЛЬТАТ ПОИСКА") endif thisform.release() else MessageBox ("Введите корректный номер пациента!" , 0+48+0, "РЕЗУЛЬТАТ ПОИСКА") endif |
| 3 | Command2.Click | thisform.release() |
Среда Окружения (Data Environment)
4. Создание и печать отчетов
Отчет — форматированное
представление данных, выводимое
на экран, принтер или в файл. Отчет,
создаваемый в Visual FoxPro, может быть представлен
в табличном виде или в свободной форме.
Табличный отчет — это напечатанная таблица, в которой строка представляет собой запись, а каждый из элементов строки содержит поле исходной таблицы или вычисляемое поле. Данные в таблице упорядочены. Табличные отчеты используются для печати данных, представленных в виде списка.
Отчет Diagnoz
Требования:
-выбрать все диагнозы по пациентам или определенному пациенту.
Среда окружения (Data Environment)
Готовый отчет
Отчет Patient
Требования:
Среда окружения (Data Environment)
Готовый отчет
Отчет Vrachi
Требования:
-выбрать всех
врачей, к которым записан
Среда окружения (Data Environment)
Готовый отчет
5. Создание меню
В соответствии со стандартами Windows в любом приложении рекомендуется иметь строку меню, которая в Visual FoxPro содержит команды, предназначенные для вызова форм, формирования отчетов, запросов и т. д. При разработке приложения вы можете создать все требуемые объекты (базу данных, входящие в нее таблицы, формы, отчеты, запросы). Затем объединить отдельные объекты с помощью меню. Можно поступить иначе. Сначала разработать и создать меню, а затем по мере создания форм и отчетов включать их запуск в меню. Второй способ более нагляден. Вы в любой момент можете запустить меню и продемонстрировать заказчику, как создаваемая система выглядит, как осуществляется вызов тех или иных программ, запустить уже созданные формы, напечатать подготовленные отчеты.
Вид меню
База данных.
для каждого:
Просмотр 1
USE c:\basa\patient.dbf EXCLUSIVE
BROWSE
Заполнение1
do form c:\basa\pacient.scx
Просмотр 2
USE c:\basa\vrach.dbf EXCLUSIVE
BROWSE
Заполнение2
do form c:\basa\vr.scx
Сервис.
Поиск: do form c:\basa\poisk.scx
Печать отчетов.
для каждого:
report form c:\basa\diagnoz.frx preview
report form c:\basa\diagnoz.frx to file c:\basa\file2.txt NOCONSOLE
report form c:\basa\diagnoz.frx to printer NOCONSOLE
Вычисления.
do form c:\basa\v1.scx
Посчитать- count all to n
?n
Выход — thisform.release()
do form c:\basa\v2.scx
Выход — thisform.release()
do form c:\basa\v3.scx
Посчитать- SET HEADINGS off
CALCULATE all max(datar) to n
CALCULATE all min(datar) to n1
Выход — thisform.release()
Резервное копирование.
1 - copy file c:\basa\policlinic.pjx to c:\basa\policlinic2.pjx
2 - copy to c:\basa\policlinic3.pjx with cdx
О программе.
do form c:\basa\oprogramme.scx
OK – thisform.release()
Выход:
Современное производство
немыслимо без управляющих
работать. Если рассматривать информационное обеспечение (базы данных), то
современный рынок программного обеспечения может предложить довольно
большой выбор систем управления базами данных (СУБД), ориентированных на различных пользователей: от мелких предпринимателей до крупных предприятий и корпораций. Наш выбор FoxPro обусловлен прежде всего разносторонностью этой СУБД, удобством как для разработчика приложений, так и для обычного пользователя.В курсовой работе для выполнения поставленного задания была использована программа FoxPro, благодаря которой, и было создано приложение. Программа «Поликлиника» предназначена для учета пациентов, их диагнозов, а также записи их к определенному врачу на определенную дату. В программе можно выполнять поиск по нескольким параметрам, а также печать отчетов.