Поиск данных по различным атрибутам

Лабораторная работа

по курсу «Управление базами данных»

 

 

Выполнил: Куликов Д.А.

Группа: 03-217

Руководитель: Склеймин Ю.Б.

 

 

Москва, 2011г.

 

Содержание

Цель работы.. 3

Постановка задачи. 3

Выполнение работы.. 3

Правила ссылочной целостности. 4

Пользовательский интерфейс. 4

Описание кнопок. 5

Заключение. 8

Вывод. 8

Приложение А.. 8

Приложение В.. 12

 

 

Цель работы:

Изучение основных элементов языка FOXPRO и его применение для разработки информационных систем.

 

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

 

Выполнение работы

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

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

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

 

Структура сводной таблицы:

cod	FAM	NAM	otch	Street	dom	flat	Telephone
N10	N5	N5	N5	N5	C 8	N4	C 12

Структура справочников:

 

 

NAM
cod	N5
name	C15

FAM
cod	N5
fam	C15

Street
cod	N5
val	C15

OTCH
cod	N5
val	C25

 

 

(См. Приложение А)

На справочники ссылаются поля:

-FAM

-NAME

-OTCH

-Street

Правила ссылочной целостности

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

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

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

 

Пользовательский интерфейс

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

Описание кнопок

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

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

 

1)Добавление записи в базу данных.

 

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

 

2) Вывод данных по интересующим параметрам (фамилия, имя, отчество и т.д.). Далее представлен запрос по фамилии, другие варианты можно посмотреть в приложении А. Запрос выполняется при нажатии кнопки «поиск».

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

 

3) Удаление записи из базы. При нажатии кнопки «Редактировать» высветится новая форма, в которой надо отметить строки на удаление и нажать кнопку «Удалить» уже в новой форме.

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

5)Редактирование базы данных. При нажатии кнопки «Редактировать» высветится новая форма, в которой можно изменить данные любой строки и сохранить изменения нажатием кнопки «Сохранить» уже в новой форме.

6)Выходной документ(отчет) выводится при нажатии кнопки «Печать».

 

Заключение

В процессе выполнения работы были освоены и изучены методы объектно-ориентированного языка программирования Visual FoxPro. Была решена задача по разработке базы данных в виде телефонного справочника, содержание которого можно редактировать.

 

Вывод

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

Приложение А

Связи таблиц

Поиск данных по различным атрибутам

Поиск по фамилии

Поиск по имени

Поиск по отчеству

 

 

Поиск по улице

Поиск по номеру дома

Поиск по номеру квартиры

 

Поиск по номеру телефона

Приложение В

1)Программный код кнопки «добавить»:

IF!empty(THISFORM.CFam.value)

IF!empty(THISFORM.CNam.value)

IF!empty(THISFORM.COTCH.value)

IF!empty(THISFORM.CSTREET.value)

IF!empty(THISFORM.DOM.value)

IF!empty(THISFORM.FLAT.value)

IF!empty(THISFORM.TELEPHONE.value)

SELECT MAIN

CALCULATE MAX(COD) TO WSP

WSP=WSP+1

DIMENSION PER_ARR(8)

PER_ARR[1]=WSP

PER_ARR[2]=FAM.COD

PER_ARR[3]=NAM.COD

PER_ARR[4]=OTCH.COD

PER_ARR[5]=STREET.COD

PER_ARR[6]=CAST(thisform.DOM.value AS INT)

PER_ARR[7]=CAST(thisform.FLAT.value AS INT)

PER_ARR[8]=thisform.TELEPHONE.value

APPEND FROM ARRAY PER_ARR

messagebox('Запись добавлена!')

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

ELSE

messagebox('Заполните все поля!')

endif

thisform.Refresh

 

2)Программный код кнопки «удалить»:

SELECT TABLE7

DELETE

SELECT MAIN

DELETE ALL

SET DELETED on

SELECT table7

DIMENSION PER_ARR1(8)

SCAN

PER_ARR1[1]=TABLE7.COD

SELECT FAM

SCAN FOR FAM.FAM=TABLE7.FAM

PER_ARR1[2]=FAM.COD

ENDSCAN

SELECT NAM

SCAN FOR NAM.NAME=TABLE7.NAME

PER_ARR1[3]=NAM.COD

ENDSCAN

SELECT OTCH

SCAN FOR OTCH.VAL=TABLE7.OTCH

PER_ARR1[4]=OTCH.COD

ENDSCAN

SELECT STREET

SCAN FOR STREET.VAL=TABLE7.STREET

PER_ARR1[5]=STREET.COD

ENDSCAN

PER_ARR1[6]=CAST(TABLE7.DOM AS INT)

PER_ARR1[7]=CAST(TABLE7.FLAT AS INT)

PER_ARR1[8]=TABLE7.TELEPHONE

INSERT INTO MAIN FROM ARRAY PER_ARR1

SELECT TABLE7

ENDSCAN

messagebox('Записи успешно удалены')

THISFORM.Refresh

 

3)Программный код кнопки «поиск»:

