Jump to content
Fórum Script Brasil
  • 0

[resolvido] 2 Duvidas Com Tabela


vms
 Share

Question

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

Link to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 0

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;

Link to comment
Share on other sites

  • 0
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?

Link to comment
Share on other sites

  • 0

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;

Edited by Jhonas
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.1k
    • Total Posts
      647k
×
×
  • Create New...