86437

Проектирование базы данных «Автовокзал»

Контрольная

Информатика, кибернетика и программирование

Для определения второй нормальной формы необходимо определить ключевой атрибут отношения. Для отношения «Водители» ключевым можно выбрать атрибут «Код_Водителя», который в базе данных никогда не повторится и однозначно идентифицирует здания.

Русский

2015-04-07

1.85 MB

51 чел.

1 ПРОЕКТИРОВАНИЕ БАЗЫ ДАННЫХ

1.1 Определение исходных отношений

Для обеспечения деятельности отдела «Автовокзал» необходимо иметь следующую информацию (Таблица 1):

Отношение, сформулированное в таблице 1, находится в первой нормальной форме, поскольку все атрибуты отношения являются атомарными.

Таблица 1

поле

Описание

lastName

Фамилия водителя

FirstName

Имя водителя

Patronemic

Отчество водителя

Experiense

Стаж работы

Year

Год рождения

Category

Категория водителя(D,E) 

class

Классность водителя(1,2,3)

DriverID

Идентификационный номер водителя

поле

Описание

BusNumber

Индетификационный номер автобуса

Brand

Марка автобуса

Picture

Фотография автобуса

model

Мадель автобуса

Capacity

Количество места в автобусе

YearBus

Год выпуска автобуса

YearRepair

Год капитального ремонта

Distance

Пробег автобуса ,км

Поле

Описание

RoutelId

Идентефикатор маршрута

PointStart

Начальный пункт

Pointstop

Конечный пункт

DataStart

Дата отправления

TimeStart

Время отпровления

TimeAll

Время в пути до конечного пункта

PlaceNumber

Номер места

PleceSign

Билет продан на автовокзале (да\нет)

SumDriver

Выручка на маршруте

SumTax

Штраф на водителя

Comment

Промежуточные пункты прохода

Для определения второй нормальной формы необходимо определить ключевой атрибут отношения. Для отношения «Водители» ключевым можно выбрать атрибут «Код_Водителя», который в базе данных никогда не повторится и однозначно идентифицирует здания.

Отношение в таблице 1 не находится во второй нормальной, поскольку в таблице есть атрибуты, не зависящие от первичного ключа.

Таким образом, получаем три отношения, находящиеся во второй нормальной форме (Таблицы 2-4).

Таблица 2 – 2НФ «Водители»

Наименование атрибута

Описание

IDDrivers

Код водителя

lastName

Фамилия водителя

FirstName

Имя водителя

Patronemic

Отчество водителя

Experiense

Стаж работы

Year

Год рождения

Category

Категория водителя(D,E) 

class

Классность водителя(1,2,3)

Таблица 3 – 2НФ «Автобусы»

Наименование атрибута

Описание

BusID

Код автобуса

BusNumber

Идентификационный номер автобуса

Brand

Марка автобуса

Picture

Фотография автобуса

model

Модель автобуса

Capacity

Количество места в автобусе

YearBus

Год выпуска автобуса

YearRepair

Год капитального ремонта

Distance

Пробег автобуса ,км

otprovleniyaID

Номер отправляемого маршрута

Таблица 4 – 2НФ «Информация о маршрутах»

Наименование атрибута

Описание

RoutelID

Идентификатор маршрута

PointStart

Начальный пункт

Pointstop

Конечный пункт

DataStart

Дата отправления

TimeStart

Время отправления

TimeAll

Время в пути до конечного пункта

PlaceNumber

Номер места

PleceSign

Билет продан на автовокзале (да\нет)

SumDriver

Выручка на маршруте

SumTax

Штраф на водителя

Otprovleniya

Номер отправляемого автобуса

Comment

Промежуточные пункты прохода

Отношения «Автобусы» и «Водители»  находятся в третьей нормальной форме, поскольку среди не ключевых атрибутов нет атрибутов, зависящих от ключа транзитивно.

Отношение  «Информация о маршрутах» не находятся в третьей нормальной форме.

Для приведения отношения в третью нормальную форму, необходимо выделить еще одно отношение: отношение «Билеты» и «Проходящие_маршруты». Тогда отношения «Информация о маршрутах», «Билеты» и «Проходящие_маршруты» будут находиться в третьей нормальной форме (Таблицы 5-7).

