Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle | ||
---|---|---|
|
...
|
...
|
Cria
...
um
...
objeto
...
do
...
tipo grade com registros em linhas e informações em colunas.
Hierarquia
- TCBrowse
- MsBrGetDBase
Construtores
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Propriedades
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Métodos
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Exemplos
Bloco de código | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
#include "TOTVS.CH"
grade.TSrvObject -> TControl -> TCBrowse -> MsBrGetDBase NewMétodo construtor da classe.MsBrGetDBase(): New ( [ nRow], [ nCol], [ nWidth], [ nHeigth], [ bLine], [ aHeaders], [ aColSizes], [ oWnd], [ cField], [ uVal1], [ uVal2], [ bChange], [ bLDblClick], [ bRClick], [ oFont], [ oCursor], [ nClrFore], [ nClrBack], [ cMsg], [ lUpdate], [ cAlias], [ lPixel], [ bWhen], [ lDesign], [ bValid], [ aAlter], [ oMother] ) --> oObjeto
oObjeto
oBrowse := MsBrGetDBase():New( 0, 0, 260, 180,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, ) CallRefreshForça a atualização do browse.MsBrGetDBase(): CallRefresh ( ) --> oBrowse:CallRefresh() GoBottomMove o ponteiro do mouse para a última linha do browse.MsBrGetDBase(): GoBottom ( ) --> oBrowse:GoBottom() GoDownMove o ponteiro do mouse uma célula abaixo.MsBrGetDBase(): GoDown ( ) --> oBrowse:GoDown() GoLeftMove o ponteiro do mouse para a célula adjacente à esquerda.MsBrGetDBase(): GoLeft ( ) --> oBrowse:GoLeft() GoRightMove o ponteiro do mouse para a célula adjacente à direita.MsBrGetDBase(): GoRight ( ) --> oBrowse:GoRight() GoTopMove o ponteiro do mouse para a primeira linha do browse.MsBrGetDBase(): GoTop ( ) --> oBrowse:GoTop() GoUpMove o ponteiro do mouse uma célula acima.MsBrGetDBase(): GoUp ( ) --> oBrowse:GoUp() PageDownMove o ponteiro do mouse para baixo, conforme o número de linha configurado.MsBrGetDBase(): PageDown ( < nLines> ) -->
oBrowse:PageDown(1) PageUpMove o ponteiro do mouse para cima, conforme o número de linha configurado.MsBrGetDBase(): PageUp ( < nLines> ) -->
oBrowse:PageUp(1) RecAddInclui uma nova linha no browse.MsBrGetDBase(): RecAdd ( ) --> Este método somente funciona quando o browse for utilizado com um array, no caso de ser utilizado com uma tabela ele será ignorado. Local nXDEFINE DIALOG oDlg TITLE "Exemplo RecAdd" FROM 180,180 TO 550,700 PIXEL // Cria array com dados aDados := {} aadd(aDados, {"01","Nome 01","Descrição 01","Conteudo 01"}) aadd(aDados, {"02","Nome 02","Descrição 02","Conteudo 02"}) // Cria browse oBrowse := MsBrGetDBase():New( 0, 0, 260, 170,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, ) oBrowse:SetArray(aDados) // Cria colunas do browse oBrowse:AddColumn(TCColumn():New("Filial" ,{ || aDados[oBrowse:nAt,1] },,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:AddColumn(TCColumn():New("Nome" ,{ || aDados[oBrowse:nAt,2] },,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:AddColumn(TCColumn():New("Descrição",{ || aDados[oBrowse:nAt,3] },,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:AddColumn(TCColumn():New("Conteúdo" ,{ || aDados[oBrowse:nAt,4] },,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:Refresh() // Define o bloco de código para inserção de registros oBrowse:bAdd := {|| _AddLine(), oBrowse:setFocus() } // botão para adição de registro TButton():New( 172, 002, "RecAdd()", oDlg, {|| oBrowse:RecAdd() },40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) ACTIVATE DIALOG oDlg CENTERED Return Static Function _AddLine() aadd(aDados, {"03","Nome 03","Descrição 03","Conteudo 03"}) oBrowse:Refresh() Return
User Function msBrGetDBase() DEFINE DIALOG oDlg TITLE "Exemplo MsBrGetDBase" FROM 180,180 TO 550,700 PIXEL // Cria array com dados aDados := {} aadd(aDados, {"01","Nome 01","Descrição 01","Conteudo 01"}) aadd(aDados, {"02","Nome 02","Descrição 02","Conteudo 02"}) aadd(aDados, {"03","Nome 03","Descrição 03","Conteudo 03"}) aadd(aDados, {"04","Nome 04","Descrição 04","Conteudo 04"}) aadd(aDados, {"05","Nome 05","Descrição 05","Conteudo 05"}) // Cria browse oBrowse := MsBrGetDBase():New( 0, 0, 260, 170,,,, oDlg,,,,,,,,,,,, .F., "", .T.,, .F.,,, ) // Define vetor para a browse oBrowse:SetArray(aDados) // Cria colunas do browse oBrowse:AddColumn(TCColumn():New("Filial",{ || aDados[oBrowse:nAt,1] }; ,,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:AddColumn(TCColumn():New("Nome",{ || aDados[oBrowse:nAt,2] }; ,,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:AddColumn(TCColumn():New("Descrição",{ || aDados[oBrowse:nAt,3] }; ,,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:AddColumn(TCColumn():New("Conteúdo",{ || aDados[oBrowse:nAt,4] }; ,,,,"LEFT",,.F.,.F.,,,,.F.,)) oBrowse:Refresh() // Cria Botões com métodos básicos TButton():New( 172, 002, "GoUp()" , oDlg,{|| oBrowse:GoUp(),; oBrowse:setFocus()},40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New( 172, 052, "GoDown()" , oDlg,{|| oBrowse:GoDown(),; oBrowse:setFocus()},40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New( 172, 102, "GoTop()" , oDlg,{|| oBrowse:GoTop(),; oBrowse:setFocus()},40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New( 172, 152, "GoBottom()", oDlg,{|| oBrowse:GoBottom(),; oBrowse:setFocus() },40,010,,,.F.,.T.,.F.,,.F.,,,.F. ) ACTIVATE DIALOG oDlg CENTERED ReturnExemplo da classe MsBrGetDBase |
Resultado do Exemplo
Abrangência
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server
...