PB在国内医疗系统中的应用现状

在国内,有不少医院的 HIS 系统采用 PB(PowerBuilder)开发。例如杭州创业软件采用 Power builder 开发平台以及两层 C/S 结构;我国军队医院和地方医院的 HIS 系统,大多采用 PB+Oracle 开发的 C/S 架构,据了解,至少有 80% 以上的医院的信息化系统(包括最核心的 HIS 系统)采用 PB 开发,特别是信息化起步较早的大型医院。目前我国医院 HIS 系统多在 2005 年前后建成,采用 PB 或 DELPHI 开发的 C/S 架构系统占比较高,后续功能扩展更新非常受限。采用 PB 开发的 HIS 系统在运行过程中也暴露出一些问题,如传统的 PB+Oracle 架构的 C/S HIS 系统,每个客户端从打开到关闭期间,至少占用一个数据库连接,当客户端数量较多时,系统性能明显下降,而且由于 C/S 系统固有的特点,已经开发是对性能关注不足,导致大并发下性能瓶颈非常突出。此外,采用 PB 开发的 HIS 系统在易用性、稳定性、功能完整性等方面也可能存在一些不足。例如采用 PB 开发的系统存在稳定性差、功能不全、速度慢等问题。在查询高峰期做查询统计的时候会把服务器查死;做不到专家号的控制,挂号有时会出现重号;刚开始运行时速度还可以,运行一年以后速度就开始变慢,2 年后如果不转存数据就根本无法再运行了。

PB 开发的 HIS 系统的优势

PowerBuilder(PB)开发的医院信息系统(HIS)具有一定的优势。