Таблица 5 – Отношение «Информация о маршрутах» в 3НФ

Наименование атрибута

Описание

RoutelId

Идентификатор маршрута

PointStart

Начальный пункт

Pointstop

Конечный пункт

DataStart

Дата отправления

TimeStart

Время отправления

TimeAll

Время в пути до конечного пункта

PlaceNumber

Номер места

PleceSign

Билет продан на автовокзале (да\нет)

SumDriver

Выручка на маршруте

SumTax

Штраф на водителя

otprovleniya

Номер отправляемого автобуса

Comment

Промежуточные пункты прохода

Таблица 6 – Отношение «Билеты» в 3НФ

Наименование атрибута

Описание

IDTikets

Код билета

Place

Место прибытия

Scena

Цена билеты

Bagage

Наличие багажа

RoutelID

Идентификатор маршрута

Таблица 7 – Отношение «Проходящие_маршруты» в 3НФ

Наименование атрибута

Описание

ProxodID

Код проходящего маршрута

PointStart

Начальный пункт

Pointstop

Конечный пункт

BusID

Код автобуса

PointProxod

Проходящие пункты

1.2 Проектирование ER-модели

В соответствии с первым этапом проектирования, в базе данных можно выделить следующие сущности:

- Водители;

- Автобусы;

- Информация о маршрутах;

- Билеты;

- Проходящие маршруты;

Таким образом, получаем следующие сущности (Таблицы 8- 12).

Таблица 8 – Сущность «Водители»

Наименование атрибута

Тип данных

IDDrivers

lastName

FirstName

Patronemic

Experiense

Year

Category

class

Таблица 9 – Сущность «Автобусы»

Наименование атрибута

Тип данных

BusID

BusNumber

Brand

Picture

model

Capacity

YearBus

YearRepair

Distance

otprovleniyaID

Таблица 10 – Сущность «Информация о маршрутах»

Наименование атрибута

Тип данных

RoutelId

PointStart

Pointstop

DataStart

TimeStart

TimeAll

PlaceNumber

PleceSign

SumDriver

SumTax

otprovleniya

Таблица 11 – Сущность «Билеты»

Наименование атрибута

Тип данных

IDTikets

Place

Scena

Bagage

RoutelID

Таблица 12- Сущность «Проходящие_маршруты»

Наименование атрибута

Тип даных

ProxodID

PointStart

Pointstop

BusID

PointProxod

Сущность «Автобус» и «Информацияо маршрутах» связаны связью 1:М, то есть один автобус может иметь пройти через несколько марщрутов. Связь осуществляется по атрибуту «BusID».

Сущность «Водители» и «Информация о маршрутах» связаны связью 1:М, то есть оди водитель может иметь несколько маршрутов. Связь осуществляется по атрибуту «IDDrivers».

Сущность «Информация о маршрутах» и «Билеты» связаны связью 1:М, то есть в одном маршруте может быть несколько билетов. Связь осуществляется по атрибуту «RoutelID».

Сущность «Информация о маршрутах» и «Проходящие маршруты» связаны связью 1:М, то есть один маршрут может иметь несколько проходящих маршрутов. Связь осуществляется по атрибуту «RoutelID».

ER-модель данных базы данных представлена на рисунке 1.

Рисунок 1 – УК-модель базы данных

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

2. Реализация базы данных

2.1 Создание таблиц и запросов

Реализация базы данных в Access начинается с реализации таблиц. Таблицы реализуются в соответствии с таблицами 8-12.

Таблица «Avtobys» имеет ключевое поле «BusID», тип данных в котором – «Счетчик», который автоматически увеличивается на единицу при каждой новой записи. Структура таблицы показана на рисунке 2.

Рисунок 2 – Структур таблицы «Avtobys»

В результате данная таблица при заполнении выглядит следующим образом (рисунок 3).

Рисунок 3 – Таблица «Avtobys»

Таблица «Bilety» имеет ключевое поле «TiketsID», тип данных в котором – «Счетчик», который автоматически увеличивается на единицу при каждой новой записи. Структура таблицы показана на рисунке 4.

Рисунок 4 – Структур таблицы «Bilety»

