перевод единиц

[Stilet]

object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 192
Top = 56
end
object ADOQuery1: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
LockType = ltBatchOptimistic
DataSource = DataSource2

Чет я не пойму... А где описано свойство MasterSource описано?

[Ernest027]

У adoquery нет свойства mastersource,только datasource. У подчинённой таблицы в datasource я вставляются datasource главной таблицы.

[evg_m]

Так у меня вторая главная,а первая подчинённая таблица.

разве ?! может все же наоборот

У adoquery2 datasource подключаю datasource1

DataSource устанавливается у подчиненного набора данных. Что бы знать ОТКУДА брать сведения(читай значения параметров) для задания фильтра данных.
Значит все надо сделать с точностью до наоборот.
P.S. главное при этом не переусердствовать

[Ernest027]

Пардон. Вторая главная,первая подчинённая. У первой таблицы datasource стоит datasource 2) но все равно не работает(

Прошу вас посмотреть,а то с ума сойду. Не работает и все тут.

[evg_m]

и где здесь PointID=:PointID ??
и чтобы хоть что-то увидеть надо ОТКРЫТЬ набор данных.

А кто будет открывать набор данных?
Подчиненность обеспечивает только автоматическую смену данных в УЖЕ открытом НД, но открывать и главную, и подчиненную нужно самому.

[Ernest027]

подскажите что делать? Что не так? Не получается их связать. В главное таблице пишу

select * from table1

в подчинённой

select * from table2 where PointID=:PointID

связь по полю PointID

[Stilet]

Вижу у тебя и MD связь настраивать не выходит )
Все намекает: "Брось это дело...".
Ладно. Предложу еще одну заморочку:

procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
  adoquery2.Filter:='PointID='+DataSet.FieldByName('PointID').AsString;
end;

Для ADOQuery2 выставь после Open свойство Filtered в True.

Смысл в фильтрации по некоторому полю второго набора при переходе по первому.

[Ernest027]

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

create view Vibration2 as 
select Vibration.*, case when (select max (v) from Vibration)>999 and (select max (v) from Vibration)<999999 then v/1000 
when (select max (v) from Vibration)>999999 and (select max (v) from Vibration)<999999999 then v/1000000
when (select max (d) from Vibration)>999999999 then d/1000000000
else v end as v1,
case when (select max (d) from Vibration)>999 and (select max (d) from Vibration)<999999 then d/1000 
when (select max (d) from Vibration)>999999 and (select max (d) from Vibration)<999999999 then d/1000000
when (select max (d) from Vibration)>999999999 then d/1000000000
else d end as d1,
case when (select max (a) from Vibration)>999 and (select max (a) from Vibration)<999999 then a/1000
when (select max (a) from Vibration)>999999 and (select max (a) from Vibration)<999999999 then a/1000000
when (select max (a) from Vibration)>999999999 then a/1000000000
else a end as a1 from Vibration

[evg_m]

, case when (select max (v) from Vibration)>999 and (select max (v) from Vibration)<999999 then v/1000 
       when (select max (v) from Vibration)>999999 and (select max (v) from Vibration)<999999999 then v/1000000
       when (select max (d) from Vibration)>999999999 then d/1000000000

select v.*
v.v/mx.dv as v1,
v.d/mx.dd as d1,
v.a/mx.da as a1
form vibration as v
   , ( select case when max(v)>999999999 then 1000000000
                   when max(v)>999999    then 1000000
                   when max(v)>999       then 1000
                   else                       1 end as dv,
              case when max(d)>999999999 then 1000000000
                ....
                   else                       1 end as dd,
              case when max(a)>999999999 then 1000000000
                ....
                   else                       1 end as da
        from vivration 
    ) as mx

хотя на мой взгяд лучше в else запихивать максимальный делитель

case when max(v)<=1000 then 1 
     when max(v)<=1000000 then 1000
     when max(v)<=1000000000 then 1000000
     else 1000000000 end as dv

[evg_m]

итак все наши записи которые мы хотим увидеть были добавлены таким образом

          Command.CommandText:='INSERT INTO Vibration (f, a, v, d) VALUES (:f, :a, :v, :d)';

при просмотре записей хотим увидеть

where pointID =:PointID

но у нас просто нет записей удовлетворяющих ДАННОМУ фильтру!!!
ни одна из добавленных НЕ ИМЕЕТ значения pointID!!!