Em adição ao Quick Start Wizard, o Clarion também tem Procedure
Wizards que criam procedures Browse, Form ou Report para você tão
facilmente quanto o Quick Start Wizard cria o dicionário de dados
inteiro e a aplicação. Os Wizards Browse, Form e Report estão disponíveis
para você sempre que você criar uma nova procedure em uma aplicação
existente. Agora nós usaremos o Browse Wizard para criar uma procedure
Browse para o arquivo Telefones. Ele também pode criar a
procedure de atualização ao mesmo tempo, mas não desta vez, por que nós estamos
usando Edit in Place para este arquivo. Carregue o Gerador de Aplicações

1. Escolha File -> Pick ou pressione o botão [Pick] na barra de ferramentas.

2. Selecione a ficha Application, destaque c:\tutorial\qwktutor.app
e então pressione o botão [Select].

O diálogo Application Tree aparece.Edite a procedure Form

1. Destaque UpdateClientes (Form) na Árvore da Aplicação no List Box direito permite que
você acesse diretamente as ferramentas do Gerador de Aplicações sem
precisar que você abra o diálogo Procedure Properties primeiro.

2. Clique em Window. O Formatador de Janelas aparece.
Aqui você pode editar visualmente a janela e seus controles.

3. Escolha Control -> Push Button ou clique na ferramenta botão na caixa
de ferramentas (aquele que aparece com o ícone que parece o botão OK).

4. Clique perto do canto esquerdo inferior da janela para colocar
o novo controle Botão abaixo das fichas.

5. Com o novo botão selecionado, clique com o botão direito para
mostrar o menu suspenso e então escolha Properties para chamar o diálogo
Button Properties.

6. Digite Telefones no campo Text.
Isto muda o texto que aparecerá na face do botão.

7. Selecione a ficha Actions. Esta ficha é onde você especifica o que o controle
faz. Neste caso nós queremos que ele chame uma procedure Browse para mostrar todos os registros
do arquivo de Telefones que são relacionados com o registro do arquivo
Clientes atualmente selecionado.

8. Escolha Call a Procedure a partir da lista suspensa When Pressed.
A caixa de grupo Procedure Definition aparece na ficha Actions.

9. Digite BrowseTelefones no campo Procedure Name e então pressione o botão [OK].

Isto nomeia a procedure a chamar quando o usuário pressiona o botão.

10. Escolha Exit! no menu para retornar à Árvore da aplicação e pressione o botão [Yes]
quando perguntar se deve salvar as alterações na janela. A procedure BrowseTelefones
aparece na árvore como um item (ToDo).

Usando o Browse Wizard Procedure Wizards geram procedures inteiras baseado nas
informações mínimas que você fornece em resposta a uma série de diálogos Wizard que
pedem um pouco da informação de cada vez.

Chame o Browse Wizard

1. Clique duas vezes na procedure BrowseTelefones(ToDo).

Aparece a janela Select Procedure Type. Ela permite que você escolha o template
de procedure que o Gerador de Aplicações use para criar o código fonte.

2. Destaque o template de procedure Browse, marque a caixa Use Procedure
Wizard e então pressione o botão [Select].

Marcar a caixa Use Procedure Wizard é a chave para usar os Wizards de procedure.

Aparece a primeira janela de diélogo do Wizard.

3. Depois que você ler as informações do primeiro diálogo Wizard, pressione o botão [Next].

Aparece a janela File Acess.

4. Digite Telefones no controle de entrada (ou pressione o botão elipse [(...)] para
selecioná-lo de uma lista) em resposta à questão "Qual arquivo você
quer mostrar?" e então pressione o botão [Next].

Aparece a janela Key Sequence.

5. Limpe a caixa Browse using all record keys, pressione o botão elipse [(...)] e selecione
TEL:PorNumero Cliente na lista e pressione o botão [Next].

Isto especifica a chave usada para classificar os registros para mostrar
no list box. Aparece a janela Update Procedure.

6. Deixe a caixa de entrada Update Procedure em branco e pressione o botão [Next].

Este entry box permite que você nomeie a procedure que o browse Wizard criará para
atualizar os registros do arquivo Telefones. Isto é desnecessário neste caso,
porque o Wizard criará o código para editar este arquivo in-place,
eliminando a necessidade de uma procedure de atualização. De qualquer modo, se você não especificou
EDITINPLACE nas Opções do Usuário do arquivo, o Browse Wizard chamaria o Form Wizard para criar a
procedure Form de atualização para nós. Nomeando uma procedure de atualização, você poupa
o trabalho de chamar o Form Wizard você mesmo.Aparece a janela Call Update Procedure.

7. Marque a caixa Call update using popup menu e então pressione o botão [Next].

Isto dá aos usuários a opção de usar um menu flutuante (que aparece quando eles
clicam com o botão direito no list box) para chamar a
procedure de atualização (ou a funcionalidade edit in place).

Aparece a janela Child Files.

8. Limpe a caixa Provide buttons for child files e então pressione o botão [Next].

Aparece a janela Parent File Handling.

9. Selecione o botão Assume that the Parent Record is Active e então pressione o botão [Next].

Isto garante que a procedure é estabelecida para mostrar somente os registros do arquivo
Telefones que são relacionados para os registros do arquivo Clientes que
estão na memória quando a procedure é chamada.

10. Limpe a caixa Provide a "Select" button e então pressione o botão [Next].

Como esta procedure não será usada para procurar dados para um campo de
entrada, o botão Select é desnecessário.
Aparece a janela Control Model.

11. Deixe o botão Toolbar marcado na caixa de opções Which Control
Model Should the Application Use e então pressione o botão [Next].

Isto dá a procedure BrowseTelefones um "look and feel" consistente
com a procedure BrowseClientes. Elas somente usará os botões
da toolbar para inserir, alterar ou excluir. Aparece a janela Finally.

12. Pressione o botão Finish para aceitar o padrão do check box
de Overwrite existing procedures.

O Browse Wizard agora cria a procedure Browse para o arquivo Telefones. Se nós não
tivéssemos especificado EDITINPLACE nas Opções do Usuário do arquivo, o Browse Wizard
também teria criado uma procedure Form de atualização para manutenção dos registros
do arquivo Telefones. Quando acabado, ele deixa você na janela
Procedure Properties da procedure. Aparece a janela de propriedades da Procedure Browse Telefones.

13. Pressione o botão [OK] para retornar à Árvore da aplicação.

Note a nova procedure, que foi criada por você, na Árvore da Aplicação:

14. Escolha Project -> Run (ou pressione o botão Run na
barra de ferramentas), para gerar a aplicação.

Agora você tem uma aplicação de Banco de Dados Relacional completa, caracterizado por
múltiplas ordens de browse no arquivo pai, mostrando o arquivo filho limitado
ao limite de registros relacionados a um registro pai e código de Integridade
Referencial para garantir que seu banco de dados não pode ser corrompido
com registros filhos "’órfãos".

15. Quando você terminar de examinar sua nova aplicação, escolha
File -> Exit para retornar ao Clarion.

16. Escolha File -> Close para fechar o Gerador de Aplicações.

Excelente! Agora siga para o último passo!