Baixe Oracle Forms Básico - Apostilas - Informática Part3 e outras Notas de estudo em PDF para Informática, somente na Docsity!
Oracle Forms – Básico
2200 ..UUNNIIDDAADDEESS DDEE PPRROOGGRRAAMMAA ((PPRROOGGRRAAMM UUNNIITTSS))
Procedures
Functions
Packages
2
2 1
1 .
. P
PAALLEETTAA DDEE S
SIINNTTAAXXEE
Esse recurso está disponível no editor de PL/SQL.(Através da barra de menu no
item Programa > Paleta de Sintaxe).
Na paleta de sintaxe você tem duas pastas.Na primeira (PL/SQL) você tem um pop-
list o tópico que você quer verificar a sintaxe, logo abaixo existe um caixa de texto com os
sub-itens .Após a seleção do sub-item na parte inferior será mostrada a sintaxe. Na
segunda pasta (Predefinidos) o pop-list corresponde aos pacotes pré-definidos. A primeira
caixa de texto contém as built-ins e a segunda a sintaxe.
Oracle Forms – Básico
2222 ..VVAARRIIÁÁVVEEIISS GGLLOOBBAAIISS EE DDEE SSIISSTTEEMMAA
Global variables : Váriaveis que podem ser criadas através da atribuição de valor
para a variável ou com a rotina default_value. Esta variável possui seu valor no modo
caracter.
System Variables : Mostram vários valores de variáveis do sistema como por
exemplo qual o registro em que você está posicionado system.trigger_Record , etc.
2
2 3
3 .
. M
MAANNIIPPUULLAANNDDOO MMEENNSSAAGGEENNSS DDEE EERRRROO
Para manipularmos os erros dentro de um forms utilizamos os gatilhos On-error e
On-message. A variável SQLERRM é utilizada para recuperar os erros na sua forma
completa, ou seja, o tipo do erro, o código e a mensagem.
Também é possível recuperarmos cada parte da mensagem de erro utilizando
ERROR_TYPE, ERROR_CODE e ERROR_TEXT respectivamente.
Exemplo:
DECLARE
errnum NUMBER := ERROR_CODE;
errtxt VARCHAR2(80) := ERROR_TEXT;
errtyp VARCHAR2(3) := ERROR_TYPE;
BEGIN
IF errnum = 40301 THEN
Message('Sua pesquisa não encontrou nada, tente de novo.');
ELSIF errnum = 40350 THEN
Message('Nada foi encontrado.');
ELSE
Message(errtyp||'-'||TO_CHAR(errnum)||': '||errtxt);
RAISE Form_Trigger_Failure;
END IF;
END;
Oracle Forms – Básico
Check box - Um label que pode ser assinalado, tendo apenas dois valores;
Text Item - Normalmente usado no forms, são campos editáveis;
Chart item - Mostra gráficos gerados através do Graphics Builder;
OCX - Usa objetos Active X ;
List item - Mostra uma lista de alternativas para escolha de uma.
Bean Area – Usado para Java beans.
Hierarchical tree – Árvores hierárquicas.
Vamos ver nesta demonstração o exemplo destes campos.
Crie um novo forms chamado ANC002, criando um bloco chamado “BL” e vá para
o editor de layout.
Crie os seguintes campos :
Nome: text item;
Sexo: Radio Group;
Estado civil: list item;
Esportes preferidos: check Box (Futebol, Natação, Voleibol, Basquete, Judô)
Foto: imagem
Busca imagem: botão (utilize a rotina abaixo)
DECLARE
filename VARCHAR2(256)
BEGIN
filename := GET_FILE_NAME(File_Filter=> 'BMP Files
(.BMP)|.BMP|');
READ_IMAGE_FILE(filename, 'BMP', 'bl.foto');
END;
Execute seu forms e veja o resultado.
Oracle Forms – Básico
2244 ..CCOONNSSTTRRUUÇÇÃÃOO DDEE ÁÁRRVVOORREESS HHIIEERRÁÁRRQQUUIICCAASS
Os campos em Árvores Hierárquicas mostram os dados no padrão do navigator do
Oracle Developer ou Windows Explorer.
Você pode popular Árvores Hierárquicas com valores contidos em Record Group ou
Textos de Pesquisa.
Utilizando programação você pode adicionar, remover, modificar ou validar
elementos da sua Árvore Hierárquica em tempo de execução.
Exemplo :
Criar um novo form chamado SIF004.
Criar um record Group denominado NIVEL com a seguinte estrutura:
SELECT -1, LEVEL, DES_REGIAO, NULL, TO_CHAR(NRO_REGIAO)
FROM REGIAO
CONNECT BY PRIOR NRO_REGIAO = NRO_REGIAO_SUP
START WITH NRO_REGIAO_SUP IS NULL
Criar um bloco manualmente e denominá-lo B1.
Inserir um novo item do tipo árvore hierárquica com o nome de
ARVORE e definir seu tamanho em 150 x 150.
Inserir um novo Canvas e colocar o Item visível no canvas.
Criar um gatilho WHEN-NEW-FORM-INSTANCE em nível de Forms e
dentro de seu conteúdo colocar o procedimento:
DECLARE
X NUMBER;
BEGIN
X := POPULATE_GROUP ('NIVEL');
FTREE.SET_TREE_PROPERTY ('B1.ARVORE',FTREE.RECORD_GROUP, 'NIVEL');
END;
Execute o Forms.
Oracle Forms – Básico
Wizards - Assistentes
Runtime - Execução
Oracle Forms – Básico
2266 ..AALLEERRTTAASS
Servem para explodir no meio da tela uma caixa de aviso. Podem possuir até 3
botões de ação que podem ser controlados pelo usuário. Veja o exemplo abaixo:
DECLARE
al_id Alert;
al_button NUMBER;
BEGIN
-- Localiza o alerta com dois botões
al_id := Find_Alert('Meu_alerta');
-- Testa se ele existe
IF Id_Null(al_id) THEN
Message('Este alerta não existe');
RAISE Form_Trigger_Failure;
ELSE
-- Aguarda o botão escolhido
al_button := Show_Alert(al_id);
IF al_button = ALERT_BUTTON1 THEN
-- Verifica se foi o botão 1
Message(‘Botão número 1’);
ELSE
Message(‘Botão número 2’);
END IF;
END IF;
END;
2
2 7
7 .
. C
C O
O
N
N
T
T
A
A
D
D
O
O
R
R
E
E
S
S
(
( T
T I
I
M
M
E
E
R
R
S
S
)
)
Contadores ou timers são temporizadores, ou seja, processos que disparam de tempo
em tempo, de acordo com a definição do desenvolvedor. Um timer serve, por exemplo,
para executar um refresh de tela ou criar um aviso piscante, etc...
/* Criando um timer de repetição disparado a cada hora */
-- Pode ser criado no when_new_form_instance
DECLARE
hour_timer TIMER;
one_hour NUMBER(7):=3600000;
BEGIN
hour_timer := CREATE_TIMER('alarm',one_hour,REPEAT);
END;
- Respondendo a vários Timers
Oracle Forms – Básico
Escolha a coluna que a LOV vai ser ativada.
Tela de encerramento
2299 ..EEDDIITTOORREESS
Servem para editar campos. Formata de uma maneira mais bem elaborada campos
que necessitam de edição. Depois de definido um editor ele deve ser atribuído a um
campo.
3
3 0
0 .
. P
PAARRAAMMEETTEERRSS
São variáveis locais de forms muito utilizadas para trocar parâmetros entre forms,
reports ou graphics. Também são muito úteis como variáveis para armazenamento de
informações dentro do forms.
Oracle Forms – Básico
3311 ..MMEENNUUSS
O Forms desde as primeiras versões já tinha o editor de menus, mas agora além
disso você tem a praticidade de criar menus com barra de Botões sem a necessidade de
criar canvas e blocos de controles para alocar esses botões.
Como criar:
No Object Navigator clique no nódulo de Menus e no botão criar.
Dentro da Hierarquia de menu clique em Menus e novamente no botão criar.
No item anteriormente criado clique com o botão direito e escolha editor de
menu.
O primeiro item do menu é o que vai aparecer na barra de ferramentas. De o
nome de Primeiro Item de Arquivo.
Crie um item abaixo que daremos o nome de sair, para isso clique no botão
criar abaixo.
De o nome desse item de Sair.
De um duplo clique nesse item.
Aparecerá a Paleta de Propriedade desse item do Menu.
Na opção Funcional no item Etiqueta está o nome que aparecerá no menu de
ferramentas. Para criar uma tecla de acesso no menu, basta colocar um &
atrás do item que você quer utilizar. Por exemplo no &Sair.
Na opção Código do item de menu escreva o comando exit_form;
Na opção Visível no menu escolha Sim.
Na opção Visível na Barra de Ferramentas do menu Horizontal escolha Sim.
Na opção Ícone no Menu escolha Não
Na opção Nome do Arquivo de Ícone escreva EXIT.
Salve o menu com o nome de MENUPRI e gera o executável do menu.
Para testar crie um Forms simples e nas propriedade do Módulo altere o
Módulo de Menu para menupri
Oracle Forms – Básico
3322 ..BBIIBBLLIIOOTTEECCAASS PPLL//SSQQLL
São bibliotecas de PL/SQL as quais podem ser reutilizadas em vários objetos, como
forms, reports, graphics ou outras bibliotecas.
Vamos criar uma biblioteca chamada curso a qual tenha uma PL/SQL chamada
titulo.
Nesta função montaremos em um campo de retorno o nome de sua empresa, a data
de hoje e qual usuário esta conectado.
Vamos atribuí-la ao forms SIF003 e no trigger WHEN-NEW-FORM-INSTANCE
utilize a sintaxe abaixo:
Declare
Novo_titulo varchar2(50);
Begin
Novo_titulo := titulo;
Set_window_property(‘minha_janela’,title,novo_titulo);
End;
3
3 3
3 .
. B
B I
I
B
B
L
L
I
I
O
O
T
T
E
E
C
C
A
A
S
S
D
D
E
E
O
O B
B
J
J
E
E
T
T
O
O
S
S
São bibliotecas de
objetos reutilizáveis, as quais
podem ser subdivididas em
pastas.
Oracle Forms – Básico
3
3 3
3 .
.Chamando outros Objetos
Para invocar outros componentes do Developer como por exemplo um Reports, um
graphics ou mesmo um outro Forms, podemos utilizar o comando RUN_PRODUCT.
Abaixo temos um exemplo de chamada de objeto utilizando RUN_PRODUCT:
DECLARE
pl_id ParamList;
BEGIN
pl_id := Get_Parameter_List('tmpdata');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
pl_id := Create_Parameter_List('tmpdata');
Add_Parameter(pl_id,'EMP_QUERY',DATA_PARAMETER,'EMP_RECS');
Add_Parameter(pl_id, 'PARAMFORM', TEXT_PARAMETER, 'NO');
Run_Product(REPORTS, 'empreport', SYNCHRONOUS, RUNTIME,
FILESYSTEM, pl_id, NULL);
END;
3344 ..AASSSSIISSTTEENNTTEE DDEE GGRRÁÁFFIICCOO
a. Você pode escolher o assistente de Gráfico pela Barra de Menu (Ferramentas -
Assistente de gráfico) ou pelo ícone de Assistente de gráfico.
b. Aparecera a primeira tela de apresentação
c. Informe o Titulo, escolha o tipo e subtipo do gráfico.
d. Selecione o bloco
e. Escolha o campo que será o eixo X
f. Escolha o campo que será o eixo Y
g. Escolha o nome do arquivo do gráfico e encerre o gráfico.
OBS : Para gráficos mais avançados utilize o Graphic Builder.
