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)

InnoDB 전체 텍스트 검색 기능을 설명하십시오. InnoDB 전체 텍스트 검색 기능을 설명하십시오. Apr 02, 2025 pm 06:09 PM

InnoDB의 전체 텍스트 검색 기능은 매우 강력하여 데이터베이스 쿼리 효율성과 대량의 텍스트 데이터를 처리 할 수있는 능력을 크게 향상시킬 수 있습니다. 1) InnoDB는 기본 및 고급 검색 쿼리를 지원하는 역 색인화를 통해 전체 텍스트 검색을 구현합니다. 2) 매치 및 키워드를 사용하여 검색, 부울 모드 및 문구 검색을 지원합니다. 3) 최적화 방법에는 워드 세분화 기술 사용, 인덱스의 주기적 재건 및 캐시 크기 조정, 성능과 정확도를 향상시키는 것이 포함됩니다.

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

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

MySQL에서 인덱스를 사용하는 것보다 전체 테이블 스캔이 더 빠를 수 있습니까? MySQL에서 인덱스를 사용하는 것보다 전체 테이블 스캔이 더 빠를 수 있습니까? Apr 09, 2025 am 12:05 AM

전체 테이블 스캔은 MySQL에서 인덱스를 사용하는 것보다 빠를 수 있습니다. 특정 사례는 다음과 같습니다. 1) 데이터 볼륨은 작습니다. 2) 쿼리가 많은 양의 데이터를 반환 할 때; 3) 인덱스 열이 매우 선택적이지 않은 경우; 4) 복잡한 쿼리시. 쿼리 계획을 분석하고 인덱스 최적화, 과도한 인덱스를 피하고 정기적으로 테이블을 유지 관리하면 실제 응용 프로그램에서 최상의 선택을 할 수 있습니다.

Windows 7에 MySQL을 설치할 수 있습니까? Windows 7에 MySQL을 설치할 수 있습니까? Apr 08, 2025 pm 03:21 PM

예, MySQL은 Windows 7에 설치 될 수 있으며 Microsoft는 Windows 7 지원을 중단했지만 MySQL은 여전히 ​​호환됩니다. 그러나 설치 프로세스 중에 다음 지점이 표시되어야합니다. Windows 용 MySQL 설치 프로그램을 다운로드하십시오. MySQL의 적절한 버전 (커뮤니티 또는 기업)을 선택하십시오. 설치 프로세스 중에 적절한 설치 디렉토리 및 문자를 선택하십시오. 루트 사용자 비밀번호를 설정하고 올바르게 유지하십시오. 테스트를 위해 데이터베이스에 연결하십시오. Windows 7의 호환성 및 보안 문제에 주목하고 지원되는 운영 체제로 업그레이드하는 것이 좋습니다.

InnoDB에서 클러스터 된 인덱스와 비 클러스터 된 인덱스 (2 차 지수)의 차이. InnoDB에서 클러스터 된 인덱스와 비 클러스터 된 인덱스 (2 차 지수)의 차이. Apr 02, 2025 pm 06:25 PM

클러스터 인덱스와 비 클러스터 인덱스의 차이점은 1. 클러스터 된 인덱스는 인덱스 구조에 데이터 행을 저장하며, 이는 기본 키 및 범위별로 쿼리에 적합합니다. 2. 클러스터되지 않은 인덱스는 인덱스 키 값과 포인터를 데이터 행으로 저장하며 비 예산 키 열 쿼리에 적합합니다.

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

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

MySQL에서 큰 데이터 세트를 어떻게 처리합니까? MySQL에서 큰 데이터 세트를 어떻게 처리합니까? Mar 21, 2025 pm 12:15 PM

기사는 MySQL에서 파티셔닝, 샤딩, 인덱싱 및 쿼리 최적화를 포함하여 대규모 데이터 세트를 처리하기위한 전략에 대해 설명합니다.

드롭 테이블 문을 사용하여 MySQL에서 테이블을 어떻게 드롭합니까? 드롭 테이블 문을 사용하여 MySQL에서 테이블을 어떻게 드롭합니까? Mar 19, 2025 pm 03:52 PM

이 기사에서는 Drop Table 문을 사용하여 MySQL에서 테이블을 떨어 뜨리는 것에 대해 설명하여 예방 조치와 위험을 강조합니다. 백업 없이는 행동이 돌이킬 수 없으며 복구 방법 및 잠재적 생산 환경 위험을 상세하게합니다.

See all articles