Лабораторная работа №1 Создание таблиц. Цель работы : Создание таблицы, определение типов полей, ввод данных в таблицу. Создание файлов. Задание



Дата04.09.2023
өлшемі88,5 Kb.
#106011
түріЛабораторная работа
Байланысты:
лабораторная работа №1 ООП


Лабораторная работа № 1 Создание таблиц.
Цель работы: Создание таблицы, определение типов полей, ввод данных в таблицу. Создание файлов.
Задание

    1. Создаем поля таблицы «Client.db» (см. приложение – таблица «Клиенты»), выполняем следующие команды:

–Desktop – File–Table……, table type: Paradox подтверждаем нажав «ОК».
Введем поля таблицы «Client.db»




Field Name

Type

Size

Key

1.

Client ID

+




*

2.

Name

A

40




3.

Address

A

50




4.

Phone

A

8




5.

Clients Name

A

100




6.

Mobile

A

20




7.

Photo

G

200




8.

Sex

A

7




9.

Age

S







10.

Date Of Birth

В







11

Family

A

10




12

Children

L







13.

Salary

N







14.

Cash

N







15.

Description

M

20




Приведем типы полей:


Alpha – текстовой тип (до 255 символов).
Number – вещественный тип (от - 10 в степ. 307 до +10 в степени 308), точн. До 15 значных цифр.
$(Money) – денежный тип, алогичен типу Number.
Short – малый целочисленный (от -32768 до 32767),
Long Integer – большой целочисленный (-2147483648……..+2147483647),
# (BCD) – вещественные числа с повышенной точностью,
Date – тип даты
Time – тип времени
a (Timestamp) – тип даты и времени.
Memo – большое текстовое поле более 255 символов
Formated Memo – форматируемое текстовое поле , разные шрифты, цвета, стили,
Graphic – графический тип
OLE– информация а форматах, поддерживаемых технологий
OLE (Object Linking and Embedding),
Logical – логический тип
(Autometement) – автоматически увеличивающееся целое число (счетчик)
Bmary – двоичные данные произвольной длины.

Свойство полей:



    1. Required (Обязательное поле)

    2. Minimum value (Минимальное значение) для числовых полей

    3. Maximum value (Максимальное значение) для числовых полей.

    4. Detault value (Значение выносимое по умолчанию)

    5. Picture (Маска ввода)




  • После того как задали свойства полям, нажимаем Save as (сохранить таблицу) в появившемся окне задаем:

а) имя файлу (Client db)
б) указываем Alias «Firma 1». Расширение DB является стандартным для файлов Paradox.

  • Аналогично создаем поля таблиц (см. Приложение таблицы «товары», «заказы»).

«Order. db»




Field Name

Type

Size

Key

1.

Order ID

+




*

2.

*Date

В







3.

FirmsNum

N







4.

WaresNun

N







5.

Amount

I







6.

Summa

N







«Wares.db»






Field Name

Type

Size

Key

1.

Wares ID

+




*

2.

Name

A

30




3.

Nature

A

30




4.

Nature

A

10




5.

Units

A







6.

Price

N









Доступ к таблицам базы данным
Для доступа к таблице любой базы данных компонент TTable с панели компонентов DataAccess (Доступ к данным) располагаем на форме.
Надо выделить объект Table 1, затем в Инспекторе объектов для свойство DatabaseName (Имя базы данных) выберете значение MyBase. В раскрывающемся списке перечислиться и другие базы данных доступные в текущей системе.
Теперь требуется указать таблицу, связь с которой осуществляет объект Table 1. Нужная таблица базы данных MyBase выбирается в раскрывающемся списке свойства TavleName.
Чтобы к этим таблицам можно было обращаться из программы, для каждой из них свойству Active надо присвоить значение tru.

  • С панели DataAccess размещаем на форме компонент TDataSourсe. Определяем свойства компонента.

4) DataSet – это свойство указывает на таблицу, устанавливаем «Tabel1»

  • C панели DataControl размещаем на форме компонент TDBGrid – это сетка для ввода данных из таблиц. Задаем свойства компонента:

5) DataSopurse – указывает на компонент, являющий связующим звеном, устанавливаем DataSourсe 1.

  • В этом же приложении аналогично выведите таблицу «Заказы» в виде сетки.

