O dbedit usa vetores para saber com o que trabalha.
O primeiro identifica os campos, o segundo as mascaras de exibição e o terceiro, os cabeçalhos.
Quais são as suas dúvidas?
Do NG:
DBEDIT()*
Faz um browse em registros no formato de tabela
------------------------------------
Sintaxe
DBEDIT([<nTopo>], [<nEsquerda>],
[<nBase>], <nDireita>],
[<acColunas>],
[<cFuncaoUsuario>],
[<acMascarasColunas> | <cMascaraColunas>],
[<acCabecalhosColunas> | <cCabecalhoColunas>],
[<acSeparadoresCabecalhos> | <cSeparadorCabecalhos>],
[<acSeparadoresColunas> | <cSeparadorColunas>],
[<acSeparadoresRodapes> | <cSeparadorRodapes>],
[<acRodapesColunas> | <cRodapeColunas>]) --> NIL
Argumentos
<nTopo>, <nEsquerda> e <nBase>, <nDireita> definem as coordenadas do canto superior esquerdo e o canto inferior direito da janela da DBEDIT(). Os valores da linha podem variar de zero ate MAXROW() e os posicionamentos de coluna podem variar de zero ate MAXCOL(). Caso nao sejam especificados, as coordenadas assumidas sao 0, 0, MAXROW(), e MAXCOL().
<acColunas> e um vetor de expressoes caractere contendo os nomes de campos do arquivo de dados ou expressoes para utilizar como valores para cada linha exibida. Se este argumento nao e especificado, DBEDIT() exibe todos os campos presentes na area corrente como sendo as colunas.
<cFuncaoUsuario> e o nome de uma funcao definida pelo usuario que e executada quando uma tecla nao reconhecivel e pressionada ou quando nao ha nenhuma tecla pendente no buffer do teclado. O nome da funcao e especificada como sendo uma expressao caractere sem os parenteses ou argumentos. Note que o comportamento da funcao DBEDIT() e afetado pela presenca desses argumentos. Para maiores informacoes veja os topicos discutidos abaixo.
<acMascarasColunas> e um vetor paralelo contendo as mascaras de formatacao de cada coluna. Especificando <cMascaraColunas> em vez do vetor, este sera assumido para a exibicao de todas as colunas com o mesmo formato. Consulte tambem TRANSFORM() ou @...SAY para maiores informacoes sobre mascaras.
<acCabecalhosColunas> e um vetor paralelo contendo expressoes caractere que definem os cabecalhos para cada coluna. Se especificada <cCabecalhoColuna> em vez do vetor de cabecalhos, e assumido o mesmo cabecalho para todas as colunas. Para exibir cabecalhos em mais de uma linha, inclua um ponto-e-virgula dentro da expressao de cabecalho onde voce deseje que a cadeia seja separada.
Caso nao seja especificado, os cabecalhos das colunas sao tomados do vetor <acColunas>, ou sao assumidos os nomes dos campos presentes na area corrente se o argumento <acColunas> nao for mencionado.
<acSeparadoresCabecalhos> e um vetor paralelo contendo expressoes do tipo caractere que definem os caracteres que serao utilizados para desenhar as linhas horizontais separando os cabecalhos das colunas da area de exibicao dos campos. Especificando a expressao <cSeparadorCabecalhos> em vez do vetor e utilizado o mesmo separador para todas as colunas. Caso este argumento nao seja mencionado, o separador assumido e uma linha grafica dupla.
<acSeparadoresColunas> e um vetor paralelo contendo expressoes caractere que definem os caracteres utilizados para desenhar as linhas verticais que separam as colunas. Especificando a expressao <cSeparadorColunas> em vez do vetor e utilizado o mesmo separador para todas as colunas. Caso este argumento nao seja mencionado, o separador assumido e uma linha grafica simples.
<acSeparadoresRodapes> e um vetor paralelo contendo expressoes caractere que definem os caracteres que serao utilizados para desenhar as linhas horizontais que separam os rodapes das colunas da area de exibicao dos campos. Especificando a expressao <cSeparadorRodapes> em vez do vetor e utilizado o mesmo separador de rodape para todas as colunas. Caso este argumento nao seja mencionado, nao e exibido nenhum separador para os rodapes.
<acRodapesColunas> e um vetor paralelo contendo expressoes caractere que definem os rodapes para cada coluna. Especificando a expressao <cRodapeColunas> em vez do vetor e utilizado o mesmo rodape para todas as colunas. Para exibir rodapes em mais de uma linha, inclua um ponto-e-virgula na expressao contendo o rodape onde voce deseje que a cadeia seja separada. Caso este argumento nao seja mencionado, nao e exibido nenhum rodape para as colunas.
Retorno
DBEDIT() sempre retorna NIL.
Descricao
DBEDIT() alem de ser uma funcao de interface com o usuario e tambem uma funcao de compatibilidade que exibe registros de uma ou mais areas de trabalho na forma de tabela. A janela de visualizacao da DBEDIT() e uma area com celulas dividida em colunas e linhas. As colunas correspondem aos campos do arquivo de dados e as linhas aos registros deste arquivo. Cada coluna e definida por um elemento do vetor
<acColunas>. A largura assumida para a exibicao de cada coluna e determinada pela avaliacao da expressao da coluna contida no vetor <acColunas> ou pela mascara da coluna especificada no vetor <acMascarasColunas>.
Todas as teclas de movimentacao do cursor sao manipuladas dentro do DBEDIT(), incluindo PgUp, PgDn, Home, End, as quatro setas de navegacao, e todas as combinacoes validas da tecla Ctrl que realizam a movimentacao do cursor. As teclas de navegacao …s quais a DBEDIT() responde quando o argumento da funcao do usuario nao e especificado estao mostradas na tabela Teclas Ativas na proxima pagina.
Tabela 5-8: Teclas Ativas em DBEDIT()
------------------------------
Tecla Acao
------------------------------
Cursor para cima Sobe uma linha
Cursor para baixo Desce uma linha
Cursor para esquerda Coluna … esquerda
Cursor para direita Coluna … direita
Ctrl-Cursor para esquerda Painel uma coluna para esquerda
Ctrl-Cursor para direita Painel uma coluna para direita
Home Coluna mais … esquerda na tela
End Coluna mais … direita na tela
Ctrl-Home Coluna inicial
Ctrl-End Coluna final
PgUp Tela anterior
PgDn Proxima tela
Ctrl-PgUp Primeira linha da coluna corrente
Ctrl-PgDn Ultima linha da coluna corrente
Return Encerra DBEDIT()
Esc Encerra DBEDIT()
------------------------------
Quando o argumento da funcao do usuario (<cFuncaoUsuario>) e especificado, todas as teclas indicadas na tabela Teclas Ativas estao ativas com excecao do Esc e Return. Quando a DBEDIT() chama a funcao do usuario, esta passa automaticamente dois argumentos:
* O modo corrente passado como um valor numerico
* O indice da coluna corrente com base no vetor <acColunas> passado como um valor numerico
O parametro modo indica o estado corrente da DBEDIT() dependendo da ultima tecla que foi executada. Os possiveis valores dos modos estao mostrados na tabela Modos da DBEDIT().
Tabela 5-9: Modos de DBEDIT()
------------------------------
Status Dbedit.ch Descricao
------------------------------
0 DE_IDLE Inativa, todas teclas foram manipuladas
e nao ha teclas pendentes
1 DE_HITTOP Tentativa de passar inicio de arquivo
2 DE_HITBOTTOM Tentativa de passar final de arquivo
3 DE_EMPTY Arquivo vazio na area corrente
4 DC_EXCEPT Teclagem excecao
------------------------------
O parametro indice aponta para a posicao da coluna corrente definida o vetor <acColunas>. Caso o vetor <acColunas> nao seja especificado, o parametro indice apontara para a posicao do campo da estrutura do arquivo de dados corrente. O nome do campo pode ser acessado utilizando a funcao FIELD().
Quando a funcao do usuario tiver sido chamada, um valor deve ser retornado para instruir … DBEDIT() que acao realizar em seguida. A tabela Valores de Retorno da Funcao do Usuario sumariza os possiveis valores de retorno e as acoes correspondentes:
Tabela 5-10: Valores de Retorno da Funcao de Usuario de DBEDIT()
------------------------------
Valor Dbedit.ch Descricao
------------------------------
0 DE_ABORT Aborta DBEDIT()
1 DE_CONT Continua DBEDIT()
2 DE_REFRESH Forca reler e reescrever a tela e
continuar; apos reescrever, processa
teclas, e vai para inativa
------------------------------
A funcao do usuario e chamada nos seguintes casos:
* Ocorrencia de uma tecla de excecao. Isto acontece quando a DBEDIT() captura uma tecla pressionada e esta nao e reconhecida. Quaisquer teclas pendentes permanecem no buffer do teclado ate que seja capturada dentro da funcao do usuario ou ate que a DBEDIT() continue.
* DBEDIT() entra no modo inativo (i.e., quando todas as teclas pendentes tenham sido executadas). Isto acontece quando o buffer do teclado esta vazio ou apos ser efetuado um refresh da tela. Nesta ocorrencia, ha uma chamada para a funcao do usuario e entao a DBEDIT() espera por uma tecla.
* Inicio ou final do arquivo e encontrado. Esta ocorrencia e a mesma que a inatividade da DBEDIT(). Todas as teclas pendentes sao executadas, e ha uma chamada … funcao do usuario com a mensagem de status indicadora.
Note que quando a DBEDIT() e executada pela primeira vez, todas as teclas pendentes no buffer do teclado sao executadas e logo apos a DBEDIT() entra no modo inativo com a chamada … funcao do usuario. Caso nao existam teclas pendentes, o modo inativo e imediato.
A estrutura da funcao do usuario deve ser desenhada para manipular todos os modos e as mensagens de status recebidas da DBEDIT().
DBEDIT() e completamente recursiva, isto significa que voce pode realizar chamadas aninhadas a ela. Utilizando esta caracteristica, voce pode ter multiplas janelas de browse na tela ao mesmo tempo.
DBEDIT() e uma funcao de compatibilidade e, portanto, nao e recomendada sua utilizacao como dispositivo de browse. Para este proposito, ela esta superada pela classe de objeto TBrowse. Para maiores informacoes, consulte o capitulo Classes Padrao presente neste livro.
Exemplos
Este exemplo demonstra como chamar a DBEDIT() com uma funcao do usuario:
USE Customer INDEX Customer NEW
USE Sales INDEX Sales NEW
SET RELATION TO CustNum INTO Customer
//
acColumns = {"Branch", "Salesman", "Amount", "Customer->Customer"}
DBEDIT(4, 0, 22, 79, acColumns, "UserFunc")
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
