医院系统 PB源代码（源码大小12M）  源码下载地址：http://hur.cn/bbs/X_AdvCom_Vip.asp?UserID=1QQ：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 ddxqcreate 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 PRIVILEGESdrop 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_sequenceincrement by 1start with 100001maxvalue 999999nocycle; //创建住院帐号的序号发生器drop sequence zyzh_sequence;create sequence zyzh_sequenceincrement by 1start with 10000001maxvalue 99999999nocycle; 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))………………………………………………  

评论