В результате данная таблица при заполнении выглядит следующим образом (рисунок 5).

Рисунок 5 – Таблица «Bilety»

Таблица «InfoMaechryta» имеет ключевое поле «RoutelID», тип данных в котором – «Счетчик», который автоматически увеличивается на единицу при каждой новой записи. Структура таблицы показана на рисунке 6.

Рисунок 6 – Структур таблицы «InfoMaechryta»

В результате данная таблица при заполнении выглядит следующим образом (рисунок 7).

Рисунок 7 – Таблица «InfoMaechryta»

Таблица «ProxodMarchryta» имеет ключевое поле «ProxoID», тип данных в котором – «Счетчик», который автоматически увеличивается на единицу при каждой новой записи. Структура таблицы показана на рисунке 8.

Рисунок 8 – Структур таблицы «ProxodMarchryta»

В результате данная таблица при заполнении выглядит следующим образом (рисунок 9).

Рисунок 9 –Таблица «ProxodMarchryta»

Таблица «Voditel» имеет ключевое поле «DriverID», тип данных в котором – «Счетчик», который автоматически увеличивается на единицу при каждой новой записи. Структура таблицы показана на рисунке 10.

Рисунок 10 – Структур таблицы «Voditel»

В результате данная таблица при заполнении выглядит следующим образом (рисунок 11).

Рисунок 11 –Таблица «Voditel»

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

2.2 Реализация запросов

В базе данных созданы следующие запросы:

  1.  Запрос на выборку водителей по маршрутам. Запрос имеет параметр  - фамилию. В запросе участвуют таблицы «Voditely», «InfoMarchryta» (рис. 12).

SELECT Voditel.DriverID, Voditel.lastName, Voditel.FirstName, Voditel.Patronemic, InfoMarchryta.PointStart, InfoMarchryta.Pointstop, InfoMarchryta.DataStart, InfoMarchryta.TimeStart, InfoMarchryta.TimeAll

FROM Voditel INNER JOIN InfoMarchryta ON Voditel.DriverID = InfoMarchryta.DriverID;

Рисунок 12- Структура запроса на выборку водителей по маршрутам.

При выполнение запроса пользователь фамилию водителя и ему выводится его маршруты.

  1.  Запрос на выборку автобусов по маршруту. Запрос имеет параметр  - номер автобуса. В запросе участвуют таблицы «Avtobys», «InfoMarchryta» (рис. 13).

SELECT Avtobys.BusID, Avtobys.BusNumber, Avtobys.Brand, Avtobys.model, InfoMarchryta.PointStart, InfoMarchryta.Pointstop, InfoMarchryta.DataStart, InfoMarchryta.otprovleniya

FROM Avtobys INNER JOIN InfoMarchryta ON Avtobys.BusID = InfoMarchryta.BusID;

Рисунок 13- Структура запроса на выборку автобусов по маршруту.

При выполнение запроса пользователь вводит номер автобуса  владельца и ему выводится все маршруты на этот автобус.

Запросы используются для формирования отчетов.

3 Описание программного проекта

В данной главе описываются формы, созданные в среде BorlandDelphi для работы с базой данных.

Начинаем описание с формы 1- вход в предприятие «Газокомплект»: на ней 2 Edit где осуществляется ввод логина и пароля и 1 кнопка Button служит для перехода на главную форму (Рисунок 20).

Рисунок 20- вход в предприятие «Газокомплект»

Затем открывается главная Форма 2 на которой находится 6 кнопок Button служат для перехода на формы: квартиры, осмотр и показания, район и здания, осмотр квартир, показания квартир, квартиры по зданиям. Имеет фон расположенный с помощью Image (Рисунок 21).

Рисунок 21 – главная форма программы

Форма 3- Квартиры.

На этой форме расположены объекты: ADOConnection- соединяет форму с БД, ADOTable- соединяется с таблицей из БД, DataSource- соединяет объекты формы с таблицами БД с помощью ADOConnection. DBNavigator- будет нужен для пролистовки записи на DBEdit. Форма имеет 3 кнопки Button, две которые добавляют новые записи, а другая осуществляет переход на главную форму (Рисунок 22).

Рисунок 22- Квартиры

Форма 4- Осмотр и Показания.

