Oracle資料庫---PLSQL

来源:https://www.cnblogs.com/xiaomifeng1010/archive/2019/07/02/11111978.html
-Advertisement-
Play Games

SET SERVEROUTPUT ONBEGIN --列印輸出 DBMS_OUTPUT.PUT_LINE('hello everyone!');END; DECLARE v_name VARCHAR2(10); v_sal NUMBER(7,2); v_hiredate DATE; c_tax_ra ...


SET SERVEROUTPUT ON
BEGIN
--列印輸出
DBMS_OUTPUT.PUT_LINE('hello everyone!');
END;

DECLARE
v_name VARCHAR2(10);
v_sal NUMBER(7,2);
v_hiredate DATE;
c_tax_rate CONSTANT NUMBER(3,2) := 0.02;
v_tax_sal NUMBER(7,2);
v_valid BOOLEAN DEFAULT TRUE;
BEGIN
SELECT ename,sal,hiredate
INTO v_name,v_sal,v_hiredate
FROM emp
WHERE empno = 7369;
--計算所得稅
v_tax_sal:= v_sal * c_tax_rate;
--列印輸出
DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 雇員日期是：' || v_hiredate|| ' 所得稅是：' || v_tax_sal);
IF v_valid THEN
DBMS_OUTPUT.PUT_LINE('已核實');
END IF;
END;

--引用型變數
DECLARE
v_name emp.ename%TYPE;
v_sal emp.sal%TYPE;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM emp
WHERE empno = 7788;
--列印輸出
DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal);
END;

--記錄型變數
DECLARE
emp_record emp%ROWTYPE;
BEGIN
SELECT * INTO emp_record FROM emp WHERE empno = 7788;
--列印輸出
DBMS_OUTPUT.PUT_LINE(emp_record.ename||'的工資是：'||emp_record.sal);
END;

--算術運算符
DECLARE
v_num1 NUMBER(3):=10;
v_num2 NUMBER(3):=2;
BEGIN
DBMS_OUTPUT.PUT_LINE(v_num1+v_num2);
DBMS_OUTPUT.PUT_LINE(v_num1-v_num2);
DBMS_OUTPUT.PUT_LINE(v_num1*v_num2);
DBMS_OUTPUT.PUT_LINE(v_num1/v_num2);
DBMS_OUTPUT.PUT_LINE(v_num1**v_num2);
END;

--關係運算符
DECLARE
v_num1 NUMBER(2) := &n1;
v_num2 NUMBER(2) := &n2;
BEGIN
IF (v_num1 = v_num2) THEN
DBMS_OUTPUT.PUT_LINE('num1等於num2');
ELSIF(v_num1 < v_num2) THEN
DBMS_OUTPUT.PUT_LINE('num1小於num2');
ELSIF(v_num1 > v_num2) THEN
DBMS_OUTPUT.PUT_LINE('num1大於num2');
END IF;

IF (v_num1 <> v_num2) THEN
DBMS_OUTPUT.PUT_LINE('num1不等於num2');
END IF;
END;

--比較運算符
DECLARE
--&n1是替代變數，在執行程式時會提示輸入值
v_num1 NUMBER(2):= &n1;
BEGIN
IF(v_num1 BETWEEN 5 AND 10 )THEN
DBMS_OUTPUT.PUT_LINE('num1在5到10之間');
ELSE
DBMS_OUTPUT.PUT_LINE('num1不在5到10之間');
END IF;

IF(v_num1 IN(3,8,10) )THEN
DBMS_OUTPUT.PUT_LINE('num1等於3,8,10中的一個值');
ELSE
DBMS_OUTPUT.PUT_LINE('num1不等於3,8,10中的一個值');
END IF;

IF(v_num1 IS NULL)THEN
DBMS_OUTPUT.PUT_LINE('num1為空');
ELSE
DBMS_OUTPUT.PUT_LINE('num1不為空');
END IF;
END;

--邏輯運算符
DECLARE
v_b1 BOOLEAN := &n1;
v_b2 BOOLEAN := &n2;
BEGIN
IF(v_b1 AND v_b2)THEN
DBMS_OUTPUT.PUT_LINE('AND--TRUE');
END IF;

IF(v_b1 OR v_b2)THEN
DBMS_OUTPUT.PUT_LINE('OR--TRUE');
END IF;

IF(NOT v_b1)THEN
DBMS_OUTPUT.PUT_LINE('v_b1取反為TRUE');
END IF;
END;

--輸入員工號，判斷員工工資, 顯示工資小於3000的員工姓名及工資。
--簡單的IF語句
DECLARE
v_name emp.ename%TYPE;
v_sal emp.sal%TYPE;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM emp
WHERE empno = &no;
IF v_sal <3000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal);
END IF;
END;


SELECT * FROM emp;

