Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2008, 15:24   #1
drakhar
Пользователь
 
Регистрация: 12.02.2008
Сообщений: 10
По умолчанию Нужен небольшой совет по запросу

В базе несколько таблиц, надо было реализовать копирование определенных данных из таблиц в таблицу "лицевой счет", с этим разобрался, но есть проблемка которую надо как то решить.
Суть запроса - из таблиц с материалами переносить данные в таблицу "лицевой счет" на выбранную фамилию, и записывать в первую таблицу эту фамилию на перенесенный товар, вообщем понять наверное сложно, поэтому выкладываю 3 скрина что б было понятнее.
А проблема в следующем: если создать в таблице "лицевой счет" еще одно поле с с другой фамилией то перенесенные данные будут добавляться в конец таблицы, то есть на другую фамилию, а не на первую в списке.
вот сам код запроса, посоветуйте пожалуйста как решить эту проблему, уже запарило)

Код:
procedure TForm1.N1Click(Sender: TObject);
var
n:integer;
begin
AdoQuery1.Active :=false;
AdoQuery1.SQL[2] := 'WHERE (((Другое.[Инвентарный №])="' +
AdoTable1.FieldValues['Инвентарный №'] + '"));';
AdoQuery1.Active := true;
n := AdoTable2.RecordCount + 1;
AdoTable2.AppendRecord([n,'',AdoTable1.FieldValues['Наименование'] +
' Инвентарный № ' +
AdoTable1.FieldValues['Инвентарный №']]);


  AdoTable2.RecNo := RecNo;
  while not(Adotable2.Bof) and not(Adotable2.FieldByName('ФИО').AsString > '') do
    AdoTable2.Prior;
  if Adotable2.FieldByName('ФИО').AsString > '' then begin
    AdoTable1.Edit;
    AdoTable1.FieldByName('ФИО').AsString := Adotable2.FieldByName('ФИО').AsString;
    AdoTable1.Post;
  end;
end;
Изображения
Тип файла: jpg 1.jpg (13.4 Кб, 133 просмотров)
Тип файла: jpg 2.jpg (10.0 Кб, 120 просмотров)
Тип файла: jpg 3.jpg (11.9 Кб, 117 просмотров)
drakhar вне форума Ответить с цитированием
Старый 28.03.2008, 15:37   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
копирование определенных данных из таблиц в таблицу "лицевой счет"
Зачем же данные-то копировать?
Таблица товаров: код_товара; артикул; наименование_товара
Таблица покупателей: код_покупателя; ФИО_покупателя
Таблица лицевых счетов: код_счета; код_покупателя; код_товара
Никаких проблем с добавлениями - вносится код_товара и код_покупателя
Выборки - элементарные...
mihali4 вне форума Ответить с цитированием
Старый 08.08.2008, 16:59   #3
Aistto
 
Регистрация: 08.08.2008
Сообщений: 3
По умолчанию

Цитата:
Сообщение от mihali4 Посмотреть сообщение
Зачем же данные-то копировать?
Таблица товаров: код_товара; артикул; наименование_товара
Таблица покупателей: код_покупателя; ФИО_покупателя

Таблица лицевых счетов: код_счета; код_покупателя; код_товара
Никаких проблем с добавлениями - вносится код_товара и код_покупателя
Выборки - элементарные...
У меня такой вопрос:
Теперь в Таблица лицевых счетов код_покупателя; код_товара будут отображаться как цифры, так?
если да, то как добиться того что бы в выпадающем спимке были не значения кода а текстовое поле соответсвующее ему.
Aistto вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужен совет Михаил Юрьевич Общие вопросы Delphi 2 07.06.2008 13:59
Нужен совет Михаил Юрьевич Общие вопросы Delphi 3 04.05.2008 21:52
Нужен совет Kler Свободное общение 0 27.03.2008 23:44
Нужен ваш совет SZero Помощь студентам 3 24.02.2008 17:51
Нужен ваш совет HIP Общие вопросы Delphi 1 20.06.2007 14:32