dbedit sempre com o mesmo valor

Question

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....

Marco Salles · Answer

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....

Xadriano · Answer

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

Marco Salles · Answer

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

Marco Salles · Answer

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

F�rum dbedit sempre com o mesmo valor #230821