医疗价目自动滚动式报价软件在ＶＢ下的实现.pdfVIP

‘电子工程师) 1999年增刊 医疗价目自动滚动式报价软件在VB下的实现 刘建开 李立新 李琳蓉 钟德富 解放军第42医院网络中心(四川夹江，614100) 擒蔓本文主要介绍了在VB下处理数据库的方法及其在医疗信息臂理中的应用． 关■调数据库VB医疗信息 以用VB的文本框之类的普通控件显示单条 1前言 记录，也可以用高级约束数据控件显示多行 随着医疗体制的改革和医疗保险制度 字段和记录。医疗价目滚动式报价要求显示 的逐渐完善，病人对医疗费用和医疗服务越 数据的画面如同Excel的二维表格，用VB DataBoundGrid 来越关心．作为优质服务的一个项目，如何公 中的DBGrid(Microsoft 开医院所有药品及其他收费项目的价格标 Control约束数据网格控件)控件即可实现． 准，增加病人对医院的信任，增强医院的竞争 设置DBGrid控件属性的数据源(Data 力，是医院的一件大事．我院在一军字一号工 Source)项为Data控件名，DBGrid控件就与 程一一一医疗信息管理网络系统平稳运行的 Data控件建立关连，Data控件控制数据记录 基础上，开发了医疗价目自动滚动式报价(如 按顺序往上移，DBGrid控件所显示的医，r价 同证券交易所的股票报价)软件。这套软件是 目就一滚动一起来。DBGrid控件除了要设置和 在vB5．0下实现的． 其他控件一样的一般属性外．还要设置其内 部属性。对着Ⅸ虹ird控件按一下鼠标右链， 2在VB下数据库的处理 选择”RetrieveFields”项，出现了数据库的字 VB(Visual 段分栏．再按一次鼠标右键，选择一 Basic)是微软公司推出的一 个灵活易用、功能强大、可视化的多媒体编程 开发环境，不仅为用户提供丰富的多媒体开 Gird控件的二维表格进行详细地设置，一个 发控件，还具备强大的数据库处理功能．VB 美观大方的二维表格就制作完成了。 提供了单机和网络上生成并访问数据库的大 3软件的自动运行与退出 量工具，本软件主要用到Data(数据库)控 件。Data控件支持多种数据库类型，VB提供 软件自动运行与退出可以通过判断鼠 Data 标，键盘的状态来确定．Windows系统的所 可视化数据管理器(Visual Manager) API中， 对数据库进行维护管理并转换到Data控件有输人／输出管理函数都在Win32 的VB应用程序中．结合我院医疗信息网络 包括鼠标与键盘输人和发送到应用程序的所 有消息的处理，VB应用程序都可以调用。在 系统的Foxpro数据库，设置Data控件的 NalgaeVB IDE手册的APIViewer中可以查到相 connect属性为Foxpr03．0，Database 属性中填人数据库文件的路径和名称，就可 应的鼠标、键盘激活函数GetKeyBoardstate( 以处理Foxpro数据库． )等．利用这些函数检测鼠标、键盘的状态，再 显示Dat