Отчет по управлению базами данных Телефонный справочник

Московский Авиационный Институт

(Государственный Технический Университет)











Кафедра 308











Отчёт по лабораторной работе

“Телефонный справочник”

(клиент-серверная архитектура)















                                                                                                   Выполнили

Жукова А.М.

Белезекова А.Т. 

гр. 03-217

                                                                                                   

                                                                                                   Преподаватель

Склеймин Ю.Б.











Москва 2010


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

Разработать программу , реализующую работу телефонного справочника. Для разработки использовать  Sybase SQL Anywhere 5.5 в качестве серверной части и MS Visual FoxPro 5.0 в качестве клиентской части. Добавить функции добавления, удаления, редактирования и поиска записей.



Описание задачи.

Необходимо реализовать телефонный справочник с использованием архитектуры «клиент-сервер».

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



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

Для современных СУБД архитектура «клиент-сервер» стала фактически стандартом.



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

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

наименование нормализации данных.

Мощь реляционных баз данных, таких как Sybase SQL Anywhere, опирается на их способность бы-

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

каждая таблица должна содержать одно или несколько полей, однозначно определяющих 

каждую запись в таблице. Такие поля называют первичным ключом таблицы. Если для 

таблицы определен первичный ключ, то Sybase SQL Anywhere предотвращает дублирование 

значений полей.

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

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









Структура сервера.

Родительские таблицы:

FAM

F_num

F_val

Integer

Char(20)

Ключевое поле

Фамилия





NAM

N_num

N_val

Integer

Char(20)

Ключевое поле

Имя



OTC

O_num

O_val

Integer

Char(20)

Ключевое поле

Отчество



STR

S_num

S_val

Integer

Char(20)

Ключевое поле

Улица



Дочерняя (сводная) таблица:

BOOK

Uniq_id

Fam

Nam

Otc

Street

Bldn

Bldn_kor

Appr

Telef

Integer

Integer

Integer

Integer

Integer

Char(8)

Char(8)

Char(4)

Char(12)

Ключевое поле

Код фамилии

Код имени

Код отчества

Код улицы

Дом

Корпус

Квартира

Телефон







Основная программа

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



Set date to german

Set century on

set multilocks on

set talk off

set delete off



SET SYSMENU TO

SET SYSMENU AUTOMATIC



PUBLIC E1,t1,bg_visible_fl,nam_b

PUBLIC New_Flag,start_id,end_id,Upd_flg,rnd_Time



e1=SQLCONNECT("217b","dba", "sql")

IF e1>0

   b1=SQLEXEC(e1,"select * from dba.fam", "fam")

   b1=SQLEXEC(e1,"select * from dba.nam", "nam")

   b1=SQLEXEC(e1,"select * from dba.otc", "otc")

   b1=SQLEXEC(e1,"select * from dba.street", "street")

ELSE 

   MESSAGEBOX('Ошибка соединения с базой данных!',48,'Ошибка входа в систему')

ENDIF



bg_visible_fl=.F.

do form main

DO MNU_BR.PRG

read events



close data all

rez=SQLDISCONNECT(e1)

return



FUNCTION Empty_m

PARAMETERS n_arg

IF n_arg=0 OR n_arg=1

	return .T.

ELSE

	return .F.

Endif



PROCEDURE n_itm_prc

PARAMETERS n_bar

 DO CASE

    CASE n_bar=1

    	DO FORM ed_fam

    CASE n_bar=2

    	DO FORM ed_nam

    CASE n_bar=3

    	DO FORM ed_otc

    CASE n_bar=4

    	DO FORM ed_str

 ENDCASE

return



 use test_lb in 0

 use nam in 0

 use fam in 0

  use street in 0

select test_lb

 select test_lb.uniq_id,fam.f_val as family, nam.nam_val as nam, street.s_val as street ;

 from test_lb, fam, nam, street;

 where nam.n_num=test_lb.name_ AND;

	   fam.f_num=test_lb.fam AND;

	   

	   street.s_num=test_lb.street ;

   	   	INTO table test













Родительские формы (изменение списков фамилий, имён, отчеств, улиц)

Работа данных форм показана на примере формы редактирования списка имён.







Код кнопки Добавить 

Dimension w_arr(2)

b1=SQLEXEC(e1, "Select Max(f_num) as st_1 from fam","wrk")



w_arr(1)=wrk.st_1+1

w_arr(2)=''



INSERT INTO fam FROM ARRAY w_arr

b1=SQLEXEC(e1,"INSERT INTO fam values(?w_arr(1),?w_arr(2))")



Thisform.grid1.setfocus()

Thisform.refresh



Для сохранения данных в новом поле в параметре Grid1.Column2.Header1.Text1 в Valid пишем:

IF Upd_flg

w_s="update fam set f_val='"+alltrim(fam.f_val)+"'"+ " where f_num="+ALLTRIM(STR(fam.f_num))

MESSAGEBOX(w_s)



r1=SQLEXEC(e1,w_s)



	Upd_flg=.f.

Endif

Предварительно в Interactive Change надо прописать:

Upd_flg=.t.





Код кнопки Удалить

select fam

MESSAGEBOX(STR(f_num))

wsp=f_num

b1=SQLEXEC(e1,"delete from fam where f_num=?wsp")

Thisform.refresh()

b1=SQLEXEC(e1,"select * from dba.fam", "fam") 

thisform.grid1.ColumnCount=2

thisform.grid1.recordsource='fam'

thisform.grid1.recordsourcetype=1



thisform.grid1.column1.header1.caption='Код'

thisform.grid1.column2.header1.caption='Фамилия'



thisform.grid1.column1.width=49

thisform.grid1.column2.width=230

thisform.Refresh()



Код кнопки Выход

Thisform.release



Главная сводная таблица

Синхронизация данных в таблице на клиентской форме и на сервере производится путём обработки события InteractiveChange() объектов Text в столбцах и строках объекта Grid:







Главная форма содержит кнопки редактирования имен, фамилий, отчеств, улиц, которые открывают соответствующие отдельные формы.  Также форма содержит кнопки:



Добавить запись

Считываются значения всех полей ввода. Для фамилий, имён, отчеств, улиц  по значению определяется их код. Рассчитывается максимальное значение ключевого поля, это значение увеличивается на единицу. Формируется запрос INSERT, который отправляется на сервер. Вызывается событие Click() кнопки Поиск для обновления данных в объекте Grid1.

if !empty(thisform.combo1.value)

	select fam

	locate for f_val = alltrim(thisform.combo1.value)

	w_f_num=f_num

else

	w_f_num=0

endif



if !empty(thisform.combo2.value)

	select nam

	locate for nam_val = alltrim(thisform.combo2.value)

	w_n_num=n_num

else

	w_n_num=0

endif



if !empty(thisform.combo3.value)

	select otc

	locate for otc_val = alltrim(thisform.combo3.value)

	w_otc_n=otc_n

else

	w_otc_n=0

endif



if !empty(thisform.combo4.value)

	select street

		locate for s_val = alltrim(thisform.combo4.value)

	w_s_num=s_num

else

	w_s_num=0

endif



b1=SQLEXEC(e1, "Select Max(Uniq_id) as max_pr_key from book","tabl_1")  



new_id=tabl_1.max_pr_key+1



dom=Thisform.text1.value

kor=Thisform.text2.value

kwr=VAL(Thisform.text3.value)

tel=Thisform.text4.value



que="Insert into book Values("+alltrim(str(new_id))

que=que+","+alltrim(str(w_f_num))+","+alltrim(str(w_n_num))+","+alltrim(str(w_otc_n))

que=que+","+alltrim(str(w_s_num))+",'"+alltrim(Thisform.text1.value)+"','"+alltrim(Thisform.text2.value)

que=que+"','"+Alltrim(Thisform.text3.value)+"','"+alltrim(Thisform.text4.value)+"')"



b1=SQLEXEC(e1, que)

MESSAGEBOX(que)

 			

Thisform.command1.click		

 				

Thisform.Grid1.SetFocus()

Thisform.Grid1.refresh()

Thisform.refresh()



Поиск

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



set safety off

	Dimension gr_hd(8),gr_sr(8)



gr_hd(1)='Фамилия'

gr_hd(2)='Имя'

gr_hd(3)='Отчество'

gr_hd(4)='Улица'

gr_hd(5)='Дом'

gr_hd(6)='Корпус'