--輸入員工號，判斷員工工資,將工資小於3000的員工工資漲200，並顯示漲工資的員工姓名，其他員工顯示員工姓名及工資。
--二重分支語句
DECLARE
v_name empnew.ename%TYPE;
v_sal empnew.sal%TYPE;
v_empno empnew.empno%TYPE := &no;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM empnew
WHERE empno = v_empno;
IF v_sal <3000 THEN
UPDATE empnew set sal = sal + 200 where empno = v_empno;
COMMIT;
DBMS_OUTPUT.put_line(v_name||'漲工資了');
ELSE
DBMS_OUTPUT.put_line(v_name||'的工資是：'||v_sal);
END IF;
END;

select * from empnew;


--輸入員工號，判斷員工工資, 工資小於2000，顯示低收入，工資小於6000，顯示中等收入，其它顯示高收入。
--多重分支語句
DECLARE
v_name empnew.ename%TYPE;
v_sal empnew.sal%TYPE;

BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM empnew
WHERE empno = &no;
IF v_sal<2000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於低收入');
ELSIF v_sal<6000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於中等收入');
ELSE
DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於高收入');
END IF;
END;

/*
--輸入員工號，判斷員工工資, 顯示工資小於3000的員工姓名及工資。
--簡單的IF語句
DECLARE
v_name emp.ename%TYPE;
v_sal emp.sal%TYPE;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM emp
WHERE empno = &no;
IF v_sal <3000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal);
END IF;
END;


SELECT * FROM emp;

--輸入員工號，判斷員工工資,將工資小於3000的員工工資漲200，並顯示漲工資的員工姓名，其他員工顯示員工姓名及工資。
--二重分支語句
DECLARE
v_name empnew.ename%TYPE;
v_sal empnew.sal%TYPE;
v_empno empnew.empno%TYPE := &no;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM empnew
WHERE empno = v_empno;
IF v_sal <3000 THEN
UPDATE empnew set sal = sal + 200 where empno = v_empno;
COMMIT;
DBMS_OUTPUT.put_line(v_name||'漲工資了');
ELSE
DBMS_OUTPUT.put_line(v_name||'的工資是：'||v_sal);
END IF;
END;

select * from empnew;


--輸入員工號，判斷員工工資, 工資小於2000，顯示低收入，工資小於6000，顯示中等收入，其它顯示高收入。
--多重分支語句
DECLARE
v_name empnew.ename%TYPE;
v_sal empnew.sal%TYPE;

BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM empnew
WHERE empno = &no;
IF v_sal<2000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於低收入');
ELSIF v_sal<6000 THEN
DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於中等收入');
ELSE
DBMS_OUTPUT.PUT_LINE(v_name||'的工資是：'||v_sal||' 屬於高收入');
END IF;
END;
*/

--輸入成級等級，判斷屬於哪個層次，並列印輸出
--CASE 等值比較
DECLARE
v_grade char(1) := '&no';
BEGIN
CASE v_grade
WHEN 'A' THEN
DBMS_OUTPUT.PUT_LINE('優秀');
WHEN 'B' THEN
DBMS_OUTPUT.PUT_LINE('中等');
WHEN 'C' THEN
DBMS_OUTPUT.PUT_LINE('一般');
ELSE
DBMS_OUTPUT.PUT_LINE('輸入有誤');
END CASE;
END;

--輸入員工號，獲取員工工資，判斷工資，如果工資小於1500，補助加100，如果工資小於2500，補助加80，如果工資小於5000，補助加50.
--CASE 非等值比較
DECLARE
v_sal empnew.sal%TYPE;
v_empno empnew.empno%TYPE := &no;
BEGIN
SELECT sal
INTO v_sal
FROM empnew
WHERE empno = &no;
CASE
WHEN v_sal<1500 THEN
UPDATE empnew set comm = nvl(comm,0)+100 WHERE empno = v_empno;
WHEN v_sal<2500 THEN
UPDATE empnew set comm = nvl(comm,0)+80 WHERE empno = v_empno;
WHEN v_sal<5000 THEN
UPDATE empnew set comm = nvl(comm,0)+50 WHERE empno = v_empno;
--COMMIT;
END CASE;
END;

select * from empnew;

--基本迴圈
DECLARE
v_cnt INT :=1;
BEGIN
LOOP
DBMS_OUTPUT.PUT_LINE(v_cnt);
EXIT WHEN v_cnt = 10;
v_cnt := v_cnt+1;
END LOOP;
END;

--while迴圈
DECLARE
v_cnt INT :=1;
BEGIN
WHILE v_cnt<=10 LOOP
DBMS_OUTPUT.PUT_LINE(v_cnt);
v_cnt := v_cnt+1;
END LOOP;
END;

--for迴圈
BEGIN
FOR i IN REVERSE 1..10 LOOP
DBMS_OUTPUT.PUT_LINE(i);
END LOOP;
END;

