segunda-feira, 15 de agosto de 2011

Criando um lookup que chame uma de suas forms

Um leitor deu a dica de fazer um lookup que chame uma das forms do projeto. Há várias maneiras de se fazer isso, mas uma que encontrei foi usar formulários registrados com RegisterClass. Depois é só usar FindClass para encontrar o formulário, e FindComponent para encontrar o componente onde reside o valor a ser trazido. Se o componente for um TPersistentField, melhor ainda. Ele pode ser achado, e com um typecast para TField seu valor (o valor encontrado e escolhido no formulario de procura/cadastro padrão) pode ser trazido para o keyvalue.

Abaixo um exemplo de como isso pode ser feito. Primeiro o registro do formulario:
initialization

  RegisterClass(TfrmConsulta);

Depois a chamada dele. Repare que ele é desconhecido para o formulário principal: não está no uses.
procedure TfrmPrincipal.Button1Click(Sender: TObject);
var
  NewFormClass: TFormClass;
  NewForm: TForm;
begin
  NewFormClass := TFormClass(FindClass( 'TFrmConsulta' ));
  //detalhe: esse  string 'TFrmConsulta' pode vir de um campo, edit, banco de dados, arquivo de configuração etc
  try
    NewForm := NewFormClass.Create(nil);
    NewForm.ShowModal;
  finally
    FreeAndNil(NewForm);
  end;
end;

Esse exemplo mostra como registrar formularios e chamá-los sem colocar no uses e sem que o "cliente" saiba da sua existencia.
Assim que tiver um tempo coloco isso encapsulado em um lookup.

quinta-feira, 11 de agosto de 2011

Bancos de dados gratuitos parte 2

Saiu na Clube Delphi 132 a parte 2 do artigo sobre bancos de dados gratuitos. Espero que todos gostem.

Esta edição ainda traz um artigo sobre Nota Fiscal Eletrônica 2.0, muito útil.

Não se esqueça que agora os códigos GTIN (códigos de barra a serem preenchidos nos campos cEAN e cEANTrib) agora são obrigatórios.

Um artigo que eu lerei com bastante curiosidade é o artigo sobre Morfik, que permite desenvolvimento par Web com Object Pascal, semelhante ao Delphi. Mas com o Morfik você também desenvolve código "client-side".

Espero que todos tenham boa leitura!

Artigos sobre bancos de dados gratuitos e lookups

Saiu na revista Clube Delphi 131 dois artigos meus: um sobre bancos de dados gratuitos e outro sobre a criação de um componente lookup genérico.

Lokups são campos utilizados para fazer a ligação entre duas entidades, duas tabelas. Em uma tabela de venda, por exemplo, há informações sobre o código do cliente para quem a venda está sendo feita, o código da forma de pagamento, e assim por diante. Um formulário não deve ter campos para se digitar os códigos diretamente, e sim campos lookup, que possam ser usados para procurar a forma de pagamento, o cliente e as outras informações em questão pelo nome e não pelo código. Neste artigo fizemos um lookup, usando um ButtonedEdit e um formulário com grid,  que pode funcionar em múltiplos bancos de dados e que traz os registros filtrando-os, usando para isso uma instrução SQL montada sob demanda. Isso ajuda a diminuir o tempo de abertura dos formulários e o tempo de carregamento dos lookups, bem como a quantidade de registros trazida nesses tipos de campo.

O outro artigo publicado fará parte de uma série de 3 artigos sobre bancos de dados gratuitos e ferramentas de acesso. Além do postgre, mysql e firebird ainda existem as versões gratuitas do DB2, Oracle, SQL Server entre outros. Além disso o artigo abordará como criar bancos SQLite e se conectar a eles.

Você sabia que além do DBXpress também há outras formas de se conectar a múltiplos bancos de dados? Existe o AnyDac, Zeos, Unidac, dezenas de drivers OLEDB ou ODBC, a possibilidade de usar ODBC com o DBXpress (que será recurso nativo do Delphi XE2) entre outros. Mas a suite de componentes de conexão mais rápida que eu já via é a Unidac.

Ambos os artigos terão uma continuação extra-oficial neste blog. O artigo sobre bancos de dados gratuitos terá um teste de performance mais profundo, fazendo também inserts e updates e usando clientdatasets em conjunto com outros tipos de datasets que não sejam o SQLDataset do DBX. Esse servirá como um catálogo definitivo de conexão com qualquer banco de dados.

Um leitor da Clube Delphi me deu uma dica interessante de colocar uma propriedade do tipo string no lookup e fazer com que ele chame um formulário de consulta ou cadastro que tenha o mesmo nome preenchido nessa propriedade. Isso faria com que o lookup pudesse "chamar" qualquer formulário do sistema sem que ele conhecesse suas units ou sequer soubesse que elas existem. Funcionalidade extra sem acoplamentos desnecessários.

Espero que tenham uma boa leitura.

Postagens populares

Marcadores

delphi (60) C# (31) poo (21) Lazarus (19) Site aos Pedaços (15) sql (13) Reflexões (10) .Net (9) Humor (9) javascript (9) ASp.Net (8) api (8) Básico (6) Programação (6) ms sql server (5) Web (4) banco de dados (4) HTML (3) PHP (3) Python (3) design patterns (3) jQuery (3) livros (3) metaprogramação (3) Ajax (2) Debug (2) Dicas Básicas Windows (2) Pascal (2) games (2) linguagem (2) música (2) singleton (2) tecnologia (2) Anime (1) Api do Windows (1) Assembly (1) Eventos (1) Experts (1) GNU (1) Inglês (1) JSON (1) SO (1) datas (1) developers (1) dicas (1) easter egg (1) firebird (1) interfaces (1) introspecção (1) memo (1) oracle (1) reflexão (1)