б) Создаем другое приложение. Выведем таблицу «Клиенты» отдельными полями.

  • Размещаем на форме компоненты Ttable , TDataSourсe.

Аналогично примеру а) определяем свойства компонентов

  • Вместо сетки TDBGrid разместим с панели DataControls 9 компонентов TDBEdit , один TDBMemo и зададим их свойствам следующие значения:

1)dataSource – указывает на источник данных, устанавливам DataSource1
2) dataField – указывает на вводимое поле, например: name . address, ClientsName , dataofbirth, age и т.д. TDBText используется для вычислительного поля «Возраст», TDBMemo – «Description»

  • Размещаем компоненты Tlabel , подписываем поля.

  • Размещаем TDBRadioGroup назовем его «пол клиента». Помимо свойств DataSource, DataField определяем у данного компонента следующие:

3) Items – это элементы из списка, пишем «мужской, женский».

  • Размещаем TDBComboBox. Рядом метку назовем «Семейное положение». Помимо известных двух свойств DataSource , DataField в Items – пишем «женат, холост, замужем, не замужем».

  • Размещаем TDBCheckBox он используется для логических свойств . В свойстве Caption пишем «дети». Задаем известные два свойства DataSource, DataField.

  • C панели DataControls размещаем на форме компонент TDBNavigator. Задаем свойствам:

  1. DataSource – значение DataSource1

  2. Hunts – это массив всплывающих подсказок, можно переименовать или перевести на русский язык.

  3. ShowHint – задаем tru

  • C панели DataControls размещаем на форме компонент TDBImage, в его свойстве Stretch устанавливаем значение tru . C панели DialogControls размещаем на форме компонент TDBImage в его свойстве Stretch устанавливаем значение tru. C панели Dialogs выносим OpenPictureDialog 1 на форму. Выделив TDBImage1 на событие OnDblClick пишем программный код.

Begin
If OpenPictureDialog 1 execute then begin
Table 1 Edit
DBImage 1 Picture LoadFromFile (openPictureDialog 1 Filename)
Table1 Post
End.
End;
Пример 10. Установление связей между таблицами.
Цель примера: Установление связей между полями таблиц.
Создание вторичных ключей.
Задание.
Работаем с приложением , в котором выделены в виде сетки две таблицы «товары», «Заказы».

  • Размещаем на форме Table 3. Задаем следующие значения свойствам компонента Table 3:

  1. Name – называем «Linkedtable»

  2. DataBaseName – указываем «Firma 1»

  3. TableName – «order.db»

Связываем таблицу 3 («заказы») с таблицей 1 («товары»).

  • Устанавливаем у всех таблиц свойства Active – false

Далее выполняем:

  1. Tools – desklop, здесь открываем зависимую таблицу (таблицу “Order db")

  2. Создаем индекс для главного поля в зависимой таблице . индекс позволяем выставить записи в поле по алфавиту, т.е. выполняем: table Restructure

  3. В появившемся окне в падающем списке свойства table properties выделяем строку WaresNum устанавливаем SecondaryIndexes.

  4. Нажимаем Define появляется список имеющихся полей, здесь выделяем нужное поле (WaresNum). Нажав кнопку со стрелкой заносим его в список Indexed fields , нажимаем “OK”.

  5. В появившемся окне пишем «WaresNumIndex», нажимаем ОК затем Save .

  6. Закрываем таблицу в Desktope.

  • Задаем свойства зависимой таблицы. Выделив компонент Table 3:

  1. MasterSource – указывает на связующее звено главной таблицы, устанавливаем DataSource 1.

  2. IndexName – указывает имя используемого индекса – WaresNumIndex.

  3. MasterFields – здесь связываем поля , нажимаем кнопку «….» в появившемся окне: в списке DetailFields указываем сроку WaresNum а в списке MasterFields – строку WaresID, нажимаем Add затем ОК

  • У всех таблиц устанавливаем свойства Acticve – tru.

Размещаем TDBGrid3, DataSource3:

  1. свойству DataSet компонента DataSource3 – задаем LinkedSource/

  2. свойству DataSet компонента TDBGrid3 задаем – DataSoyrce3.

  • Запускаем созданное приложение F9. Проверяем связь между таблицами «товары», «заказы».

  • Самостоятельно установите связь между таблицами «Клиенты» и «заказы».


Достарыңызбен бөлісу:




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет