Тема: dbf в delphi
Показать сообщение отдельно
  #14  
Старый 30.08.2012, 13:03
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Andrej-zhe
1)В duk.dbf, op.dbf и op_ozo.dbf нужно сравнить поля type, subtype, key, если эти поля совпадают тогда из duk.dbf нужно записать в sbor.dbf kod и name? а из op.dbf в sbor.dbf поле N.
да вот еще если возможно то поля type, subtype, key можно сравнивать объединив значения в одно, т.к. там строковые символы но отобразаются числами. Например, type = 1, subtype = 2, key = 3, объединение будет выглядеть так 123.
Код:
Query.Close;
Query.SQL.Text:='SELECT d.kod, d.name, o.N FROM duk.dbf d, op.dbf o, op_ozo.dbf z WHERE d.type||d.subtype||d.key = o.type||o.subtype||o.key
AND d.type||d.subtype||d.key = z.type||z.subtype||z.key';
Query.Open;
if Query.RecordCount>0 
  then
  begin
  tblSbor.Open;
  while not Query.Eof do
    begin
    tblSbor.Insert;
    tblSbor.FieldByName('kod').Value:=Query.FieldByName('kod').Value;
    tblSbor.FieldByName('name').Value:=Query.FieldByName('name').Value;
    tblSbor.FieldByName('N').Value:=Query.FieldByName('N').Value;
    tblSbor.Post;
    Query.Next;
    end;
  end
  else ShowMessage('Ни одной записи не найдено');
Цитата:
2)последнюю таблицу после пункта 1 мы уже можем сравнивать sbor.dbf c mklh.dbf по полям n и nk, если они совпадают то из mklh.dbf нужно записать в sbor.dbf поля FIO, DP, DR, DV.

см. решение п1. (аналогия)
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием