На бирже курсовых и дипломных проектов можно найти образцы готовых работ или получить помощь в написании уникальных курсовых работ, дипломов, лабораторных работ, контрольных работ, диссертаций, рефератов. Так же вы мажете самостоятельно повысить уникальность своей работы для прохождения проверки на плагиат всего за несколько минут.

ЛИЧНЫЙ КАБИНЕТ 

 

Здравствуйте гость!

 

Логин:

Пароль:

 

Запомнить

 

 

Забыли пароль? Регистрация

Повышение уникальности

Предлагаем нашим посетителям воспользоваться бесплатным программным обеспечением «StudentHelp», которое позволит вам всего за несколько минут, выполнить повышение уникальности любого файла в формате MS Word. После такого повышения уникальности, ваша работа легко пройдете проверку в системах антиплагиат вуз, antiplagiat.ru, etxt.ru или advego.ru. Программа «StudentHelp» работает по уникальной технологии и при повышении уникальности не вставляет в текст скрытых символов, и даже если препод скопирует текст в блокнот – не увидит ни каких отличий от текста в Word файле.

Результат поиска


Наименование:


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

Информация:

Тип работы: лабораторная работа. Добавлен: 08.07.2012. Сдан: 2010. Страниц: 9. Уникальность по antiplagiat.ru: < 30%

Описание (план):


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

     Кафедра 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'
и т.д.................


Перейти к полному тексту работы


Скачать работу с онлайн повышением уникальности до 90% по antiplagiat.ru, etxt.ru или advego.ru


Смотреть полный текст работы бесплатно


Смотреть похожие работы


* Примечание. Уникальность работы указана на дату публикации, текущее значение может отличаться от указанного.