Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quarta-feira, 27 de julho de 2016

FIREBIRD - Exibir todas as tabelas e seus campos

Reações: 
Comando para exibir todas as tabelas e seus respectivos campos (Firebird)


SELECT
r.RDB$RELATION_NAME as TABELA,
r.RDB$FIELD_NAME AS CAMPO,
f.RDB$FIELD_TYPE IDTYPE,
CASE f.RDB$FIELD_TYPE
WHEN 261 THEN 'BLOB'
WHEN 14  THEN 'CHAR'
WHEN 40  THEN 'CSTRING'
WHEN 11  THEN 'D_FLOAT'
WHEN 27  THEN 'DOUBLE'
WHEN 10  THEN 'FLOAT'
WHEN 16  THEN 'INT64'
WHEN 8   THEN 'INTEGER'
WHEN 9   THEN 'QUAD'
WHEN 7   THEN 'SMALLINT'
WHEN 12  THEN 'DATE'
WHEN 13  THEN 'TIME'
WHEN 35  THEN 'TIMESTAMP'
WHEN 37  THEN 'VARCHAR'
ELSE          'UNKNOWN'
END AS tipo
FROM RDB$RELATION_FIELDS r
LEFT JOIN RDB$FIELDS f ON r.RDB$FIELD_SOURCE = f.RDB$FIELD_NAME
WHERE (r.RDB$RELATION_NAME not like '%$%') and (r.RDB$RELATION_NAME not like 'VIEW%')

quinta-feira, 7 de julho de 2016

DELPHI - Rolar o TMemo para o inicio ou final de sua tela / Roll the TMemo to the beginning or end of your screen

Reações: 
Retirado do site: http://www.devmedia.com.br/forum/rolar-o-tmemo-para-primeira-linha/311919


procedure ScrollMemo(Memo: TMemo; Direction: Integer);
var
  ScrollMessage: TWMVScroll;
  I: Integer;
begin
  ScrollMessage.Msg := WM_VSCROLL;
  Memo.Lines.BeginUpdate;
  try
    for I := 0 to Memo.Lines.Count do
    begin
     ScrollMessage.ScrollCode := Direction;
     ScrollMessage.Pos := 0;
     Memo.Dispatch(ScrollMessage);
    end;
  finally
    Memo.Lines.EndUpdate;
  end;
end;
 
...
 
ScrollMemo(Memo1, SB_LINEUP); // Rola para o início
ScrollMemo(Memo1, SB_LINEDOWN); // Rola para o final

Max Gehringer