gr_hd(7)='Квартира'

gr_hd(8)='Телефон'



gr_sr(1)='family'

gr_sr(2)='nam'

gr_sr(3)='otc'

gr_sr(4)='street'

gr_sr(5)='bld'

gr_sr(6)='bld_k'

gr_sr(7)='appr'

gr_sr(8)='tel'



if !empty(thisform.combo1.value)

	select fam

	locate for f_val = alltrim(thisform.combo1.value)

	w_f_num=f_num

else

	w_f_num=0

endif



if !empty(thisform.combo2.value)

	select nam

	locate for nam_val = alltrim(thisform.combo2.value)

	w_n_num=n_num

else

	w_n_num=0

endif



if !empty(thisform.combo3.value)

	select otc

	locate for otc_val = alltrim(thisform.combo3.value)

	w_otc_n=otc_n

else

	w_otc_n=0

endif



if !empty(thisform.combo4.value)

	select street

		locate for s_val = alltrim(thisform.combo4.value)

	w_s_num=s_num

else

	w_s_num=0

endif



req="select book.uniq_id, fam.f_val as family, nam.nam_val as nam, otc.otc_val as otc,"

req=req+"street.s_val as street,book.bldn as bld,book.bldn_kor as bld_k,"

req=req+"book.appr as appr,book.telef as tel "

req=req+"from book,fam,nam,street,otc "

req=req+"where nam.n_num=book.name_ AND "

req=req+"fam.f_num=book.fam AND "

req=req+"street.s_num=book.street AND "

req=req+"otc.otc_n=book.sndname "



wsp1=ALLTRIM(thisform.combo1.Value)

IF 	!EMPTY(wsp1)

	req=req+' AND f_val=?wsp1'

ENDIF



wsp2=ALLTRIM(thisform.combo2.Value)

IF 	!EMPTY(wsp2)

	req=req+' AND nam_val=?wsp2'

ENDIF



wsp3=ALLTRIM(thisform.combo3.Value)

IF 	!EMPTY(wsp3)

	req=req+' AND otc_val=?wsp3'

ENDIF



wsp4=ALLTRIM(thisform.combo4.Value)

IF 	!EMPTY(wsp4)

	req=req+' AND s_val=?wsp4'

ENDIF



wsp5=ALLTRIM(thisform.text1.Value)

IF 	!EMPTY(wsp5)

*?wsp5

	req=req+' AND book.bldn=?wsp5'

ENDIF



wsp6=ALLTRIM(thisform.text2.Value)

IF 	!EMPTY(wsp6)

	req=req+' AND book.bldn_kor=?wsp6'

ENDIF



wsp7=ALLTRIM(thisform.text3.Value)

IF 	!EMPTY(wsp7)

	req=req+' AND book.appr=?wsp7'

ENDIF



wsp8=ALLTRIM(thisform.text4.Value)

IF 	!EMPTY(wsp8)

	req=req+" AND book.telef='"+wsp8+"'"

ENDIF

MESSAGEBOX(req)



b1=SQLEXEC(e1,req, "test")

?b1

Thisform.Grid1.ColumnCount = 8



Thisform.grid1.recordsource='test'

Thisform.grid1.recordsourcetype=1

ThisForm.Grid1.DeleteMark=.F.

Thisform.grid1.readonly=.f.



icn=0



for icn=1 TO 8



w_str="Thisform.grid1.columns("+alltrim(str(icn))+").controlsource='"+alltrim(gr_sr(icn))+"'"

&w_str

Thisform.grid1.columns(icn).header1.caption=Alltrim(gr_hd(icn))

Thisform.grid1.columns(icn).header1.Alignment=2



endfor

select test

go top





Thisform.Grid1.SetFocus()

Thisform.Grid1.refresh()

Thisform.refresh()





Кнопка «Очистить»

Очищает все параметры поиска.

Thisform.combo1.Value=''

Thisform.combo2.Value=''

Thisform.combo3.Value=''

Thisform.combo4.Value=''



Thisform.text1.Value=''

Thisform.text2.Value=''

Thisform.text3.Value=''

Thisform.text4.Value=''



Закрытие формы

При закрытие формы происходит завершение соединения с сервером.

sqldisconnect(sql).



Вывод

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

1