Практическая работа № 2.
Реляционные базы данных.
Цель работы: Получить понятие о реляционных базах данных и их возможностях.
Ход работы.
Разделение данных на несколько таблиц.
Откройте базу данных, в которой уже имеется одна таблица под названием Страны Европы, состоящую из 20 записей.
Создайте таблицу Религии при конструктора таблиц с полями:
Поле Код религии сделайте ключевым.
Создайте таблицу Строй при конструктора таблиц с полями:
Поле Код строя сделайте ключевым.
Заполните эти таблицы (таким образом, напротив каждой религии и каждого строя будет стоять его код).
Откройте таблицу Страны Европы и замените названия в полях Строй и Религия на соответствующие им коды в ранее созданных таблицах.
Откройте таблицу Страны Европы в режиме конструктора и для полей Строй и Религия заменит тип данных на числовой.
Установление связей между двумя таблицами.
Выполните команду Схема данных из меню Работа с базами данных.
В диалоговом окне добавления таблиц добавьте все три таблицы.
На поле Код религии таблицы Религии нажмите левую клавишу мыши и удерживая ее перетащите на поле Религия таблицы Страны Европы. В появившемся диалоговом окне необходимо установить нужную связь флажок напротив опции обеспечение целостности данных. Это означает, что перед тем как занести данные в подчиненную таблицу, программа будет проверять их на соответствие главной (таблица Страны Европы является подчиненной для таблицы Религии). Установите флажок напротив опции каскадное обновление связанных полей, это означает, что изменения в главной таблице автоматически будут влиять на подчиненную. Установите флажок напротив опции каскадное удаление связанных записей, это означает, что записи удаленные в главной таблице автоматически будут удалены в подчиненной таблице.
Аналогичную операцию проделайте с таблицами Страны Европы и Строй.
Закройте схему с сохранением.
Сохраните базу данных.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

45087

02.02.2020 13:08

3. Рассмотрите пример и укажите вид информации Вид информацииПример335, 33-12*5, XVIWorld, Әлем, МирMPGMOV...

salih2

11.09.2021 13:59

Как доказать истинность логического выражения?...

Katya124354

04.10.2022 04:02

84.Проведите доказательство логических законов общей ин- версии с таблиц истинности: а) для логического умножения: A& B = AvВ: A B A & B (A & B) AB Ā V B 0 0...

KaDet1778

31.05.2022 03:38

Расставь в правильном порядке Какова последовательность действий при решении задач на преобразование информации путем логических рассуждений? а определить, какие объекты...

Alisa27Alisa

30.11.2020 23:55

Сообщение, записанное с символьного алфавита, содержит 100 символов. Сколько байт занимает сообщение?...

creatorX

31.07.2022 19:22

, 5 минут до начала урока....

aaaaaalina1yuin

07.01.2023 15:43

На які програмні продукти існують авторські права...

revati1

22.02.2021 17:03

Інформатика, перевід з десяткової у двійкову систему числення 555,666,100101,11101110...

kaliyeva2006amina

16.01.2023 20:05

Укажите декларативные знания: Я знаю, как вычислить сумму десятичных дробей Я знаю, что параллельные прямые не пересекаются Сведения в информативном сообщении должны быть...

ania47

03.07.2020 23:00

Скорость передачи данных через ADSL-соединение равна 512000 бит/c. Передача файла через данное соединение заняла 6 секунд. Определите размер файла в Кбайт....

Ответ:

dzeratigieva

10.11.2021 18:15

Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
St : String;
i : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
For j:=1 to Length(S) do
Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
end;
DeCode:=S;
end;
Begin
St:='ЗЫФЙГФШРЦ . ШД';
Writeln(Decode(St,sh,-6));
//For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.

0,0(0 оценок)

Ответ:

olgamaryutina

29.04.2020 00:26

Program Task;
Const N = 499; M = 1;
Var A: Array [1..N, 1..N] of Boolean;
i, j, x, y, t: Integer;
b: Boolean;
Begin
Randomize;
While i < M Do
Begin
x := Random(N) + 1;
y := Random(N) + 1;
If A[x, y] = False Then
Begin
A[x, y] := True;
i := i + 1;
End;
End;
While b = False Do
Begin
b := True;
For i := 1 To N Do
For j := 1 To N Do
Begin
If A[i, j] = True Then
Begin
If (i + 1) <= N Then
A[i + 1, j] := True;
If (i - 1) > 0 Then
A[i - 1, j] := True;
If(j + 1) <= N Then
A[i, j + 1] := True;
If (j -1) > 0 Then
A[i, j - 1] := True;
End;
End;
For i := 1 To N Do
For j := 1 To N Do
If A[i, j] = False Then
b := False;
t := t + 1;
End;
WriteLn(t);
ReadLn;
End.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку