Vamos reabrir nosso projeto e agora, criar novas linguetas (botões) para as outras páginas. Você já sabe como fazer isso...

Testados todos os botões e estando tudo OK, você pode dar outro Save no projeto. Você pode apagar a barra superior porque já tem os botões para navegar pela aplicação. Vá sempre para a capa antes de salvar pois, quando você recarrega um projeto, ele vem com a situação de quando você o salvou.

Repare que, o nome do arquivo do projeto mudou para:Telefones.002.pr Isso é porque temos uma nova versão do projeto.

Vamos então criar o script para cadastramento de novos telefones. Para isso colocamos na página 2, três titulos usando Text e três TextFields para a entrada de dados. Mudamos tipos etc. Colocamos também um Button ao qual estará ligado o script. Lembre-se que todo mundo está embedado na página.

Não se esqueça que, para usar um objeto dentro de script de outro, você tem que arrastar uma "linha fria" do Viewer daquele objeto.

No nosso caso o script será:

|cod nome tel file reg|
cod:=Text4 getCharacters as String.
nome:=Text3 getCharacters as String.
tel:=Text2 getCharacters as String.
file:= FileStream fileNamed:'meuarquivo.txt'.
file setToEnd.
reg:= cod,'#',nome,'#', tel,':'.
file nextPutAll:reg.
Text4 setCharacters:' '.
Text3 setCharacters:' '.
Text2 setCharacters:' '.
file close.

Lembre-se de salvar e definir que ele será disparado com um mouseDown.

Aí fazemos um teste, entrando com novo registro para ser gravado no arquivo:

Indo para a página da Lista, clicamos o botão para ler o arquivo:

O novo registro está lá.

Para completar nosso projeto poderíamos criar uma capa com instruções sobre como usar a aplicação. Precisaríamos também, numa aplicação real,fazer uma melhor edição da lista, criando colunas com títulos etc. Isso tudo usando as propriedades da Classe String.

Para finalizar, salvamos novamente o projeto depois de uma boa "limpeza" e de voltar para a capa.

              LIÇÃO ANTERIOR       PRÓXIMA LIÇÃO