Работа выполнена профессионально, на 100 баллов из 100! Спасибо!
Подробнее о работе
Гарантия сервиса Автор24
Уникальность не ниже 50%
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if not Query1.RequestLive then begin
Query1.Active := False;
Query1.RequestLive := True;
Query1.Active := True;
end;
case RadioGroup1.ItemIndex of
0: Query1.Edit;
1: Query1.Insert;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.DataSource := DataSource1;
// Выключение режима редактирования
if Query1.RequestLive then begin
Query1.Active := False;
Query1.RequestLive := False;
Query1.Active := True;
end;
// Выключение радиокнопок
RadioGroup1.ItemIndex := -1;
// Объединение таблиц
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from prod where NTipProd = :NTipProd');
Query1.Open;
end;
Лабораторная содержит полный исходный код приложения и скриншоты окон программы
1. Создать базу данных (БД), состоящую из 2-х заданных таблиц. Поля таблиц произвольные, но не менее четырех полей в каждой таблице, включая ключевое поле (поле типа +(Autoincrement)). В таблицу, которая при объединении будет подчиненной, необходимо включить поле, по которому эта таблица будет связана с первичным ключом главной таблицы.
2. Разработать Приложение для работы с БД, выполняющее следующие основные функции: просмотр, наполнение, редактирование таблиц; организация связи главный-подчиненный двух таблиц; поиск данных по заданному критерию.
Поиск данных можете реализовать по любому полю, на Ваше усмотрение, подчиненной таблицы.
Варианты задания (по последней цифре студенческого билета):
1 Продовольственный магазин Типы продуктов: молочные, мучные, соки, фрукты и т.д. Продукты Количество оставшихся на складе продуктов (поступило - продано)
Работа была выполнена в Delphi 7 с использованием Database Desktop.
При выполнении работы специальная литература не использовалась
Не подошла эта работа?
Закажи новую работу, сделанную по твоим требованиям
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if not Query1.RequestLive then begin
Query1.Active := False;
Query1.RequestLive := True;
Query1.Active := True;
end;
case RadioGroup1.ItemIndex of
0: Query1.Edit;
1: Query1.Insert;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.DataSource := DataSource1;
// Выключение режима редактирования
if Query1.RequestLive then begin
Query1.Active := False;
Query1.RequestLive := False;
Query1.Active := True;
end;
// Выключение радиокнопок
RadioGroup1.ItemIndex := -1;
// Объединение таблиц
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from prod where NTipProd = :NTipProd');
Query1.Open;
end;
Лабораторная содержит полный исходный код приложения и скриншоты окон программы
1. Создать базу данных (БД), состоящую из 2-х заданных таблиц. Поля таблиц произвольные, но не менее четырех полей в каждой таблице, включая ключевое поле (поле типа +(Autoincrement)). В таблицу, которая при объединении будет подчиненной, необходимо включить поле, по которому эта таблица будет связана с первичным ключом главной таблицы.
2. Разработать Приложение для работы с БД, выполняющее следующие основные функции: просмотр, наполнение, редактирование таблиц; организация связи главный-подчиненный двух таблиц; поиск данных по заданному критерию.
Поиск данных можете реализовать по любому полю, на Ваше усмотрение, подчиненной таблицы.
Варианты задания (по последней цифре студенческого билета):
1 Продовольственный магазин Типы продуктов: молочные, мучные, соки, фрукты и т.д. Продукты Количество оставшихся на складе продуктов (поступило - продано)
Работа была выполнена в Delphi 7 с использованием Database Desktop.
При выполнении работы специальная литература не использовалась
Купить эту работу vs Заказать новую | ||
---|---|---|
0 раз | Куплено | Выполняется индивидуально |
Не менее 40%
Исполнитель, загружая работу в «Банк готовых работ» подтверждает, что
уровень оригинальности
работы составляет не менее 40%
|
Уникальность | Выполняется индивидуально |
Сразу в личном кабинете | Доступность | Срок 1—5 дней |
300 ₽ | Цена | от 200 ₽ |
Не подошла эта работа?
В нашей базе 51749 Контрольных работ — поможем найти подходящую