Шифр 79. Структура таблиц. Создать базу данных (БД), состоящую из 2-х заданных таблиц. Поля таблиц произвольные, но не менее четырех полей в каждой таблице

  • ID: 42213 
  • 11 страниц

Содержание:


Задание

1. Создать базу данных (БД), состоящую из 2-х заданных таблиц. Поля таблиц произвольные, но не менее четырех полей в каждой таблице, включая ключевое поле (поле типа +(Autoincrement)). В таблицу, которая при объединении будет подчиненной, необходимо включить поле, по которому эта таблица будет связана с первичным ключом главной таблицы (в рассматриваемом здесь примере это поле NFcl таблицы grp2).

2. Разработать Приложение для работы с БД, выполняющее те же функции, что и в приведенном ниже примере: просмотр, наполнение, редактирование таблиц; создание вычисляемого поля; организация связи главный-подчиненный двух таблиц; поиск данных по заданному критерию.

Вариант №9

Структура таблиц

[image]

[image] Главная форма

[image]

[image]

[image]

[image]

[image]

[image] Листинг главного модуля

unit Unit1;

interface

uses

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

Dialogs, DB, ExtCtrls, DBCtrls, DBTables, Grids, DBGrids, StdCtrls, Menus, Unit2, Unit3;

type

TForm1 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Table1: TTable;

DataSource2: TDataSource;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Query1: TQuery;

MainMenu1: TMainMenu;

FindExit1: TMenuItem;

Find1: TMenuItem;

N1: TMenuItem;

Exit1: TMenuItem;

Bevel1: TBevel;

RadioGroup1: TRadioGroup;

Bevel2: TBevel;

CheckBox1: TCheckBox;

bout1: TMenuItem;

Query1R_code: TIntegerField;

Query1TR_code: TIntegerField;

Query1Adress_master: TStringField;

Query1Tel_master: TStringField;

Query1Tel_room: TBooleanField;

Query1S_live: TIntegerField;

Query1S_notlive: TIntegerField;

Query1Balcony: TBooleanField;

Query1Name_master: TStringField;

Query1Cost: TFloatField;

Query1S_full: TIntegerField;

procedure Exit1Click(Sender: TObject);

procedure Find1Click(Sender: TObject);