sql

create or replace view application_basic as
select col1,col2,col3,col4,col5,col6,col7,col8,col9,num as col10,trunc((num1+num2+num3),2) as col11,trunc(((num1+num2+num3)/num),2) as col12,col13,col14,col15,col16,col17,col18,col19 from
(select a.apply_no as col1,f.id as col2,f.name as col3,f.relation_to_apply_man as col4,f.iden_id as col5,f.health as col6,f.accountaddr as col7,f.nowaddr as col8,f.unit_title as col9
  ,(select count(apply_no) from  apply_family_member s where s.apply_no=f.apply_no  group by s.apply_no ) as num
  ,(select  decode(avg(s1.actual_income),'',0,avg(s1.actual_income)) from apply_family_member u ,income_city_salary s1
where u.id=s1.family_members_id(+) and u.id=f.id group by u.id) as num1,
(select  decode(avg(s2.pensions),'',0,avg(s2.pensions)) from apply_family_member u ,income_social_insurance s2
where u.id=s2.family_members_id(+) and u.id=f.id group by u.id) as num2,
(select  decode(avg(s3.other_income),'',0,avg(s3.other_income)) from apply_family_member u ,income_other s3
where u.id=s3.family_members_id(+) and u.id=f.id group by u.id) as num3,
c.comm_name as col13,
c.comm_no as col14,
c.area_no as col15,
c.city_no as col16,
c.street_no as col17,
c.sheng_no as col19,
to_char(a.apply_date,'yyyy') as col18
   from  application a,apply_family_member f,Community_Inf c  
   where a.apply_no=f.apply_no and c.comm_no=a.comm_no  order by a.comm_no asc
    )

 

 

 

 

 

 

 

create or replace view application_detail as
select col1,col2,col3,col4,col5,col6,col7,col8,col9,num as col10,trunc((num1+num2+num3),2) as col11,trunc(((num1+num2+num3)/num),2) as col12,col13,col14,col15,col16,col17,col18,col19,col20,col21,col22,col23,col24,col25,col26,col27,col28,col29
,col30,col31,col32,col33,col34,col35,col36,col37,col38,col39,col40,col41,col42,col43,col44,col45,col46,col47,col48,col49,col50
,col51,col52,col53,col54,col55,col56,col57,col58,col59,col60,col61,col62,col63,col64,col65  from
(
select a.apply_no as col1,f.id as col2,f.name as col3,f.relation_to_apply_man as col4,f.iden_id as col5,f.health as col6,f.accountaddr as col7,f.nowaddr as col8,f.unit_title as col9,

(select count(apply_no) from  apply_family_member s where s.apply_no=f.apply_no  group by s.apply_no ) as num,
(select  decode(avg(s1.actual_income),'',0,avg(s1.actual_income)) from apply_family_member u ,income_city_salary s1 where u.id=s1.family_members_id(+) and u.id=f.id group by u.id) as num1,
(select  decode(avg(s2.pensions),'',0,avg(s2.pensions)) from apply_family_member u ,income_social_insurance s2 where u.id=s2.family_members_id(+) and u.id=f.id group by u.id) as num2,
(select  decode(avg(s3.other_income),'',0,avg(s3.other_income)) from apply_family_member u ,income_other s3 where u.id=s3.family_members_id(+) and u.id=f.id group by u.id) as num3,
   decode(f.identity,'下岗','1','') as col13,
decode(f.identity,'无业','1','') as col14,
decode(f.identity,'打零工','1','') as col15,
decode(h.equity_Type,'私有','1','') as col16,
decode(h.equity_Type,'租住','1','') as col17,
decode(h.equity_Type,'借住','1','') as col18,
h.use_Area as col19,
decode(f.iiiName,'癌症','1','') as col20,
decode(f.iiiName,'尿毒症','1','') as col21,
decode(f.iiiName,'血液透析','1','') as col22,
decode(f.iiiName,'白血病','1','') as col23,
decode(f.iiiName,'慢性病','1','') as col24,
decode(f.iiiName,'其他特殊疾病','1','') as col25,
decode(f.disability,'二级(重度)肢体残疾','1',(decode(f.disability,'一级(重度)肢体残疾','1',''))) as col26,

decode(f.disability,'二级(重度)肢体残疾','1',(decode(f.disability,'一级(重度)肢体残疾','1',''))) as col27,
decode(f.disability,'一级智力残疾','1',(decode(f.disability,'二级智力残疾','1',''))) as col28,
decode(f.disability,'视力残疾一级盲','1',(decode(f.disability,'视力残疾二级盲','1',''))) as col29,
decode(f.disability,'聋哑重残一级','1',(decode(f.disability,'聋哑重残二级','1',''))) as col30,

decode(f.disability,'其它重残(二级以上)','1','') as col31,

decode(f.disability,'三级(重度)肢体残疾','1','') as col32,
decode(f.disability,'三级(重度)精神残疾','1','') as col33,
decode(f.disability,'三级智力残疾','1',(decode(f.disability,'四级智力残疾','1',''))) as col34,
decode(f.disability,'视力残疾三级盲','1',(decode(f.disability,'视力残疾四级盲','1',''))) as col35,
decode(f.disability,'聋哑重残三级','1',(decode(f.disability,'聋哑重残四级','1',''))) as col36,
decode(f.disability,'其他重残(三级以下)','1','') as col37,
--学历
decode(f.education,'小学','1','') as col38,
decode(f.education,'中学','1','') as col39,
decode(f.education,'高中','1','') as col40,
decode(f.education,'本科','1','') as col41,

(select (case when (trunc(months_between(sysdate,g.born_date)/12)+1) between 60 and 69 then '1' end) AS AGE from apply_family_member g where  f.id=g.id ) as col42,
(select (case when (trunc(months_between(sysdate,g.born_date)/12)+1) between 70 and 79 then '1' end) AS AGE from apply_family_member g where  f.id=g.id ) as col43,
(select (case when (trunc(months_between(sysdate,g.born_date)/12)+1) between 80 and 89 then '1' end) AS AGE from apply_family_member g where  f.id=g.id ) as col44,
(select (case when (trunc(months_between(sysdate,g.born_date)/12)+1)>=90 then '1' end) AS AGE from apply_family_member g where  f.id=g.id ) as col45,
decode(f.FAMILY_TYPE,'伤残军人','1','') as col46,
decode(f.FAMILY_TYPE,'在乡军人','1','') as col47,
decode(f.FAMILY_TYPE,'复员军人','1','') as col48,
decode(f.FAMILY_TYPE,'烈属','1','') as col49,
decode(f.FAMILY_TYPE,'华侨','1','') as col50,
decode(f.FAMILY_TYPE,'朝侨','1','') as col51,
decode(f.FAMILY_TYPE,'三无对象','1','') as col52,

decode(f.INSURANCE,'医疗保险','1','') as col53,
decode(f.INSURANCE,'养老保险','1','') as col54,
a.phone as col55,
c.comm_name as col56,
c.comm_no as col57,
c.street_no as col58,
c.city_no as col59,
c.area_no as col60,

decode(a.gr,'集中供热','1','') as col61,
decode(a.gr,'小区供热','1','') as col62,
decode(a.gr,'其它','1','') as col63,
to_char(a.apply_date,'yyyy') as col64,
c.sheng_no as col65
 

   from  application a,apply_family_member f,income_house h,Community_Inf c  
   where a.apply_no=f.apply_no and c.comm_no=a.comm_no and f.id=h.family_members_id(+) order by a.apply_no asc
    ) apply

 

