sql习题五--简单plsql

1、写一个plsql计算正方形的面积
SQL> declare
   2  a number ;
   3  s number;
   4  begin
   5  a:=&a;
   6  s:=a*a;
   7  dbms_output.put_line(a||'Square area is'||s);
   8  end;
   9  /
Enter value for a: 5
old   5: a:=&a;
new   5: a:=5;
5Square area is25

2.显示10部门的名字
SQL> declare
  2  vdname varchar2(30);
  3  begin
  4  select dname into vdname from dept where deptno=10;
  5  dbms_output.put_line(vdname);
 6  end;
  7  /
ACCOUNTING
 

3.显示7566员工的姓名,薪水(使用%type,record方式)
SQL> l
  1  declare
  2  vename emp.ename%type;
  3  vsal emp.sal%type;
  4  begin
  5  select ename,sal into vename ,vsal from emp where empno=7788;
  6  dbms_output.put_line(vename||' '||vsal);
  7* end;
SQL> /
SCOTT 3002

SQL> l
  1  declare
  2  type remp is record(vename varchar2(20),vsal number);
  3  vemp remp;
  4  begin
  5  select ename,sal into vemp from emp where empno=7788;
  6  dbms_output.put_line(vemp.vename||vemp.vsal);
  7* end;
SQL> /
SCOTT3002

4.显示7566员工的姓名,职位,薪水(输出结束显示为:姓名:  职位:  薪水:)

