30.08.2012, 13:03
|
|
Специалист
|
|
Регистрация: 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.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|