首先,开发效率快,这使得项目能够在相对较短的时间内上线,满足医院对信息系统的迫切需求。其次,PB 的安装简单,对于医院的技术人员来说,部署和维护相对容易。再者,经过市场验证后的 PB 开发的 HIS 产品相对更加成熟,医院可以站在 “巨人” 的肩膀上进行新的需求开发。产品更新迭代速度快,能够及时跟上医疗行业的发展和变化。同时,相对而言更为节省医院的人力成本,不需要投入大量的开发人员进行长期的维护和升级。例如,一些医院采用 PB 开发的 HIS 系统后,能够快速实现收费管理等基础功能,提高了医院的工作
PowerBuilder是美国Powersoft公司于90年代初推出的基于客户/服务器体系结构的面向对象的数据库开发工具。该产品一上市即深受广大应用开发人员的喜爱,因此迅速占领市场,目前几乎已发展成为前端工具的事实上的标准。著名数据库软件公司Sybase收购Powersoft公司以后,PowerBuilder通过Sybase较早地介绍给了中国用户。 1994年Powersoft公司又在北京建立办事处,PowerBuilder便广泛为中国的用户接受和使用。所开发应用已广泛地应用于金融、证券、邮电、商业等各个部门和各个领域,并发挥着巨大的作用。据有关方面统计,PowerBuilder在中国的市场占有率目前已达40%左右。 Sybase公司及其代理商在从事PowerBuilder的销售、培训和技术支持等服务时,经常发现由于用户来自各个行业,专业背景不同,开发经验不同,再兼之国内的有关书籍和资料较少,因此造成用户对Power-Builder的很多特性不甚了解, 在进行深入开发时遇到了很多困难。鉴于此,开办PowerBuilder应用开发系列讲座,本讲座面向正在使用PowerBuilder进行开发的读者, 主要讨论使用PowerBuilder进行数据库应用开发的经验和开发技巧。<br><br> * 第一讲: 数据库的事务管理<br> * 第二讲: 调用Windows的动态链接库<br> * 第三讲: PowerBuilder面向对象的程序设计<br> * 第四讲: 并发控制<br> * 第五讲: DataWindow的打印输出<br> * 第六讲: DataWindow的打印输出(续)<br> * 第七讲: 利用SetActionCode函数控制DataWindow<br> * 第八讲: 分布式PowerBuilder设计<br> * 第九讲: DataWindow的数据缓冲区<br> * 第十讲: 用DataWindow实现对多表的修改<br> * 第十一讲:游标的使用<br> * 第十二讲:预装入对象<br> * 第十三讲:资源管理<br> * 第十四讲:PowerBuilder的事件<br> * 第十五讲:PowerBuilder的事件(续)<br> * 第十六讲:生成可重用的数据窗口<br> * 第十七讲:编写行选择函数<br> * 第十八讲:优化数据库查询<br> * 第十九讲:使用PowerBuilder另外500个函数(上)<br> * 第二十讲:使用PowerBuilder另外500个函数(中)<br> * 第二十一讲:使用PowerBuilder另外500个函数(下)<br> * 第二十二讲:树型视图控件<br> * 第二十三讲:函数与事件<br> * 第二十四讲:Install Builder 的使用方法<br> * 第二十五,二十六讲:一个代码维护的应用程序(上、下)<br> * 第二十七讲:在 PowerScript 脚本中访问数据窗口中的数据<br> * 第二十八讲:开发和运行环境中的动态连接库<br> * 第二十九讲:如何使用 BLOB 数据类型<br> * 第三十讲:在数据窗口中使用滚动条<br> * 第三十一讲:在数据窗口中使用滚动条(续)<br> * 第三十二讲:为下拉式数据窗口建立缓冲区<br> * 第三十三讲:为下拉式数据窗口建立缓冲区(续)<br> * 第三十四讲:布式事务处理<br> * 第三十五讲:布式应用开发<br> * 第三十六讲:FUNCky 的使用<br> * 第三十七讲:PFC介绍<br> * 第三十八讲:PowerBuilder 6.0 简介<br> * 第三十九讲:图形用户界面设计<br> * 第四十讲:图形用户界面设计(续)<br>
PB操作系统服务的简单例子,目前仅包含判断服务存在,取服务状态,停止和启动服务等 这个链接下,有功能较强的版本 http://download.csdn.net/source/3557823 FUNCTION ulong OpenSCManager(ref string lpMachineName,ref string lpDatabaseName,ulong dwDesiredAccess) LIBRARY "advapi32.dll" ALIAS FOR "OpenSCManagerA" FUNCTION ulong CreateService(ulong hSCManager,ref string lpServiceName,ref string lpDisplayName,ulong dwDesiredAccess,ulong dwServiceType,ulong dwStartType,ulong dwErrorControl,ref string lpBinaryPathName,ref string lpLoadOrderGroup,ref ulong lpdwTagId,ref string lpDependencies,ref string lp,ref string lpPassword) LIBRARY "advapi32.dll" ALIAS FOR "CreateServiceA" FUNCTION ulong DeleteService(ulong hService) LIBRARY "advapi32.dll" FUNCTION ulong CloseServiceHandle(ulong hSCObject) LIBRARY "advapi32.dll" FUNCTION ulong OpenService(ulong hSCManager,ref string lpServiceName,ulong dwDesiredAccess) LIBRARY "advapi32.dll" ALIAS FOR "OpenServiceA" FUNCTION ulong QueryServiceConfig(ulong hService,ref QUERY_SERVICE_CONFIG lpServiceConfig,ulong cbBufSize,ref ulong pcbBytesNeeded) LIBRARY "advapi32.dll" ALIAS FOR "QueryServiceConfigA" FUNCTION ulong QueryServiceConfig(ulong hService,ref query1 lpServiceConfig,ulong cbBufSize,ref ulong pcbBytesNeeded) LIBRARY "advapi32.dll" ALIAS FOR "QueryServiceConfigA" FUNCTION ulong QueryServiceStatus(ulong hService,ref SERVICE_STATUS lpServiceStatus) LIBRARY "advapi32.dll" FUNCTION ulong ControlService(ulong hService,ulong dwControl,ref SERVICE_STATUS lpServiceStatus) LIBRARY "advapi32.dll" FUNCTION ulong StartService(ulong hService,ulong dwNumServiceArgs,ulong lpServiceArgVectors) LIBRARY "advapi32.dll" ALIAS FOR "StartServiceA" FUNCTION ulong ChangeServiceConfig(ulong hService,ulong dwServiceType,ulong dwStartType,ulong dwErrorControl,ref string lpBinaryPathName,ref string lpLoadOrderGroup,ref ulong lpdwTagId,ref string lpDependencies,ref string lpServiceStartName,ref string lpPassword,ref string lpDisplayName) LIBRARY "advapi32.dll" ALIAS FOR "ChangeServiceConfigA" FUNCTION ulong EnumDepend
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值