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

  • ID: 02458 
  • 8 страниц
200 рубСкачать

гарантия низкой цены

Name.DB

Name.PX

Name.VAL

Project1.cfg

Project1.dof

Project1.dpr

Project1.exe

Project1.res

Teatr.db

Teatr.PX

Teatr.VAL

Unit1.dcu

Unit1.ddp

Unit1.dfm

Unit1.pas

Unit2.dcu

Unit2.dfm

Unit2.pas

Unit3.dcu

Отчет.docx

Содержание:


Постановка задачи

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

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

Поиск данных можете реализовать по любому полю, на Ваше усмотрение.

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

Главная таблица

[image]

Подчиненная таблица

[image]

Главная форма

[image]

Модуль

unit Unit1;

interface

uses

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

StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables, Menus;

type

TForm1 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Query1: TQuery;

DataSource2: TDataSource;

DBGrid2: TDBGrid;

MainMenu1: TMainMenu;

N11: TMenuItem;

Find1: TMenuItem;

N1: TMenuItem;

RadioGroup1: TRadioGroup;

Button1: TButton;

Table1N: TAutoIncField;

Table1Spektakl: TStringField;

Table1Vsego: TIntegerField;

Table1Ostalos: TIntegerField;

Table1Prodano: TIntegerField;

Label2: TLabel;

N2: TMenuItem;

procedure Find1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Table1ProdanoGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;