1) Em seu formulário adicione 2 componentes da paleta JVUIB.
JVUIBDATABASE
Altere o nome dele para conexao
JVUIBTRANSACTION
Altere o nome dele para transacao
Altere a propriedade database para conexao
2) No evento on create do formulário adicione as seguintes linhas:
conexao.DatabaseName:= BasedeDados ;
conexao.UserName:='SYSDBA';
conexao.PassWord:='SUASENHA';
conexao.Connected:=true;
Edcod.clear;
EdNome.clear;
EdIdade.clear;
Edcod.setfocus;
3) Procure no código desta unit a palavra implementation, abaixo dela adicione a seguinte linha:
implementation
uses global;
Deste modo o sistema procurará as funções e procedures no arquivo global.
4) Não se esqueça de alterar o caminho da const BASEDEDADOS na unit Global.
5) Para efetuar as inserções em seu banco de dados, adicione 3 TLabels e 3 TEdits em seu formulário, eles estão na aba Standart.
TLabel1
caption Cod
TEdit1
name Edcod
TLabel2
caption Nome
TEdit2
name Ednome
TLabel3
caption Idade
TEdit3
name EdIdade
6) Adicione um componente JVUIBQUERY. Altere o name dele para QRDados.
7) Adicione a seguinte linha na propriedade sql do componente Qrdados:
insert into clientes (cod, nome, idade) values (:cod, :nome, :idade);
8) Adicione um TButton com o caption Salvar e adicione o seguinte código:
if Trim(Edcod.text) = '' then exit;
if Trim(EdNome.text) = '' then exit;
if Trim(EdIdade.text) = '' then exit;
with QrDados do begin
Params.ByNameasInteger['COD']:=Strtoint(edcod.text);
Params.BynameasString['NOME']:=ednome.text;
Params.ByNameasInteger['IDADE']:=Strtoint(edidade.text);
end;
ConexaoQuery(QrDados);
Salvar(QrDados);
ShowMessage('Dados Salvos');
Edcod.clear;
EdNome.clear;
EdIdade.clear;
Edcod.setfocus;
9) Compile a aplicação pressionando CTRL + F9 e logo depois execute pressionando F9.
Adicione alguns registros para teste.