• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

Oracle-数据实现竖排打印 - 疯狂delphi

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

Oracle-数据实现竖排打印

--存放重证评分的数据表
create table ZZPFapache2
(
  ZZ_datetime DATE,   --时间
  ZZ_zongfen INTEGER, --总分
  ZZ_shiwanglui INTEGER, --死亡率 
  ZZ_BINGRENID VARCHAR2(50), --病人ID
  ZZ_h1f1 INTEGER,  --第1行1个分
  ZZ_h1m1 VARCHAR2(40),
  ZZ_h1f2 INTEGER,  --第1行2个分
  ZZ_h1m2 VARCHAR2(40),
  ZZ_h2f1 INTEGER,  --第2行1个分
  ZZ_h2m1 VARCHAR2(40),
  ZZ_h2f2 INTEGER,  --第2行2个分
  ZZ_h2m2 VARCHAR2(40),
  ZZ_h2f3 INTEGER,  --第2行3个分
  ZZ_h2m3 VARCHAR2(40),
  ZZ_h3f1 INTEGER,  --第3行1个分
  ZZ_h3m1 VARCHAR2(40),
  ZZ_h3f2 INTEGER,  --第3行2个分
  ZZ_h3m2 VARCHAR2(40),
  ZZ_h3f3 INTEGER,  --第3行3个分
  ZZ_h3m3 VARCHAR2(40),
  ZZ_h4f1 INTEGER,  --第4行1个分
  ZZ_h4m1 VARCHAR2(40),
  ZZ_h4f2 INTEGER,  --第4行2个分
  ZZ_h4m2 VARCHAR2(40),
  ZZ_h4f3 INTEGER,  --第4行3个分
  ZZ_h4m3 VARCHAR2(40),
  ZZ_h5f1 INTEGER,  --第5行1个分
  ZZ_h5m1 VARCHAR2(40),
  ZZ_h5f2 INTEGER,  --第5行2个分
  ZZ_h5m2 VARCHAR2(40),
  ZZ_h5f3 INTEGER,  --第5行3个分
  ZZ_h5m3 VARCHAR2(40),
  ZZ_h6f1 INTEGER,  --第6行1个分
  ZZ_h6m1 VARCHAR2(40),
  ZZ_h6f2 INTEGER,  --第6行2个分
  ZZ_h6m2 VARCHAR2(40),
  ZZ_h7f1 INTEGER,  --第7行1个分
  ZZ_h7m1 VARCHAR2(40),
  ZZ_h7f2 INTEGER,  --第6行2个分
  ZZ_h7m2 VARCHAR2(40),
  ZZ_h8f1 INTEGER,  --第8行1个分
  ZZ_h8m1 VARCHAR2(40),
  ZZ_h8f2 INTEGER,  --第8行2个分
  ZZ_h8m2 VARCHAR2(40),
  ZZ_f1 INTEGER,  --复选第1个分
  ZZ_f2 INTEGER,  --复选第2个分
  ZZ_f3 INTEGER,  --复选第3个分
  ZZ_f4 INTEGER,  --复选第4个分
  ZZ_f5 INTEGER,  --复选第5个分
  ZZ_GUserID VARCHAR2(40),
  ZZ_GUserName VARCHAR2(40)
)
tablespace TS_IMIS
  pctfree 10
  initrans 1
  maxtrans 255
  storage
  (
    initial 64K
    minextents 1
    maxextents unlimited
  );

--存放重症评分竖排数据视图
create or replace view zzpfdy as
select "ZZ_BINGRENID","ZZ_DATETIME","SUBJECT1","RESULT" from
(
  select 1 line,ZZ_BINGRENID,ZZ_DATETIME ,  \'得分\' SUBJECT1, ZZ_ZONGFEN result from zzpfapache2
  union all
  select 2 line,ZZ_BINGRENID,ZZ_DATETIME ,  \'死亡率\'SUBJECT1, ZZ_SHIWANGLUI result from zzpfapache2
  union all
  select 3 line,ZZ_BINGRENID,ZZ_DATETIME ,  \'年龄\'SUBJECT1, ZZ_H1F1 result from zzpfapache2
    union all
  select 4 line,ZZ_BINGRENID,ZZ_DATETIME ,  \'有严重慢性器官系统功能不全\'SUBJECT1,ZZ_H1F2 result from zzpfapache2
    union all
  select 5 line,ZZ_BINGRENID,ZZ_DATETIME ,  \'睁眼反应\' SUBJECT1 ,ZZ_H2F1 result from zzpfapache2
    union all
  select 6 line,ZZ_BINGRENID,ZZ_DATETIME ,  \'言语反应\' SUBJECT1,ZZ_H2F2 result from zzpfapache2
    union all
  select 7 line,ZZ_BINGRENID,ZZ_DATETIME ,  \'运动反应\' SUBJECT1,ZZ_H2F3 result from zzpfapache2
    union all
  select 8 line,ZZ_BINGRENID,ZZ_DATETIME ,  \'体温\'SUBJECT1,ZZ_H3F1 result from zzpfapache2
    union all
  select 9 line,ZZ_BINGRENID,ZZ_DATETIME ,  \'平均血压(mmHg)\'SUBJECT1, ZZ_H3F2 result from zzpfapache2
    union all
  select 10 line,ZZ_BINGRENID,ZZ_DATETIME , \'心率(次/分)\'SUBJECT1 , ZZ_H3F3 result from zzpfapache2
    union all
  select 11 line,ZZ_BINGRENID,ZZ_DATETIME , \'呼吸(次/分)\'SUBJECT1 ,ZZ_H4F1 result from zzpfapache2
      union all
  select 12 line,ZZ_BINGRENID,ZZ_DATETIME , \'FIO2\' SUBJECT1,ZZ_H4F2 result from zzpfapache2
    union all
 select 13 line,ZZ_BINGRENID,ZZ_DATETIME ,  \'血清HCO3(无ABGs)(mmol/L)\' SUBJECT1,ZZ_H4F3 result from zzpfapache2
   union all
  select 14 line,ZZ_BINGRENID,ZZ_DATETIME , \'血清Na(mmol/L)\' SUBJECT1,ZZ_H5F1 result from zzpfapache2
    union all
  select 15 line,ZZ_BINGRENID,ZZ_DATETIME , \'血清K(mmol/L)\' SUBJECT1,ZZ_H5F2 result from zzpfapache2
    union all
  select 16 line,ZZ_BINGRENID,ZZ_DATETIME , \'动脉血PH\' SUBJECT1 ,ZZ_H5F3 result from zzpfapache2
    union all
  select 17 line,ZZ_BINGRENID,ZZ_DATETIME , \'血细胞比容(%)\' SUBJECT1,ZZ_H6F1 result from zzpfapache2
     union all
  select 18 line,ZZ_BINGRENID,ZZ_DATETIME , \'WBC(*1000/mm3)\' SUBJECT1,ZZ_H6F2 result from zzpfapache2
     union all
  select 19 line,ZZ_BINGRENID,ZZ_DATETIME , \'Pa02(mmHg...KPa)\' SUBJECT1,ZZ_H7F1 result from zzpfapache2
     union all
  select 20 line,ZZ_BINGRENID,ZZ_DATETIME , \'A-aD02(mmHg...KPa)\' SUBJECT1,ZZ_H7F2 result from zzpfapache2
    union all
  select 21 line,ZZ_BINGRENID,ZZ_DATETIME , \'血清肌酐(mg/dl..micromol/l)\' SUBJECT1,ZZ_H8F1 result from zzpfapache2
    union all
  select 22 line,ZZ_BINGRENID,ZZ_DATETIME , \'急性肾功能衰竭\' SUBJECT1,ZZ_H8F2 result from zzpfapache2
    union all
  select 23 line,ZZ_BINGRENID,ZZ_DATETIME , \'有无功能不全免疫损害:肝\' SUBJECT1,ZZ_F1 result from zzpfapache2
    union all
  select 24 line,ZZ_BINGRENID,ZZ_DATETIME , \'有无功能不全免疫损害:心血管\' SUBJECT1,ZZ_F2 result from zzpfapache2
    union all
  select 25 line,ZZ_BINGRENID,ZZ_DATETIME , \'有无功能不全免疫损害:呼吸系统\' SUBJECT1,ZZ_F3 result from zzpfapache2
    union all
  select 26 line,ZZ_BINGRENID,ZZ_DATETIME , \'有无功能不全免疫损害:肾\' SUBJECT1,ZZ_F4 result from zzpfapache2
    union all
  select 27 line,ZZ_BINGRENID,ZZ_DATETIME , \'有无功能不全免疫损害:免疫抑制状态\' SUBJECT1,ZZ_F5 result from zzpfapache2
 ) t
order by ZZ_DATETIME ,line;


--打印时为多列,所以又加入一个多列视图
CREATE OR REPLACE VIEW ZZPFDY2 AS
SELECT
a.subject1,
a.ZZ_DATETIME,a.n, A.ZZ_BINGRENID, A.result,
b.n bn, b.ZZ_BINGRENID bp,b.ZZ_DATETIME bt, B.result as result1,
c.n cn, c.ZZ_BINGRENID cp,c.ZZ_DATETIME ct, c.result as result2,
d.n dn, d.ZZ_BINGRENID dp,d.ZZ_DATETIME dt, d.result as result3,
e.n en, e.ZZ_BINGRENID ep,e.ZZ_DATETIME et, e.result as result4,
f.n fn, f.ZZ_BINGRENID fp,f.ZZ_DATETIME ft, f.result as result5
FROM

(SELECT N, result, ZZ_BINGRENID,ZZ_DATETIME,subject1
FROM (SELECT ROWNUM N, result, ZZ_BINGRENID,ZZ_DATETIME,subject1 FROM zzpf
 )
WHERE MOD(FLOOR((N - 1) / 27), 6) = 0
) A,
(SELECT N, result, ZZ_BINGRENID,ZZ_DATETIME
FROM (SELECT ROWNUM N, result,ZZ_BINGRENID,ZZ_DATETIME FROM zzpf
 )
WHERE MOD(FLOOR((N - 1) / 27), 6) = 1
) B,
(SELECT N, result, ZZ_BINGRENID,ZZ_DATETIME
FROM (SELECT ROWNUM N, result, ZZ_BINGRENID,ZZ_DATETIME FROM zzpf
)
WHERE MOD(FLOOR((N - 1) / 27), 6) = 2
) C,
(SELECT N, result, ZZ_BINGRENID,ZZ_DATETIME
FROM (SELECT ROWNUM N, result, ZZ_BINGRENID,ZZ_DATETIME FROM zzpf
)
WHERE MOD(FLOOR((N - 1) / 27), 6) = 3
) D,
(SELECT N, result, ZZ_BINGRENID,ZZ_DATETIME
FROM (SELECT ROWNUM N, result, ZZ_BINGRENID,ZZ_DATETIME FROM zzpf
)
WHERE MOD(FLOOR((N - 1) / 27), 6) = 4
) E,
(SELECT N, result, ZZ_BINGRENID,ZZ_DATETIME
FROM (SELECT ROWNUM N, result, ZZ_BINGRENID,ZZ_DATETIME FROM zzpf
)
WHERE MOD(FLOOR((N - 1) / 27), 6) = 5
) F

WHERE A.N + 27  = B.N(+)  and b.N + 27  = c.N(+) and
      c.N + 27  = D.N(+)  and D.N + 27  = E.N(+) and
      e.n + 27  = f.N(+);

--竖排视图与打印视图的中间视图
create or replace view ZZPF as (select * from zzpfdy where ZZ_BINGRENID=\'1545187\')


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Matlab+Qt开发笔记(二):Qt打开mat文件显示读取的数据发布时间:2022-07-18
下一篇:
delphi中format函数详解发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap