ORACLE应用经验(1)

Jun 07, 2016 pm 06:02 PM

ORACLE应用经验(1)

正在看的ORACLE教程是:ORACLE应用经验(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)
********************************************************************
****************************常用设置********************************
---on-log 触发器编写示范
Declare
flag varchar2(80):=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 flagORACLE then
set_alert_property(a_1,alert_message_text,
登录失败,请返回重试);
n:=show_alert(a_1);
raise form_trigger_failure; --中断 FORM
End if;
End;
---对基表执行查询(只对基表)
Set_Block_Property(Block_Name,Default_Where,where ......);
Go_Block(Block_Name);
Execute_Query;
***************************************************
变量:
局部变量;
全局变量--------------1.:block.item
2.:parameter.v_name
3.:global.V_name

***************************************************
---同步发生显示
synchronize;
---实施TRIGGER触发
EXECUTE_TRIGGER(TRIGGER_NAME);
---清除模块
clear_block(NO_VALIDATE); NO_VALIDATE不生效
--建立警告栏并由警告栏选择
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设置
--运行时最大化,最小化
Set_Window_Property(FORMS_MDI_WINDOW, WINDOW_STATE, MAXIMIZE|MINIMIZE);
--WINDOW标题
Set_Window_Property(FORMS_MDI_WINDOW, title,TEXT);
--退出是否为真
Set_Window_Property(FORMS_MDI_WINDOW, REMOVE_ON_EXIT,PROPERTY_FALSE|TRUE);
---设置系统提示信息等级
:System.Message_Level:= 5|10|15|20;
---设置ITEM属性
--设置ITEM属性ENABLED
Set_Item_Property(Block_name.Item_name,ENABLED,PROPERTY_TRUE|FALSE);
--设置ITEM属性NAVIGABLE
Set_Item_Property(Block_name.Item_name,NAVIGABLE,PROPERTY_TRUE|FALSE);
--设置ITEM属性VISUAL_ATTRIBUTE
Set_Item_Property(Block_name.Item_name,visual_attribute,vname);
--vname由导航器中(VISUAL_ATTRIBUTES)定义
--设置ITEM属性DISPLAYED
Set_Item_Property(Block_name.Item_name,displayed,TRUE|FALSE);
--设置ITEM属性POSITION
Set_Item_Property(Block_name.Item_name,position,x,y);
--设置ITEM_SIZE
Set_Item_Property(Block_name.Item_name,item_size,x,y);
--设置ITEM属性LABLE
Set_Item_Property(Block_name.Item_name,LABEL,MESSAGE)
---设置LIST ITEM示范
Declare
n number;
Begin
clear_list(b1.fkfs);
m:=populate_group(fkfs);
populate_list(b1.fkfs,fkfs);
/*
其中FKFS 为 record group ;
*/
End;
---增加LIST ITEM
Add_List_Element(list_name, list_index, list_label, list_value);
Add_List_Element(list_id, list_index, list_label, list_value);
---删除LIST ITEM项
Delete_List_Element(list_name, list_index);
Delete_List_Element(list_id, list_index);
例:
BEGIN
Delete_List_Element(years,1);
Add_List_Element(years, 1, 1994, 1994);
END;
---获得LIST ITEM项的组成
1.获得LIST ITEM的总和
GET_LIST_ELEMENT_COUNT(list_id);
GET_LIST_ELEMENT_COUNT(list_name);
2.获得LIST ITEM的标签
GET_LIST_ELEMENT_LABEL(list_id, list_name, list_index);
GET_LIST_ELEMENT_LABEL(list_name, list_index);

3.获得LIST ITEM的值
GET_LIST_ELEMENT_VALUE(list_id, list_index);
GET_LIST_ELEMENT_VALUE(list_name, list_index);

---设置时间
DECLARE
timer_id Timer;
one

[1]

正在看的ORACLE教程是:ORACLE应用经验(1)。_minute NUMBER(5) := 60000;
BEGIN
timer_id := CREATE_TIMER(emp_timer, one_minute, REPEAT|NO_REPEAT);
END;
---产生一个EDITER框
DECLARE
ed_id Editor;
status BOOLEAN;
BEGIN
ed_id:=Find_Editor(edit_name); ---由edit_name导航器定义

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;
----产生一个LOV框
DECLARE
lv_id LOV;
status BOOLEAN;
BEGIN
lv_id := Find_LOV(lov_name); ---lov_name 由导航器定义
-- IF Id_Null(lv_id) THEN
-- lv_id := Find_LOV(lov_name1); ---lov_name1 由导航器定义
-- END IF;
status := Show_LOV(lv_id,10,20);
END;
---定义一个EXCEPTION例外
Declare
err_1 exception;
Begin
If ... then
Raise err-1;
End if;
Exception
When err_1 then
....
END;
---设置应用特性(光标类型)
SET_APPLICATION_PROPERTY(CURSOR_STYLE,
CROSSHAIR|BUSY|HELP|DEFAULT|INSERTION);

***********************************************************************
**********************************函数*********************************
---把字符串的字符变成全大写(UPPER)全小写(LOWER)第一个字母大写(INITCAP)
UPPER|LOWER|INITCAP(STRING)
---在文件的左(LPAD)右(RPAD)粘贴字符
LPAD|RPAD(STRING,LENGTH,SET) "LENGTH"为总字符长"SET"为粘贴字符
---在文件的左(LTRIM)右(RTRIM)删除字符
LTRIM|RTRIM(SRTING,SET) "SET"为待删除字符
---找出字符集在字符串中的位置
INSTR(STRING,SET,N,M) 从STRING中找出SET从N位起第M个
---数的绝对值
ABS(VALUE)
---MOD模
MOD(VALUE,除数) 返回除数除VALUE的余数常用判断VALUE是否为整数
---把VALUE从N位四舍五入ROUND 或从N位截断TRUNC
ROUND|TRUNC(VALUE,N)
---返回VALUE的符号
SIGN(VALUE)

---列表的最大值
GREATEST(N1,N1...);
列表的最小值
LEAST(N1,N1...);
---返回小于或等于数的最大整数
FLOOR(VALUE) floor(1.3)=1 floor(-1.3)=-2
---返回大于或等于数的最小整数
CEIL(VALUE) cell (1.3)=2 cell (-1.3)=-1

---取字符串长度
substr(string,start,number) number为string长度,start为string起点

---DECODE函数,多重(if,then,else)
decode(value,if1,then1,if2,then2,.....,else)
---判断VALUE是否为空(空值替换)
NVL(UALUE,WKFHZ) WKFHZ是为空返回值,不为空则为原值
---字段长度
length(:block_name.item_id)
---返回字符串的第一(最左)个字符的ascII值
ascII(string)
---多行VALUE的 (作用于多行)
AVG(VALUE)平均值
COUNT(VALUE)行数
MAX(VALUE)最大值
MIN(VALUE)最小值
SUM(VALUE)和
---字符转换
TRANSLATE(STRING,待转字符,转换字符);
如 TEANSLATE(AAABBB,AB,BA) 返回BBBAAA

---比较单行中多个列的值获得最大(GREATEST最小(LEAST)
GREATEST|LEAST(列名,列名,...)
---按表达式或位置排序
ORDER BY 表达式OR位置 ASC|DESC ASC升,DESC降 默认ASC
***********************************************************************
***********************************************************************
---游标的属性
(1) %ISOPEN 打开属性 布尔型 打开为TRUE
判断光标是否打开如未打开则打开光标
IF NOT(CORSOR_NAME%ISOPEN) THEN
OPEN CORSOR_NAME;
END IF;
FETCH CORSOR_NAME INTO ...
(2) %NOTFOUND 布尔型 最近一次FETCH返回无结果 则为TRUE
OPEN CORSOR_NAME;
LOOP
FETCH CORSOR_NAME INTO ...
EXIT WHEN CORSOR_NAEM%NOTFOUND;
END LOOP;
(3) %FOUND 布尔型 最近一次FETCH返回无结果 则为FALSE
OPEN CORSOR_NAME;

WHILE CORSOR_NAME%FOUND LOOP
......
FETCH CORSOR_NAME INTO ...
END LOOP;
CLOSE CORSOR_NAME;
(4) %ROWCOUNT NUMVER型 为游标取出的行数
OPEN CORSOR_NAME;
LOOP
FETCH CORSOR_NAME INTO ...
EXIT WHEN CORSOR_NAME%ROWCOUNT>5;
......
END LOOP;
CLOSE CORSOR_NAME;

---循环语句
(1)基本循环
LOOP
.....
EXIT WHILE; 如(EXIT WHEN X>100)
END LOOP;
(2)WHILE循环
WHILE 如( WHEN X>100) LOOP

[2]

正在看的ORACLE教程是:ORACLE应用经验(1)。 .....
END LOOP;
(3)数值型FOR循环 X为计数器
FOR X IN (第减值) Y..Z LOOP
.....
END LOOP;
(4)游标FOR循环


---Exception(例外)在最近的BEGIN和END之间
Exception
语法1 当没有数据找到时
when no_data_found then
语法2 当发生任何错误时
when others then
语法3 当发现多行时
WHEN TOO_MANY_ROWS THEN
语法4 当字符向数字转换失败时
WHEN INVALID_NUMBER THEN
语法5 当被零除时
WHEN ZERO_DIVIDE THEN
语法6 当向唯一索引中插入重复数据时
WHEN DUP_VAL_ON_INDEX THEN
语法7 当非法游标操作时
WHEN INVALID_CURSOR THEN
语法8 当数字的,数据转换,截字符串或强制性的错误时
WHEN VALUE_ERROR THEN
**************************************************************************
**************************************************************************
--常用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_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:\ll\login.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;
---清除全局变量
erase(global.var_name);
---隐藏WINDOW,VIEW,MENU
HIDE_WINDOW|VIEW|MENU(WINDOW|VIEW|MENU_name);
--- 增加参数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 from emp e
where e.rowid >
(select min(f.rowid) from emp f
4 where f.empno=e.empno);

[3]

본 웹사이트의 성명
본 글의 내용은 네티즌들의 자발적인 기여로 작성되었으며, 저작권은 원저작자에게 있습니다. 본 사이트는 이에 상응하는 법적 책임을 지지 않습니다. 표절이나 침해가 의심되는 콘텐츠를 발견한 경우 admin@php.cn으로 문의하세요.

핫 AI 도구

Undresser.AI Undress

Undresser.AI Undress

사실적인 누드 사진을 만들기 위한 AI 기반 앱

AI Clothes Remover

AI Clothes Remover

사진에서 옷을 제거하는 온라인 AI 도구입니다.

Undress AI Tool

Undress AI Tool

무료로 이미지를 벗다

Clothoff.io

Clothoff.io

AI 옷 제거제

AI Hentai Generator

AI Hentai Generator

AI Hentai를 무료로 생성하십시오.

뜨거운 도구

메모장++7.3.1

메모장++7.3.1

사용하기 쉬운 무료 코드 편집기

SublimeText3 중국어 버전

SublimeText3 중국어 버전

중국어 버전, 사용하기 매우 쉽습니다.

스튜디오 13.0.1 보내기

스튜디오 13.0.1 보내기

강력한 PHP 통합 개발 환경

드림위버 CS6

드림위버 CS6

시각적 웹 개발 도구

SublimeText3 Mac 버전

SublimeText3 Mac 버전

신 수준의 코드 편집 소프트웨어(SublimeText3)

Docker에서 MySQL 메모리 사용을 줄입니다 Docker에서 MySQL 메모리 사용을 줄입니다 Mar 04, 2025 pm 03:52 PM

이 기사는 Docker에서 MySQL 메모리 사용을 최적화합니다. 모니터링 기술 (Docker Stats, Performance Schema, 외부 도구) 및 구성 전략에 대해 설명합니다. 여기에는 Docker 메모리 제한, 스와핑 및 CGroups와 함께 포함됩니다

MySQL의 문제를 해결하는 방법 공유 라이브러리를 열 수 없습니다. MySQL의 문제를 해결하는 방법 공유 라이브러리를 열 수 없습니다. Mar 04, 2025 pm 04:01 PM

이 기사에서는 MySQL의 "공유 라이브러리를 열 수 없음"오류를 다룹니다. 이 문제는 MySQL이 필요한 공유 라이브러리 (.so/.dll 파일)를 찾을 수 없음에서 비롯됩니다. 솔루션은 시스템 패키지 M을 통한 라이브러리 설치 확인과 관련이 있습니다.

Alter Table 문을 사용하여 MySQL에서 테이블을 어떻게 변경합니까? Alter Table 문을 사용하여 MySQL에서 테이블을 어떻게 변경합니까? Mar 19, 2025 pm 03:51 PM

이 기사는 MySQL의 Alter Table 문을 사용하여 열 추가/드롭 테이블/열 변경 및 열 데이터 유형 변경을 포함하여 테이블을 수정하는 것에 대해 설명합니다.

Linux에서 MySQL을 실행합니다 (Phpmyadmin이있는 Podman 컨테이너가 포함되지 않음) Linux에서 MySQL을 실행합니다 (Phpmyadmin이있는 Podman 컨테이너가 포함되지 않음) Mar 04, 2025 pm 03:54 PM

이 기사는 Linux에 MySQL을 직접 설치하는 것과 Phpmyadmin이없는 Podman 컨테이너 사용을 비교합니다. 각 방법에 대한 설치 단계에 대해 자세히 설명하면서 Podman의 격리, 이식성 및 재현성의 장점을 강조하지만 또한

sqlite 란 무엇입니까? 포괄적 인 개요 sqlite 란 무엇입니까? 포괄적 인 개요 Mar 04, 2025 pm 03:55 PM

이 기사는 자체 포함 된 서버리스 관계형 데이터베이스 인 SQLITE에 대한 포괄적 인 개요를 제공합니다. SQLITE의 장점 (단순성, 이식성, 사용 용이성) 및 단점 (동시성 제한, 확장 성 문제)에 대해 자세히 설명합니다. 기음

MacOS에서 여러 MySQL 버전을 실행 : 단계별 가이드 MacOS에서 여러 MySQL 버전을 실행 : 단계별 가이드 Mar 04, 2025 pm 03:49 PM

이 안내서는 Homebrew를 사용하여 MacOS에 여러 MySQL 버전을 설치하고 관리하는 것을 보여줍니다. 홈 브루를 사용하여 설치를 분리하여 갈등을 방지하는 것을 강조합니다. 이 기사에는 설치, 서비스 시작/정지 서비스 및 Best Pra에 대해 자세히 설명합니다

MySQL 연결에 대한 SSL/TLS 암호화를 어떻게 구성합니까? MySQL 연결에 대한 SSL/TLS 암호화를 어떻게 구성합니까? Mar 18, 2025 pm 12:01 PM

기사는 인증서 생성 및 확인을 포함하여 MySQL에 대한 SSL/TLS 암호화 구성에 대해 설명합니다. 주요 문제는 자체 서명 인증서의 보안 영향을 사용하는 것입니다. [문자 수 : 159]

인기있는 MySQL GUI 도구는 무엇입니까 (예 : MySQL Workbench, Phpmyadmin)? 인기있는 MySQL GUI 도구는 무엇입니까 (예 : MySQL Workbench, Phpmyadmin)? Mar 21, 2025 pm 06:28 PM

기사는 MySQL Workbench 및 Phpmyadmin과 같은 인기있는 MySQL GUI 도구에 대해 논의하여 초보자 및 고급 사용자를위한 기능과 적합성을 비교합니다. [159 자].

See all articles