Delphi Dicas

 

Pesquisa pelas iniciais

Abrindo e fechando a tabela

Código para selecionar os registros pelas iniciais

Dê um duplo clique no edtPesquisa e digite:
qryPesquisa.Close;
qryPesquisa.sql.Clear ;
qryPesquisa.SQL.Add('Select Codigo_Cliente, Nome From Cliente Where (Nome like '''+ edtPesquisa.Text + '%'')');
qryPesquisa.Open;


Inserindo a Data do Sistema quando clica no botão Inserir do dbNavigator

Cálculo envolvendo campos

Selecione o tblReceber

Ligando um campo de uma tabela com outra

Quando estamos trabalhando com duas tabelas: uma de venda e uma de detalhes da venda, a chave-primária da tabela de vendas é relacionada com a chave-estrangeira da tabela de itens. Isto acontece quando queremos listar os itens que um determinado cliente comprou (fica salvo na tabela de itens).

Em um table ou query, selecione o evento OnNewRecord e digite o código abaixo:
qryItemVendaNumero_Venda.Value := tblVendasNumero_Venda.Value;

Quando inserir uma nova venda e logo após, inserir o primeiro item na tabela de itens, o número da venda será armazenado no campo numero da venda da tabela de itens.

1