[dima_10]

Помогите пожалуйста. есть две таблицы ostatki, potrebnost

таблицы ostatki, potrebnost
имеют поля (diametr, gost , ves). Нужно если diametr и gost в одной таблице равны diametr и gost в другой то ves из одной таблице должен вычитаться из другой и записыватся в поле itog. Вот текст. Подскажите ,что не так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button2Click(Sender: TObject);   begin form1.ADOtable1.first; while form1.ADOtable1.Eof do begin if (ADOtable1diametr.Value=form1.ADOtable2diametr1.Value)and  (ADOtable1gost.Value= ADOtable2gost1.Value)   then  // ADOtable1rezult.Value:=ADOtable2ves1.Value-ADOtable1ves.Value  ;   ADOtable1itog.Value:=ADOtable2ves1.Value - ADOtable1ves.Value;   form1.ADOtable1.next; end;end;

Админ: Пользуемся тегами для оформления кода!

Спасибо за помощь

[lmikle]

А на уровне SQL это нельзя сделать?

Код:

1 2	select o.diametr, o.gost, (o.ves - p.ves) as itog from ostatki o left join potrebnost p on o.gost=p.gost and o.diametr = з.diametr

[chainik]

есть 2 подхода
1. на уровне SQL- пишешь SQL процедуру
2. на уровне пользовательской подключаемой библиотеки

вечером покажу.

[chainik]

/*---вот объявление функций пользователя.
Это оформляется в виде DLL. Я привожу этот пример только как рыбу.
Обрати внимание на способ передачи параметров- cdecl.
Это обязательное условие.
Этот текст надо оформить в виде DLL- библиотеки и поместить ее в
каталог C:\Interbase\Udf
*'/

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

library UdfMetrolog;   uses   SysUtils, DateUtils;     function GetYear(var Dt:double):smallint;cdecl; begin     try     GetYear:=YearOf(Dt);     except     GetYear:=9999     end end;   function GetMonth(var Dt:double):smallint;cdecl; begin     try      Result:=MonthOf(Dt);     except     Result:=-1     end end;   function AddMonth(var Dt:double;var NumbOfMonth:integer):double;cdecl; begin     try     Result:=IncMonth(Dt,NumbOfMonth);     except     Result:=-1     end end;   exports AddMonth, GetMonth, GetYear;     begin end.

После того как ты изготовил DLL с твоими функциями пользователя
на них можно ссылаться в тексте описания БД.
Для этого надо сделать внешние ссылки на эти функции, как это указано ниже.
Теперь твои функции можно применять также как и стандартные.
Надо сказать что такую возможность предоставляют не все базы данныз.
Лично я использую InterBase/FireBird, где все это есть.
*/

Код:

1 2 3 4 5 6 7 8 9 10 11

DECLARE EXTERNAL FUNCTION ADDMONTH DOUBLE PRECISION, INTEGER RETURNS DOUBLE PRECISION BY VALUE ENTRY_POINT 'AddMonth' MODULE_NAME 'UdfMetrolog';   DECLARE EXTERNAL FUNCTION GETMONTH DOUBLE PRECISION RETURNS SMALLINT BY VALUE ENTRY_POINT 'GetMonth' MODULE_NAME 'UdfMetrolog';   DECLARE EXTERNAL FUNCTION GETYEAR DOUBLE PRECISION RETURNS SMALLINT BY VALUE ENTRY_POINT 'GetYear' MODULE_NAME 'UdfMetrolog';

///// 2 /////////////////
Теперь о втором способе.
Можно в самой БД создать некое свойство, которое позволяет прямо по ходу дела
анализировать ситуацию и соответственно ее обрабатывать. Это триггеры- специальные процедуры,
внедренные в базу данных и запускающиеся автомтически при наступлении определенных событий в БД.
Например, процедура Workks_trig_ins (см ниже) автоматически запустится ПЕРЕД вставкой новой строки
в таблицу Works.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

*--------------------------------------------------------------------------------------------------   генератор номеров свидетельств в пределах 1 года для таблицы Works     VidDocum IN ('  -  ','Сертифик. о калибр.','Свидет. о повер.','Извещ. о непригодн.','Акт на спис.')), ---------------------------------------------------------------------------------------------------*/     CREATE TRIGGER Works_trig_ins FOR Works ACTIVE BEFORE INSERT AS DECLARE VARIABLE Yr SMALLINT; DECLARE VARIABLE Yr2 SMALLINT; BEGIN Yr2=extract(year from CURRENT_DATE);   /* свидетельство */ IF (NOT(NEW.Svidet IS NULL)) THEN   BEGIN     SELECT GETYEAR(Dat) FROM Works         WHERE (Dat=(SELECT MAX(Dat) FROM Works                            WHERE (VidDocum = NEW.VidDocum)))   INTO :Yr;     IF (NEW.VidDocum='Сертифик. о калибр.') then     BEGIN     NEW.NumSvidet_Yr = GEN_ID(Works_Kal_Yr_GEN,1);     IF (:Yr <> :Yr2) THEN            NEW.NumSvidet_Yr = GEN_ID(Works_Kal_Yr_GEN,1-NEW.NumSvidet_Yr);     END     IF (NEW.VidDocum='Свидет. о повер.') then     BEGIN     NEW.NumSvidet_Yr = GEN_ID(Works_Pov_Yr_GEN,1);     IF (:Yr <> :Yr2) THEN            NEW.NumSvidet_Yr = GEN_ID(Works_Pov_Yr_GEN,1-NEW.NumSvidet_Yr);     END     IF (NEW.VidDocum='Извещ. о непригодн.') then     BEGIN     NEW.NumSvidet_Yr = GEN_ID(Works_Negodn_Yr_GEN,1);     IF (:Yr <> :Yr2) THEN            NEW.NumSvidet_Yr = GEN_ID(Works_Negodn_Yr_GEN,1-NEW.NumSvidet_Yr);     END     IF (NEW.VidDocum='Акт на спис.') then     BEGIN     NEW.NumSvidet_Yr = GEN_ID(Works_Spisan_Yr_GEN,1);     IF (:Yr <> :Yr2) THEN            NEW.NumSvidet_Yr = GEN_ID(Works_Spisan_Yr_GEN,1-NEW.NumSvidet_Yr);     END   END END!

/*
Итак, после всего этого база данных перестает быть просто хранилищем,
а приобретает определенный интеллект, чем программист должен уметь пользоваться.
После того как программист заложил в БД функции, она приобретает способность производить первичную обработку информации
и уже находится в состоянии, когда может по требованию пользователя выдать нужную информацию
(перед тем ее обработав и представив в нужном виде!).
Несколько советов
Эти 2 способа в какой- то мере конкурируют между собой. Какой из них избрать для достижения заданной цели-
решает программист.
Мой совет
В DLL следует помещать функции сложные. Они пишутся на языках высокого уровня и потому просты в отладке.
Оформмять твои специфические функции как триггеры следует тогда, когда они достаточно просты
и кроме того предвидится необходимость их изменять. Это так называемые Бизнес-правила.
Например, как триггер следует оформить функцию вычета подоходного налогга.
Если правила исчисления подоходного налога изменились- ты просто в твоей БД изменяешь эту функцию- и она
автоматически действует для всех пользователей.
*/

[lmikle]

Тов, Чайник, а вам не кажется, что вас нетуда понесло???