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

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

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


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


Кафедра 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)+"'&quo

t;+ " 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).


Вывод

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

Сохранить в соц. сетях:
Обсуждение:
comments powered by Disqus

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

Слов:1284
Символов:17879
Размер:34.92 Кб.