Delphi Dicas

• Pesquisa pelas iniciais
• Inserindo a Data do Sistema quando clica no botão Novo do dbNavigator
• Cálculo envolvendo campos
• Ligando um campo de uma tabela com outra

Pesquisa pelas iniciais

• Insira o componente Query (Guia BDE) no form e altere as propriedades:
• Name: qryPesquisa
• SQL: Select Codigo_Cliente, Nome From Cliente Order By Nome //a pesquisa somente irá retornar os campos: Codigo_Cliente e Nome. A tabela tem o nome de cliente, classificado em ordem crescente pelo campo Nome
• DatabaseName: (Selecione o nome do aliás)

• Insira o componente DataSource (Guia Data Access) no form e altere as propriedades:
• Name: dtsCliente
• DataSet: qryPesquisa

• Insira o componente DBGrid (Guia DataControl) no form e altere as propriedades:
• Name: grdCliente
• DataSource: dtsCliente

• Insira o componente Label (Guia Data Standard) no form e altere as propriedades:
• Name: lblPesquisa
• Caption: Digite o nome do cliente:

• Insira o componente Edit (Guia Standard) no form e altere as propriedades:
• Name: edtPesquisa
• Text: Apague o seu conteúdo

Abrindo e fechando a tabela

• Selecione o formulário e a guia Events
• Selecione o evento onCreate e digite: qryCliente.Open;

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

• Selecione o componente tblCliente que está no form;
• Selecione a Guia Events e o Evento AfterInsert (quer dizer: depois que clicou no botão Inserir do dbNavigator);
• Dê um duplo clique na área branca e digite o código: tblCliente.FieldByName('Data_Cadastro').AsDateTime := Date;

  ---

Cálculo envolvendo campos

Selecione o tblReceber

• Na Guia Events, selecione o Evento onCalcFields
• Dê um duplo clique na área branca e digite o código:
  tblReceber.FieldByName('ValorPago').AsCurrency :=
  tblReceberValor.Value - tblReceberDesconto.Value + tblReceberAcrescimo.Value;

  ---

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.