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

(Государственный Технический Университет)
Кафедра 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).

Вывод

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