view.sql

Delphi6开发的HIS程序

create or replace view v_inpatient as
select inpatient.inpatientid      i_inpatientid,
       inpatient.linkmanphone     i_linkmanphone,
       inpatient.linkmanaddress   i_linkmanaddress,
       inpatient.linkmanname      i_linkmanname,
       inpatient.rprpostcode      i_rprpostcode,
       inpatient.rpraddress       i_rpraddress,
       inpatient.workdeptpostcode i_workdeptpostcode,
       inpatient.idcardcode       i_idcardcode,
       inpatient.phone            i_phone,
       inpatient.workdepatcaption i_workdepatcaption,
       inpatient.created          i_created,
       inpatient.updated          i_updated,
       inpatient.memo             i_memo,
       inpatient.prepay           i_prepay,
       inpatient.blance           i_blance,
       inpatient.foodid           i_foodid,
       inpatient.sicknesslevelid  i_sicknesslevelid,
       inpatient.bedid            i_bedid,
       inpatient.sicktypeid       i_sicktypeid,
       inpatient.countryid        i_countryid,
       inpatient.bloodtypeid      i_bloodtypeid,
       inpatient.personrelationid i_personrelationid,
       inpatient.sickid           i_sickid,
       inpatient.reckoningid      i_reckoningid,
       inpatient.sectionofficeid  i_sectionofficeid,
       inpatient.indate           i_indate,
       inpatient.outdate          i_outdate,
       inpatient.doctorid         i_doctorid,
       sick.sickid                s_sickid,
       sick.isarrearage           s_isarrearage,
       sick.code                  s_code,
       sick.birthday              s_birthday,
       sick.sex                   s_sex,
       sick.cname                 s_cname,
       sick.created               s_created,
       sick.isactive              s_isactive,
       sick.isvalid               s_isvalid,
       sick.st                    s_st,
       sick.updated               s_updated,
       sick.professionid          s_professionid,
       sick.wedlockid             s_wedlockid,
       sick.nativeplaceid         s_nativeplaceid,
       sick.nationid              s_nationid,
       sick.paymentmethodid       s_paymentmethodid,
       sick.createby              s_createby,
       sick.updateby              s_updateby,
       sick.tollstationid         s_tollstationid
from   inpatient, sick
where  inpatient.sickid = sick.sickid;