Como fazer maskedit gravar valores no banco?

[skybladerox 0]

Bom dia,

 

Estou com uma dúvida: Como fazer maskedit gravar valor no banco? tenho maskedits na minha tela de cadastro de clientes (CEP, CPF, RG, etc.) só que na hora de gravar (estou usando DBNavigator para isso) diz que os campos devem ter um valor, como devo proceder?

 

vai o trecho do código no DBNavigatorClick:

 

procedure TfrmClientes.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
//var
//  ultcod: integer;
begin
    //se estiver em modo de inserção de registro
    if DM.cds_clientes.State in [dsInsert] then
    begin
//      //incrementa o código automático
//      sql_aux_cliente.Open;
//      sql_aux_cliente.Last;
//      ultcod:=sql_aux_clienteCODIGO.Value+1;
//      DM.cds_clientesCODIGO.Value:=ultcod;
//      sql_aux_cliente.Close;

      //coloca o foco no campo 'Nome'
      txtNome.SetFocus;

      //define a primeira opção de estado 'AC'
      cmbUf.Text := cmbUf.Items[0];

      //habilita o botão para carregar foto
      btnCarregarFoto.Enabled := True;

      //carrega a imagem padrão sem foto
      Image1.Picture.LoadFromFile('C:\Sistemas\Controle de Estoque\fotos\sem_foto.jpg');

      //limpa os campos dos maskedits
      mskCep.Text:= '';
      mskTel.Text:= '' ;
      mskDataNasc.Text:= '' ;
      mskRg.Text:= '';
      mskCpf.Text:= '' ;
      mskCnpj.Text:= '' ;
      mskIe.Text:= '' ;
     end
      else if DM.cds_clientes.State in [dsEdit] then
      begin
      //coloca o foco no campo 'Nome'
      txtNome.SetFocus;

      //define a primeira opção de estado 'AC'
      cmbUf.Text := cmbUf.Items[0];

      //habilita o botão para carregar foto
      btnCarregarFoto.Enabled := True;

      end
      else
      begin
        //atualiza a foto
        Image1.Picture.LoadFromFile(DM.cds_clientesFOTO.AsString);

        //pega os valores dos maskedits
        mskCep.Text:= DM.cds_clientesCEP.AsString;
        mskTel.Text:= DM.cds_clientesTEL.AsString ;
        mskDataNasc.Text:= DM.cds_clientesDATA_NASC.AsString ;
        mskRg.Text:= DM.cds_clientesRG.AsString;
        mskCpf.Text:= DM.cds_clientesCPF.AsString ;
        mskCnpj.Text:= DM.cds_clientesCNPJ.AsString ;
        mskIe.Text:= DM.cds_clientesIE.AsString ;
      end;
end;

 

[skybladerox 0]

Resolvi de outro jeito, retirei todos maskedits e configurei dentro do SqlDataset e ClientDataSet a propriedade EditMask de cada campo.

 

Tópico Resolvido.