0 / 0 / 1
Регистрация: 20.05.2014
Сообщений: 40
1

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

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

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

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


Проект программы:
Вложения
Тип файла: 7z проект.7z (872.9 Кб, 12 просмотров)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.05.2014, 18:44
Ответы с готовыми решениями:

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

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

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

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

2
0 / 0 / 1
Регистрация: 20.05.2014
Сообщений: 40
22.05.2014, 17:01  [ТС] 2
Ребят кто нибудь подскажите хотябы как просто скопировать выделенную строку в левой таблице в правую при нажатии на кнопку ДОБАВИТЬ В ЗАКАЗ(( ооочень надо!
0
129 / 129 / 41
Регистрация: 17.10.2013
Сообщений: 335
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
24.05.2014, 01:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2014, 01:15
Помогаю со студенческими работами здесь

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

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

Копирование/добавление данных из одной таблицы в другую.
Здравствуйте. Имеется три одинаковых, но с разными показателями, таблицы. Мне нужно как то...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru