dbedit sempre com o mesmo valor

Delphi

07/05/2004

tenho um banco de dados onde alguns campos sempre repetem, gostaria de saber como faço para quando eu incluir um registro estes valores que sempre repetem ja aparecam digitados.


Grato,


Adriano.


Xadriano

Xadriano

Curtidas 0

Respostas

Marco Salles

Marco Salles

07/05/2004

Voce não disse qua o banco que voce usa e nen quias os componentes de acesso a este banco...Minha dica Baseia-se em um componente DataSource e Um Componente Table o Que Pode Talves Possa ser Expandido Para Outros componentes e Outros Bancos....
Manipule o evento OnStateChange do DatataSource como oseguinte Código:
procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
if Table1.State in [DsInsert] then
 Table1.FieldByName(´NomeDoCampo´).AsString:=´Valor Qualquer´;
end;

Ps: Supos o Campo ser Do Tipo String....


GOSTEI 0
Xadriano

Xadriano

07/05/2004

Realmente funciona, só que, quando eu dou um refresh na tabela ele some e não aparece no relatorio.

Se puderesme ajudar, agradeco desde já

obs. uso tabela do msAccess e no delphi estou ultilzando o ADO.

Adriano


GOSTEI 0
Marco Salles

Marco Salles

07/05/2004

nao tem problema...ssim que inseri grave o registro e o coloque novamente no modo de edição...
procedure TForm1.DataSource1StateChange(Sender: TObject);
begin 
if Table1.State in [DsInsert] then 
  begin 
    Table1.FieldByName(´NomeDoCampo´).AsString:=´Valor Qualquer´; 
    Table1.Post;
    Table1.Edit;
  end;
end;

Acho que agora pode dar refresh a vontade :P :P :P :P


GOSTEI 0
Marco Salles

Marco Salles

07/05/2004

nao tem problema...ssim que inserir, grave o registro e o coloque novamente no modo de edição... 
procedure TForm1.DataSource1StateChange(Sender: TObject); 
begin 
if Table1.State in [DsInsert] then 
  begin 
    Table1.FieldByName(´NomeDoCampo´).AsString:=´Valor Qualquer´; 
    Table1.Post; 
    Table1.Edit; 
  end; 
end;

Acho que agora pode dar refresh a vontade.... :P :P :P :P


GOSTEI 0
POSTAR