Создание Базы Данных “Поликлиника”

Автор работы: Пользователь скрыл имя, 10 Января 2011 в 16:45, курсовая работа

Краткое описание

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

В широком смысле слова база данных - это совокупность сведений о конкретных объектах реального мира в какой-либо предметной области.

Содержание

I.Введение________________________________________________3
II.Формулировка задачи_____________________________________ 4
III.Создание Базы Данных “Поликлиника”(учет пацентов)
1.Создание таблиц и определение связей____________________5
2.Создание экранной формы______________________________10
3.Организация поиска____________________________________15
4.Создание и печать отчетов______________________________ 21
5.Создание меню _______________________________________ 26
IV.Заключение______________________________________________32
V.Список использованной литературы_________________________33

Вложенные файлы: 1 файл

курсовая.doc

— 753.50 Кб (Скачать файл)

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ 

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ

ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

НИЖЕГОРОДСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

им. Р.Е. АЛЕКСЕЕВА

ДЗЕРЖИНСКИЙ ПОЛИТЕХНИЧЕСКИЙ ИНСТИТУТ (ФИЛИАЛ) 
 
 
 
 

Создание  Базы Данных с помощью Visual FoxPro 

Вариант №6 
 
 
 
 

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

      • К курсовой работе по дисциплине "Программирование"
       
       
       

                                                    РУКОВОДИТЕЛЬ 

                                                 ________________ Кулигина  Н.О.

                                                 (подпись) (фамилия,  и., о.)

                                                 ________________

                                                 (дата) 

                                                 СТУДЕНТ 

                                                 ________________ Щукина М.А.

                                                 (подпись) (фамилия,  и., о.)

                                                 ___________________ 08-АХТПП

                                                 (дата) (группа или шифр) 

      Работа  защищена ______________(дата) 

      С оценкой ________________________ 
       

      2010 г. 

      СОДЕРЖАНИЕ

       
       
       
        
      1. Введение________________________________________________3
      2. Формулировка задачи_____________________________________ 4
      3. Создание Базы Данных “Поликлиника”(учет пацентов)
        1. Создание таблиц  и определение связей____________________5
        2. Создание экранной формы______________________________10
        3. Организация поиска____________________________________15
        4. Создание и печать отчетов______________________________ 21
        5. Создание меню _______________________________________ 26
      4. Заключение______________________________________________32
      5. Список использованной литературы_________________________33
       
       
       

      1. ВВЕДЕНИЕ.
       

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

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

        Основой информационной системы является база данных.

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

          В широком смысле слова база данных - это совокупность сведений о конкретных объектах реального мира в какой-либо предметной области.

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

        Система управления базами данных (СУБД) — специализированная программа (чаще комплекс программ), предназначенная для организации и ведения базы данных.

        Основные  функции СУБД:

      • управление данными во внешней памяти (на дисках);
      • управление данными в оперативной памяти с использованием дискового кэша;
      • журнализация изменений, резервное копирование и восстановление базы данных после сбоев;
      • поддержка языков БД (язык определения данных, язык манипулирования данными).

      При разработке приложения я использовала программу  Microsoft Visual FoxPro. Пакет Visual FoxPro включает в себя визуальную среду разработки СУБД, использующую в качестве языка программирования основы FoxPro. На протяжении длительного периода, Visual FoxPro оставался одним из наиболее популярных инструментов создания баз данных.

         

         

      1. Формулировка задачи.

           Предметная область: Поликлиника (учет пациентов).

        Основные  предметно-значимые сущности: Пациенты, Врачи.

        Основные  предметно-значимые  атрибуты сущностей:

      • пациенты - фамилия, имя, отчество, дата рождения;
      • врачи - фамилия, имя, отчество, дата рождения, должность, специализация;

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

      • выбрать все диагнозы по пациентам или определенному пациенту;
      • выбрать всех пациентов, записанных к определенному врачу на определенную дату.
      • выбрать всех врачей, к которым записан определенный пациент.
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
      1. СОЗДАНИЕ  БАЗЫ ДАННЫХ “ПОЛИКЛИНИКА”

        (УЧЕТ  ПАЦИЕНТОВ)

        1. Создание таблиц  и определение связей

      Определение связей между таблицами (Data Environment).

       

        Для создания среды окружения формы предназначено  диалоговое окно DataEnvironment (Среда окружения), открыть которое можно несколькими способами,например: выбрать команду Data Environment (Среда окружения) из меню View(Вид).

        

        

       
       
       
       
       
       
       
       

        Таблица «Пациенты»

      Вкладка Fields:

        • Fields (Поля) — поля таблицы;

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

       
       
       
       
       

      Вкладка Indexes.

        • Indexes (Индексы) — индексы;

       
       
       
       
       
       
       
       

        Типы  индексов.

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

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

        Candidate(Кандидат).  Создается уникальный индекс, который  не содержит полей с пустыми  значениями. Этот индекс обладает всеми качествами первичного ключа и не является им только по той причине, что таблица не может содержать более одного первичного ключа.

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

       

      Вкладка Table

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

        

       
       
       
       
       
       
       
       

        Поле  Browse.

      В Visual FoxPro существует два режима просмотра таблицы: Edit (Ввод) и Browse (Обзор).При вводе данных в таблицу, представленную в режиме Browse (Обзор), после ввода одной записи пользователю необходимо самому добавлять новую пустую запись, используя для этого команду Append New Record (Добавить новую запись) из меню Table (Таблица) или комбинацию клавиш <Ctrl>+<Y>.

        

        Таблица «Врачи»

          Вкладка Fields:                                       Вкладка Indexes.

       
       
       
       
       
       
       
       

                  Вкладка Table.

                                                      

       
       
       
       
       
       
       
       

      Поле  Browse.

        

             

       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
       
        1. Создание  экранной формы

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

      • Экранные формы

      Форма pacient
        •  Среда окружения:

         
         
         
         

         
         
         
         
         
         
         

      • Свойства  формы.
      •  
         
         
         
         
         
         
         
         
         
         
         
         
         
         

        Кнопки  управления

        Добавить Просмотр Удалить Начало таблицы
        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
          • Форма vrach

          Среда окружения:

           
           
           
           
           
           
           
           
           
           

           
           
           
           
           
           
           
           
           
           
           
           

            • Свойства  формы

             
             
             
             
             
             
             
             
             
             
             
             
             
             
             
             

            Кнопки  управления

             
            Начало таблицы Конец таблицы Вверх по таблице Вниз по таблице Выход
            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
              • Форма  form3
                  •  
                    •                    
                      •                     
                    •  
                       

                      Кнопки «да», «нет».

                      да нет
                      pack

                      thisform.release()

                      recall

                      thisform.release()

                    •  
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                        1. Организация поиска в БД
                        Форма Поиска
                       

                      Вид

                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       

                      Содержит следующие  элементы управления:

                      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.Value)

                      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

                      Требования:

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

                        Среда окружения (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

                                                                                                                     Посчитать- count all to n

                                                                                                                                           ?n

                        Выход — 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()

                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       

                      Выход:

                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                      1. ЗАКЛЮЧЕНИЕ

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

                      работать. Если рассматривать информационное обеспечение (базы данных), то

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

                      большой выбор  систем управления базами данных (СУБД), ориентированных на различных пользователей: от мелких предпринимателей до крупных предприятий и корпораций. Наш выбор FoxPro обусловлен прежде всего разносторонностью этой СУБД, удобством как для разработчика приложений, так и для обычного пользователя.В курсовой работе для выполнения поставленного задания была использована программа FoxPro, благодаря которой, и было создано приложение.   Программа «Поликлиника» предназначена для учета пациентов, их диагнозов, а также записи их к определенному врачу на определенную дату. В программе можно выполнять поиск по нескольким параметрам, а также печать отчетов.

                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                       
                      1. СПИСОК  ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ. 
                      1. Иллюстрированный самоучитель по Visual FoxPro 8
                      1. Лебедев А. Н. Самоучитель  Visual FoxPro 9.0 , НТ Пресс, 2005.-300с: ил.
                      2. Лекции по программированию FoxPro, преподаватель Кулигина Н.О.
                      3. Омельченко Л. Н. Самоучитель Visual Foxpro 8. - СПб.: БХВ-Петербург, 2003.-688 с

    Информация о работе Создание Базы Данных “Поликлиника”