一套完整的his系统

这是一套完整的his系统，包括药房管理，护士站，等等的一系列功能，为医院的管理提供了方便

//---------------------------------------------------------------------------

#include 
#pragma hdrstop
USERES（“CRControls50.res“）;
USEPACKAGE（“vcl50.bpi“）;
USEPACKAGE（“Vcldb50.bpi“）;
USEUNIT（“..\CRControlsReg.pas“）;
USEPACKAGE（“dac50.bpi“）;
//---------------------------------------------------------------------------
#pragma package（smart_init）
//---------------------------------------------------------------------------

//   Package source.
//---------------------------------------------------------------------------

#pragma argsused
int WINAPI DllEntryPoint（HINSTANCE hinst unsigned long reason void*）
{
        return 1;
}
//---------------------------------------------------------------------------

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1580  2003-08-26 19:55  住院结算\App\Model\Approach\UMADApproach.dfm

     文件        926  2003-08-20 15:28  住院结算\App\Model\Approach\UMADApproach.pas

     目录          0  2003-10-29 10:46  住院结算\App\Model\Approach

     文件        804  2003-09-10 13:19  住院结算\App\Model\Area\UMADArea.dfm

     文件        659  2003-08-22 13:11  住院结算\App\Model\Area\UMADArea.pas

     目录          0  2003-10-29 10:46  住院结算\App\Model\Area

     文件        976  2002-09-25 23:11  住院结算\App\Model\Bed\UMADBed.dfm

     文件        759  2003-08-26 10:56  住院结算\App\Model\Bed\UMADBed.pas

     目录          0  2003-10-29 10:46  住院结算\App\Model\Bed

     文件        807  2003-08-22 17:13  住院结算\App\Model\BedCatalog\UMADBedCatalog.dfm

     文件        737  2003-08-22 17:12  住院结算\App\Model\BedCatalog\UMADBedCatalog.pas

     目录          0  2003-10-29 10:46  住院结算\App\Model\BedCatalog

     文件        786  2002-09-09 20:03  住院结算\App\Model\BedChargeItem\UMADBedChargeItem.dfm

     文件        766  2003-08-24 22:59  住院结算\App\Model\BedChargeItem\UMADBedChargeItem.pas

     目录          0  2003-10-29 10:46  住院结算\App\Model\BedChargeItem

     文件        810  2003-08-26 13:29  住院结算\App\Model\BloodType\UMADBloodType.dfm

     文件        739  2003-08-24 22:55  住院结算\App\Model\BloodType\UMADBloodType.pas

     目录          0  2003-10-29 10:46  住院结算\App\Model\BloodType

     文件       1033  2003-09-12 10:03  住院结算\App\Model\ChargeCatalog\UMADChargeCatalog.dfm

     文件        819  2003-09-10 13:21  住院结算\App\Model\ChargeCatalog\UMADChargeCatalog.pas

     目录          0  2003-10-29 10:46  住院结算\App\Model\ChargeCatalog

     文件       1154  2003-09-12 16:26  住院结算\App\Model\ChargeItem\UMADChargeItem.dfm

     文件        836  2003-08-25 18:42  住院结算\App\Model\ChargeItem\UMADChargeItem.pas

     目录          0  2003-10-29 10:46  住院结算\App\Model\ChargeItem

     文件        882  2002-09-10 11:23  住院结算\App\Model\CheckInMethod\UMADCheckInMethod.dfm

     文件        780  2003-08-24 23:03  住院结算\App\Model\CheckInMethod\UMADCheckInMethod.pas

     目录          0  2003-10-29 10:46  住院结算\App\Model\CheckInMethod

     文件        894  2003-08-26 13:30  住院结算\App\Model\CheckOutMethod\UMADCheckOutMethod.dfm

     文件        766  2003-08-20 22:50  住院结算\App\Model\CheckOutMethod\UMADCheckOutMethod.pas

     目录          0  2003-10-29 10:46  住院结算\App\Model\CheckOutMethod

............此处省略5633个文件信息