Разработка и создание удаленной базы данных для автоматизации учета и отчетности в гостиничном комплексе “Ирина” на основе клиент-серве

Автор работы: Пользователь скрыл имя, 21 Февраля 2013 в 19:57, курсовая работа

Краткое описание

Часто ли пользователю нужен полный доступ к базе? В большинстве случаев запрашивается только та информация, которая напрямую относится к его сфере деятельности. Лучшим решением может являться перенос части базы ближе к пользователям. При решении этой задачи подобным способом получается территориально распределенная (удаленная) база данных.
Организация удаленных баз данных дает ряд преимуществ: снижается время отклика системы, повышается надежность хранения данных, уменьшается стоимость аппаратной части за счет снижения объемов данных, хранящихся на одном сервере.

Содержание

Введение
Глава1 Основные подходы к проектированию удаленных баз данных
1.1 Основные понятия теории реляционных баз данных
1.2 Сервер базы данных
1.2.1 Технология и модели "клиент-сервер"
Глава 2 Технологии, исползуемые в работе
Глава 3 Реализация модели учета доходов Магазина и продаваемого товара»
3 Постановка задачи
3.1 Общие технические характеристики технологии InterBase
ЗАКЛЮЧЕНИЕ
Список используемой литературы
ПРИЛОЖЕНИЯ
Схема данных
Экранные формы
Листинги программы

Скачать полностью (208.14 Кб) Сколько стоит заказать работу?

Прикрепленные файлы: 1 файл

klient.doc

— 493.50 Кб (Скачать документ)

end

object QRBand2: TQRBand

Left = 38

Top = 103

Width = 718

Height = 23

Frame.Color = clBlack

Frame.DrawTop = True

Frame.DrawBottom = True

Frame.DrawLeft = True

Frame.DrawRight = True

AlignToBottom = False

Color = clWhite

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -16

Font.Name = 'Arial'

Font.Style = []

ForceNewColumn = False

ForceNewPage = False

ParentFont = False

Size.Values = (

60.854166666666680000

1899.708333333333000000)

BandType = rbDetail

object QRDBText2: TQRDBText

Left = 0

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

DataSet = frmKassa.tblKassa

DataField = 'VREMA'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRDBText3: TQRDBText

Left = 112

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

296.333333333333400000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

DataSet = frmKassa.tblKassa

DataField = 'PRINATO'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRDBText4: TQRDBText

Left = 225

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

595.312500000000000000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

DataSet = frmKassa.tblKassa

DataField = 'SDACHA'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRDBText1: TQRDBText

Left = 346

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

915.458333333333200000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

DataSet = frmKassa.tblKassa

DataField = 'PRIB'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRDBText6: TQRDBText

Left = 469

Top = 0

Width = 248

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

1240.895833333333000000

0.000000000000000000

656.166666666666800000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

DataSet = frmKassa.tblKassa

DataField = 'FIO'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRBand4: TQRBand

Left = 38

Top = 126

Width = 718

Height = 67

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

AlignToBottom = False

Color = clWhite

ForceNewColumn = False

ForceNewPage = False

Size.Values = (

177.270833333333300000

1899.708333333333000000)

BandType = rbSummary

object QRDBText5: TQRDBText

Left = 189

Top = 5

Width = 74

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

500.062500000000100000

13.229166666666670000

195.791666666666700000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Color = clWhite

DataSet = frmKassa.zapSum

DataField = 'SUMMA'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRLabel6: TQRLabel

Left = 0

Top = 5

Width = 186

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

0.000000000000000000

13.229166666666670000

492.124999999999900000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = #1054#1041#1065#1040#1071' '#1042#1067#1056#1059#1063#1050#1040':'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRLabel7: TQRLabel

Left = 488

Top = 5

Width = 108

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

1291.166666666667000000

13.229166666666670000

285.750000000000000000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = #1047#1040#1056#1055#1051#1040#1058#1040':'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object zap: TQRLabel

Left = 597

Top = 5

Width = 11

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

1579.562500000000000000

13.229166666666670000

29.104166666666670000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = '0'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object lp: TQRLabel

Left = 677

Top = 5

Width = 16

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

1791.229166666667000000

13.229166666666670000

42.333333333333340000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = #1088'.'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRLabel9: TQRLabel

Left = 289

Top = 42

Width = 364

Height = 22

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

58.208333333333340000

764.645833333333400000

111.125000000000000000

963.083333333333400000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = #1044#1080#1088#1077#1082#1090#1086#1088'___________________/_________'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

Модуль prod:

object frmProd: TfrmProd

Left = 495

Top = 276

BorderIcons = [biSystemMenu, biMinimize]

BorderStyle = bsSingle

Caption = #1055#1056#1054#1044#1040#1046#1040

ClientHeight = 369

ClientWidth = 531

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

FormStyle = fsStayOnTop

OldCreateOrder = False

Position = poDesktopCenter

OnActivate = FormActivate

OnClose = FormClose

PixelsPerInch = 96

TextHeight = 13

object Label4: TLabel

Left = 344

Top = 263

Width = 93

Height = 29

Caption = #1057#1044#1040#1063#1040':'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -24

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object sd: TLabel

Left = 384

Top = 304

Width = 8

Height = 29

Font.Charset = DEFAULT_CHARSET

Font.Color = clGreen

Font.Height = -24

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object Label2: TLabel

Left = 0

Top = 264

Width = 134

Height = 29

Caption = #1055#1056#1048#1053#1071#1058#1054':'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -24

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object lp: TLabel

Left = 400

Top = 303

Width = 25

Height = 29

AutoSize = False

Caption = #1088'.'

Font.Charset = DEFAULT_CHARSET

Информация о работе Разработка и создание удаленной базы данных для автоматизации учета и отчетности в гостиничном комплексе “Ирина” на основе клиент-серве