ClientDataSet

01/03/2011

Leonardo Xavier

qual banco de dados que vc esta utilizando?

Responder

Gostei + 0

01/03/2011

Marco Salles

Caros Amigos, Tenho uma aplica��o uso um DBEdit para uma campo definido como data no meu ClientDataSet. O problema � que quando digito uma data inv�lida nesse campo e teclo enter recebo a seguinte mensagem do Delhi: Project Gespag.exe raise exception class EConvertError with message "25/15/2011 is not a valide date". Como validar essa data e mandar uma mensagem para o usu�rio? Seria no evento OnValidade do campo no CDS? Atenciosamente Rogerio Barbosa

Muitas op�oes , entre elas � usar o evento onsetText do Tfield Veja um exemplo

procedure TSeuForm.SeuCampodataSetText(Sender: TField; const Text: string);
var
Data:TDatetime;
begin
if text <> '' then
  if (TryStrToDate(sender.AsString,Data)) then
     sender.AsString:=Text;
    begin
       sender.FocusControl;
      showmessage('Data Inv�lida');
    end;
end;

Responder

Gostei + 0

01/03/2011

Rogerio Ferreira

Caros Marcos, Funcionou, mas quando eu dou ok na janela de erro, o foco volta para o campo de data mas o mesmo aparece sem a m�scara de edi��o e quando vou digitar a data certa, s� consigo digitar um caracter, quando digito o outro ele cobre o primeiro. Eu tenho essa procedure para aceitar o enter e passar para o pr�ximo campo: procedure TFrmNotasFiscais.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
key := #0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;
Atenciosamente Rogerio Barbosa

Responder

Gostei + 0

01/03/2011

Marco Salles

Caros Marcos, Funcionou, mas quando eu dou ok na janela de erro, o foco volta para o campo de data mas o mesmo aparece sem a m�scara de edi��o

foi programadopara isto mas da para altera

e quando vou digitar a data certa, s� consigo digitar um caracter, quando digito o outro ele cobre o primeiro.

� porque esquecii da exce��o ... Veja

procedure TSeuForm.SeuDataSet1SeuCampodataSetText(Sender: TField; const Text: string);
var
Data:TDatetime;
begin
if text <> '  /  /    ' then
begin
  if (TryStrToDate(Text,Data)) then
     sender.AsString:=Text
  else
    begin
       sender.FocusControl;
       showmessage('Data Inv�lida');
       abort;
    end
end
else
 sender.clear;
end;

Responder

Gostei + 0

01/03/2011

Rogerio Ferreira

Valeu, Marco Antonio Funcionou beleza Obrigado Rogerio Barbosa

Responder

Gostei + 0

F�rum ClientDataSet #396517