SQL> declare
  2  vemp emp%rowtype;
  3  begin
  4  select * into vemp from emp where empno=7566;
  5  dbms_output.put_line('name:'||vemp.ename||' '||'job:'||vemp.job||'
          '||'sal:'||vemp.sal);
  6  end;
  7  /


name:JONES job:dancer sal:2977

5.显示7566员工姓名,部门名,薪水(使用%type,record,输出结束显示为:员工姓名:部>门名字: 薪水:)
SQL> l
  1  declare
  2  vename emp.ename%type;
  3  vdname dept.dname%type;
  4  vsal emp.sal%type;
  5  begin
  6  select ename,dname,sal into vename,vdname,vsal from emp e,dept d where e.deptno=d.deptno and empno=7566;
  7  dbms_output.put_line('name:'||vename||'  '||'deptment:'||vdname||' '||'salary:'||vsal);
  8* end;
SQL> /
name:JONES deptment:RESEARCH salary:2977

6.显示工资最高的员工姓名
SQL> l
  1  declare
  2  vename varchar2(20);
  3  begin
  4  select ename into vename from emp where sal=(select max(sal) from emp);
  5  dbms_output.put_line(vename);
  6* end;
SQL> /
KING

7.通过部门编号计算该部门的总人数,应发给员工的总薪水。
SQL> l
  1  begin
  2  for i in(select deptno ,count(*) c,sum(sal) s from emp group by deptno) loop
  3  dbms_output.put_line('deptnumber:'||i.deptno||' '||'sum_sal:'||' '||i.s||' '||'sum_people:'||i.c);
  4  end loop;
  5* end;
SQL> /
deptnumber:30 sum_sal: 9400 sum_people:6
deptnumber:20 sum_sal: 7875 sum_people:4
deptnumber:10 sum_sal: 8750 sum_people:3

PL/SQL procedure successfully completed.

8.显示部门编号,每个部门的最高薪水
QL> l
  1  begin
  2  for i in(select deptno,max(sal) m from emp group by deptno) loop
  3  dbms_output.put_line('deptnumber:'||i.deptno||' '||'max_sal:'||i.m);
  4  end loop;
  5* end;
SQL> /
deptnumber:30 max_sal:2850
deptnumber:20 max_sal:3000
deptnumber:10 max_sal:5000

PL/SQL procedure successfully completed.

9.显示薪水最高的员工姓名,薪水

SQL> begin
  2  for i in (select ename,sal from emp where sal=(select max(sal) from emp)) loop
  3  dbms_output.put_line('name:'||i.ename||' '||'sal:'||i.sal);
  4  end loop;
  5  end;
  6  /
name:KING sal:5000

PL/SQL procedure successfully completed.


10.显示部门名,员工名,薪水等级
  SQL> l
    1  begin
    2  for i in (select dname,ename,grade from emp join dept using (deptno) join salgrade on(sal between losal and hisal)) loop
    3  dbms_output.put_line(i.dname||'   '||i.ename||'  '||i.grade);
    4  end loop;
    5* end;
SQL> /
RESEARCH   SMITH  1
SALES   JAMES  1
RESEARCH   ADAMS  1
SALES   WARD  2
SALES   MARTIN  2
ACCOUNTING   MILLER  2
SALES   TURNER  3
SALES   ALLEN  3
ACCOUNTING   CLARK  4
SALES   BLAKE  4
RESEARCH   JONES  4
RESEARCH   SCOTT  4
ACCOUNTING   KING  5

PL/SQL procedure successfully completed.

SQL>

 

转载于:https://my.oschina.net/liubaizi/blog/796111

银行管理系统是一个非常复杂的系统,由于篇幅有限,我只能提供一个简单的实现,基于Oracle-PLSQL语言。我们将实现以下功能: 1. 用户账户管理:包括开户、销户、查询、存款、取款等操作。 2. 账户转账:允许用户在不同账户之间进行转账操作。 3. 查询交易记录:用户可以查询历史交易记录。 下面是实现步骤: 1. 创建表格: 我们需要创建以下表格: - 用户信息表(包括账户信息) - 交易记录表 2. 编写存储过程: 我们需要编写一系列存储过程来实现用户账户管理、账户转账和查询交易记录。以下是一些基本存储过程的示例: - 开户: ``` CREATE PROCEDURE create_account( p_name VARCHAR2, p_balance NUMBER, p_branch VARCHAR2 ) AS BEGIN INSERT INTO account_info(name, balance, branch) VALUES(p_name, p_balance, p_branch); END; ``` - 销户: ``` CREATE PROCEDURE delete_account( p_account_no VARCHAR2 ) AS BEGIN DELETE FROM account_info WHERE account_no = p_account_no; DELETE FROM transaction_history WHERE account_no = p_account_no; END; ``` - 查询余额: ``` CREATE PROCEDURE check_balance( p_account_no VARCHAR2, p_balance OUT NUMBER ) AS BEGIN SELECT balance INTO p_balance FROM account_info WHERE account_no = p_account_no; END; ``` - 存款: ``` CREATE PROCEDURE deposit( p_account_no VARCHAR2, p_amount NUMBER ) AS BEGIN UPDATE account_info SET balance = balance + p_amount WHERE account_no = p_account_no; INSERT INTO transaction_history(account_no, transaction_type, amount) VALUES(p_account_no, 'DEPOSIT', p_amount); END; ``` - 取款: ``` CREATE PROCEDURE withdraw( p_account_no VARCHAR2, p_amount NUMBER ) AS BEGIN UPDATE account_info SET balance = balance - p_amount WHERE account_no = p_account_no; INSERT INTO transaction_history(account_no, transaction_type, amount) VALUES(p_account_no, 'WITHDRAW', p_amount); END; ``` - 转账: ``` CREATE PROCEDURE transfer( p_sender_account_no VARCHAR2, p_receiver_account_no VARCHAR2, p_amount NUMBER ) AS BEGIN UPDATE account_info SET balance = balance - p_amount WHERE account_no = p_sender_account_no; UPDATE account_info SET balance = balance + p_amount WHERE account_no = p_receiver_account_no; INSERT INTO transaction_history(account_no, transaction_type, amount) VALUES(p_sender_account_no, 'TRANSFER', -p_amount); INSERT INTO transaction_history(account_no, transaction_type, amount) VALUES(p_receiver_account_no, 'TRANSFER', p_amount); END; ``` - 查询交易记录: ``` CREATE PROCEDURE check_transaction_history( p_account_no VARCHAR2 ) AS BEGIN SELECT * FROM transaction_history WHERE account_no = p_account_no; END; ``` 3. 测试: 我们可以使用以下代码来测试我们的系统: ``` DECLARE v_balance NUMBER; BEGIN -- 创建账户 create_account('Alice', 1000, 'Beijing'); create_account('Bob', 2000, 'Shanghai'); -- 查询余额 check_balance('1001', v_balance); DBMS_OUTPUT.PUT_LINE('Alice balance: ' || v_balance); check_balance('1002', v_balance); DBMS_OUTPUT.PUT_LINE('Bob balance: ' || v_balance); -- 存款 deposit('1001', 500); -- 取款 withdraw('1002', 1000); -- 转账 transfer('1001', '1002', 300); -- 查询交易记录 check_transaction_history('1001'); check_transaction_history('1002'); -- 销户 delete_account('1001'); delete_account('1002'); END; ``` 这只是一个简单的实现,真正的银行管理系统要比这个复杂得多。但这个例子应该可以帮助你了解如何使用Oracle-PLSQL来实现银行管理系统。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值