На этой форме расположены объекты: ADOConnection- соединяет форму с БД, ADOTable- соединяется с таблицей из БД, DataSource- соединяет объекты формы с таблицами БД с помощью ADOConnection. DBNavigator- будет нужен для пролистовки записи на DBEdit, а в свою очередь DBEdit связан с двумя DBGrid. Форма имеет кнопку Button  осуществляющую переход на главную форму. На форме объединены 3 таблицы Осмотры, Показания и Квартиры (Рисунок 23).

Рисунок 23 – Осмотр и показания

Форма 5- Здания и квартиры.

На этой форме расположены объекты: ADOConnection- соединяет форму с БД, ADOTable- соединяется с таблицей из БД, DataSource- соединяет объекты формы с таблицами БД с помощью ADOConnection. DBNavigator- будет нужен для пролистовки записи на DBEdit,. Форма имеет кнопку Button  осуществляющую переход на главную форму. На форме объединены 2 таблицы Район и Здания (Рисунок 24).

Рисунок 24- Район и здания.

Форма 6- Осмотр квартир.

На этой форме расположены объекты: ADOConnection- соединяет форму с БД, ADOTable- соединяется с таблицей из БД, DataSource- соединяет объекты формы с таблицами БД с помощью ADOConnection. DBNavigator- будет нужен для пролистовки записи на DBEdit. Форма имеет кнопку Button  осуществляющую переход на главную форму (Рисунок 25).

Рисунок 25- Осмотр квартир.

Форма 7- Показания квартир.

На этой форме расположены объекты: ADOConnection- соединяет форму с БД, ADOTable- соединяется с таблицей из БД, DataSource- соединяет объекты формы с таблицами БД с помощью ADOConnection. DBNavigator- будет нужен для пролистовки записи на DBEdit. Форма имеет кнопку Button  осуществляющую переход на главную форму (Рисунок 26).

Рисунок 26- Показания квартир.

Форма 8- Показания квартир.

На этой форме расположены объекты: ADOConnection- соединяет форму с БД, ADOTable- соединяется с таблицей из БД, DataSource- соединяет объекты формы с таблицами БД с помощью ADOConnection. DBNavigator- будет нужен для пролистовки записи на DBEdit. Форма имеет кнопку Button  осуществляющую переход на главную форму (Рисунок 27).

Рисунок 27- Квартиры по зданиям.


Заключение

В курсовом проекте была разработана база данных «Газокомплект».

Целью курсового проектирования является автоматизация «Газокомплект».

Для достижения данной цели были решены следующие задачи:

Спроектирована база данных. В базе данных определены 9 таблицы, выполнена нормализация таблиц, определенны связи между таблицами. Все связи имеют тип «один ко многим» построена реалиционая модель базы данных.

Реализована база данных в среде MicrosoftAccess. Создано 9 таблицы, связи между таблицами, во всех таблицах определены первичные ключи. Выполнено тестовое заполнение таблицы.

В среде BorlandDelphi создано приложение для работы с базой данных, приложение содержит 8 форм:

Форма для работы с таблицами «Квартиры»

Форма для работы с таблицами «Осмотр», «Показания» и «Квартиры»

Форма для работы с таблицами «Район», «Здания»

Форма для работы с таблицами «Осмотр», «Квартиры»

Форма для работы с таблицами «Показания», «Квартиры»

Форма для работы с таблицами «Квартиры», «Здания»

Форма для входа «Вход в предприятие Газокомплект»

И главная форма «Предприятие Газокомплект»

Дальнейшим развитием проекта является: Изменение строение и внешнего вида сделанного в BorlandDelphi, добавление нескольких новых таблиц и т.д.


Приложения 1

unit Unit1;

interface

uses

 SysUtils, Classes, DB, ADODB;

