Iniciando o aprendizado da SQL com a TDolphin.

Valdir · April 26, 2016

Olá Amigos...

Boa tarde.

Baixei algumas apostilas e iniciei os meus estudos, porém acredito que se houver um exemplo prático de como proceder em algumas situações, o tempo do aprendizado será muito menor.

Em DBF uso uma listbox para criar uma planilha de navegação pelo arquivo.

 @ 2.30, 0 LISTBOX oBrw ;
      FIELDS;
      ALI->NOMORI,                ;
      ALI->NOMDEST,               ;
      Transform(ALI->ALIQ, "@E 99.99" ) ;
      HEADERS "Estado da Origem", "Estado de Destino", "Aliquota" ;
      FIELDSIZES 350, 350, 80 ;
      ON DBLCLICK EditAliq( oBrw, .f. ) ;
      FONT oFontLbx SIZE 475, 240 ;
      OF oWndBrw
      oBrw:nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabe‡alho
      oBrw:nClrBackFocus := CLR_BLUE // Cor do Cursor Em Cima do Ötem
      oBrw:nClrForeFocus := CLR_AMARELO // cor da letra da barra ativa
      oBrw:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos
      // Cor no Pano de Fundo da Browse() Listbox-Legal - abaixo o comando
      oBrw:nClrPane := { || IIF( ( oBrw:cAlias )->( OrdKeyNo() ) %2 == 0, ;
      CLR_LGREEN, CLR_LGRAY ) } // Verde e Branco Ok ?
      // Justifica As Colunas dos Campos Esq. .T. = Centro
      oBrw:aJustify := { .F., .F., .F. }
      oBrw:lMChange := .F. // Desabilita Mousemove
      oBrw:SetFocus() // Refocus on The Browse
      oBrw:Refresh() // Estabiliza o Browse/Listbox

Tem como fazer algo assim com a SQL ?

Onde conseguir Exemplos com a TDolphin ?

Obrigado.