Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.12.2017, 15:26   #1
shadd
 
Регистрация: 16.03.2015
Сообщений: 3
По умолчанию куда прописать параметр

здравствуйте! подскажите пожалуйста куда нужно прописать '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)
Модератор

Последний раз редактировалось Serge_Bliznykov; 06.12.2017 в 16:30.
shadd вне форума Ответить с цитированием
Старый 06.12.2017, 16:56   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

в jurnal добавь еще параметр
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 06.12.2017, 17:06   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
в jurnal добавь еще параметр
присоединяюсь.

примерно так:
Код:
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 вне форума Ответить с цитированием
Старый 06.12.2017, 17:27   #4
shadd
 
Регистрация: 16.03.2015
Сообщений: 3
По умолчанию

Цитата:
Сообщение от 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('Добавление', 'дома');

...
выдает ошибку
Изображения
Тип файла: png Без имени-1.png (35.6 Кб, 149 просмотров)
shadd вне форума Ответить с цитированием
Старый 06.12.2017, 17:33   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

ну так назначьте Database (если верить ошибке, то у Вас Database не назначена).
И пора уже начинать осваивать отладку (debug) кода.
Вы же не думаете, что по фотографии на форуме можно вылечить ваш код?..
Serge_Bliznykov вне форума Ответить с цитированием
Старый 06.12.2017, 17:35   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

или свойство Database пустое
или путь не верный к базе
или клиент не установлен
или сервер не запущен
...
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ссылки куда надо и куда не надо ? zvygin1964 О форуме и сайтах клуба 2 12.03.2016 18:09
Куда пойти, куда податься Delрhi Свободное общение 4 06.02.2012 12:39
Куда отследить куда утекает память? TwiX Общие вопросы Delphi 6 02.03.2010 03:10
Как правильно прописать? clanz Microsoft Office Access 1 26.02.2010 11:38
Прописать в реестр Михаил Юрьевич Общие вопросы Delphi 4 02.02.2008 10:49