type

 TfDM = class(TDataModule)

   ADOConnection1: TADOConnection;

   TOsmotr: TADOTable;

   TPokazania: TADOTable;

   TRaion: TADOTable;

   TStrany: TADOTable;

   TTipPerekr: TADOTable;

   TTipSten: TADOTable;

   TVidKvartir: TADOTable;

   TZdania: TADOTable;

   DSKvartiry: TDataSource;

   DSOsmotr: TDataSource;

   DSPokazania: TDataSource;

   DSRaion: TDataSource;

   DSStrany: TDataSource;

   DSTipPerekr: TDataSource;

   DSTipSten: TDataSource;

   DSVidKvartir: TDataSource;

   DSZdania: TDataSource;

   TKvartiry: TADOTable;

   TRaionKodRaiona: TAutoIncField;

   TRaionNazvanieRaiona: TWideStringField;

   TZdaniaKodZdania: TAutoIncField;

   TZdaniaKodRaiona: TIntegerField;

   TZdaniaKodSten: TIntegerField;

   TZdaniaKodPerekr: TIntegerField;

   TZdaniaFoto: TBlobField;

   TZdaniaBalancoderzatel: TWideStringField;

   TZdaniaPodezdDoma: TIntegerField;

   TZdaniaKvartiryDoma: TIntegerField;

   TOsmotrKvartir: TADOTable;

   TPokazaniaKvartir: TADOTable;

   DSOsmotrKvartir: TDataSource;

   DSPokazaniaKvartir: TDataSource;

   TZdaniaKvartiry: TADOTable;

   DSZdaniaKvartiry: TDataSource;

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 fDM: TfDM;

implementation

{$R *.dfm}

end.

unit Unit2;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, jpeg, ExtCtrls;

type

 TGlavnaia = class(TForm)

   Label1: TLabel;

   Label2: TLabel;

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   Button4: TButton;

   Button5: TButton;

   Button6: TButton;

   Image1: TImage;

   Image2: TImage;

   procedure Button3Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure Button5Click(Sender: TObject);

   procedure Button6Click(Sender: TObject);

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Glavnaia: TGlavnaia;

implementation

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit10;

{$R *.dfm}

procedure TGlavnaia.Button3Click(Sender: TObject);

begin

OsmotrPokazania.show;

Glavnaia.Hide;

end;

procedure TGlavnaia.Button2Click(Sender: TObject);

begin

RaionZdania.Show;

Glavnaia.Hide;

end;

procedure TGlavnaia.Button4Click(Sender: TObject);

begin

OsmotrKvartir.show;

Glavnaia.Hide;

end;

procedure TGlavnaia.Button5Click(Sender: TObject);

begin

PokazaniaKvartir.Show;

Glavnaia.Hide;

end;

procedure TGlavnaia.Button6Click(Sender: TObject);

begin

KvartiryZdania.show;

Glavnaia.Hide;

end;

procedure TGlavnaia.Button1Click(Sender: TObject);

begin

Kvartiry.show;

Glavnaia.Hide;

end;

end.

unit Unit3;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, DBCtrls, StdCtrls, Mask, ExtCtrls, jpeg;

type

 TRaionZdania = class(TForm)

   Button3: TButton;

   DBNavigator2: TDBNavigator;

   DBEdit8: TDBEdit;

   DBEdit3: TDBEdit;

   DBEdit10: TDBEdit;

   DBEdit9: TDBEdit;

   DBEdit7: TDBEdit;

   DBNavigator1: TDBNavigator;

   DBEdit1: TDBEdit;

   DBEdit2: TDBEdit;

   DBLookupComboBox1: TDBLookupComboBox;

   DBLookupComboBox2: TDBLookupComboBox;

   Label2: TLabel;

   Label3: TLabel;

   Label4: TLabel;

   Label5: TLabel;

   Label6: TLabel;

   Label7: TLabel;

   Label8: TLabel;

   Label9: TLabel;

   Label1: TLabel;

   Image1: TImage;

   Image2: TImage;

   Button1: TButton;

   Button2: TButton;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 RaionZdania: TRaionZdania;

implementation

uses Unit1, Unit8, Unit9, Unit2;

{$R *.dfm}

procedure TRaionZdania.Button1Click(Sender: TObject);

begin

TipSten.show;

end;

procedure TRaionZdania.Button2Click(Sender: TObject);

begin

TipPerekr.show;

end;

procedure TRaionZdania.Button3Click(Sender: TObject);

begin

Glavnaia.show;

RaionZdania.close;

end;

end.

unit Unit4;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Mask, jpeg;

