[resolvido] 2 Duvidas Com Tabela

[vms]

ola pessoal, tenho 2 duvidas

1° queria apagar todos os dados insirido em uma tabela

(todos os dados de uma so vez) usando bitbtn

2° tenho um campo na tabela (DBEdit),preciso que ele fique '1' sem

que eu precise adicionar. como faço isso?

obs:stou tentando fazer um programa de estoque e esse campo é de quantidade,

eu queria que ele ficasse o numero 1 como defult

tabela paradox, Ttable

[Jhonas]

1° queria apagar todos os dados insirido em uma tabela

(todos os dados de uma so vez) usando bitbtn

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   Table1.EmptyTable;  //  limpar toda a tabela
end;

2° tenho um campo na tabela (DBEdit),preciso que ele fique '1' sem que eu precise adicionar. como faço isso?

Se estiver usando um dbnavigator

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
   if Button = nbInsert then
      DBEdit1.Text := '1';
end;

[vms]

Se estiver usando um dbnavigator

CODE

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

begin

if Button = nbInsert then

DBEdit1.Text := '1';

end;

estar dando erro porque o campo é 'inteiro'

como faço para converter?

[Pirambu!]

Tenta assim

em evento da tabela coloca o codigo abaixo no "OnNewRecord"

Table1Campo.value := '1';

Com isso toda vez que iniciar um registro na tabela o campo terá o valor 1.

[Jhonas]

ok ... faça esta mudança:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
   if Button = nbInsert then
      DBEdit1.Text := inttostr(1); //pode ser numero ou uma variavel inteira
end;

Editado Agosto 27, 2007 por Jhonas

[vms]

opa!

deu certo pirambu, mas tem que tirar as aspas

valeu

valeu jhonas, deu certo tambem dessa forma