qindyyx
- 浏览: 62149 次
- 来自: 上海
-
最新评论
SQL> col object_name format a20;
SQL> col object_type format a20;
SQL> select object_name,object_type from user_objects
2 order by object_type asc;
OBJECT_NAME OBJECT_TYPE
-------------------- --------------------
TAX FUNCTION
BIN$kHmZTqomReyTGf6x INDEX
Gpa9GQ==$2
BIN$gtl8hEtDTwyJSJRw INDEX
zqxFjQ==$0
BIN$lBwhR7ckQVmBoQJC INDEX
jyJTxg==$2
AVGSALARYFORDEPT PROCEDURE
OBJECT_NAME OBJECT_TYPE
-------------------- --------------------
RAISEDSALARYBYEMPNOP PROCEDURE
ROC
ADD_DEPT_PROC PROCEDURE
EMPCOPY TABLE
TMP TABLE
DEPT TABLE
SALGRADE TABLE
BONUS TABLE
EMP TABLE
EMP_VW VIEW
已选择14行。
SQL> set linesize 200;
SQL> /
OBJECT_NAME OBJECT_TYPE
-------------------- --------------------
TAX FUNCTION
BIN$kHmZTqomReyTGf6x INDEX
Gpa9GQ==$2
BIN$gtl8hEtDTwyJSJRw INDEX
zqxFjQ==$0
BIN$lBwhR7ckQVmBoQJC INDEX
jyJTxg==$2
AVGSALARYFORDEPT PROCEDURE
OBJECT_NAME OBJECT_TYPE
-------------------- --------------------
RAISEDSALARYBYEMPNOP PROCEDURE
ROC
ADD_DEPT_PROC PROCEDURE
EMPCOPY TABLE
TMP TABLE
DEPT TABLE
SALGRADE TABLE
BONUS TABLE
EMP TABLE
EMP_VW VIEW
已选择14行。
SQL> set pagesize 100;
SQL> /
OBJECT_NAME OBJECT_TYPE
-------------------- --------------------
TAX FUNCTION
BIN$kHmZTqomReyTGf6x INDEX
Gpa9GQ==$2
BIN$gtl8hEtDTwyJSJRw INDEX
zqxFjQ==$0
BIN$lBwhR7ckQVmBoQJC INDEX
jyJTxg==$2
AVGSALARYFORDEPT PROCEDURE
RAISEDSALARYBYEMPNOP PROCEDURE
ROC
ADD_DEPT_PROC PROCEDURE
EMPCOPY TABLE
TMP TABLE
DEPT TABLE
SALGRADE TABLE
BONUS TABLE
EMP TABLE
EMP_VW VIEW
已选择14行。
SQL> create or replace package employee_pkg is
2
3 -- Author : ADMINISTRATOR
4 -- Created : 2010-6-17 上午 09:19:27
5 -- Purpose : This is a demo.
6
7 end employee_pkg;
8 /
程序包已创建。
SQL> create or replace package body employee_pkg is
2
3
4 end employee_pkg;
5 /
程序包体已创建。
SQL> select object_name,object_type from user_objects
2 order by object_type asc;
OBJECT_NAME OBJECT_TYPE
-------------------- --------------------
TAX FUNCTION
BIN$gtl8hEtDTwyJSJRw INDEX
zqxFjQ==$0
BIN$lBwhR7ckQVmBoQJC INDEX
jyJTxg==$2
BIN$kHmZTqomReyTGf6x INDEX
Gpa9GQ==$2
EMPLOYEE_PKG PACKAGE
EMPLOYEE_PKG PACKAGE BODY
RAISEDSALARYBYEMPNOP PROCEDURE
ROC
AVGSALARYFORDEPT PROCEDURE
ADD_DEPT_PROC PROCEDURE
EMPCOPY TABLE
SALGRADE TABLE
EMP TABLE
BONUS TABLE
TMP TABLE
DEPT TABLE
EMP_VW VIEW
已选择16行。
SQL> create or replace package employee_pkg is
2
3 -- Author : ADMINISTRATOR
4 -- Created : 2010-6-17 上午 09:19:27
5 -- Purpose : This is a demo.
6
7 procedure print_ename(p_empno emp.empno%type);
8
9 --编写一个函数，用户校验输入的用户编号是否有效
10 function isValiad(p_empno emp.empno%type) return boolean;
11
12 end employee_pkg;
13 /
程序包已创建。
SQL> create or replace package body employee_pkg is
2
3 procedure print_ename(p_empno emp.empno%type)
4 is
5 begin
6 null;
7 end print_ename;
8
9 --编写一个函数，用户校验输入的用户编号是否有效
10 function isValiad(p_empno emp.empno%type) return boolean
11 is
12 begin
13
14 return false;
15
16 end isValiad;
17
18 end employee_pkg;
19 /
程序包体已创建。
SQL> select object_name,object_type from user_objects
2 order by object_type asc;
OBJECT_NAME OBJECT_TYPE
-------------------- --------------------
TAX FUNCTION
BIN$gtl8hEtDTwyJSJRw INDEX
zqxFjQ==$0
BIN$lBwhR7ckQVmBoQJC INDEX
jyJTxg==$2
BIN$kHmZTqomReyTGf6x INDEX
Gpa9GQ==$2
EMPLOYEE_PKG PACKAGE
EMPLOYEE_PKG PACKAGE BODY
RAISEDSALARYBYEMPNOP PROCEDURE
ROC
AVGSALARYFORDEPT PROCEDURE
ADD_DEPT_PROC PROCEDURE
EMPCOPY TABLE
SALGRADE TABLE
EMP TABLE
BONUS TABLE
TMP TABLE
DEPT TABLE
EMP_VW VIEW
已选择16行。
SQL> show user;
USER 为 "SCOTT"
SQL> create or replace package body employee_pkg is
2
3 procedure print_ename(p_empno emp.empno%type)
4 is
5 v_ename varchar2(30);
6 begin
7
8 --调用函数校验编号是否有效
9 if(isValiad(p_empno)) then
10
11
12 select ename into v_ename
13 from emp
14 where empno=p_empno;
15 dbms_output.put_line(p_empno|| ' 号雇员的姓名为： '||v_ename);
16 else
17 dbms_output.put_line(p_empno||' 的雇员不存在...');
18 end if;
19
20 end print_ename;
21
22 --编写一个函数，用户校验输入的用户编号是否有效
23 function isValiad(p_empno emp.empno%type) return boolean
24 is
25 v_count number:=-1;
26 begin
27
28 select count(empno) into v_count
29 from emp
30 where empno=p_empno;
31 if(v_count>0) then
32 return true;
33 elsif
34 return false;
35 end if;
36
37 end isValiad;
38
39 end employee_pkg;
40 /
警告: 创建的包体带有编译错误。
SQL> show errors;
PACKAGE BODY EMPLOYEE_PKG 出现错误:
LINE/COL ERROR
-------- -----------------------------------------------------------------
34/16 PLS-00103: 出现符号 "FALSE"在需要下列之一时：
. ( * @ % & = - + < / >
at in is mod remainder not rem then <an exponent (**)>
<> or != or ~= >= <= <> and or like LIKE2_ LIKE4_ LIKEC_
between || multiset member SUBMULTISET_
符号 "then" 被替换为 "FALSE" 后继续。
SQL> create or replace package body employee_pkg is
2
3 procedure print_ename(p_empno emp.empno%type)
4 is
5 v_ename varchar2(30);
6 begin
7
8 --调用函数校验编号是否有效
9 if(isValiad(p_empno)) then
10
11
12 select ename into v_ename
13 from emp
14 where empno=p_empno;
15 dbms_output.put_line(p_empno|| ' 号雇员的姓名为： '||v_ename);
16 else
17 dbms_output.put_line(p_empno||' 的雇员不存在...');
18 end if;
19
20 end print_ename;
21
22 --编写一个函数，用户校验输入的用户编号是否有效
23 function isValiad(p_empno emp.empno%type) return boolean
24 is
25 v_count number:=-1;
26 begin
27
28 select count(empno) into v_count
29 from emp
30 where empno=p_empno;
31 if(v_count>0) then
32 return true;
33 else
34 return false;
35 end if;
36
37 end isValiad;
38
39 end employee_pkg;
40 /
程序包体已创建。
SQL> exec employee_pkg.print_ename(7782);
PL/SQL 过程已成功完成。
SQL> set serveroutput on;
SQL> exec employee_pkg.print_ename(7782);
7782 号雇员的姓名为： CLARK
PL/SQL 过程已成功完成。
SQL> exec employee_pkg.print_ename(7781);
7781 的雇员不存在...
PL/SQL 过程已成功完成。
SQL> create or replace package employee_pkg is
2
3 -- Author : ADMINISTRATOR
4 -- Created : 2010-6-17 上午 09:19:27
5 -- Purpose : This is a demo.
6
7 procedure print_ename(p_empno emp.empno%type);
8
9 --编写一个函数，用户校验输入的用户编号是否有效
10 function isValiad(p_empno emp.empno%type) return boolean;
11
12 --编写一个过程，按照给定的部门编号，输出雇员的一些基本信息：雇员编号，姓名，工种，工资等等
13 procedure displayEmpInfo(p_deptno emp.deptno%type);
14
15 end employee_pkg;
16 /
程序包已创建。
SQL> select * from emp where deptno=10;
EMPNO ENAME JOB MGR HIREDATE SAL COMM DEPTNO
---------- ---------- --------- ---------- -------------- ---------- ---------- ----------
7782 CLARK MANAGER 7839 09-6月 -81 2450 10
7839 KING PRESIDENT 17-11月-81 5000 10
7934 MILLER CLERK 7782 23-1月 -82 1300 10
SQL> create or replace package body employee_pkg is
2
3 procedure print_ename(p_empno emp.empno%type)
4 is
5 v_ename varchar2(30);
6 begin
7
8 --调用函数校验编号是否有效
9 if(isValiad(p_empno)) then
10
11
12 select ename into v_ename
13 from emp
14 where empno=p_empno;
15 dbms_output.put_line(p_empno|| ' 号雇员的姓名为： '||v_ename);
16 else
17 dbms_output.put_line(p_empno||' 的雇员不存在...');
18 end if;
19
20 end print_ename;
21
22 --编写一个函数，用户校验输入的用户编号是否有效
23 function isValiad(p_empno emp.empno%type) return boolean
24 is
25 v_count number:=-1;
26 begin
27
28 select count(empno) into v_count
29 from emp
30 where empno=p_empno;
31 if(v_count>0) then
32 return true;
33 else
34 return false;
35 end if;
36
37 end isValiad;
38
39 --对包头中增加的内容作出具体实现
40 --由于按照部门编号查询，会产生多行的情况，所以需要使用
41 --PLSQL表，也叫做Index-by表处理结果。
42 procedure displayEmpInfo(p_deptno emp.deptno%type)
43 is
44 --定义PLSQL表，或者Index-by表
45 type emp_table_type is table of emp%rowtype
46 index by binary_integer;
47 --具体使用时，需要使用type声明变量
48 emp_table emp_table_type;
49 begin
50 select * bulk collect into emp_table /* bulk collect 表示批量处理*/
51 from emp where deptno=p_deptno;
52 for i in 1.. emp_table.count loop
53
54 dbms_output.put_line('雇员编号：'||emp_table(i).empno||' 雇员姓名：'||
55 emp_table(i).ename||' 雇员工种：'||emp_table(i).job||' 雇员工资：'||
56 emp_table(i).sal);
57
58 end loop;
59
60 end displayEmpInfo;
61
62
63
64 end employee_pkg;
65 /
程序包体已创建。
SQL> exec employee_pkg.displayEmpInfo(10);
雇员编号：7782 雇员姓名：CLARK 雇员工种：MANAGER 雇员工资：2450
雇员编号：7839 雇员姓名：KING 雇员工种：PRESIDENT 雇员工资：5000
雇员编号：7934 雇员姓名：MILLER 雇员工种：CLERK 雇员工资：1300
PL/SQL 过程已成功完成。
SQL> exec employee_pkg.displayEmpInfo(20);
雇员编号：7369 雇员姓名：SMITH 雇员工种：CLERK 雇员工资：13176.9
雇员编号：7566 雇员姓名：JONES 雇员工种：MANAGER 雇员工资：9000
雇员编号：7788 雇员姓名：SCOTT 雇员工种：ANALYST 雇员工资：10890
雇员编号：7876 雇员姓名：ADAMS 雇员工种：CLERK 雇员工资：9000
雇员编号：7902 雇员姓名：FORD 雇员工种：ANALYST 雇员工资：9900
PL/SQL 过程已成功完成。
分享到：
发表评论
文章已被作者锁定，不允许评论。
-
ORACLE日期时间处理
2013-01-25 17:56 1291--感觉ORACLE对日期的处理比MS较方便些 --修改会 ... -
AutoTrace执行结果说明
2013-01-25 14:11 834统计信息 --------------- ... -
QUESTIONS
2011-11-25 08:51 711问题一：获取SCOTT用户中EMP表里最早入职的前五名雇员？ ... -
闪回数据库技术
2011-11-25 08:51 1190SQL> conn / as sysdba;已连接 ... -
触发器实例
2011-11-24 09:16 1093create or replace trigger u ... -
存储过程、函数简单应用
2011-11-24 09:16 1018create or replace procedure ... -
ORACLE体系结构
2011-11-24 09:15 857001、oracle体系结构： oracle产品和 ... -
游标简单操作
2011-11-25 08:50 1258--显示游标 处理检索多行数据 --whil ... -
数据泵导出导入（SCHEMAS）
2011-11-25 08:51 8590一、导出 1、 cmd-->C:\Docume ... -
PLSQL developer连接oracle
2011-11-25 08:50 1032装好ORACLE 10g后，安装plsql ... -
ORACLE安装前后
2011-11-24 09:17 863安装前：计算机名必须小于8位(不能以数字开 ... -
数据库事务
2011-11-22 11:24 933查看数据库默认隔离级别： 查看InnoDB系统级别 ... -
导入TXT文件与导出TXT
2011-11-28 10:05 1059导入.TXT文件与导出*. ... -
加载数据
2011-11-28 10:05 9001、使用LOAD DATA语句要比INSERT语句的加载 ... -
字符串连接
2011-11-28 10:05 851mysql> select 'abc'+'123' ... -
DELETE语法
2011-11-28 10:06 1649仅仅在 FROM 或 USING 子句之前列出的表中的匹 ... -
复制表
2011-11-22 11:24 797创建测试表test：mysql> create tabl ... -
定时执行存储过程
2011-11-18 22:46 1001存储过程学习：http://www.111 ... -
计算机localhost在网络上不存在
2011-11-22 11:22 1051计算机localhost在网络上不存在——数据库 ... -
EXPLAIN语法
2011-11-29 09:09 923EXPLAIN table == DESC table ...
相关推荐
基于springboot大学生就业信息管理系统源码数据库文档.zip
基于java的驾校收支管理可视化平台的开题报告
时间序列 原木 间隔5秒钟 20241120
毕业设计&课设_基于 Vue 的电影在线预订与管理系统：后台 Java（SSM）代码，为毕业设计项目.zip
基于springboot课件通中小学教学课件共享平台源码数据库文档.zip
基于java的网上购物商城的开题报告
Delphi人脸检测与识别Demo1fdef-main.zip
基于java的咖啡在线销售系统的开题报告
基于java的自助医疗服务系统的开题报告.docx
内容概要：本文档全面介绍了Visual Basic（VB）编程语言的基础知识和高级应用。首先概述了VB的基本特性和开发环境，随后详细讲述了VB的数据类型、变量、运算符、控制结构、数组、过程与函数、变量作用域等内容。接着介绍了窗体设计、控件使用、菜单与工具栏的设计，文件操作、数据库访问等关键知识点。最后讨论了VB的学习方法、发展历史及其在桌面应用、Web应用、数据库应用、游戏开发和自动化脚本编写等领域的广泛应用前景。 适合人群：初学者和中级程序员，尤其是希望快速掌握Windows桌面应用开发的人群。 使用场景及目标：①掌握VB的基础语法和开发环境；②学会使用VB创建复杂的用户界面和功能完整的应用程序；③理解数据库操作、文件管理和网络编程等高级主题。 其他说明：Visual Basic是一种简单易学且功能强大的编程语言，尤其适合用于开发Windows桌面应用。文中不仅覆盖了基础知识，还包括了大量的实用案例和技术细节，帮助读者快速提升编程技能。
基于java的疫情期间高校防控系统开题报告.docx
基于springboot+vue社区老年人帮扶系统源码数据库文档.zip
基于java的超市商品管理系统的开题报告.docx
基于SpringBoot房屋买卖平台源码数据库文档.zip
xdu限通院23微处理器系统与应用大作业（两只老虎），适应于汇编语言keil软件，
<项目介绍> - 新闻类网站系统，基于SSM（Spring、Spring MVC、MyBatis）+MySQL开发，高分成品毕业设计，附带往届论文 - 不懂运行，下载完可以私聊问，可远程教学 1、该资源内项目代码都经过测试运行成功，功能ok的情况下才上传的，请放心下载使用！ 2、本项目适合计算机相关专业(如计科、人工智能、通信工程、自动化、电子信息等)的在校学生、老师或者企业员工下载学习，也适合小白学习进阶，当然也可作为毕设项目、课程设计、作业、项目初期立项演示等。 3、如果基础还行，也可在此代码基础上进行修改，以实现其他功能，也可用于毕设、课设、作业等。 下载后请首先打开README.md文件（如有），仅供学习参考, 切勿用于商业用途。 --------
基于java的学生网上请假系统的开题报告.docx
社会经济繁荣发展的今天，电子商务得到了飞速发展，网上交易越来越彰显出其独特的优越性，在人们的日常生活中，出现了各种类型的交易网站。其中一个就是车辆易主交易网站，它是一个服务于用户买卖二手车辆的交易网站，为用户提供了平等互利、方便快捷的网上交易平台，通过这一类型的网站，用户可自由出售和购买车辆。 本课题主要根据车辆本身的特性，充分发挥互联网的特点与优势，构建一个以二手车辆为商品、基于互联网平台的车辆易主业务交易管理系统，并根据车辆易主业务交易管理系统的应用需求，进行需求分析，进而对网站系统作规划设计。采用IDEA为运行平台，以SSH为框架，运用HTML语言、JSP技术、MySql数据库、JSP与后台数据库链接等关键技术建设二手车网上交易系统，构建车辆易主交易系统的会员注册与登录，网站首页展示、用户发布商品车辆，用户求购商品车辆，分页浏览、购物系统、用户后台管理、管理员用户后台管理等功能，并使这些功能得以实现并更好为用户服务。网站整体构建完成且测试成功后，用户可以进入网站进行注册、登录，登录后，用户可以在网站上发布自己的闲置车辆或者寻找想要购买的车辆，还可以收藏车辆，管理发布和收藏的车辆，
SQLite3的向量扩展库，windows dll，版本0.1.5
基于C++实现（控制台）商品库存管理系统