Page Comparison

Objetivo

O objetivo desta documentação é demonstrar a utilização do componente TVsEditLookUpVsScripter. Neste exemplo, ele será utilizado juntamente com a tabela CIDADE, que contém informações sobre as cidades cadastradas de acordo com o IBGE.

A pesquisa será feita pelo nome cidade e o código relativo receberá o código IBGE da dessa cidade.

Como será feito

O Componente TVsEditLookUpVsScripter é baseado no componente TVsEditLookUp utilizado no Delphi para otimizar a busca de dados nas tabelas da soluções Viasoft.

...

A utilização no VsScripter desse componente será muito mais fácil de se programar. Porém, seu uso será focado nas consultas simples.

Criando um novo projeto

Abra o Gerenciador de Projetos do VsScripter no menu Configurações → Projetos Personalizados → Gerenciador de Projetos. Em seguida, clique no menu Novo Projeto.

...

Com o editor VsScripter aberto, o componente é encontrado a partir do “Tool Palette”, na seção Viasoft, com o nome TVsEditLookUpVsScripter:

...

 Para  Para utilizar o componente, é necessário colocá-lo em um formulário. Para criar o formulário, utilize a opção “New Form” no menu “File”. Como resultado, um novo formulário será criado, conforme imagem abaixo:

...

• Selecionar o formulário e alterar as propriedades:

1. Name: frmLookUp

2. Caption: Exemplo TVsEditLookUpVsSvripter

3. Position: poScreenCenter

•  Selecionar o componente TVsEditLookUpVsScripter e alterar as propriedades:

1. Name: edtLookUp

2. LabelCaption: Busca Cidade

3. - LookUpOptions -> RelativoCodigo: CIDADE

4. - LookUpOptions -> RelativoDescricao: NOME

5. - LookUpOptions -> RelativoTableManut: CIDADE

6. - LookUpOptions -> RelativoTableName: CIDADE

Para o formulário ficar com uma aparência mais ajustada ao componente que estamos testando, ajuste o tamanho do mesmo e do componente para ficarem parecidos com a imagem abaixo:

...

 Salve a “unit1” com o nome uFrmEditLookup. Para salvar, utilize o atalho CTRL+S ou no menu “File Save”.

Para a uPrinc, segue o código do “script” que irá gerenciar a execução do formulário:

...

uses
   // para acessar as definições do formulário
   uFrmEditLookup;

var
   // declarando o objeto form, do tipo TfrmLookUp
   form: TfrmLookUp;

begin
   // criando o objeto form que será o formulário padrão do script
   form := TfrmLookUp.Create(nil);

   try
      // gerenciando o ModalResult do formulário
      if form.ShowModal = MrOk then
      begin
        // se houver algum processamento inerente ao ModalResult = mrOk,
        // deverá ser colocado aqui
      end;   
   finally
      // destruindo o formulário
      form.free;
   end;
end;

...

{$FORM TfrmLookUp, uFrmEditLookup.sfm}
uses
   // units necessárias para o funcionamento do formulário. Todas colocadas automaticamente
   uVsLookupVsScripter, Classes, Graphics, Controls, Forms, Dialogs;

begin
    // qualquer código extra para este “script” deve ser colocado aqui
end;

Testando o projeto personalizado

Para testar o “script”, é necessário executá-lo por meio do botão Executar, a partir do Gerenciador de Projetos.

...

Digite a palavra Pato e pressione a tecla “Enter”. Será mostrado o formulário de Procura Rápida, conforme abaixo:

...

 Serão Serão mostradas algumas cidades que possuem a palavra Pato no nome. Com o mouse, é possível escolher a cidade desejada, usando o “duplo clique”.

...