Fórum salvar no banco com alguns Edits em branco!! #603269

26/06/2019

0

ola pessoal sou novo no delphi e estou com uma tabela de cadastro onde tenho varios edits para prencher com por se tratar de hora inio e hora final de atividade eu nao estou conseguindo armazenar com edits vazio porem isso sera comum no uso da aplicação, como faço para quando nao for digitado nada em algum edit ele preencha com zero lembrando se são campos tipo datetime.
Ancelmo Cardoso

Ancelmo Cardoso

Responder

Posts

26/06/2019

Bruno

ola pessoal sou novo no delphi e estou com uma tabela de cadastro onde tenho varios edits para prencher com por se tratar de hora inio e hora final de atividade eu nao estou conseguindo armazenar com edits vazio porem isso sera comum no uso da aplicação, como faço para quando nao for digitado nada em algum edit ele preencha com zero lembrando se são campos tipo datetime.


Poste o código para ver como você esta pegando o valor do edit e salvando.
Responder

Gostei + 0

26/06/2019

Ancelmo Cardoso

ola pessoal sou novo no delphi e estou com uma tabela de cadastro onde tenho varios edits para prencher com por se tratar de hora inio e hora final de atividade eu nao estou conseguindo armazenar com edits vazio porem isso sera comum no uso da aplicação, como faço para quando nao for digitado nada em algum edit ele preencha com zero lembrando se são campos tipo datetime.
procedure Trendimento.Button3SAIRClick(Sender: TObject);
begin
close;
end;

procedure Trendimento.Edit11Change(Sender: TObject);
var
iniciot : TDateTime;
finalt : TDateTime;
totalt : TDateTime;

begin
iniciot := StrtoTime(edit9.text);
finalt := StrtoTime(edit10.text);
totalt := finalt - iniciot;
Edit11.Text := FormatDateTime('hh:nn',totalt);
end;

procedure Trendimento.Edit12Change(Sender: TObject);
begin
Edit12.Text := FormatDateTime('hh:nn',StrToTime(Edit7.text) + StrToTime(Edit11.text));
end;

procedure Trendimento.Edit13Change(Sender: TObject);
begin
Edit13.Text := IntToStr(StrToInt(Edit4.Text)+StrToInt(Edit8.Text));
end;

procedure Trendimento.Edit14Change(Sender: TObject);
var
totalcaixa : double;
totalhora : TdateTime;
converter : double;
begin
totalcaixa := StrToint(Edit4.Text)+StrToInt(Edit8.Text);
totalhora := StrToTime(Edit7.text) + StrToTime(Edit11.text);
converter :=(totalhora)*24;
Label18.Caption :=Formatfloat('#0.00',totalcaixa/converter);
end;

procedure Trendimento.Edit7Change(Sender: TObject);
var
iniciom : tDatetime;
finalm : TDatetime;
totalm : TDatetime;
zero : TdateTime;

begin
iniciom := StrtoTime(edit5.text);
finalm := StrtoTime(edit6.text);
totalm := finalm -iniciom;
Edit7.text:= FormatDateTime('hh:nn',totalm);
end;

end.
Responder

Gostei + 0

27/06/2019

Ancelmo Cardoso

ola pessoal sou novo no delphi e estou com uma tabela de cadastro onde tenho varios edits para prencher com por se tratar de hora inio e hora final de atividade eu nao estou conseguindo armazenar com edits vazio porem isso sera comum no uso da aplicação, como faço para quando nao for digitado nada em algum edit ele preencha com zero lembrando se são campos tipo datetime.
procedure Trendimento.Button3SAIRClick(Sender: TObject);
begin
close;
end;

procedure Trendimento.Edit11Change(Sender: TObject);
var
iniciot : TDateTime;
finalt : TDateTime;
totalt : TDateTime;

begin
iniciot := StrtoTime(edit9.text);
finalt := StrtoTime(edit10.text);
totalt := finalt - iniciot;
Edit11.Text := FormatDateTime('hh:nn',totalt);
end;

procedure Trendimento.Edit12Change(Sender: TObject);
begin
Edit12.Text := FormatDateTime('hh:nn',StrToTime(Edit7.text) + StrToTime(Edit11.text));
end;

procedure Trendimento.Edit13Change(Sender: TObject);
begin
Edit13.Text := IntToStr(StrToInt(Edit4.Text)+StrToInt(Edit8.Text));
end;

procedure Trendimento.Edit14Change(Sender: TObject);
var
totalcaixa : double;
totalhora : TdateTime;
converter : double;
begin
totalcaixa := StrToint(Edit4.Text)+StrToInt(Edit8.Text);
totalhora := StrToTime(Edit7.text) + StrToTime(Edit11.text);
converter :=(totalhora)*24;
Label18.Caption :=Formatfloat('#0.00',totalcaixa/converter);
end;

procedure Trendimento.Edit7Change(Sender: TObject);
var
iniciom : tDatetime;
finalm : TDatetime;
totalm : TDatetime;
zero : TdateTime;

begin
iniciom := StrtoTime(edit5.text);
finalm := StrtoTime(edit6.text);
totalm := finalm -iniciom;
Edit7.text:= FormatDateTime('hh:nn',totalm);
end;

end.







então ninguém???
Responder

Gostei + 0

27/06/2019

Bruno

Coloca null se for vazio o campo na hora de fazer o insert
Responder

Gostei + 0

29/06/2019

Ancelmo Cardoso

Coloca null se for vazio o campo na hora de fazer o insert




valeu a dica mas eu coloquei pra executar as procedure antes do insert , que que ja atualize antes de salvar
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar