The Oracle tutorial you are looking at is: Oracle Application Experience (1). JAN-1 (January) FEB-2 (February) MAR-3 (March)
APR-4 (April) MAY-5 (May) JUN-6 (June)
JUL-7 (July) AUG-8 (August) SEP-9 (September)
OCT-10 (October) NOV-11 (November) DEC-12 (December)
********************************************************************
Common Settings ********************************
---on-log Trigger writing Demo
Declare
Flag varchar2: =null;
Cou number:=1;
n number;
Begin
Loop
Logon (username,password| | ' @'|| Connect,property_false ...);
Flag:=get_application_property (DATASOURCE);
Exit when cou>8 or flag= ' ORACLE ';
cou:=cou+1;
End Loop;
If flag<> ' ORACLE ' then
Set_alert_property (' a_1 ', Alert_message_text,
' Login failed, please return to retry ');
N:=show_alert (' a_1 ');
Raise Form_trigger_failure; --Break FORM
End If;
End;
---Execute a query against the base table (base tables only)
Set_block_property (' Block_name ', Default_where, ' Where ... ');
Go_block (' Block_name ');
Execute_query;
***************************************************
Variable:
local variables;
Global variable--------------1.:block.item
2.:p Arameter.v_name
3.:global. V_name
***************************************************
---sync occurrence display
Synchronize
---implement ' TRIGGER ' trigger
Execute_trigger (trigger_name);
---clear module
Clear_block (no_validate); ' No_validate ' does not take effect
--Creates a warning bar and is selected by the warning bar
Declare
n number;
Begin
Set_alert_property (' Alert_name ', alert_message_text, ' message ');
N:=show_alert (' Alert_name ');
If N=alert_button1 Then
...;
Elsif N=alert_button2 Then
...;
End If;
End;
---window settings
--Maximize running time, minimize
Set_window_property (Forms_mdi_window, Window_state, maximize| MINIMIZE);
--window Title
Set_window_property (Forms_mdi_window, title, ' TEXT ');
-whether the exit is true
Set_window_property (Forms_mdi_window, remove_on_exit,property_false| TRUE);
---Set the system hint information level
: system.message_level:= ' 5|10|15|20 ';
---Set Item property
--Set Item property enabled
Set_item_property (' Block_name. Item_name ', enabled,property_true| FALSE);
--Set Item property navigable
Set_item_property (' Block_name. Item_name ', navigable,property_true| FALSE);
--Set Item property Visual_attribute
Set_item_property (' Block_name. Item_name ', Visual_attribute, ' vname ');
--' vname ' is defined by the Navigator (visual_attributes)
--Set Item property displayed
Set_item_property (' Block_name. Item_name ', displayed,true| FALSE);
--Set Item property position
Set_item_property (' Block_name. Item_name ', position,x,y);
--Set Item_size
Set_item_property (' Block_name. Item_name ', item_size,x,y);
--Set Item property lable
Set_item_property (' Block_name. Item_name ', LABEL, ' message ')
---set list item demo
Declare
&nbs
[1] [2] [3] [4] [5] Next page
The Oracle tutorial you are looking at is: Oracle Application Experience (1). P n number;
Begin
Clear_list (' B1.fkfs ');
M:=populate_group (' Fkfs ');
Populate_list (' B1.fkfs ', ' fkfs ');
/*
Where Fkfs is the record group;
*/
End;
---add ' LIST ITEM '
Add_list_element (List_name, List_index, List_label, List_value);
Add_list_element (list_id, List_index, List_label, List_value);
---Delete the ' LIST item ' item
Delete_list_element (List_name, List_index);
Delete_list_element (list_id, List_index);
Cases:
BEGIN
Delete_list_element (' Years ', 1);
Add_list_element (' Years ', 1, ' 1994 ', ' 1994 ');
End;
---Get the ' LIST item ' component
1. Get the sum of ' LIST ITEM '
Get_list_element_count (list_id);
Get_list_element_count (List_name);
2. Get the ' LIST ITEM ' label
Get_list_element_label (list_id, List_name, List_index);
Get_list_element_label (List_name, List_index);
3. Get the value of ' LIST ITEM '
Get_list_element_value (list_id, List_index);
Get_list_element_value (List_name, List_index);
---setting ' time '
DECLARE
TIMER_ID Timer;
One_minute Number (5): = 60000;
BEGIN
timer_id: = Create_timer (' Emp_timer ', One_minute, repeat|no_repeat);
End;
---produce a ' editer ' box
DECLARE
ED_ID Editor;
Status BOOLEAN;
BEGIN
Ed_id:=find_editor (' Edit_name '); ---defined by the ' Edit_name ' Navigator
IF not Id_null (ed_id) THEN
Show_editor (ed_id, NULL,: Block_name.item_name, status);
ELSE
Message (' Editor ' happy_edit_window ' not found ');
RAISE form_trigger_failure;
End IF;
End;
----produce a ' LOV ' box
DECLARE
LV_ID LOV;
Status BOOLEAN;
BEGIN
lv_id: = Find_lov (' Lov_name '); ---' lov_name ' is defined by the Navigator
--IF Id_null (lv_id) THEN
-LV_ID: = Find_lov (' lov_name1 '); ---' lov_name1 ' is defined by the Navigator
--End IF;
Status: = Show_lov (lv_id,10,20);
End;
---Define a ' EXCEPTION ' exception
Declare
Err_1 exception;
Begin
If ... then
Raise err-1;
End If;
Exception
When Err_1 Then
....
End;
---settings apply attributes (cursor type)
Set_application_property (Cursor_style,
' Crosshair ' | BUSY ' | ' Help ' | ' DEFAULT ' | ' Insertion ');
***********************************************************************
function *********************************
---to turn the character of a string into all uppercase (UPPER) all lowercase (LOWER) The first letter of uppercase (INITCAP)
upper| lower| Initcap (STRING)
---paste characters on the left (' Lpad ') Right (' Rpad ') of the file
lpad| Rpad (String,length, ' Set ') "LENGTH" is the total character "set" for the pasted character
---Delete characters on the left (' LTRIM ') Right (' RTRIM ') of the file
ltrim| RTRIM (srting, ' Set ') ' Set ' for deleted characters
---Find the position of ' character set ' in the string
INSTR (' String ', ' Set ', n,m) from ' string ' to find ' SET ' from ' N ' bit to ' M '
Absolute value of---number
ABS (VALUE)
---' MOD ' mode
MOD (VALUE, divisor) returns ' divisor ' except ' value '
prev [1] [2] [3] [4] [5] Next page
The Oracle tutorial you are looking at is: Oracle Application Experience (1). ' The remainder is often used to determine whether ' VALUE ' is an integer
---Rounding ' VALUE ' from ' n ' bit ' ROUND ' or truncating ' TRUNC ' from ' n ' bit
round| TRUNC (Value,n)
---return the symbol ' VALUE '
SIGN (VALUE)
---The maximum value of a list
Greatest (n1,n1 ...);
Minimum value for list
Least (N1,n1 ...);
---Returns the largest integer less than or equal to the number
FLOOR (VALUE) FLOOR (1.3) =1 FLOOR (-1.3) =-2
---Returns the smallest integer greater than or equal to the number
Ceil (VALUE) cell (1.3) =2 cell (-1.3) =-1
---fetch string length
SUBSTR (string,start,number) number is string length, start is string start
---decode function, multiple (if,then,else)
Decode (value,if1,then1,if2,then2,....., else)
---Determine if ' value ' is empty (null value substitution)
NVL (Ualue, ' wkfhz ') ' wkfhz ' is null return value, NOT NULL is the original value
---field length
Length (: block_name.item_id)
---Returns the ASCII value of the first (leftmost) character of a string
AscII (String)
---Multiple lines of ' VALUE ' (acting on multiple ' lines ')
AVG (value) average
Count (VALUE) Number of rows
Max (value) max
Min (value) minimum
SUM (VALUE) and
---character conversion
TRANSLATE (STRING, ' pending characters ', ' convert character ');
such as Teanslate (' aaabbb ', ' AB ', ' BA ') return to ' BBBAAA '
---to compare the values of multiple columns in a single row to get the maximum (' greatest ' minimum (' least ')
Greatest| Least (column name, column name,...)
---Sort by expression or position
Order BY ' expression ' OR ' position ' asc| DESC ASC ' l ', DESC ' drop ' default ' ASC '
***********************************************************************
***********************************************************************
---the properties of a cursor
(1)%isopen Open attribute Boolean open to True
To determine if the ' cursor ' is turned on and open ' cursor ' if not open
IF not (Corsor_name%isopen) THEN
OPEN Corsor_name;
End IF;
FETCH corsor_name into ...
(2) The most recent ' FETCH ' of%notfound Boolean returns no result is true
OPEN Corsor_name;
LOOP
FETCH corsor_name into ...
EXIT when Corsor_naem%notfound;
End LOOP;
(3)%found Boolean last ' FETCH ' returns no results false
OPEN Corsor_name;
While Corsor_name%found loop
......
FETCH corsor_name into ...
End LOOP;
Close Corsor_name;
(4) Number of rows taken by the%rowcount numver type for the cursor
OPEN Corsor_name;
LOOP
FETCH corsor_name into ...
EXIT when corsor_name%rowcount>5;
......
End LOOP;
Close Corsor_name;
---loop statement
(1) Basic cycle
LOOP
.....
EXIT while; For example (EXIT when x>100)
End LOOP;
(2) While loop
While like (when x>100) loop
.....
prev [1] [2] [3] [4] [5] Next page
The Oracle tutorial you are looking at is: Oracle Application Experience (1).; End LOOP;
(3) numeric for loop ' X ' as counter
For X in (value minus) Y.. Z LOOP
.....
End LOOP;
(4) Cursor for loop
---Exception (exception) between the nearest ' BEGIN ' and ' End '
Exception
Syntax 1 when ' no data found '
When No_data_found Then
Syntax 2 when ' any error occurs '
When others then
Syntax 3 when ' discovering multiple lines '
When Too_many_rows THEN
Syntax 4 when ' character to number conversion failed '
When Invalid_number THEN
Syntax 5 when ' 0 is removed '
When Zero_divide THEN
Syntax 6 when ' inserting duplicate data into a unique index '
When Dup_val_on_index THEN
Syntax 7 when ' illegal cursor operation '
When Invalid_cursor THEN
Syntax 8 when ' digital, data conversion, truncated string or mandatory error '
When Value_error THEN
**************************************************************************
**************************************************************************
--Common Text_io
Delcare
Out_file Text_io.file_type;
Begin
Out_file:=text_io.fopen (' PRN ', ' W ');
Text_io.new_line (Out_file, "");
Text_io.put_line (Out_file, "")
Text_io.fclose (Out_file);
End;
---text input and output
Text_io
Text_io PACKAGE
Text_io FCLOSE
Text_io. File_type
Text_io. FOPEN
Text_io.is_open
Text_io. Get_line
Text_io. New_line
Text_io. Put
Text_io. Putf
Text_io. Put_Line
USING Text_io Constructs
----------------------------
Declare
Out_file Text_io.file_type;
L Varchar2 (100);
L1 Varchar2 (100);
L2 Varchar2 (100);
Begin
Out_file: =text_io.fopen (' C:lllogin.txt ', ' R ');
If Text_io.is_open (Out_file) Then
Text_io.get_line (out_file,l);
Text_io.get_line (OUT_FILE,L1);
Text_io.get_line (OUT_FILE,L2);
Else
Null;
End If;
End;
---clear global variables
Erase (' global.var_name ');
---hide ' WINDOW ', ' VIEW ', ' MENU '
hide_window| view| MENU (window| view| Menu_name);
---add parameter add_parameter
Declare
PL_ID paramlist;
BEGIN
Pl_id:=get_parameter_list (' TempData ');
IF not Id_null (pl_id) THEN
Destroy_parameter_list (pl_id);
End IF;
Pl_id:=create_parameter_list (' TempData ');
Add_parameter (pl_id, ' emp_query ', Data_parameter, ' emp_recs ');
Run_product (REPORTS, ' Empreport ', Synchronous,runtime,
Filesystem,pl_id,null);
End;
---
DECLARE
Largs OLE2. List_type;
BEGIN
Word.happ:=ole2. Create_obj (' Word.Basic ');
Largs:=ole2. Create_arglist;
OLE2. Add_arg (Largs,:ole.word_doc);
OLE2. INVOKE (Word.happ, ' FileOpen ', Largs);
OLE2. Destroy_arglist (Largs);
End;
Delete duplicate records **************
Delete from EMP E
where E.rowid >
prev [1] [2] [3] [4] [5] Next page
The Oracle tutorial you are looking at is: Oracle Application Experience (1).; (select min (f.rowid) from EMP F
4 where f.empno=e.empno);
prev [1] [2] [3] [4] [5]
