Aplicações Web com Webbroker – Parte IV

O assunto desse artigo é a exclusão de um registro. Tomando por base que nos artigos anteriores criamos uma lista de registros com a opção de excluí-los, vamos então codificar a ação /excluir. Com o projeto aberto adicione um componente SQLDataSet da paleta de componentes DBExpress e configure as seguintes propriedades:

·         Mude a propriedade SQLConnection para SqlConnection1

·         CommandType para ctQuery

·         CommandText para Delete From COUNTRY Where NAME = :Name

·         Name para sdsExcluir

·         PARAMS defina o DataType para ftString do parâmetro Name

Agora que temos o componente que executará o código SQL para exclusão do registro temos que criar a ação que buscará o valor do parâmetro, que será passado pelo link (campo de consulta – QueryFields), executará a SQL e retornará a nova lista de registros.

OBS: Eu sou totalmente contra a opção de solicitar se o usuário deseja realmente apagar o registro, em aplicações Web. Isso porque o usuário perderá muito tempo sendo que aplicação irá percorrer o caminho cliente-servidor por duas vezes.

Crie a ação excluir no WebModule. Clique duas vezes no WebModule e no ActionList, clique no botão Add New. Na propriedade PathInfo coloque /excluir. No evento onAction dessa ação coloque o seguinte código:

Listagem 1. Código da ação /excluir

sdsExcluir.Params.ParamValues['Name']:=

  Request.QueryFields.Values['Name'];

sdsExcluir.ExecSQL();

Response.Content:=pgpLista.Content;

Esse código preenche o parâmetro com a informação passada no link, através de um campo de consulta (Request.QueryFields), e executa a SQL de exclusão. Basta compilar e testar clicando no link Excluir.

Figura 1. Aplicação com a opção de excluir

No próximo artigo faremos inserção de registros. Até breve.