type

 TOsmotrPokazania = class(TForm)

   DBEdit1: TDBEdit;

   Label1: TLabel;

   DBEdit2: TDBEdit;

   Label2: TLabel;

   DBEdit3: TDBEdit;

   Label3: TLabel;

   DBEdit4: TDBEdit;

   Label4: TLabel;

   DBEdit5: TDBEdit;

   Label5: TLabel;

   DBGrid1: TDBGrid;

   DBGrid2: TDBGrid;

   DBNavigator1: TDBNavigator;

   Button1: TButton;

   Image1: TImage;

   Image2: TImage;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 OsmotrPokazania: TOsmotrPokazania;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TOsmotrPokazania.Button1Click(Sender: TObject);

begin

Glavnaia.show;

OsmotrPokazania.Close;

end;

end.

unit Unit5;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, jpeg;

type

 TOsmotrKvartir = class(TForm)

   Label1: TLabel;

   DBEdit2: TDBEdit;

   Label2: TLabel;

   DBEdit3: TDBEdit;

   DBNavigator1: TDBNavigator;

   Label3: TLabel;

   DBEdit4: TDBEdit;

   Label4: TLabel;

   DBEdit5: TDBEdit;

   Label5: TLabel;

   DBEdit1: TDBEdit;

   Label6: TLabel;

   DBEdit6: TDBEdit;

   Label7: TLabel;

   DBEdit7: TDBEdit;

   Button1: TButton;

   Image1: TImage;

   Image2: TImage;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 OsmotrKvartir: TOsmotrKvartir;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TOsmotrKvartir.Button1Click(Sender: TObject);

begin

Glavnaia.show;

OsmotrKvartir.Close;

end;

end.

unit Unit6;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, jpeg;

type

 TPokazaniaKvartir = class(TForm)

   Label1: TLabel;

   DBEdit2: TDBEdit;

   DBNavigator1: TDBNavigator;

   Label2: TLabel;

   DBEdit1: TDBEdit;

   Label3: TLabel;

   DBEdit3: TDBEdit;

   Label4: TLabel;

   DBEdit4: TDBEdit;

   Label5: TLabel;

   DBEdit5: TDBEdit;

   Label6: TLabel;

   DBEdit6: TDBEdit;

   Label7: TLabel;

   DBEdit7: TDBEdit;

   Button1: TButton;

   Image1: TImage;

   Image2: TImage;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 PokazaniaKvartir: TPokazaniaKvartir;

implementation

uses Unit1, Unit2, Unit7;

{$R *.dfm}

procedure TPokazaniaKvartir.Button1Click(Sender: TObject);

begin

Glavnaia.Show;

PokazaniaKvartir.Close;

end;

end.

unit Unit7;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, jpeg;

type

 TKvartiryZdania = class(TForm)

   Label1: TLabel;

   DBEdit2: TDBEdit;

   DBNavigator1: TDBNavigator;

   Label2: TLabel;

   DBEdit1: TDBEdit;

   Label3: TLabel;

   DBEdit3: TDBEdit;

   Label4: TLabel;

   DBEdit4: TDBEdit;

   Label5: TLabel;

   DBEdit5: TDBEdit;

   Label6: TLabel;

   DBEdit6: TDBEdit;

   Label7: TLabel;

   DBEdit7: TDBEdit;

   Button1: TButton;

   Image1: TImage;

   Image2: TImage;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 KvartiryZdania: TKvartiryZdania;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TKvartiryZdania.Button1Click(Sender: TObject);

begin

Glavnaia.show;

KvartiryZdania.Close;

end;

end.

unit Unit8;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, jpeg;

type

 TTipSten = class(TForm)

   DBGrid1: TDBGrid;

   DBNavigator1: TDBNavigator;

   Image1: TImage;

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 TipSten: TTipSten;

implementation

uses Unit1;

{$R *.dfm}

end.

unit Unit9;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, jpeg;

type

 TTipPerekr = class(TForm)

   DBGrid1: TDBGrid;

   DBNavigator1: TDBNavigator;

   Image1: TImage;

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 TipPerekr: TTipPerekr;

implementation

uses Unit1;

{$R *.dfm}

end.

unit Unit10;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, ExtCtrls, DBCtrls, jpeg, Mask;

