создай триггер чтобы выполнялся до удаления записей из 2-й и 3-й таблицы...... можешь либо удалить эти поля из 1-й таблицы, либо как-нибудь их пометить
CREATE TRIGGER delete2 FOR 2
BEFORE DELETE AS
BEGIN
DELETE FROM 1 WHERE DOLGN=OLD.id;
END
CREATE TRIGGER delete3 FOR 3
BEFORE DELETE AS ...
Найдено 13 результатов
- 06.06.2007 08:57:09
- Форум: Lazarus
- Тема: удаление связанных записей в БД
- Ответы: 32
- Просмотры: 28420
- 21.05.2007 09:44:39
- Форум: Free Pascal Compiler
- Тема: Хранение данных в разныхОС'ях
- Ответы: 14
- Просмотры: 14460
- 16.05.2007 10:36:12
- Форум: Lazarus
- Тема: Загрузка процесора
- Ответы: 2
- Просмотры: 4087
лень создавать тему по этому вроде бы пустяковому вопросу
под WinXP на Лазарусе 0918 и 0922 если развернуть окно редактора на весь экран и начать чо-ньть печатать, то процессор начинает очень сильно напрягаться, даже после прекращения редактирования процессор всё равно остаётся загруженным на 99 ...
под WinXP на Лазарусе 0918 и 0922 если развернуть окно редактора на весь экран и начать чо-ньть печатать, то процессор начинает очень сильно напрягаться, даже после прекращения редактирования процессор всё равно остаётся загруженным на 99 ...
- 08.05.2007 12:54:29
- Форум: Lazarus
- Тема: баг при переносе компонентов
- Ответы: 7
- Просмотры: 7280
- 07.05.2007 11:16:54
- Форум: Lazarus
- Тема: баг при переносе компонентов
- Ответы: 7
- Просмотры: 7280
- 03.05.2007 13:54:35
- Форум: Lazarus
- Тема: Пустая форма
- Ответы: 25
- Просмотры: 22963
- 03.05.2007 11:41:31
- Форум: Lazarus
- Тема: выгрузка в Exel из под линукса.
- Ответы: 35
- Просмотры: 51463
- 18.01.2007 06:33:38
- Форум: Free Pascal Compiler
- Тема: указатель на класс
- Ответы: 6
- Просмотры: 7154
- 15.01.2007 22:55:20
- Форум: Free Pascal Compiler
- Тема: указатель на класс
- Ответы: 6
- Просмотры: 7154
- 15.01.2007 21:38:19
- Форум: Free Pascal Compiler
- Тема: указатель на класс
- Ответы: 6
- Просмотры: 7154
Re: указатель на класс
procedure Form1.SetParam(Base:TBase);
var
aLine:TLine;
aVCBase:TVCBase;
i:integer;
begin
aLine:=TLine(Base);
i:=aLine.ID; //так всё работает
...
i:=aLine.FSTM1.FVCRx[5].ID;//при таком вызове происходит ...
- 15.01.2007 21:25:43
- Форум: Free Pascal Compiler
- Тема: указатель на класс
- Ответы: 6
- Просмотры: 7154
- 15.01.2007 17:00:17
- Форум: Free Pascal Compiler
- Тема: указатель на класс
- Ответы: 6
- Просмотры: 7154
указатель на класс
Гритингс!
что-то я всё не могу понять систему работы с классами
есть такая иерархия классов
TBase = class
private
protected
FName:String;
FID:integer;
FType:TInterfaceBase;
public
end;
TTributarBase = class (TBase)
private
protected
FRx,FTx:TBase; //исп ...
что-то я всё не могу понять систему работы с классами
есть такая иерархия классов
TBase = class
private
protected
FName:String;
FID:integer;
FType:TInterfaceBase;
public
end;
TTributarBase = class (TBase)
private
protected
FRx,FTx:TBase; //исп ...
- 16.11.2006 11:42:18
- Форум: Lazarus
- Тема: Вышел Lazarus 0.9.20 %)
- Ответы: 44
- Просмотры: 40444