--嵌套迴圈
DECLARE
v_result INT;
BEGIN
<<outter>>
FOR i IN 1..5 LOOP
<<inter>>
FOR j IN 1..5 LOOP
v_result:=i;
EXIT outter WHEN i=4;
END LOOP inter;
DBMS_OUTPUT.PUT_LINE('內'||v_result);
END LOOP outter;
DBMS_OUTPUT.PUT_LINE('外'||v_result);
END;

--CONTINUE
DECLARE
v_cnt INT :=0;
BEGIN
LOOP
v_cnt := v_cnt+1;
CONTINUE WHEN v_cnt = 5;
DBMS_OUTPUT.PUT_LINE(v_cnt);
EXIT WHEN v_cnt = 10;
END LOOP;
END;

--GOTO語句
DECLARE
v_cnt INT := 1;
BEGIN
LOOP
DBMS_OUTPUT.PUT_LINE(v_cnt);
IF v_cnt=10 THEN
--EXIT;
GOTO end_loop;
END IF;
v_cnt := v_cnt + 1;
END LOOP;
<<end_loop>>
DBMS_OUTPUT.PUT_LINE('迴圈結束');
END;

--NULL語句
DECLARE
v_sal empnew.sal%TYPE;
v_name empnew.ename%TYPE;
BEGIN
SELECT ename,sal
INTO v_name,v_sal
FROM empnew
WHERE empno = &no;
IF v_sal<3000 THEN
UPDATE empnew set comm = nvl(comm,0)+sal*0.2 WHERE ename=v_name;
COMMIT;
DBMS_OUTPUT.PUT_LINE(v_name||'的獎金更新了');
ELSE
NULL;
END IF;
END;

select * from empnew;

 


您的分享是我們最大的動力!

-Advertisement-
Play Games
更多相關文章
  • Xshell 6.0
    鏈接：https://pan.baidu.com/s/1lnL3T8tc3ps2dp1zah1ZEA提取碼：wo5y Xshell 是一款強大的 SSH 客戶端 ，支持多種遠程協議，提供了很多功能與高級性能，中文界面也讓你輕鬆管理遠程伺服器。Xshell Plus 綠色版由NoCmd發佈！ Xshe ...
  • tcpdump使用
    本文轉自： http://www.cnblogs.com/ggjucheng/archive/2012/01/14/2322659.html https://www.cnblogs.com/Jtianlin/p/4330723.html 簡介 用簡單的話來定義tcpdump，就是：dump the ...
  • 線程池-連接池-JDBC實例-JDBC連接池技術
    線程池和連接池 線程池的原理: 來看一下線程池究竟是怎麼一回事？其實線程池的原理很簡單，類似於操作系統中的緩衝區的概念，它的流程如下：先啟動若幹數量的線程，並讓這些線程都處於睡眠狀態，當客戶端有一個新請求時，就會喚醒線程池中的某一個睡眠線程，讓它來處理客戶端的這個請求，當處理完這個請求後，線程又處於 ...
  • 初級模擬電路：3-2 BJT的工作原理
    回到目錄 和前面介紹二極體的PN結的工作原理一樣，BJT的量子級工作機制也非常複雜，一般教科書上為了幫助學習者能快速理解，也都是用一種簡化模型的方法來介紹BJT的工作機理，一般只需大致瞭解即可。只要記住關鍵的一點：BJT本質上是一種流控電流源（CCCS）。它可以用一個較小的基極電流控制一個較大的集電 ...
  • 附006.Kubernetes RBAC授權
    一 RBAC 1.1 RBAC授權 基於角色的訪問控制（RBAC）是一種基於個人用戶的角色來管理對電腦或網路資源的訪問的方法。 RBAC使用rbac.authorization.k8s.io API組來推動授權決策，允許管理員通過Kubernetes API動態配置策略。 使用--authoriz ...
  • 操作系統間史-多道技術
    多進程的實現原理 多道技術 操作系統介紹 下圖是操作系統在整個電腦中所在的位置： 位於應用軟體和硬體設備之間，本質上也是一個軟體， 由系統內核(管理所有硬體資源)與系統介面(提供給程式員使用的介面)組成 操作系統是為方便用戶操作電腦而提供的一個運行在硬體之上的軟體 操作系統的兩個核心作用 1.為 ...
  • Red Hat 4.4.7-4上安裝glances填大大大坑實錄，我的內心是崩潰的！！！
    今天的任務是在公司的一臺壓力測試機上安裝一個性能監控工具：glances 因為以前我已經多次安裝和使用這個工具，我大意的以為整個過程是這樣的： 分分鐘搞定完事 然而 我們公司的伺服器版本實在是太老了，於是我就在今天早晨踏上了不歸路 yum install epel-release -y yum in ...
  • Linux學習之旅(一)Linux常用命令
    pwd命令 顯示當前所在的目錄 pwd命令 顯示當前所在的目錄 ls命令 顯示目錄下的子目錄和文件 ls　顯示當前目錄下的子目錄和文件 ls命令 顯示目錄下的子目錄和文件 ls　顯示當前目錄下的子目錄和文件 ls -a　顯示當前目錄下的所以子目錄和文件(包括隱藏文件和文件夾) ls -a　顯示當前目 ...