type

 TKvartiry = class(TForm)

   DBEdit1: TDBEdit;

   DBEdit2: TDBEdit;

   Label1: TLabel;

   Label2: TLabel;

   Label3: TLabel;

   DBLookupComboBox1: TDBLookupComboBox;

   Label4: TLabel;

   DBEdit3: TDBEdit;

   DBCheckBox1: TDBCheckBox;

   Label5: TLabel;

   Label6: TLabel;

   Label7: TLabel;

   Label8: TLabel;

   Label9: TLabel;

   DBEdit4: TDBEdit;

   DBLookupComboBox2: TDBLookupComboBox;

   DBEdit5: TDBEdit;

   DBEdit6: TDBEdit;

   Label10: TLabel;

   Label11: TLabel;

   Label12: TLabel;

   Label13: TLabel;

   Label14: TLabel;

   Label15: TLabel;

   Label16: TLabel;

   Label17: TLabel;

   DBEdit7: TDBEdit;

   DBEdit8: TDBEdit;

   DBEdit9: TDBEdit;

   DBEdit10: TDBEdit;

   DBEdit11: TDBEdit;

   DBEdit12: TDBEdit;

   DBEdit13: TDBEdit;

   DBEdit14: TDBEdit;

   Image1: TImage;

   Image2: TImage;

   DBNavigator1: TDBNavigator;

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Kvartiry: TKvartiry;

implementation

uses Unit1, Unit2, Unit12, Unit11;

{$R *.dfm}

procedure TKvartiry.Button1Click(Sender: TObject);

begin

Glavnaia.show;

Kvartiry.Close;

end;

procedure TKvartiry.Button2Click(Sender: TObject);

begin

VidKvartir.show;

end;

procedure TKvartiry.Button3Click(Sender: TObject);

begin

Stranya.show;

end;

end.

unit Unit11;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, jpeg, ExtCtrls, DBCtrls, Grids, DBGrids;

type

 TVidKvartir = class(TForm)

   DBGrid1: TDBGrid;

   DBNavigator1: TDBNavigator;

   Image1: TImage;

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 VidKvartir: TVidKvartir;

implementation

uses Unit1;

{$R *.dfm}

end.

unit Unit12;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, jpeg, ExtCtrls, DBCtrls, Grids, DBGrids;

type

 TStranya = class(TForm)

   DBGrid1: TDBGrid;

   DBNavigator1: TDBNavigator;

   Image1: TImage;

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Stranya: TStranya;

implementation

uses Unit1;

{$R *.dfm}

end.

unit Unit13;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, jpeg, ExtCtrls;

