Inserindo Dados no Banco de Dados Paradox

Prévia do material em texto

Colégio IDESA – 2007 
 
 Criado por Vitor Migoto 1 
 
Inserindo Dados no Banco de Dados Paradox. 
 
- Construção do Banco de Dados: 
Para podermos inserir algo em um banco precisaremos de um Banco de 
Dados, para isto iremos montar um utilizando o Programa Database Desktop 
que acompanha o software Delphi. 
Vá até o menu Tools clique sobre ele e clique em Database Desktop: 
 
 
 
 
 
 
 
 
 
 
Clicando sobre ele irá aparece uma nova janela que é o programa 
Database Desktop. Agora no Database Desktop vá ao menu File clique em 
New e em seguida clique em Table , ele irá abrir uma janela para escolhermos 
o tipo de tabela que iremos utilizar, como Default deixaremos selecionado o 
Paradox 7 e após isso clique em OK. 
 
 
 
 
 
 
 
 
 
 
 
 
 
Colégio IDESA – 2007 
 
 Criado por Vitor Migoto 2 
 
Realizado isto irá se abrir uma janela como no seguinte desenho abaixo: 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Na coluna Field Name preencheremos os campos que irão conter em 
nosso banco como no exemplo os campos inseridos serão: Código, Produto e 
Quantidade. Em seguida na coluna Type clicando com o botão direito do 
mouse iremos selecionar o tipo dos dados no qual o campo irá receber, 
respectivamente aos campos os tipos são: + (Autoincrement), Alpha e Number. 
O primeiro tipo (Autoincrement) servirá para que o campo Código receba 
automaticamente um numero, o segundo tipo determinará que o Campo 
Produto irá receber valores do tipo Alphanuméricos ou em outras palavras 
Caracteres ou ainda ‘Strings’ e o terceiro determinará que o campo Quantidade 
receba valores de tipo numérico. 
 
Na próxima coluna que tem no titulo Size servirá para determinarmos uma 
quantidade de dados ou caracteres que aquele campo irá receber, esta coluna 
será usada apenas para alguns tipos de campos como por exemplo o campo 
Alpha. Os campos de tipo Number ou Autoincrement não aceitam a utilização 
desta coluna, caso seja preenchida, ao salvar a tabela o programa lhe mostrára 
que os alguns campos não utilizam a coluna Size e então você deverá retornar 
e verificar se preencheu incorretamente algum campo. 
Colégio IDESA – 2007 
 
 Criado por Vitor Migoto 3 
 
Por ultimo na coluna Key ela receberá apenas um ‘*’ (Asterisco) ou então 
com um clique do mouse ela será preenchida com o mesmo. Esta coluna serve 
para demarcar o campo chave da nossa tabela. Depois de preenchido 
corretamente os dados na tabela clique no botão Save As e salve o banco em 
uma pasta dentro do local onde irá salvar o seu projeto (Por exemplo se vou 
salvar meu projeto em C:\Joao vou cirar uma pasta chamada ‘banco’ dentro da 
pasta ‘Joao’ e salvarei minha tabela no caminho C:\Joao\banco\ . Isto será 
necessário para que possamos achar facilmente nosso banco na hora em que 
estivermos no desenvolvimento do programa).Abaixo veja como ficará a tabela: 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Após ter salvado a tabela então fecharemos o Database Desktop e iremos 
começar a programação e desenvolvimento do programa. 
Colégio IDESA – 2007 
 
 Criado por Vitor Migoto 4 
 
 
- Construção do Formulário 
Já no Delphi iremos começar com nosso Form1. Antes de incluirmos 
nossos componentes vamos ajustar algumas propriedades do formulário. Ao 
seu lado esquerdo no monitor você verá a janela do Objetct Inspector que 
mostra as propriedades e eventos dos componentes selecionados. Caso não 
esteja habilitada esta janela vá ao menu View e clique onde está escrito Object 
Inspector ou então utilize o atalho pressionando a tecla F11. 
Estando visível a janela do Object Inspector(OI) de um clique sobre o 
Formulário para que possamos visualizar suas propriedades. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Agora vá até o OI e clique na frente da propriedade Caption, estará 
escrito Form1, esta propriedade altera o nome que aparecerá sobre a barra de 
titulo do formulário, vamos colocar o nome de ‘Cadastro de produtos’. Feito isso 
ajuste o tamanho do formulário a sua preferência e então iremos dar inicio a 
utilização dos componentes e programações necessárias, lembrando que a 
propriedade Name do Formulário esta nomeada como Form1. 
Colégio IDESA – 2007 
 
 Criado por Vitor Migoto 5 
 
 
Antes de tudo, SALVAR! 
Para evitarmos perdas vamos salvar o programa. Simplesmente vá ao 
menu File e clique em Save All feito isto irá abrir uma janela para salvarmos a 
nossa Unit. 
(MUITO IMPORTANTE: NÃO ALTERE O NOME DA UNIT) 
Localize o diretório que você irá salvar o programa e clique em salvar, 
após isto o programa irá pedir que salve o Projeto (este você pode alterar o 
nome), coloque o nome desejado e clique em salvar(O nome do projeto não 
pode conter espaços em branco procure colocar ‘_’ (Underline) para separar 
caso seja necessário). 
 
Após salvo vamos continuar o nosso projeto, na palheta de componentes 
que se encontra na parte superior da tela, clique em Standard e depois clique 
duas vezes sobre o objeto Label ao clicar nele duas vezes ele irá aparecer 
no formulário, de um clique sobre ele no formulário e altere no OI a propriedade 
Caption para Nome do Produto, acrescente outro Label no formulário e altere 
seu Caption para Quantidade. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Colégio IDESA – 2007 
 
 Criado por Vitor Migoto 6 
 
Depois de incluir os Labels no formulário faça o mesmo com o 
componente Edit colocando dois deste componente no formulário, abaixo 
de cada label que o representará. Ao invés de alterar a propriedade Caption 
deste componente (já que este não a tem) apague o conteúdo que esta dentro 
da propriedade Text deixando em branco. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Colégio IDESA – 2007 
 
 Criado por Vitor Migoto 7 
 
Agora insira 3 componentes Buttons alterando sua propriedade Caption 
para os respectivos nomes: Inserir , Salvar e Cancelar. 
 
Colégio IDESA – 2007 
 
 Criado por Vitor Migoto 8 
 
Agora nos buttons Salvar e Cancelar altere a propriedade Enabled para 
false. Na palheta Data Access insira o componente Table em sua 
propriedade Databasename preencha com o diretório onde salvou o banco, no 
exemplo o diretório é ‘banco\’ após isto na propriedade Tablename selecione o 
nome do arquivo que você salvou e depois na propriedade Active selecione 
True. 
 
Na mesma palheta insira o componente Datasource e altere sua 
propriedade Dataset para o nome do componente table que se não foi alterado 
será Table1. 
Colégio IDESA – 2007 
 
 Criado por Vitor Migoto 9 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Agora iremos programar o botão Inserir, dê dois cliques nele e na janela 
de programação digite os seguintes comandos que serão explicados a seguir: 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
 button1.Enabled:=false; // Desabilitará o botão inserir 
 button2.Enabled:=true; // Habilitará o botão Salvar 
 button3.Enabled:=true; // Habilitará o botão Cancelar 
 edit1.Text:=''; // Limpará a caixa de texto do nomedo produto 
 edit2.Text:=''; //Limpará a caixa de texto da Quantidade 
end; 
 
Colégio IDESA – 2007 
 
 Criado por Vitor Migoto 
10 
 
No Button Salvar dê dois cliques nele e digite a seguinte programação: 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
 table1.Insert; // Diz ao banco que será inserido um registro 
 table1.FieldByName('Produto').asstring:= edit1.text; // diz ao banco que o campo 
Produto receberá o valor string que esta na caixa de texto edit1.text 
 table1.fielbyname('Quantidade').asinteger:=strtoint(edit2.text); // diz ao banco que o 
campo Quantidade receberá o valor inteiro convertido do valor string que esta na caixa de texto 
edit2.text 
 table1.Post; // Grava os dados no banco 
 table1.Refresh; // Atualiza o Banco 
 button1.Enabled:=true; // Habilita o Botão Inserir 
 button2.Enabled:=false; // Desabilita o Botão Salvar 
 button3.Enabled:=false; // Desabilita o Botão Cancelar 
 edit1.text:=''; // Limpa a caixa de texto Edit1 
 edit2.text:=''; // Limpa a caixa de texto Edit2 
end; 
 
No Button Cancelar dê dois cliques e digite a seguinte programação: 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
 button1.Enabled:=true; // Habilita o Botão Inserir 
 button2.Enabled:=false; // Desabilita o Botão Salvar 
 button3.Enabled:=false; // Desabilita o Botão Cancelar 
 edit1.text:=''; // Limpa a caixa de texto Edit1 
 edit2.text:=''; // Limpa a caixa de texto Edit2 
end; 
 
Realizado as alterações o programa de cadastro no banco de dados está 
concluído. Para executar aperte F9.