Delphi 12.3 作为一款面向 Windows 平台的集成开发环境,由 Embarcadero Technologies 负责其持续演进。该环境以 Object Pascal 语言为核心,并依托 Visual Component Library(VCL)框架,广泛应用于各类桌面软件、数据库系统及企业级解决方案的开发。在此生态中,Excel4Delphi 作为一个重要的社区开源项目,致力于搭建 Delphi 与 Microsoft Excel 之间的高效桥梁,使开发者能够在自研程序中直接调用 Excel 的文档处理、工作表管理、单元格操作及宏执行等功能。 该项目以库文件与组件包的形式提供,开发者将其集成至 Delphi 工程后,即可通过封装良好的接口实现对 Excel 的编程控制。具体功能涵盖创建与编辑工作簿、格式化单元格、批量导入导出数据,乃至执行内置公式与宏指令等高级操作。这一机制显著降低了在财务分析、报表自动生成、数据整理等场景中实现 Excel 功能集成的技术门槛,使开发者无需深入掌握 COM 编程或 Excel 底层 API 即可完成复杂任务。 使用 Excel4Delphi 需具备基础的 Delphi 编程知识,并对 Excel 对象模型有一定理解。实践中需注意不同 Excel 版本间的兼容性,并严格遵循项目文档进行环境配置与依赖部署。此外,操作过程中应遵循文件访问的最佳实践,例如确保目标文件未被独占锁定,并实施完整的异常处理机制,以防数据损毁或程序意外中断。 该项目的持续维护依赖于 Delphi 开发者社区的集体贡献,通过定期更新以适配新版开发环境与 Office 套件,并修复已发现的问题。对于需要深度融合 Excel 功能的 Delphi 应用而言,Excel4Delphi 提供了经过充分测试的可靠代码基础,使开发团队能更专注于业务逻辑与用户体验的优化,从而提升整体开发效率与软件质量。 资源来源于网络分享,仅用于学习交流使用,请勿用于商业,如有侵权请联系我删除!
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值