SELECT Table7

DELETE ALL

DIMENSION PER_ARR(8)

SELECT MAIN

SCAN

SCATTER TO PER_ARR1

PER_ARR[1]=PER_ARR1[1]

SELECT FAM

SCAN FOR FAM.COD=PER_ARR1[2]

PER_ARR[2]=FAM.FAM

ENDSCAN

SELECT NAM

SCAN FOR NAM.COD=PER_ARR1[3]

PER_ARR[3]=NAM.NAME

ENDSCAN

SELECT OTCH

SCAN FOR OTCH.COD=PER_ARR1[4]

PER_ARR[4]=OTCH.VAL

ENDSCAN

SELECT STREET

SCAN FOR STREET.COD=PER_ARR1[5]

PER_ARR[5]=STREET.VAL

ENDSCAN

PER_ARR[6]=PER_ARR1[6]

PER_ARR[7]=PER_ARR1[7]

PER_ARR[8]=PER_ARR1[8]

INSERT INTO TABLE7 FROM ARRAY PER_ARR

SELECT MAIN

ENDSCAN

SELECT TABLE7

SCAN

I=0

IF (ALLTRIM(TABLE7.FAM)=ALLTRIM(THISFORM.CFam.value)) OR empty(THISFORM.CFam.value)

IF (ALLTRIM(TABLE7.NAME)=ALLTRIM(THISFORM.CNam.value)) OR empty(THISFORM.CNam.value)

IF (ALLTRIM(TABLE7.OTCH)=ALLTRIM(THISFORM.COTCH.value)) OR empty(THISFORM.COTCH.value)

IF (ALLTRIM(TABLE7.STREET)=ALLTRIM(THISFORM.CSTREET.value)) OR empty(THISFORM.CSTREET.value)

IF (ALLTRIM(TABLE7.DOM)=ALLTRIM(THISFORM.DOM.value)) OR empty(THISFORM.DOM.value)

IF (ALLTRIM(TABLE7.FLAT)=ALLTRIM(THISFORM.FLAT.value)) OR empty(THISFORM.FLAT.value)

IF (ALLTRIM(TABLE7.TELEPHONE)=ALLTRIM(THISFORM.TELEPHONE.value)) OR empty(THISFORM.TELEPHONE.value)

I=1

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

IF I=0

DELETE

ENDIF

SELECT TABLE7

ENDSCAN

SET DELETED ON

THISFORM.Refresh

 

4) Программный код кнопки «Печать»:

select main

report form report1.frx noeject noconsole to printer preview

5) Программный код кнопки «Сохранить»:

SET DELETED on

SELECT main

cou=RECCOUNT()

DIMENSION k(cou,8)

cou=0

SELECT TABLE7

SCAN

cou=cou+1

i=0

k[cou,1]=CAST(table7.cod as int)

SELECT FAM

SCAN

IF FAM.FAM=ALLTRIM(TABLE7.FAM)

k[cou,2]=fam.cod

i=1

ENDIF

ENDSCAN

 

IF I=1

SELECT NAM

SCAN

IF NAM.NAME=ALLTRIM(TABLE7.NAME)

k[cou,3]=nam.cod

i=2

ENDIF

ENDSCAN

 

IF I=2

SELECT OTCH

SCAN

IF OTCH.VAL=ALLTRIM(TABLE7.OTCH)

k[cou,4]=otch.cod

I=3

ENDIF

ENDSCAN

 

IF I=3

SELECT STREET

SCAN

IF STREET.VAL=ALLTRIM(TABLE7.STREET)

k[cou,5]=street.cod

k[cou,6]=CAST(table7.dom as int)

k[cou,7]=CAST(table7.flat as int)

k[cou,8]=table7.telephone

I=4

ENDIF

ENDSCAN

 

ENDIF

ENDIF

ENDIF

 

IF i<>4

MESSAGEBOX('Вы ввели некорректное значение одного из параметров у пользователя №'+table7.cod)

i=5

EXIT

ENDIF

SELECT table7

ENDSCAN

 

IF i<>5

SELECT main

FOR coul=1 TO cou

UPDATE main SET main.fam=k[coul,2],main.name=k[coul,3],main.otch=k[coul,4],main.street=k[coul,5],main.dom=k[coul,6],main.flat=k[coul,7],main.telephone=k[coul,8] WHERE main.cod=k[coul,1]

ENDFOR

MESSAGEBOX('Данные успешно изменены и сохранены')

ENDIF

 

 

SET DELETED ON

thisform.Load

thisform.Refresh

6) Программный код кнопки «Добавить» в родительских таблицах(все коды в родительских таблицах совпадают, разница лишь в названии таблиц):

SELECT fam

SET DELETED OFF

CALCULATE MAX(COD) TO PER_MAX

PER_MAX=PER_MAX+1

DIMENSION PER_ARR(2)

PER_ARR[1]=PER_MAX

PER_ARR[2]=' '

INSERT INTO FAM FROM ARRAY PER_ARR(2)

SET DELETED ON

THISFORM.Refresh