A utilização de um Formulário para Serial permite controlar o direito ao uso de um projeto.
Funções que serão utilizadas:
Abrir Consulta;
Campo;
Executar Atualização;
Menor ou igual;
Obter Valor do Componente do Formulário.
Siga os passos:
Crie um formulário que servirá para alterar os parâmetros de configuração. Para este caso, será utilizado um campo do tipo Data. Segue abaixo o script da tabela e o layout deste formulário:
create table TabSerial(codigo serial,expira date)
Vincule o formulário à propriedade Formulário do Serial: clique com o botão direito do mouse sobre a Área de Trabalho do Maker e selecione a Propriedade contida no menu pop-up .
Crie um fluxo para Verificar Serial;
Variável local - resultado, armazena o valor de retorno ao Webrun:
Fluxo tipo Servidor:
Decisão: Data Atual<= Data de Expiração?
Caso a data seja válida:Resultado:=True;
Caso a data não seja válida:Resultado:=False;
Crie o fluxo para alterar o critério.
Variável Local Data_Nova: Será o novo critério de expiração do serial.
Processamento: Capturar Nova Data.
Parâmetro de entrada do SubFluxo: Atualiza Data. A data recebida é oriunda do FORMULARIO SERIAL - Atualiza Data.
Fluxo Cliente: Atualiza Data:
Fluxo Servidor: Atualiza Data. Atualiza a data no banco de dados.
Processamento: Atualiza Data.
Evento: Ao Clicar do Botão Nova Data:
Esse exemplo utiliza, como critério de permissão, um dado do tipo data, mas, no sistema, é possível usar o critério que satisfaça às regras de segurança de seu cliente.
Após ter sido configurado um fluxo de ação para o evento Ao Verificar Serial e definido um formulário para o Formulário do Serial, é necessário clicar no item Salvar do menu Projeto para que as últimas modificações sejam salvas. Em seguida, o sistema deve ser Reiniciado. Posteriormente, assim que o usuário efetuar o login no sistema (Webrun), o Formulário do Serial aparecerá para que o usuário possa informar um novo serial (código de liberação de acesso à aplicação).
Observação: Para este exemplo, execute os seguintes scripts:
create table TabSerial(codigo serial,expira date);
insert into tabserial(expira)values('20/08/2008');
O segundo script tem a finalidade de inserir o dado de teste para o exercício.
____________________________________________________________________________
Caso este tópico não tenha comentário satisfatório, envie e-mail para documentacao@softwell.com.br