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

Автор работы: Пользователь скрыл имя, 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 Кб (Скачать документ)

EditLabel.Font.Charset = DEFAULT_CHARSET

EditLabel.Font.Color = clWindowText

EditLabel.Font.Height = -19

EditLabel.Font.Name = 'MS Sans Serif'

EditLabel.Font.Style = []

EditLabel.ParentFont = False

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

TabOrder = 1

end

object tpass: TLabeledEdit

Left = 248

Top = 144

Width = 201

Height = 32

EditLabel.Width = 71

EditLabel.Height = 24

EditLabel.Caption = #1055#1072#1088#1086#1083#1100':'

EditLabel.Font.Charset = DEFAULT_CHARSET

EditLabel.Font.Color = clWindowText

EditLabel.Font.Height = -19

EditLabel.Font.Name = 'MS Sans Serif'

EditLabel.Font.Style = []

EditLabel.ParentFont = False

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

PasswordChar = '*'

TabOrder = 2

end

object BitBtn1: TBitBtn

Left = 280

Top = 184

Width = 145

Height = 41

Caption = #1055#1054#1044#1050#1051#1070#1063#1048#1058#1068#1057#1071

Default = True

ModalResult = 1

TabOrder = 3

OnClick = BitBtn1Click

Glyph.Data = {

DE010000424DDE01000000000000760000002800000024000000120000000100

0400000000006801000000000000000000001000000000000000000000000000

80000080000000808000800000008000800080800000C0C0C000808080000000

FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333

3333333333333333333333330000333333333333333333333333F33333333333

00003333344333333333333333388F3333333333000033334224333333333333

338338F3333333330000333422224333333333333833338F3333333300003342

222224333333333383333338F3333333000034222A22224333333338F338F333

8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224

33333338F83338F338F33333000033A33333A222433333338333338F338F3333

0000333333333A222433333333333338F338F33300003333333333A222433333

333333338F338F33000033333333333A222433333333333338F338F300003333

33333333A222433333333333338F338F00003333333333333A22433333333333

3338F38F000033333333333333A223333333333333338F830000333333333333

333A333333333333333338330000333333333333333333333333333333333333

0000}

NumGlyphs = 2

end

object Baza: TIBDatabase

DatabaseName = 'KODAK.GDB'

Params.Strings = (

'')

LoginPrompt = False

DefaultTransaction = Tranz

IdleTimer = 0

SQLDialect = 3

TraceFlags = []

AfterConnect = bazaAfterConnect

AfterDisconnect = BazaAfterDisconnect

Left = 288

Top = 24

end

object Tranz: TIBTransaction

Active = False

DefaultDatabase = Baza

AutoStopAction = saNone

Left = 328

Top = 24

end

object IBQuery1: TIBQuery

Database = Baza

Transaction = Tranz

BufferChunks = 1000

CachedUpdates = False

SQL.Strings = (

'select * from rabotniki where polz=:pp')

Left = 416

Top = 40

ParamData = <

item

DataType = ftUnknown

Name = 'pp'

ParamType = ptUnknown

end>

object IBQuery1ID_RAB: TIntegerField

FieldName = 'ID_RAB'

Origin = 'RABOTNIKI.ID_RAB'

Required = True

end

object IBQuery1POLZ: TIBStringField

FieldName = 'POLZ'

Origin = 'RABOTNIKI.POLZ'

Size = 30

end

object IBQuery1PASS: TIBStringField

FieldName = 'PASS'

Origin = 'RABOTNIKI.PASS'

Size = 30

end

object IBQuery1FIO: TIBStringField

FieldName = 'FIO'

Origin = 'RABOTNIKI.FIO'

Size = 50

end

object DataSource1: TDataSource

DataSet = IBQuery1

Left = 416

Top = 8

end

Модуль otch:

object Form1: TForm1

Left = 242

Top = 91

Width = 824

Height = 712

Caption = 'Form1'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

Scaled = False

PixelsPerInch = 96

TextHeight = 13

object QuickRep1: TQuickRep

Tag = 1

Left = 0

Top = 0

Width = 794

Height = 1123

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

DataSet = frmKassa.tblKassa

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -13

Font.Name = 'Times New Roman'

Font.Style = []

Functions.Strings = (

'PAGENUMBER'

'COLUMNNUMBER'

'REPORTTITLE'

'QRSTRINGSBAND1')

Functions.DATA = (

'0'

#39#39

#39#39)

Options = [FirstPageHeader, LastPageFooter]

Page.Columns = 1

Page.Orientation = poPortrait

Page.PaperSize = A4

Page.Values = (

100.012500000000000000

2970.000000000000000000

100.012500000000000000

2100.000000000000000000

100.012500000000000000

0.000000000000000000)

PrinterSettings.Copies = 1

PrinterSettings.Duplex = False

PrinterSettings.FirstPage = 0

PrinterSettings.LastPage = 0

PrinterSettings.OutputBin = Auto

PrintIfEmpty = True

SnapToGrid = True

Units = Pixels

Zoom = 100

object QRBand1: TQRBand

Left = 38

Top = 38

Width = 718

Height = 40

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 = (

105.833333333333300000

1899.708333333333000000)

BandType = rbTitle

object QRLabel5: TQRLabel

Left = 221

Top = 3

Width = 272

Height = 33

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

87.312500000000000000

584.729166666666800000

7.937500000000000000

719.666666666666800000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = #1054#1058#1063#1045#1058' '#1055#1054' '#1050#1040#1057#1057#1045':'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -29

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 22

end

object QRSysData1: TQRSysData

Left = 568

Top = -2

Width = 52

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

1502.833333333333000000

-5.291666666666667000

137.583333333333300000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

Color = clWhite

Data = qrsDate

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

FontSize = 14

end

object QRBand3: TQRBand

Left = 38

Top = 78

Width = 718

Height = 25

Frame.Color = clBlack

Frame.DrawTop = True

Frame.DrawBottom = True

Frame.DrawLeft = True

Frame.DrawRight = True

AlignToBottom = False

Color = clWhite

ForceNewColumn = False

ForceNewPage = False

Size.Values = (

66.145833333333340000

1899.708333333333000000)

BandType = rbColumnHeader

object QRLabel2: TQRLabel

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

Caption = #1042#1056#1045#1052#1071

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

object QRLabel3: TQRLabel

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

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

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

object QRLabel4: TQRLabel

Left = 224

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

592.666666666666800000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = #1057#1044#1040#1063#1040

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

object QRLabel1: TQRLabel

Left = 345

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

912.812500000000100000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = #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 = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRLabel8: TQRLabel

Left = 468

Top = 1

Width = 249

Height = 22

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

58.208333333333340000

1238.250000000000000000

2.645833333333333000

658.812500000000000000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = #1056#1040#1041#1054#1058#1053#1048#1050

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

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