Вариант 5. Создать базу данных (БД), состоящую из 2-х заданных таблиц

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

антиплагиат в подарок

DB

БД.docx

Программа

Содержание:


Задание

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

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

Вариант №5.

Тема: Магазин спортивных товаров.

Главная таблица: Отделы.

Подчиненная таблица: Товары.

Вычисляемое поле: Количество проданного товара (поступило-осталось).

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

[image]

[image]

Таблицы связаны по полю Code_otdel:

Внешний ключ в таблице Tovar:

[image]

Зависимая таблица для Otdel:

[image]

Формы приложения

Главная форма приложения (Form1):

[image]

Выбор пути к базе данных (Form2) – по умолчанию C:\Temp\DB

[image]

Поиск по критерию (Form3)

[image]

Модули форм

Form1

unit Unit1;

interface

uses

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

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

type

TForm1 = class(TForm)

TableOtdels: TTable;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Button1: TButton;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

DBNavigator2: TDBNavigator;

Label1: TLabel;

Label2: TLabel;

Query1: TQuery;

TableOtdelsName_otdel: TStringField;

TableOtdelsSeller_otdel: TStringField;

TableOtdelsOpisanie_otdel: TStringField;