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

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

Кафедра 308

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

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

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

Выполнили

Жукова А.М.

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

гр. 03-217

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

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

Москва 2010

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

FAM

NAM

OTC

STR

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

BOOK

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

В основной программе происходит соединение с сервером, объявление глобальной переменной 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

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

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

Вывод

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