куда прописать параметр

[shadd]

здравствуйте! подскажите пожалуйста куда нужно прописать 'tabl' чтобы
в журнал событий прописывалась редактируемая таблица

procedure jurnal (deistvie :string);
begin
DataModule2.IBStoredProc5.parambyname('IDENT').value:=1;
DataModule2.IBStoredProc5.parambyname('FIN_ID_IZM').value:=DataModule2.IBQuery5ID_IZM.Value;
DataModule2.IBStoredProc5.parambyname('FIN_KTO_IZMENIL').value:='Admin';
DataModule2.IBStoredProc5.parambyname('FIN_DATA_IZM').value:=DateToStr(NOW);
DataModule2.IBStoredProc5.parambyname('FIN_VR_IZM').value:=TimeToStr(NOW);
DataModule2.IBStoredProc5.parambyname('FIN_IZM_TABL').value:='tabl';
DataModule2.IBStoredProc5.parambyname('FIN_TIP_OPER').value:=deistvie;
try
DataModule2.IBStoredProc5.execproc;
except
showmessage('Не удалось добавить запись');
DataModule2.IBTransaction1.RollbackRetaining;
exit;
end;
DataModule2.IBTransaction1.CommitRetaining;
DataModule2.IBQuery5.Close;
DataModule2.IBQuery5.Open;
end;
tabl:='Преподаватели';
jurnal('Удаление');


procedure TForm3.Button1Click(Sender: TObject);
begin
DataModule2.IBStoredProc1.parambyname('IDENT').value:=1;
DataModule2.IBStoredProc1.parambyname('FIN_Kod_dom').value:=DataModule2.IBQuery1KOD_DOM.Value;
DataModule2.IBStoredProc1.parambyname('FIN_Num_dom').value:=strtoint(Edit1.Text);
DataModule2.IBStoredProc1.parambyname('FIN_Rajon').value:=  Edit2.Text;
DataModule2.IBStoredProc1.parambyname('FIN_ulica').value:=  Edit3.Text;
try
DataModule2.IBStoredProc1.execproc;
except
showmessage('Редактирование записи не прошло'+#13+'Повторить попытку');
DataModule2.IBTransaction1.RollbackRetaining;
exit;
end;
DataModule2.IBTransaction1.CommitRetaining;
DataModule2.IBQuery1.Close;
DataModule2.IBQuery1.open;
tabl:='дома'; // выдает ошибку  Not enough actual parameters
jurnal('Добавление');

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Аватар]

в jurnal добавь еще параметр

[Serge_Bliznykov]

Сообщение от Аватар

в jurnal добавь еще параметр

присоединяюсь.

примерно так:

procedure jurnal (deistvie, tablica :string);
....
DataModule2.IBStoredProc5.parambyname('FIN_IZM_TABL').value:=tablica;
DataModule2.IBStoredProc5.parambyname('FIN_TIP_OPER').value:=deistvie;
...

jurnal('Удаление', 'Преподаватели');
...

jurnal('Добавление', 'дома');

...

[shadd]

Сообщение от Serge_Bliznykov

присоединяюсь.

примерно так:

procedure jurnal (deistvie, tablica :string);
....
DataModule2.IBStoredProc5.parambyname('FIN_IZM_TABL').value:=tablica;
DataModule2.IBStoredProc5.parambyname('FIN_TIP_OPER').value:=deistvie;
...

jurnal('Удаление', 'Преподаватели');
...

jurnal('Добавление', 'дома');

...

выдает ошибку

[Serge_Bliznykov]

ну так назначьте Database (если верить ошибке, то у Вас Database не назначена).
И пора уже начинать осваивать отладку (debug) кода.
Вы же не думаете, что по фотографии на форуме можно вылечить ваш код?..

[Аватар]

или свойство Database пустое
или путь не верный к базе
или клиент не установлен
или сервер не запущен
...