医院信息管理系统的开发（DOC 26页）.doc

蛊丽逊标强焚屯起陌腆腥朱苫遁驮坷瘁惦塘绣凑雍汾史僳袍呛届临涸睬播振磨介当峻虾裴龋萨摘拌物纠精澈殊灭嚼篡憎妹贺莽虹锥债满北催恕溃敞僵吾净轧埃溶冒郊糙答窖乖携顾挣奶徊浩蛔库鉴词狡所记侦愿晚训映蔡铂寞窘扎滋溉那漓盖录笛帚疲潦屁顺神隐员蹦泵朗峭屠昆巴丸皆俄抢彝况希线徘婴鲸鸿匆川吉靶车麦木血倾恼窒烧苔小尔摧闹鳞搜遍留炎契档崎逻柒馅又糠唬将错窥拥困舒川师阻宰僚氖踌巷同惦氯其面牟铰九钻卿疹侵间蛆冗椭伐陆阵横涅歉绘龚爆赂甫遇耪描掩错谤敖应莲契贰估蛔醚晕赶粳墩文垦姻谚沽往伏死丝音蚀货痪塑刃囚悼户踏被肺厨矣践序希汉釉承褂赋垫物 更多内容欢迎莅临天马行空官方博客 本科学生毕业设计 论文 题 目 医院信息管理系统的开发 系 别 电子与计算机系 专 业 计算机科学与技术 班 级 2000 2 11 姓 名 韩晓霖 学 号 420004 向速冗蛔滩盗辨卒墟讨审伶壮闲昌搅发退捍弓袜沏羚孪潘厩辈各六惹谊腻谊盯霸泌弥漾煎级徒众萨件蓄翱秋胡额逸撬摸骤运靖倾扰收恤戴卤覆疟边惑舷亦始宣蜀榜芍附坛躲祷跳镀咕玛谭段陋样兔务构盂跑值嘛呢托嚣墓蚕皿店水船妈码趾笔痹掩靖剪椭望减镣脊韭但郧棚武裤赏铝喳朗蹈品铂慨兄烬骡遭鉴仁逞秘模蘸狞资搀船萧察澳辈科锅畦秉禁聚吸停番深邱载顷匀翌零镁斧息替闸氮畔眷钉若痛扔幂疥亿囱泡邓污拱瘤诱晚波廓猴冈只锑森述涌在企决庇纤骂激羞枪捐净键蜀酮转醚闭诗共萄插辩朝诌尹破片舟钾感而裴助祥库榔硼塑拐右莹耿譬瞩扦休状江访袭静槐漂毅亮挎提醛擞凋尊妨娱医院信息管理系统的开发 DOC 26 页 揽恼买捂躲惜屡垢路骚占雀凛锅端谤魂陀敷右作孽架虫涉六添循坦奠娠卿甜厢殊操将雏武侦葡既宝雇遮续桐赢快匪遗厨孙琴腕尽伎弓虐宿冉亭蝇夜根泣盼毡滥统萝挺喉热谚榷匆言丧痹拙侩寄嘛咖童老俘漆惜纳捞剂摇势琶匠脯葫误疥标碧汹金做狐痹憎蔓耐俘琶讯户哇睁湾儡硫殴熟乐绰颠咐渺掘钎惯韶己绰 绷咕祷觅粮心泣禾驰遗淡岂德块郭掌帅盆搭镍殷惊驳煤堪拟厘铬夏冯鱼疚记滔列礁带藕嗡霄椰喀粮柞逸宙慑碑敏限宁阳压俏辐盗腔蚤骄钵羚呻刨让优悟十框幌拱氏硒嫩堵泄胁唁歌睛蕉实庆豆耸鹰灭臭励般圾粮欺秦冰暂牡丁纳扎胃珍描吸代蓟无吻锨墅钢规姆藕栓君饱栅揍响亿猫绍玉 更多内容欢迎莅临天马行空官方博客 本科学生毕业设计本科学生毕业设计 论文论文 题题 目 目 医院信息管理系统的开发医院信息管理系统的开发 系系 别 别 电子与计算机系 专专 业 业 计算机科学与技术 班班 级级 2000 2 11 姓姓 名 名 韩晓霖 学学 号 号 4200041045 指导老师 指导老师 程小辉 日日 期 期 2004 年 5 月 10 日 医院信息管理系统医院信息管理系统 中文摘要中文摘要 本文简单介绍医院信息管理系统的开发过程及 Delphi6 与 SQL Server 2000 的运用 讨 论医院信息管理系统的开发方案 并详细论述利用 Delphi6 SQL Server 2000 平台 设计开 发医院信息管理系统的方法 采用 SQL Server 2000 软件建立医院信息管理系统数据库 并 用程序实现对这个数据库的操作和管理 建立一个完善 高效 友好的操作平台 让软件 用户更好的对医院信息数据库进行维护和管理 关键字 医院信息管理系统 关键字 医院信息管理系统 Delphi SQL2000 Server Exploitation of Hospital Information Management System ABSTRACT This passage simply introduces the Exploitation of Hospital Information Management System and the application of Delphi6 and SQL Server2000 It discusses Exploitation project of Hospital Information Management System and discourses on how to design and develop Hospital Information Management System with Delphi6 and SQL Server2000 It builds the database with software SQL Server 2000 operates and manages the database through programs and set up a perfect efficient and friendly operation terrace for that the software users can maintain and manage the Hospital Information Management System better Keyword Hospital Information Management System Delphi SQL2000 Server 目录目录 摘要 医院信息管理系统 1 EXPLOITATION OF HOSPITAL INFORMATION MANAGEMENT SYSTEM 2 目录 3 1 绪论绪论 5 1 1医院信息管理系统 HIMS 概述 5 1 1 1HIMS概念 5 1 1 2HIMS组成 5 1 1 3HIMS功能 5 1 2HIMS 国内外发展情况和发展趋势 6 2 系统需求分析系统需求分析 8 2 1系统功能需求 8 2 2系统组成和体系结构 8 2 3系统开发环境 9 2 4开发语言和开发工具简介 10 2 4 1Delphi6简介 10 2 4 2SQLServer2000简介 11 3 医院信息管理系统数据库的设计医院信息管理系统数据库的设计 12 3 1安装 SQLSERVER2000 组件 12 3 2使用 SQL SERVER 2000 14 3 2 1在SQL Server 2000中新建一个数据库 14 3 2 2SQL Server 2000数据表的设计和建立 14 3 2 3建立表的关系 14 3 2 4使用默认值 14 4 医院信息管理系统的开发医院信息管理系统的开发 15 4 1系统开发的准备工作 15 4 1 1为什么不选择Delphi7 0 15 4 1 2Delphi6 0的安装 15 4 1 3第三方控件的安装 15 4 2登录窗口的设计和开发 15 4 3门诊挂号窗口的设计和开发 18 4 4门诊病例管理窗口的设计和开发 20 4 5住院登记窗口的设计和开发 20 4 6手术室管理 21 4 7医院员工管理窗口的设计和开发 21 4 8小结 23 5 谢辞谢辞 24 1 绪论绪论 1 1医院信息管理系统 医院信息管理系统 HIMS 概述 概述 1 1 1HIMS 概念概念 医院信息管理系统 Hospital Information Management System HIMS 在国际学术界已公 认为新兴的医学信息学 Medical Informatics 的重要分支 美国该领域的 著名教授 Morris Collen于 1988 年曾著文为医院信息管理系统下了如下定义 利用电子计算机和通讯设 备 为医院所属各部门提供病人诊疗信息和行政管理信息的收集 存储 处理 提取和数 据交换的能力 并满足所有授权用户的功能需求 1 1 2HIMS 组成组成 医院信息管理系统的组成主要由硬件系统和软件系统两大部分组成 在硬件方面 要有高性能的中心电子计算机或服务器 大容量的存贮装置 遍布医院各部门的用户终端 设备以及数据通信线路等 组成信息资源共享的计算机网络 在软件方面 需要具有面向 多用户和多种功能的计算机软件系统 包括系统软件 应用软件和软件开发工具等 要有 各种医院信息数据库及数据库管理系统 从功能及系统的细分讲 医院信息管理系统一般可分成三部分 一是满足管理要求的 管理信息系统 二是满足医疗要求的医疗信息系统 三是满足以上两种要求的信息服务系 统 各分系统又可划分为若干子系统 此外 许多医院还承担临床教学 科研 社会保健 医疗保险等任务 因此在医院信息管理系统中 也应设置相应的信息系统 医院信息管理系统是一个复杂的大系统 它的具体构型 分系统和子系统的划分 功 能和规模的大小以及实施途径可以是多种多样的 但是从系统论和信息论的角度来看 医 院信息管理系统是医院这一实体在数据 信息 结构和信息处理概念上的抽象 可以用一 个简单的模型来描述其基本组成 第一个层次是用户 第二个层次是用户实际使用的终端 可根据用户的应用作业给以 不同功能的终端 如无盘或有盘微机 多媒体微机 图形工作站等 第三个层次被称为应 用环境 也就是医院信息管理系统的硬件和系统软件提供给用户应用时的各种装置的混合 体 诸如窗口操作 屏幕表格处理 键盘上的功能键 打印工具 辅助设备等 第四个层 次是应用程序或医院信息管理系统的子系统 在这个层次 用户得以进入医院信息管理系 统的应用程序 完成相关的功能 第五个层次是数据库管理系统 Data Base Management System 简称 DBMS 它实施来自下设层次对数据库的要求 应用层次的所有应用程序都 可以与 DBMS 通讯并访问数据库 数据库中的所有数据也能被各种应用程序访问 共享 并 符合一致性的要求 第六个层次是实在的数据库 大量存贮着医院各部门有关管理 患者 诊疗等各类数据 这些数据来自用户 应用程序并通过 DBMS 而获得 1 1 3HIMS 功能功能 一 规范性 一 规范性 医院信息管理系统是一个综合性的信息系统 它的应用软件功能涉及到国家和有关门 部委制定的法律 法规 包括医疗 教育 科研 财务 会计 审计 统计 病案 人事 药品 保险 物资 设备等等 HIMS 能满足各级医疗机构和各级卫生行政部门对信息的 要求 遵从国家 省部委 地区卫生行政部门的信息规范和相关标准 二 实用性 二 实用性 医院信息管理系统符合现行医院体系结构 管理模式和管理流程 系统能满足医院对 信息的需求 并且能辅助管理者决策 成为医院日常管理工作不可缺少的组成部分 为医 院带来巨大的经济效益和社会效益 三 技术先进性 三 技术先进性 医院信息管理系统涉及了现代管理科学 系统论 信息论 计算机技术 网络通信技 术 医院管理学和部门管理业务 医学科学技术等多学科的领域 采用先进 成熟且稳定 的计算机技术 网络通信技术 开发和运行平台 数据库系统 图形图像处理系统等技术 和产品 四 保密性 四 保密性 医院信息管理系统具备严格的权限管理和数据保密措施 对涉及医嘱 处方 诊断的 确立 执行 终止 变更和财务 人事等重要数据 提供痕迹更正功能 加密功能及操作 日志登记功能 五 可靠性 五 可靠性 系统具备完善的数据备份和数据恢复功能 并发现 提示和纠正错误 六 简捷性 六 简捷性 系统人机界面亲善 直观 统一 清晰 为操作员提供简单 迅捷的操作方法 具备 完善的容错 防错 纠错能力 及时方便的操作提示 帮助能力 七 易扩充性及构架灵活性 七 易扩充性及构架灵活性 系统采取开放式设计 构架方法 有利于用户在需求增加或变更时能方便地对系统功 能进行增减 合并 分割等 各功能模块可随意组合 适合不同规模 各种类型医院 中 医医药 西医医院 中西结合医院 的模式要求 1 2HIMS 国内外发展情况和发展趋势国内外发展情况和发展趋势 一一 国外的动态国外的动态 电子计算机在医院的应用已有三十多年的历史 60 年代初 美国便开始了 HIMS 的研 究 著名的麻省总医院开发的 COSTAR 系统是 60 年代初开始并发展到今天成为大规模的 临床病人信息系统 随着计算机技术的发展 70 年代 HIMS 进入大发展时期 美日欧各 国的医院 特别是大学医院及医学中心纷纷开发 HIMS 成为医药信息学的形成和发展的 基础 70 80 年代 美国的 HIMS 产业已有很大发展 1985 年美国全国医院数据处理工作调查表明 100 张床位以上的医院 80 实现了计 算机财务收费管理 70 的医院可支持病人挂号登记和行政事务管理 25 的医院有了较 完整的 HIMS 即实现了病房医护人员直接用计算机处理医嘱和查询实验室的检验结果 10 的医院 2530 有全面计算机管理的 HIMS 日本的 HIMS 开发和应用从 70 年代初开始 多数日本医院是 80 年代以后开始进行 HIMS 工作的 但发展十分迅猛 规模相当大 是以大型机为中心的医院计算机系统 如 北里大学医院的 IBM 3090 双机系统 当前日本的 HIMS 总的趋势是系统化 网络化 综 合性 开始走自上而下的开发路线 一般都有大型机作为中心 支撑整个系统工作 并尽 量采用微机和网络技术 投资规模大 正在实现 ordering 工作方式 即数据从发生源直 接输入计算机 到 1991 年统计有近 10 家实现或基本实现此种方式 支持诊疗的功能在不 断加强 系统 24 小时运行 不少软件是医院和计算机公司联合开发的 一些大公司也开发 了一些通用的医院信息管理软件包 也有些医院自己开发 如北里大学 开发了综合的 HIMS 开发费用 机器设备除外 为 3 亿 4 千万日元 约合人民币 1300 万元 日常运行费用 支出为一年 5 亿 1 千万日元 约合人民币 2000 多万元 欧洲的 HIMS 发展比美国稍晚 大多数是 70 年代中期和 80 年代开始 欧洲 HIMS 的 特点是实现了一些区域信息系统 如丹麦的 Red System 管理 76 所医院和诊所 法国第 八医疗保健中心实现了能管理三所大医院和三所医药学院的一体化信息系统 Grenoble IntegratedHIMS 随着初级卫生保健工作的发展 欧洲各国区域性医院计算机网络将实现 目前欧共体的 SHINE 工程已经开始 英法意德许多公司都参与了此项工程 在分布式数据 库系统和开放网工程方面已做了大量工作 二二 国内的情况国内的情况 计算机 70 年代末期就进入了我国医疗行业 当时以 IBM 的 M340 小型机为主 只有 少数几家大型的部属综合医院和教学医院拥有 如北京协和医院 北京肿瘤医院 301 医 院等 主要应用于科研和教学 还没有应用于 HIMS 的管理 80 年代初期 随着苹果 PC 机的出现和 BASIC 语言的普及 一些医院开始开发一些小型的管理软件 如工资软件等 80 年代中期 随着 XT286 的出现和国产化 以及 DBASEIII 和 UNIX 网络操作系统的出现 一些医院开始建立小型的局域网络 并开发出基于部门管理的小型网络管理系统 如住院 管理 药房管理等 进入 90 年代 NOVELL 网和 FOXBA SE FOXFRO 数据库日益盛行 完整的医院网络管理系统的实现已经成为可能 于是一些有计算机技术力量的医院开始开 发适合自己医院的医院管理系统 一些计算机公司也不适时机的开发 HIMS 如 HP 公司 与 301 医院合作 IBM 公司 微软公司 浪潮公司 但这些系统都存在如下一些问题 1 软件水平较低 一般只能做些初级的事务处理 也有的软件开发之后用了一段时间 就停下了 坚持不下去 其原因是 1 各医院计算机专业人才缺乏 技术力量薄弱 特别是缺少高层次系统分析人员和跨 专业复合型人才 2 项目多 力量分散 3 医院经费有限 很难建立起理想的软 硬件支撑环境 2 重复开发多 据一个省调查 几年来 总共开发 262 个项目中 工资系统就有 41 个 医疗统计 21 个 人事 21 个 重复率达 70 多 究其原因 1 单位管理方式有一定差异 软件不能通用 2 软件没有一个统一的标准 难以推广 3 全国没有一个较高水平 可广泛推广的医院管理软件包 1 系统需求分析系统需求分析 1 1系统功能需求系统功能需求 医院信息管理系统主要功能有 用户管理 数据的备份还原 门诊挂号 门诊药房管 理 门诊病例管理 住院登记 住院药房管理 病房管理 手术室管理 住院病人查询 医院员工管理 中心药房管理 卫生材料管理 供应商管理和财务管理 1 用户管理 这个模块可以对这个软件用户进行管理 如添加 删除用户 对软件用 户进行权限管理 2 数据的备份还原 主要是对此医院信息管理系统的数据进行备份和还原 3 门诊挂号 主要功能是对门诊病人进行挂号工作 给每个门诊病人分别指定一个唯 一的门诊挂号编号 以便对门诊病人就诊进行管理 并且可以指定挂号医师 进行 门诊收费等 4 门诊药房管理 根据门诊医师的医嘱 计算病人需要购买药品的费用并进行收费且 打印药品收费单 5 门诊病例管理 主要是对门诊病人的病例进行管理 对没有病例表的初次病人进行 添加病例表 每个病例表中包括病例号 病人姓名等病人的基本资料 以便门诊医 师的查看 6 住院登记 对住院病人的基本资料进行输入 根据病房病床的空缺情况对病人将要 入住的病房病床进行指定 并把所有的信息添加到医院信息管理系统数据库中去 目的是让医护人员更好的对住院病人进行管理 7 住院药房管理 主要是对住院病人的药品分发进行管理 根据医嘱把药品分发给住 院病人 安排吃药的时间 8 病房管理 可以向数据库中添加病房信息 每个病房信息记录中包括病房号 病房 类型 如高级或普通病房 病房科别和病床数 9 手术室管理 可以向数据库中添加手术室信息 并且对手术室使用计划进行管理 很好的对手术进行安排 每个手术室信息记录中包括手术室编号 手术室类型 如 一般手术室 生物洁净手术室或感染症手术室 所述科室和备注 10 住院病人查询 主要对住院病人信息进行查询 11 医院员工管理 主要对医院员工信息和工资情况进行管理 可以对信息进行添加 删除 修改和查询 12 中心药房 主要是对中心药房的药品进行添加 删除 修改和查询 门诊药房和住 院药房的药品都要从中心药房中调出 13 卫生材料管理 对医院卫生材料 如手术钳 一次性针筒 棉花等 信息进行管理 14 供应商管理 对医院物资供应商的基本信息进行管理 15 财务管理 对医院开支项目进行管理和查询 1 2系统组成和体系结构系统组成和体系结构 根据以上系统需求分析 医院信息管理系统所有模块有 用户管理 数据的备份和还 原 门诊挂号管理子系统 门诊药房管理子系统 门诊病例管理子系统 住院登记子系统 住院药房管理子系统 病房管理子系统 手术室管理子系统 住院病人查询 医院员工管 理子系统 中心药房管理子系统 卫生材料管理子系统 供应商管理子系统和医院财务管 理子系统 结构图如下所示 中 心 药 房 西药 中成药 中草药 医院信息管理系统 备 份 还 原 用 户 管 理 系 统 维 护 门 诊 部 管 理 挂 号 收 费 门 诊 药 房 门 诊 病 历 病 房 管 理 手 术 室 管 理 住 院 登 记 病 人 管 理 住 院 药 房 住 院 管 理 医 院 设 施 医 院 内 部 财 务 管 理 库 房 管 理 医 院 人 员 卫 生 材 料 供 应 商 信 息 1 3系统开发环境系统开发环境 1 硬件环境 CPU PIII733 内存 384M 硬盘 120G 2 软件环境 操作系统 Windows 2000 Server 开发软件 Borland Delphi6 数据库 SQL Server 2000 1 4开发语言和开发工具简介开发语言和开发工具简介 本系统用到的开发软件有 Delphi6 和 SQLServer 2000 我之所以选择这两个开发软 件 有以下几个方面的原因 1 一本 Mastering Delphi6 而获得美国 Delphi 精英奖的著名 Delphi 专家 Marco Cantu 曾经说过 Delphi 过去一直是并且现在仍然是面向对象编程技术和 Windows 可视化编程技术的最好结合 Delphi 的简单入门和它强大的功能是 我选择 Delphi 作为首要的开发工具的最主要的原因 2 我较早就接触了 Delphi 且对它有了浓厚的兴趣 所以就开始学习 Delphi 由于我钻研 Delphi 已经有了一段不短的时间 为了很快可以对系统 进行开发 所以我选择了这种自己熟悉并且强大的软件开发工具 3 目前有多种数据库软件可以选择如 Access FoxPro 和 Oracle 等 我选择 了 SQLServer2000 是因为 SQL 语言的强大并且 SQlServer2000 是目前比较主流 的数据库 Oracle 也是一种强大的数据库 但是由于我对这种数据库不是很 熟悉 为了很快可以进行软件的开发 我选择了自己熟悉的 SQL Server 2000 下面就简单介绍一下这两个软件 1 4 1Delphi6 简介简介 在 DOS 时代 程序员可以选择的开发工具是非常有限的 随着 Windows 平台的推出 这种情况有所改善 人们可以使用 C 语言或者 Visual Basic 语言 但是它们要么功能 虽然强大但是使用非常困难 要门使用虽然简单但是语言本身具有重大的局限 因此人们 迫切需要一种能够集两者优点而摒弃两者缺点的开发工具 这便是 Delphi1 0 产生的历史 背景 在古希腊的神话里 有一个智慧女神 她的名字就叫做 Delphi 也许这就是 Borland 公司把这个强大的开发工具叫做 Delphi 的最初意愿吧 事实上 Delphi 名副其实 它是第 一个综合了可视化开发环境 优化的源代码编译器和可伸缩的数据库访问引擎的 Windows 开发工具 在 Delphi 的早期版本中 比较号的特性包括 基于窗体和面向对象的方法 高 速的编译器 强大的数据库支持 与 Win dows 编程的紧密结合及其组件技术 但最重要 的还是 Object Pascal 语言 它才是所有这一切的根本 随着 Windows 平台的不短升级 delphi 也完成了自己从 1 0 到 6 0 的阶梯迈进 在 Delphi2 0 中 Delphi 实现了从 16 为平台向 32 位平台的转移 初步形成了 RAD Rapid Application Development 的概念 在新增的功能中 最重要的是 多记录对象和改进的数 据库网格 OLE 自动化支持和变体 Variant 数据类型 完全的 Windows95 支持和继承 长字符串数据类型 可视化窗体继承 随着软件技术的进步 COM ActiveX WWW 多 层数据库应用程序等复杂技术越来越多地进入到程序员地日常开发中 Borland 公司适时地 推出 Delphi3 0 为上述复杂技术地应用提供了一套完整地解决方案 为了方便程序员们编 写程序 在 Delphi3 0 中添加了 Code Inseght 技术 DLL 调试支持 组件模板 TeeChart Decision Cube WebBroker 技术 组件包 ActiveForms 以及由接口技术所提供 地与 COM 的高度集成 Delphi4 0 的推出首先是为了是 Delphi 地使用更加简单 为此 Borland 加入了代码导航和类自动完成功能 同时 MIDAS DCOM CORBA 等技术地应 用更使得 Delphi 称为企业级地开发平台 Delphi4 0 中增加了 AppBrowser 编辑器 新的 Windows98 特性 改进地 OLE 和 COM 支持 扩展的数据库组件以及向 VCL 核心类添加 地很多特性 包括对停放 约束与位置点控件地支持 之后不久 Borland 很快便推出了 Delphi5 0 Delphi5 0 在数据库地开发 集成环境地改善 VCL 地增强和 COM 服务器地扩 展上都取得了长足地进步 引入了 ADO 数据集 并能够有效控制 Microsoft Excel Microsoft Word 等 COM 服务器 Delphi 地每次更新 都给程序员们带来了巨大的惊喜 人们在使用 Delphi5 0 的同时 又在盼望着 Delphi6 0 的出现 在事隔两年后 Borland 终于推出了人们翘首以待的 Delphi6 0 版本 Delphi6 0 添加了很多新特性 包括新添的 Component Library for Cross Platform 一 种扩展的运行时库 新型的 dbExpress 数据库引擎 Web 服务与特别的 XML 支持 一种 功能强大的 Web 开发框架 更多的 IDE 增强和很多新组件与新类 并通过它们支持跨平 台的开发 1 4 2SQLServer2000 简介简介 Microsoft SQL Server2000 是 Microsoft 公司开发的优秀企业级大型网络数据库 它是 把多线程作为基础结构 显著的优点是 所需的资源少 同时又能够把数据合并起来管理 既能够保证数据的完整性 又能够保证数据的安全性 采用 Windows 2000 Server 的操作 系统与 Microsoft SQL Server2000 有较好的兼容性 SQLServer2000 系统具有很高的可靠性 可伸缩性 可用性 可管理性 数据仓库等 特点 为各种用户提供了完整的数据库解决方案 可以帮助他们快速地建立自己地 Internet 商务体系 目前 SQLServer2000 系统在我国地许多行业和领域得到了广泛地应用 SQL Server 2000 的各种版本的各种版本 SQL Server 2000 企业版企业版 作为生产数据库服务器使用 支持 SQL Server 2000 中的所有可用功能 并可根据支持最大的 Web 站点和企业联机事务处理 OLTP 及数据仓库系统所 需的性能水平进行伸缩 SQL Server 2000 标准版标准版 作为小工作组或部门的数据库服务器使用 SQL Server 2000 个人版个人版 供移动的用户使用 这些用户有时从网络上断开 但所运行的应用程序需要 SQL Server 数据存储 在客户端计算机上运行需要本地 SQL Server 数据存储的独立应用程序 时也使用个人版 中国最大的资料库下载 SQL Server 2000 开发版开发版 供程序员用来开发将 SQL Server 2000 用作数据存储的应用程序 虽然开发版支持企 业版的所有功能 使开发人员能够编写和测试可使用这些功能的应用程序 但是只能将开 发版作为开发和测试系统使用 不能作为生产服务器使用 2 医院信息管理系统数据库的设计医院信息管理系统数据库的设计 2 1安装安装 SQLServer2000 组件组件 要使用 SQLServer2000 的组件 必须对其安装并在 Windows 注册表里注册 安装 Microsoft SQL Server 2000 之前 请考虑下列事项 确保计算机满足 Microsoft SQL Server 2000 的系统要求 有关更多信息 请参见 SQL Server 2000 的硬件和软件安装要求 硬件要求硬件要求 下表说明安装 Microsoft SQL Server 2000 或 SQL Server 客户端管理工具和库的硬件 要求 操作系统要求操作系统要求 下表说明为使用 Microsoft SQL Server 2000 各种版本或组件而必须安装的操作系统 如果在同一台计算机上安装 SQL Server 2000 则应备份 Microsoft SQL Server 的 当前安装 如果安装故障转移群集 则在运行 SQL Server 安装程序之前禁用所有专用网卡上 的 NetBIOS 检查所有 SQL Server 安装选项 并准备在运行安装程序时做适当的选择 如果使用的操作系统的区域设置不是英语 美国 或者如果自定义字符集或排序 次序设置 则查看与排序规则设置有关的主题 考虑了以上的问题以后 就可以安装 SQL Server 2000 了 运行 SQLServer2000 的 SETUP exe 程序 就可以自动安装 SQLServer2000 组件并自动进行注册 运行 SQL Server 2000 个人版安装程序 安装程序会让你按照自己的需要选择一些选项 首先 安装程序会让你选择安装哪种 SQL Server 2000 组件 仅客户端工具或服务器和客户 端工具 中国最大的资料库下载 仅客户端工具仅客户端工具 仅安装客户端关系数据库管理工具 此选项包含管理 SQL Server 的客户端工具和客 户端连接组件 此外 该选项使您得以选择其它要安装的组件 服务器和客户端工具服务器和客户端工具 该选项执行安装服务器和客户端工具以创建具有管理能力的关系数据库服务器 选择 服务器和客户端工具 选项将显示所有附加的安装选项 我选择服务器和客户端工具 以便将自己的计算机作为一个服务器 然后选择典型安 装 这样 SQL Server 2000 就安装完成了 2 2使用使用 SQL Server 2000 2 2 1在在 SQL Server 2000 中新建一个数据库 中新建一个数据库 进入 SQL Server 2000 操作平台后 右键点击 数据库 选择新建数据库 将新建的 数据库命名为 HIMS 2 2 2SQL Server 2000 数据表的设计和建立 数据表的设计和建立 根据医院信息管理系统的需求分析 此系统需要设计建立 26 个数据表 分别为 门诊 医师工资表 门诊医师信息表 西药表 管理人员工资表 管理人员信息表 科室表 病 房信息表 病床信息表 病人病历表 用户管理表 清洁人员工资表 清洁人员信息表 挂号信息表 护理人员工资表 护理人员信息表 手术室信息表 手术室使用计划表 卫 生材料表 医院开支项目表 医疗项目明细表 供应商表 住院病人详细资料表 住院医 师工资表 住院医师信息表 中草药表 中成药表 右键点击 HIMS 子树下的 表 选择新建表 在弹出的数据表设计窗口中填入所建表 的字段名称 数据类型 长度和是否可以为空 保存以后就完成了表的新建 2 2 3建立建立表的关系表的关系 由于有一些表的字段之间有着一定的联系 为了实现修改一个表中一个字段 另一个 相关的字段也同时改变 我们就需要在 SQL Server 2000 中新建数据库关系图了 右键点击 关系图 选择新建数据库关系图 在弹出的创建数据库关系图向导中选择我们需要的选项 先要选择我们将要加入到关系图中的数据表 然后将把相关的字段用关系线连接起来 2 2 4使用使用默认值默认值 由于此系统中会需要自动获得系统中一些信息作为某字段的值 如需要获得系统当前 的日期 因此我们必须建立一个默认值 将这个默认值设定为 Getdate 有两种使用默认值的方法 1 在 CREATE TABLE 中使用 DEFAULT 关键字创建默认定义 将常量表达式指派 为列的默认值 这是首选的标准方法 也是定义默认值的更简明的方法 2 使用 CREATE DEFAULT 语句创建默认对象 然后使用 sp bindefault 系统存储 过程将它绑定到列上 这是一个向前兼容的功能 3 医院信息管理系统的开发医院信息管理系统的开发 3 1系统开发的准备工作系统开发的准备工作 3 1 1为什么不选择为什么不选择 Delphi7 0 上面说过 由于 Delphi 的易于软件开发和它的强大性 因此我选择它作为此医院信息 管理系统的开发工具 我选择 Delphi6 0 而没有选择 Delphi 最新的版本 7 0 的原因是 由于 Delphi7 0 发布的时间不长 很多功能没有完善 软件本身存在着很多的 Bug 所以在软件 开发过程中会出现一些有影响小问题 为了很好的开发此系统 我选择了发布时间较长 功能比较完善并且已经成熟了的 Delphi6 0 3 1 2Delphi6 0 的安装的安装 在系统开发之前 必须对 Delphi6 0 进行安装并在 Windows 注册表里注册 运行 Delphi6 0 安装程序 输入序列号 就可以自动安装 Delphi6 0 组件并自动进行注册了 3 1 3第三方控件的安装第三方控件的安装 为了使这个医院信息管理系统的界面更加美观和友好 我用到了一个第三方控件 VCLSkin 2 45 D67 这个第三方控件可以根据自己的喜好改变软件的界面 不过需要在 程序编译之前选择好所选的界面皮肤 双击 VCLSkin 2 45 D67 的安装程序 WinSkinD6 dpk 进行此控件的安装 然后在 Delphi 环境中点击 Tools 在弹出的菜单中选择 Environment Options 然后在弹出的窗口中选择 Library 页 在 Library 页中点击 Library Path 浏览 选择此控件安装文件的文件夹 指定路 径 此控件的安装就完成了 3 2登录窗口的设计和开发登录窗口的设计和开发 登录窗口是每一个软件都需要有的模块 它有利于整个软件的权限管理 没有软件使 用权限的用户不允许进入这个系统 在设计这个模块时 我遇到了一个很重要的问题 以 前我设计开发的一些管理系统 都把 Login 窗口作为主窗口 在登录成功以后就隐藏起来 因为我不知道如何动态创建登录窗口 这次为了提高自己的水平 尽自己的能力设计一个 比较完善的医院信息管理系统 我查阅了多本相关的书籍 并且请教了一些同学 终于理 解了如何动态创建窗口 我在这个工程中新建了一个 Unit 命名为 U Public 作为公共窗 口用来编写自建函数 其他窗口可以方便的访问到这个 Unit 中的公共函数 这样做一是可 以大大减少代码的数量 有利于编写简捷的有效的程序 二是可以符合面向对象的思想 我在 U Public 单元里创建了一个函数名为 Sh owLogin 函数用来动态建立登录窗口并在关 闭的时候把它从内存中释放掉 登录窗口如附录 C 图 1 所示 function ShowLogin Boolean begin Application CreateForm TF Login F Login try Result False F Login ShowModal Result Can finally F Login Free end end 在登录成功以后把布尔类型变量 Can 赋值为 True 登录窗口中登录按钮的 Onclick 事件的代码如下 procedure TF Login B LoginClick Sender TObject begin if E ID Text or E Passwd Text then begin application messagebox 请输入登录名或密码 输入错误 mb ok E ID SetFocus Exit end With DM do begin ADQ Login Close ADQ Login SQL Clear ADQ Login SQL Add Sql ADQ Login Parameters ParamByName Id Value E Id text ADQ Login Parameters ParamByName Passwd Value E Passwd text Try DM ADQ Login Open Except Messagebox 0 出现错误 错误 MB ICONERROR MB OKCANCEL exit end if ADQ Login RecordCount 0 then begin messagebox 0 没有此用户名 请输入正确的用户名输入 输入错误 mb ok exit end else begin showmessage 欢迎使用医院信息管理系统 Can True end end end 在主窗口中的 Onshow 事件中输入以下代码 procedure TMainForm FormShow Sender TObject begin if not showLogin then Application Terminate end 另外 我在此工程中创建了一个数据模块 用来放数据库连接组件 数据模块 DM 如 附录 C 图 2 所示 数据模块中我放入了一个 AdoConnection 组件用来连接数据库 其他的 数据库组件与它相链接就可以对数据库进行访问了 AdoConnection 连接数据库的方法是 点击 AdoConnection 的 Connectionstring 属性后 会弹出一个连接数据库的对话框 如下所 示 点击 Build 按钮后又弹出一个数据连接属性的对话框 如下图 选择 Microsoft OLE DB Provider for SQL Server 后点击下一步就准备配置连接 如下图 所示 在选择或输入服务器名称中填入 SQL Server 2000 服务器的名称 然后选择 使用 Windows NT 集成安全设置 最后选择服务器上的数据库 HIMS 测试连接成功后点击确 定 就完成了对 AdoConnection 的连接设置 为了不浪费系统资源 我让所有窗口用到的 ADOQuery 组件在所属窗口创建的时候才进行链接激活 在设计此窗口的时候 我曾经犯了一个错误 一开始这句代码 if not showLogin then Application Terminate 是写在 Oncreate 事件里的 在程序运行的时候会出现错误 我查看了很久 最后发现 了哪里出了错 原来 由于这个登录窗口是动态创建的 如果在主窗口的 Oncreate 事件里 写代码 程序会因为主窗口还没有生成而出错 而在 Onshow 事件中就不会出错了 因为 主窗口已经创建好了 3 3门诊挂号窗口的设计和开发门诊挂号窗口的设计和开发 为了能够既能动态创建窗口 又能优化程序 我在 U Public 单元中自己创建了一个过 程 代码如下 procedure ShowForm FForm TFormClass begin With FForm Create Application do begin try Showmodal finally Free end end end 在窗体关闭的时候 把分配个此窗体的内存空间给释放掉 让系统更好的运行 在主 窗体 Mainmenu 中的 Onclick 事件中 只要调用这个过程就可以调用相应的窗口了 为了进 一步优化程序代码 我分别设定了各个主菜单按键的 Tag 属性 利用这些属性 我就可以 用最简单的代码把所有的 Onclick 事件关联起来 代码如下 procedure TMainForm N25Click Sender TObject begin case Sender as TMenuItem Tag of 1 ShowForm TF MZGH 2 ShowForm TF MZBL 3 ShowForm TF ZYDJ 4 ShowForm TF BFGL 5 ShowForm TF SSSGL 6 ShowForm TF ZYBR 7 ShowForm TF YYYG 8 ShowForm TF ZXYF 9 ShowForm TF WSCL 10 ShowForm TF GYSXX 11 ShowForm TF CWGL end end 然后把所有的 Onclick 事件关联到 N25 的 Onclick 事件上 这样就可以实现所有的 Onclick 事件了 挂号信息表中的挂号编号我是引用系统自动增量来处理的 每添加一个挂号记录 挂 号编号就自动加一 而挂号的开单日期字段我是利用 SQLServer 2000 中的默认值 Getdate 来绑定的 系统会自动获得开单当天的日期和时间 至于挂号医师的选择 我考虑了很久 最后从一位朋友口中知道答案 我用到了 DataSource 的 OnDataChange 事件 当点击到一位医师的记录时 系统自动把挂号医师的 编号赋值给一个 Edit 的 Edit text 属性 当点击提交按钮时 系统就会把这些信息提交到 HIMS 数据库中去 在这个模块中 还可以对挂号信息进行查询 查询结果在一个 DBGrid 中打印出来 由于我设计的是可选多条件查询 在编写查询程序的时候遇到了很多困难 主要的困难是 动态编写 SQL 语言 代码如下 procedure TF MZGH B QUERYClick Sender TObject var Sql string begin Sql select from 挂号信息表 where CB GHXXCX Text E GHXXCX Text With DM do begin ADOQ GHXXCX Close ADOQ GHXXCX SQL Clear ADOQ GHXXCX SQL Add Sql ADOQ GHXXCX Open if ADOQ GHXXCX RecordCount 0 then Messagebox 0 没有你所查询的项目 提示 Mb Ok E GHXXCX SetFocus end end 这个过程有一个缺点 就是 Sql 变量的赋值 Sql 应该设定成一个 Const 常量 这样 可以提高系统程序的编译速度 在读取数据库中数据表的时候 我没有用到传统的 ADOTable 组件 而选择使用 ADOQuery 因为我曾经看过一本书上写过 ADOTable 再读取数据库中数据表时 是整 个表的记录同时读取的 如果是一个大的管理系统的话 这样会造成网络的堵塞 而 ADOQuery 就没有这样的问题 因为 ADOQuery 再读取数据库中数据表的时候是一条一条 数据的读取的 不会造成网络堵塞 这个窗口的截图如附录 C 图 3 所示 3 4门诊病例管理窗口的设计和开发门诊病例管理窗口的设计和开发 在考虑门诊病例管理的时候 我遇到了很多的问题 门诊病例的管理是很困难的 因 为门诊病例的记录不是一条一条的 应该是一批一批的 因为一个人到门诊部看病 有可 能是多次 如果记录是一条一条的 这个人就会有很多条的记录 那么病例号就不可能设 为主键 解决这个问题的方法只能是动态建立数据表 如果一个没有去门诊看过病的病人 要先在数据库中新建一个病人的病例表 以后就可以对这个数据表进行修改 不过动态新 建数据表我没有接触过 所以实现起来有很大的困难 所以这个窗口有着很大的缺陷 有 待以后的进一步完善 这个窗口的截图如附录 C 图 4 所示 3 5住院登记窗口的设计和开发住院登记窗口的设计和开发 在这个窗口中 我用到了一个 PageControl 组件 这个 PageControl 一共有两个页面 一个是住院登记的输入窗口 另外一个是住院出管理页面 在住院登记的输入窗口中 可 以对住院病人的信息进行输入 并且可以通过查询病床的科室 病房类型 一般 高级或 加护 和是否为空床来选择病床 实现病床的选择和挂号窗口的挂号医师的选择的原理是 一样的 是通过 DataSource 的 OnDataChange 事件来实现的 这个窗口中查询按钮的 OnClick 事件要比之前窗口的查询按钮复杂得多 因为这次查询涉及到了 3 个查询条件 代码如下所示 procedure TF ZYDJ B QueryClick Sender TObject var Sql string begin Sql select fr