收获每一天

数据库要求
1、建立一个表code_dam,包含以下字段
   id int,自增,主键
   code nvarchar(20), not null  （大坝编号）
   name nvarchar(20), not null  （大坝名称）
   remark nvarchar(200)         （备注）
2、编程实现对表code_dam的增删改查功能，包括:
   添加大坝编码（添加一条记录到数据库，要求：大坝编号不能重复，大坝名称不能重复）
   修改大坝编码（要求：大坝编号不能重复，大坝名称不能重复）
   删除一个大坝编码
   大坝编码列表（code_dam表中所有的记录，使用列表将其他功能串在一起）
   查看大坝编码（显示指定id的大坝编号、名称、备注）



//建立数据库

-- Create table
create table CODE_DAM
(
  ID     INTEGER not null,
  CODE   VARCHAR2(20) not null,
  NAME   VARCHAR2(20) not null,
  REMARK VARCHAR2(200)
)
tablespace DAM
  pctfree 10
  initrans 1
  maxtrans 255
  storage
  (
    initial 64K
    minextents 1
    maxextents unlimited
  );
-- Add comments to the table
comment on table CODE_DAM
  is '大坝管理';
-- Add comments to the columns
comment on column CODE_DAM.CODE
  is '大坝编号';
comment on column CODE_DAM.NAME
  is '大坝名称';
-- Create/Recreate primary, unique and foreign key constraints
alter table CODE_DAM
  add constraint ID primary key (ID)
  using index
  tablespace DAM
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 64K
    minextents 1
    maxextents unlimited
  );

//自增解决办法
//序列
-- Create sequence
create sequence SEQ_CODE_DAM
minvalue 1
maxvalue 999999999999999999999999999
start with 31
increment by 1
cache 10;
//触发器
CREATE OR REPLACE TRIGGER TRG_code_dam
BEFORE
INSERT  ON code_dam
FOR EACH ROW
begin
SELECT SEQ_code_dam.NEXTVAL
INTO:NEW.id
FROM DUAL;
End TRG_code_dam;

//相关存储过程

//查询所有数据
//包
create or replace package showall is
type mycursor is ref cursor;
procedure GetRecords(ret_cursor out mycursor);
end showall;
//包体
create or replace package body showall is
procedure GetRecords(ret_cursor out mycursor) as
begin
open ret_cursor for select * from code_dam;
end GetRecords;
end showall;

//删除数据
create or replace procedure delRecord(id_in in int)
is
begin
delete from code_dam where id=id_in;
commit;
end;

//插入数据
create or replace procedure insertRecord(code_in in varchar2,name_in in varchar2,remark_in in varchar2) is
begin
insert into code_dam (code,name,remark) values (code_in,name_in,remark_in);
commit;
end;

//更新数据
create or replace procedure updataRecord(id_in in int,code_in in varchar2,name_in in varchar2,remark_in in varchar2)
is
begin
update code_dam set code=code_in,name=name_in,remark=remark_in where id=id_in;
commit;
end;

//检查重复
create or replace procedure checkdam
(code_in in varchar2,name_in in varchar,name_out out varchar2)
is
begin
select name into name_out from code_dam where code = code_in or name = name_in;
end checkdam;

//查询单个数据
//包
create or replace package showdam is
type mycursor is ref cursor;
procedure GetRecords(id_in in int,ret_cursor out mycursor);
end showdam;
//包体
create or replace package body showdam is
procedure GetRecords(id_in in int,ret_cursor out mycursor) as
begin
open ret_cursor for select * from code_dam where id = id_in;
end GetRecords;
end showdam;