Fórum continuar com os mesmo valores de um campo ....novo registro #190742

26/10/2003

0

ola pessoal gostaria de saber como faço para que num banco de dados
Table Paradox para que quando o cliente insira um novo registro os valores de todos os campos continuasem com os mesmo valores do anterior


pois nõ project que estou fazendo á varios campos e os novos registros colocados sao parecido com o o primeiro registro para que quando o usuario coloque um novo registro (insert) possa ser colocado um novo registro ...mas com o valor do primeiro registro....etederam??????


essa bagunça toda é so para que o usuario nao fique digitando sempre os mesmo valores ..por que ficaria cansativo para o usuario e fazendo isso que estou querendo fazer o usuario só vai mudar algumas coisas.....


agradeço


Keliniciante

Keliniciante

Responder

Posts

26/10/2003

Hiko Seijuro

Das formas que conheço a mais prática é a seguinte:

Criar variáveis que receberão provisóriamente os dados do primeiro registro. Você pode, antes de permitir que o usuário insira os dados e, [b:3109fd5050]se possível[/b:3109fd5050], antes que o form seja mostrado na tela, inicializar o table (já estará no primeiro registro), passar os dados que devem ser iguais para as varíaveis, colocar o table no modo de inserção, e depois atribuir os valores as caixas de texto e demais componentes onde serão inseridos os dados pelo usuário. Nesse caso, se você quiser que os dados sejam necessáriamente do último registro inserido, logo após iniciar o table, você pode usar a função [b:3109fd5050]Last[/b:3109fd5050] (Table1.Last, por exemplo).


Responder

Gostei + 0

26/10/2003

Adilsond

var
  Form1: TForm1;
  Campos: array[0..6] of Variant;

implementation

{$R *.DFM}

procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
var
  I: Word;
begin
  for I := 0 to 6 do
    Campos[I] := Table1.Fields[I].Value;
end;

procedure TForm1.Table1AfterInsert(DataSet: TDataSet);
var
  I: Word;
begin
  for I := 0 to 6 do
    Table1.Fields[I].Value := Campos[I];
end;



Responder

Gostei + 0

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

Aceitar