Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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;Carregando comentários...