Московский Авиационный Институт
(Государственный Технический Университет)
Кафедра 308
Отчёт по лабораторной работе
“Телефонный справочник”
(клиент-серверная архитектура)
Выполнили
Жукова А.М.
Белезекова А.Т.
гр. 03-217
Преподаватель
Склеймин Ю.Б.
Москва 2010
Постановка задачи.
Разработать программу , реализующую работу телефонного справочника. Для разработки использовать SybaseSQLAnywhere 5.5 в качестве серверной части и MSVisualFoxPro 5.0 в качестве клиентской части. Добавить функции добавления, удаления, редактирования и поиска записей.
Описание задачи.
Необходимо реализовать телефонный справочник с использованием архитектуры «клиент-сервер».
Каждая из составляющих эту архитектуру элементов играет свою роль: сервер владеет и распоряжается информационными ресурсами системы, клиент имеет возможность воспользоваться ими. Сервер базы данных представляет собой мультипользовательскую версию СУБД, параллельно обрабатывающую запросы, поступившие со всех рабочих станций. В его задачу входит реализация логики обработки транзакций с применением необходимой техники синхронизации - поддержки протоколов блокирования ресурсов, обеспечение, предотвращение и/или устранения тупиковых ситуаций.
В ответ на пользовательский запрос рабочая станция получит не «сырье» для последующей обработки, а готовые результаты. Программное обеспечение рабочей станции при такой архитектуре играет роль только внешнего интерфейса (Front - end) централизованной системы управления данными. Это позволяет существенно уменьшить сетевой трафик, сократить время на ожидание блокированных ресурсов данных в мультипользовательском режиме, разгрузить рабочие станции и при достаточно мощной центральной машине использовать для них более дешевое оборудование.
Для современных СУБД архитектура «клиент-сервер» стала фактически стандартом.
При создании таблиц и связей между ними, следуя только немногим формализованным
правилам, можно обеспечить простоту манипулирования данными. Его методика получила
наименование нормализации данных
.
Мощь реляционных баз данных, таких как SybaseSQLAnywhere, опирается на их способность бы-
стро найти и связать данные из разных таблиц при помощи запросов, форм и отчетов. Для этого
каждая таблица должна содержать одно или несколько полей, однозначно определяющих
каждую запись в таблице. Такие поля называют первичным ключом таблицы
. Если для
таблицы определен первичный ключ, то SybaseSQLAnywhere предотвращает дублирование
значений полей.
Завершающим этапом нормализации таблицы будет будет установка связей между таблицами и правил удаления, добавления и обновления записей в родительских и сводной таблицах.
Получение, изменение, удаление данных на сервере из клиентской части производится с помощью 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
Предварительно в 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).
Вывод
|