一周排行
    -Advertisement-
    Play Games
  • 移動開發（一）：使用.NET MAUI開發第一個安卓APP
    移動開發（一）：使用.NET MAUI開發第一個安卓APP 對於工作多年的C#程式員來說，近來想嘗試開發一款安卓APP，考慮了很久最終選擇使用.NET MAUI這個微軟官方的框架來嘗試體驗開發安卓APP，畢竟是使用Visual Studio開發工具，使用起來也比較的順手，結合微軟官方的教程進行了安卓 ...
  • wpf ToggleButton選中效果和一個登錄界面
    前言 QuestPDF 是一個開源 .NET 庫，用於生成 PDF 文檔。使用了C# Fluent API方式可簡化開發、減少錯誤並提高工作效率。利用它可以輕鬆生成 PDF 報告、發票、導出文件等。 項目介紹 QuestPDF 是一個革命性的開源 .NET 庫，它徹底改變了我們生成 PDF 文檔的方 ...
  • 彈幕樹洞項目功能新增篇
    項目地址 項目後端地址： https://github.com/ZyPLJ/ZYTteeHole 項目前端頁面地址： ZyPLJ/TreeHoleVue (github.com) https://github.com/ZyPLJ/TreeHoleVue 目前項目測試訪問地址： http://tree ...
  • 第27篇 sqlserver2022詳細安裝步驟
    話不多說，直接開乾 一.下載 1.官方鏈接下載： https://www.microsoft.com/zh-cn/sql-server/sql-server-downloads 2.在下載目錄中找到下麵這個小的安裝包 SQL2022-SSEI-Dev.exe，運行開始下載SQL server； 二. ...
  • .NET 開源高性能 MQTT 類庫
    前言 隨著物聯網（IoT）技術的迅猛發展，MQTT（消息隊列遙測傳輸）協議憑藉其輕量級和高效性，已成為眾多物聯網應用的首選通信標準。 MQTTnet 作為一個高性能的 .NET 開源庫，為 .NET 平臺上的 MQTT 客戶端與伺服器開發提供了強大的支持。 本文將全面介紹 MQTTnet 的核心功能 ...
  • Serilog文檔翻譯系列（六） - 可用的接收器、增強器、格式化輸出
    Serilog支持多種接收器用於日誌存儲，增強器用於添加屬性，LogContext管理動態屬性，支持多種輸出格式包括純文本、JSON及ExpressionTemplate。還提供了自定義格式化選項，適用於不同需求。 ...
  • 警惕 Visual Studio 屬性求值副作用導致邏輯不符合預期
    目錄簡介獲取 HTML 文檔解析 HTML 文檔測試參考文章 簡介 動態內容網站使用 JavaScript 腳本動態檢索和渲染數據，爬取信息時需要模擬瀏覽器行為，否則獲取到的源碼基本是空的。 本文使用的爬取步驟如下： 使用 Selenium 獲取渲染後的 HTML 文檔 使用 HtmlAgility ...
  • [使用目前最新版]HybridCLR6.9.0+YooAsset2.2.4實現純C# Unity熱更新方案 (一)
    1.前言 什麼是熱更新 游戲或者軟體更新時，無需重新下載客戶端進行安裝，而是在應用程式啟動的情況下，在內部進行資源或者代碼更新 Unity目前常用熱更新解決方案 HybridCLR，Xlua，ILRuntime等 Unity目前常用資源管理解決方案 AssetBundles，Addressable， ...
  • 在 ASP.NET Core Web API 中使用操作篩選器統一處理通用操作
    本文章主要是在C# ASP.NET Core Web API框架實現向手機發送驗證碼簡訊功能。這裡我選擇是一個互億無線簡訊驗證碼平臺，其實像阿裡雲，騰訊雲上面也可以。 首先我們先去 互億無線 https://www.ihuyi.com/api/sms.html 去註冊一個賬號 註冊完成賬號後，它會送 ...
  • 第28篇 如何.net中實現高效可靠數據同步api
    通過以下方式可以高效，並保證數據同步的可靠性 1.API設計 使用RESTful設計，確保API端點明確，並使用適當的HTTP方法（如POST用於創建，PUT用於更新）。 設計清晰的請求和響應模型，以確保客戶端能夠理解預期格式。 2.數據驗證 在伺服器端進行嚴格的數據驗證，確保接收到的數據符合預期格 ...
所有分類