База знаний предприятий


Типичные процедуры.


 

В программе функции добавления, удаления и изменения данных реализуются путём обращения к хранимым процедурам на сервере.

 

Пример обращения к процедуре добавления для таблицы «Предприятия»:

//Ввели ли название предприятия?

if NameEdit.Text<>'' then

begin

//Если да, то заносим информацию в базу 

  //Занесение параметров…

  EntrDataModule.EntrInsertStoredProc.ParamByName('PNAME').AsString:=NameEdit.Text;

  EntrDataModule.EntrInsertStoredProc.ParamByName('PADDRESS').AsString:=AddressEdit.Text;

  EntrDataModule.EntrInsertStoredProc.ParamByName('PPHONE').AsString:=PhoneEdit.Text;

  EntrDataModule.EntrInsertStoredProc.ParamByName('PCOMMENT').AsString:=CommentMemo.Text;

  EntrDataModule.EntrInsertStoredProc.Prepare;//Подготовка данных

  EntrDataModule.EntrInsertStoredProc.ExecProc;//Обращение к хранимой процедуре добавления

end

else

  //Сообщение «Введите название предприятия».

  MessageDlg('Введите название предприятия.',mtInformation,[mbOk],0);

 

Перед обращением к процедуре добавления производится проверка, введено ли название предприятия, и, если введено, то производится занесение параметров и обращение к хранимой процедуре, иначе выводится сообщение с просьбой ввести название предприятия. Как видно из текста процедуры, при добавлении передача ключа серверу не производится, он определяется сервером автоматически.

 

Пример обращения к процедуре удаления для таблицы «Предприятия»:

// Запрос на подтверждение удаления

if MessageDlg('Вы

уверены?',mtConfirmation,[mbYes,mbNo],0)=mrYes then

begin

//Если подтвердили, то удаляем.

EntrDataModule.EntrDeleteStoredProc.ParamByName('PENTKEY').AsString:=EntrDataModule.EnterprisesQuery.FieldValues['ENTKEY'];//Заносим параметр (ключ удаляемой записи)

  EntrDataModule.EntrDeleteStoredProc.Prepare;//Подготовка параметра

  EntrDataModule.EntrDeleteStoredProc.ExecProc;//Обращение к процедуре

  RefreshEnterprisesTable;//После удаления обновляем информацию на экране

end;

 

При обращении к процедуре удаления сначала запрашивается подтверждение удаления, чтобы исключить случайное удаление. Если пользователь подтвердил своё намерение, происходит обращение к соответствующей хранимой процедуре удаления на сервере, а затем информация на экране обновляется.




Начало  Назад  Вперед



Книжный магазин