type

 TVxod = class(TForm)

   Edit1: TEdit;

   Edit2: TEdit;

   Label1: TLabel;

   Label2: TLabel;

   Button1: TButton;

   Image1: TImage;

   Image2: TImage;

   procedure Button1Click(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Vxod: TVxod;

implementation

uses Unit2;

{$R *.dfm}

procedure TVxod.Button1Click(Sender: TObject);

var a,s:string;

R:Word;

begin

a:='1';

s:='1';

If (Edit1.Text=a) and (Edit2.Text=s) then

begin

Glavnaia.Show;

Vxod.Hide;

end

Else R:=MessageDLG('Неверный логин или пароль',mtError,[mbYes],0);

end;

end.


 

А также другие работы, которые могут Вас заинтересовать

65393. УДОСКОНАЛЕННЯ ТЕХНОЛОГІЇ ВИРОБНИЦТВА КОНСЕРВОВАНОГО ЗЕЛЕНОГО ГОРОШКУ 970.5 KB
  В процесі технологічної переробки свіжого зеленого горошку мають місце значні втрати розчинних речовин цукрів амінокислот вітамінів які складають біля 30 від їх вмісту у свіжому зерні. Проведені низкою авторів дослідження показали що на переробку...
65394. ВДОСКОНАЛЕННЯ ВИКОРИСТАННЯ ЗЕМЕЛЬ СІЛЬСЬКОГОСПОДАРСЬКОГО ПРИЗНАЧЕННЯ В АГРАРНОМУ СЕКТОРІ ЗАКАРПАТСЬКОЇ ОБЛАСТІ 192.5 KB
  Створення сприятливого інноваційного клімату і привабливості регіону Підвищення ефективності сільськогосподарського виробництва Збереження і охорона земель Сталий розвиток субєктів господарювання...
65395. ТЕОРЕТИЧНІ І МЕТОДИЧНІ ОСНОВИ ВИКОРИСТАННЯ ОБРАЗОТВОРЧОЇ ПРАВОСЛАВНОЇ СПАДЩИНИ В ДУХОВНОМУ РОЗВИТКУ МАЙБУТНЬОГО ВЧИТЕЛЯ 397 KB
  Якість реалізації всіх компонентів навчального процесу їх змістовність характер професійного педагогічного спілкування визначаються рівнем духовного розвитку вчителя тому духовність стає його провідною професійною характеристикою яка посідає визначальне місце в структурі якостей педагога.
65396. АНАЛІЗ РЕЖИМІВ РОБОТИ ПЕРЕТВОРЮВАЧІВ ЕЛЕКТРИЧНОЇ ЕНЕРГІЇ МЕТОДОМ ФУНКЦІЙ ВІЛЬНОГО РЕЖИМУ 1.1 MB
  Наукова новизна одержаних результатів полягає у наступному: проаналізовано причини високої трудомісткості існуючих аналітичних та чисельних методів розрахунку та запропоновано шляхи її зменшення за рахунок вдосконалення способу описання процесів на інтервалах між комутаціями...
65397. ВИЗНАЧЕННЯ РАЦІОНАЛЬНИХ ПАРАМЕТРІВ ЛЕЗОВОЇ ОБРОБКИ СУБМІКРОКРИСТАЛІЧНИХ МЕТАЛІВ ДЛЯ ЗБЕРЕЖЕННЯ ПОЧАТКОВИХ ВЛАСТИВОСТЕЙ ЗАГОТОВОК 1.35 MB
  Дослідження особливостей оброблюваності металів із субмікро та нанокристалічною структурою; закономірностей розподілу температурних полів в оброблюваній заготовці; впливу початкового розміру зерна температурного і часового факторів на остаточний розмір зерна структури та визначення...
65398. Діяльності політичних партій та громадських організацій України по утвердженню її державного суверенітету 138 KB
  Внаслідок політики перебудови відбулися кардинальні зміни, що призвели до появи політичних партій та політизованих громадських організацій. Це засвідчувало: в Україні відбувається процес громадянської структуризації суспільства, що є запорукою розбудови України...
65399. КІНЕТИКА ЗМІНИ ЗМАЩУВАЛЬНИХ ВЛАСТИВОСТЕЙ ТРАНСМІСІЙНИХ І МОТОРНИХ МАСТИЛЬНИХ МАТЕРІАЛІВ В УМОВАХ РЯСНОГО ТА ОБМЕЖЕНОГО МАЩЕННЯ 847 KB
  Гідродинамічна та еластогідродинамічна теорії мащення ЕГД ТМ не враховують при виводі рівнянь товщини мастильного шару гідродинамічні та негідродинамічні шари можливість виникнення турбулентності потоку та високих градієнтів швидкостей зсуву.
65400. СПІРАЛЬНА КОМП’ЮТЕРНА ТОМОГРАФІЯ ТА МАГНІТНО-РЕЗОНАНСНА ТОМОГРАФІЯ В ДІАГНОСТИЦІ ПАТОЛОГІЧНИХ ПРОЦЕСІВ СКРОНЕВОЇ КІСТКИ 265.5 KB
  Актуальність вивчення можливостей СКТ та МРТ у дослідженні скроневих кісток обумовлена зростаючими потребами отіатрії та нейрохірургії що пояснюється складністю їхньої анатомічної будови відношенням їх як до органа слуху та рівноваги людини так і до мозкових структур...
65401. МОТИВАЦІЯ ВІЙСЬКОВО-ПРОФЕСІЙНОЇ ДІЯЛЬНОСТІ ВІЙСЬКОВОСЛУЖБОВЦІВ ЗА КОНТРАКТОМ 239.5 KB
  За цих умов одним із головних завдань сучасного військового відомства є пошук ефективних шляхів добору та підготовки військовослужбовців за контрактом далі ВЗК до ВПД. Однак як показує практика недосконалість нормативноправової бази з питань соціального захисту...