Delphi.Datasnap. ServerMethods. Как сделать вставку (Insert)?

В данном посте продолжаем работать с технологией DataSnap не через провайдеры, а через TserverMethods…

Итак, если все подготовительные работы по созданию сервера и клиента проведены, то в данном посте попробуем сделать вставку – INSERT- одну из основных операций с базами данных.

Если нужно создать сервер с клиентом по технологии DataSnap, то можно воспользоваться вот этим постом.

Способ №1

Какой набор компонентов должен быть на сервере DataSnap?

1

 

Добавим SqlQuery, так как нам не нужно возвращать множество, а просто необходимо отправить запрос на выполнение инструкций на СУБД…

Настроим свойство SQLConnection…

2

 

Также напишем функцию следующего вида модуле методов сервера…

Что нужно сделать на клиенте DataSnap?

Запустим сервер

Выключим и включим SQLConnection1 (если не сделать – возникнет ошибка на следующем шаге)

Обновим классы методов сервера на клиенте

2

 

 

Добавим ещё один компонент sqlServermethods, а также кнопку Insert и поле Edit…

3

 

У компонента SqlServerMethods2 сделаем следующие настройки… – заполним поле SQLConnection и ServerMethodName… Для последнего – выберем из выпадающего списка – тот метод, который мы создали на сервере.

P.S. Если вы добавили новый метод на сервере, а в списке его не видно – просто удалите компонент и проделайте все действия заново…

4

На кнопку Insert повесим следующий код

Способ №2

На мой взгляд более элегантный, простой и понятный. На сервере все тоже самое, а вот на клиенте на кнопку вешаем другое событие…

 

This entry was posted in DataSnap, Delphi. Bookmark the permalink.