Usar Sql em form Avulso

[Gilberto]

Olá.

Alguém tem exemplos de como usar SQL básico em form avulso ?

Uso muito o Tabglobal que traz muitos campos e as vezes da erro de memória.

Att
Gilberto

[Leão]

Gilberto, melhor mesmo é criar pelo próprio Xmaker, na opção Consulta(acima de diagramas), fica rápido, independente da quantidade de registros. Passei por uma experiência em que o servidor da empresa ficava processando muito tempo um simples relatório, por que era feito no próprio formulario modo padraõ, então resolvir mudar, a mudança foi muito boa ficou bem rápido. veja esse exemplo:


SELECT clientes_alterados.codigo as Codigo,
Clientes.Nome as Nome_cliente,
clientes_alterados.nr_campo as nr_campo,
clientes_alterados.data_alter as data_alter,
clientes_alterados.nome as nome,
clientes_alterados.cod_pais as cod_pais,
clientes_alterados.cnpj as cnpj,
clientes_alterados.cpf as cpf,
clientes_alterados.ei as ei,
clientes_alterados.cod_mun as cod_mun,
clientes_alterados.suframa as suframa,
clientes_alterados.endereco as endereco,
clientes_alterados.nr_end as nr_end,
clientes_alterados.compl_end as compl_end,
clientes_alterados.bairro as bairro,
clientes_alterados.conteudo_anter as conteudo_anter
FROM clientes_alterados, Clientes
where clientes_alterados.Codigo=Clientes.Codigo
and clientes_alterados.data_alter >=:Data_i
and clientes_alterados.data_alter <=:Data_f
ORDER BY clientes_alterados.data_alter
********************************
Aqui é no botão do formulário, não importa se é avulso ou não.

TabGlobal.CSClientes_alterados.Close;
TabGlobal.CSClientes_alterados.Parametro_Valor('Data_i',XDateEdit1.DateText);
TabGlobal.CSClientes_alterados.Parametro_Valor('Data_f',XDateEdit2.DateText);
TabGlobal.CSClientes_alterados.open;
TabGlobal.CSClientes_alterados.ConfiguraMascara_CS;
TabGlobal.CSClientes_alterados.First;
while not TabGlobal.CSClientes_alterados.Eof do
begin
with Registro0175New do
begin
DT_ALT := TabGlobal.CSClientes_alterados.fieldByName('data_alter').AsDateTime;
NR_CAMPO := TabGlobal.CSClientes_alterados.fieldByName('nr_campo').AsString;
CONT_ANT := TabGlobal.CSClientes_alterados.fieldByName('conteudo_anter').Asstring;
end;
TabGlobal.CSClientes_alterados.next;
end; //do while
TabGlobal.CSClientes_alterados.Close;


Obrigado,
Leão

[Gilberto]

Obrigado Leão,

Valeu pela Dica.

Vou tentar fazer agora uma exclusão em cascata, já que via processo normal esta muito lento.

Att
Gilberto