Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Vladimir3394
0 / 0 / 1
Регистрация: 20.05.2014
Сообщений: 40
1

Копирование строки из одной таблицы в другую с изменением значений двух столбцов

21.05.2014, 18:44. Просмотров 623. Ответов 2
Метки нет (Все метки)

Объясню суть проблемы. Не хватает мозгов реализовать задуманное в программном коде, а тему диплома поменять уже нельзя. Делаю программу по работе с клиентами оптового склада продуктов.
Есть форма на которой 2ве одинаковые таблицы(Обе таблицы из 1й базы данных сделанной на Access), одна из них заполнена(таблица prodykti) и одна пустая(таблица zakaz). На форме присутствует кнопка ДОБАВИТЬ В ЗАКАЗ(предварительно пользователь выделяет нужный товар в таблице prodykti).
При нажатии на эту кнопку должно происходить следующее: вызов формы на которой задаётся вопрос пользователю(Какое кол-во килограмм вы хотите внести в заказ?) и соответственно на ней расположен Edit где пользователь отвечает на заданный вопрос, и кнопка при нажатии на которую нужный товар заносится в таблицу zakaz где уже изменены 2 столбца нашей строки взятой из таблицы prodykti(Вес и Цена). Тоесть при копирование изменяются 2 значения вес и цена которая расщитывается с помощью элементарного умножения(вес который мы ввели на цену из таблицы prodykti).
По мере того как пользователь делает заказ под таблицей zakaz должен быть расположен Label который показывает общую сумма заказа(он должен изменяться по мере того как пользователь вносит товары в заказ тоесть автоматически).
Старался объяснить как можно подробнее. Пожалуйста помогите реализовать задуманное, готов даже заплатить рублей 500 за помощь( ситуация безвыходная, мозгов не хватает и надо сдавать диплом ,а через месяц уже заберут в армию. Облазил весь гугл решения сам найти не смог.
Для того чтобы было наиболее понятно скидываю скрин и сам проект программы(база данных находится в папке с проектом)
Заранее спасибо за помощь.
Скрин:

Копирование строки из одной таблицы в другую с изменением значений двух столбцов


Проект программы:
0
Вложения
Тип файла: 7z проект.7z (872.9 Кб, 11 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2014, 18:44
Ответы с готовыми решениями:

Копирование строки из одной таблицы в другую
procedure TForm1.SpeedButton6Click(Sender: TObject); var Num: SmallInt;...

Копирование строки из одной таблицы в другую
Мир всем и привет Как копировать запись из одной таблицы в другую ? Вот у...

Копирование данных из одной таблицы в другую в пределах одной базы. Не работает счетчик
Делаю копирование данных из одной таблицы в другую в пределах одной базы....

Копирование из одной таблицы БД в другую
Добрый день. Подскажите, пожалуйста как можно копирывать данные из одной...

Копирование данных из одной таблицы в другую
procedure TForm10.sTreeViewEx1Change(Sender: TObject; Node: TTreeNode); begin...

2
Vladimir3394
0 / 0 / 1
Регистрация: 20.05.2014
Сообщений: 40
22.05.2014, 17:01  [ТС] 2
Ребят кто нибудь подскажите хотябы как просто скопировать выделенную строку в левой таблице в правую при нажатии на кнопку ДОБАВИТЬ В ЗАКАЗ(( ооочень надо!
0
andrey_k3
128 / 128 / 41
Регистрация: 17.10.2013
Сообщений: 333
24.05.2014, 01:15 3
Лучший ответ Сообщение было отмечено Vladimir3394 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
with ADOQueryCreateZakaz do
  begin
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO zakaz([Наименование продукта], [Цена(руб)], [Тип продукции], [Производитель], [Вес(кг)]) VALUES (:a1, :a2, :a3, :a4, :a5');
    Parameters.ParamByName('a1').Value:= ADOQuery1.FieldByName('Наименование продукта').Value;
    Parameters.ParamByName('a2').Value:= ADOQuery1.FieldByName('Цена(руб)').AsFloat * StrToFloat(Edit1.Text);
    Parameters.ParamByName('a3').Value:= ADOQuery1.FieldByName('Тип продукции').Value;
    Parameters.ParamByName('a4').Value:= ADOQuery1.FieldByName('Производитель').Value;
    Parameters.ParamByName('a5').Value:= Edit1.Text;
  end;
, где ADOQuery1 отвечает за набор данных для "левой таблицы"
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.05.2014, 01:15

Копирование данных из одной таблицы в другую
хочу копировать из одной таблицы на другой. Но дает ошибку.. procedure...

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

Копирование поля из одной таблицы в другую(ADO)
Здравствуйте.В базах данных я не особо силен.Работу делаю с пом. ADO. Имеется...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru