医院系统 PB源代码（源码大小12M） 

源码下载地址：http://hur.cn/bbs/X_AdvCom_Vip.asp?UserID=1
QQ：283072、283672　EMAIL：web＠hur.cn、jhwjeffrey＠163.com　TEL：见下载地址页面
//医院管理系统数据库
//建立用户，及其表空间
create tablespace tjsm_temp
       datafile ''''''''''''''''d:\his_data\tjsm_temp.dat'''''''''''''''' size 40M
       default storage (initial 500k next 500k
                        minextents 1 maxextents 80
                        pctincrease 0)
       online;

REM 1. CREATE TABLESPACE for ddxq
create tablespace tjsm_data
       datafile ''''''''''''''''d:\his_data\tjsm_data.DAT'''''''''''''''' size 400M
       default storage (initial 200k next 200k
                        minextents 1 maxextents 200
                        pctincrease 50)
       online;

REM CREATE USER AND GRANT USER PRIVILEGES
drop user tjsm cascade;
create user tjsm
       identified by tjsm
       default tablespace tjsm_data
       temporary tablespace tjsm_temp
       quota unlimited on tjsm_data
       quota unlimited on tjsm_temp;

grant dba,connect,resource to tjsm;

//系统注册表
Drop table zucb;
create table  zucb(
 regid varchar2(20) primary key);

//创建磁卡编码的序号发生器
drop sequence cardno_sequence;
create sequence cardno_sequence
increment by 1
start with 100001
maxvalue 999999
nocycle;

//创建住院帐号的序号发生器
drop sequence zyzh_sequence;
create sequence zyzh_sequence
increment by 1
start with 10000001
maxvalue 99999999
nocycle;

select cardno_sequence.nextval into :ls_xh from dual;

// 菜单项代码表
drop table menucode;
create table menucode(
 programcode char(1) not null,/*程序代码*/
 itemcode  char(3) not null, /*菜单项的权限代码，用于权限表示*/
  parentitemcode  char(3)  not null ,/*本菜单项的父菜单(''''''''''''''''000''''''''''''''''为顶级菜单项)*/
     itemname   varchar(12)  not null,/*本菜单项在PB中的对象名称*/
 itemcname   varchar(40)  not null, /*显示在菜单条上的中文名称*/
 bz char(1) default 0,
 xh char(3),

    primary key (programcode ,itemcode)
);

// 每个操作员的菜单项
drop table czymenucode;
create table czymenucode(
 czyh char(4) not null,/*操作员号*/
 itemcode  char(3) not null, /*菜单项的权限代码，用于权限表示*/
  parentitemcode  char(3)  not null ,/*本菜单项的父菜单(''''''''''''''''000''''''''''''''''为顶级菜单项)*/
     itemname   varchar(12)  not null,/*本菜单项在PB中的对象名称*/
 itemcname   varchar(40)  not null, /*显示在菜单条上的中文名称*/
 bz char(1) default 0,
 xh char(3),
 programcode char(1) not null,/*程序代码*/
    primary key (czyh,programcode,itemcode)
);

//定义操作员的菜单权限表
drop table czycdb;
create table czycdb(
 czyh char(4) not null,/*操作员号*/
 mkbm char(1) not null, /*菜单项的权限代码，用于权限表示*/
  cdqx varchar2(1000)  not null,/*本菜单项的父菜单(''''''''''''''''000''''''''''''''''为顶级菜单项)*/
 primary key (czyh,mkbm));

alter table menzsjdy add(mzh varchar2(13))………………………………………………

评论