oracle中存储过程书写规范

来源:互联网 发布:美工电脑配置清单 编辑:程序博客网 时间:2024/06/03 14:37

create or replace procedure UpdateTestData
is
j number;
dept_min_no number;
dept_max_no number;
begin
  --更新部门表
  delete from test_dept;
  for i in 1..10
    loop
      insert into test_dept(dept_name,f_deleteflag) values('部门'||i,0);
      commit;
    end loop;
  --更新用户表
  --dept_min_no:=0;
  --dept_max_no:=0;
  select min(f_id) into dept_min_no from test_dept;
  select max(f_id) into dept_max_no from test_dept;

  delete from test_user;
  for i in 1..30
    loop
      select floor(dbms_random.value(dept_min_no,dept_max_no)) into j from dual;
      insert into test_user(f_id,username,userpwd,age,sex,birthday,telephone,address,email,memo,deptid,realname,f_deleteflag)
             values(i,'a'||i,'123456',i+20,'男',sysdate-365*i,'13500112233','北京市海淀区上地信息大厦',j||'@163.com','备注备注',j,'张三'||i,0);
    commit;
    end loop;
end UpdateTestData;

 

原创粉丝点击