医院病历管理系统

医院病历管理系统内容摘要：

符型 10 就诊时间 字符型 10 普通索引 诊断结果 字符型 10 诊断方法 字符型 10 病例 备注型 4 医务人员 基本情况表 字段名 类型 宽度 索引 工号 字符型 5 主索引 姓名 字符型 8 普通索引 性别 字符型 2 年龄 数值 型 10 出生日期 字符型 10 毕业院校 字符型 10 政治面貌 字符型 6 科室 字符型 10 职务 字符型 10 工作简历 备注型 4 密码表 字段名 类型 宽度 索引 用户密码 字符型 6 主索引 用户姓名 字符型 10 3． 9 菜单设计： 在我们所设计的《 医院病历 管理系统》中，系统菜单就是第一个人机交互的界面，系统菜单中给出的是 本系统的各个子功能模块，这些子功能又分门别类的组成子菜单。 在上一章的系统分析和前面的设计中，系统的功能模块已经较为清楚了： 1〃 医务人员管理 模块 2 〃 病人管理模块 在实际的菜单设计中，这些功能模块可以于不同的菜单项出现。 本着对使用者操作带来方便的原则，将本系统菜单设计如下： 医务人员管理 病人管理 退出系统 菜单运行时的界面窗口如下： 菜单文件建立后保存在 医院 病历 管理系统 \菜单 .MPR 中。 第四章 医院 病历 管理系统的实现 按结构化的程序设计思想，在完成了系统分析、系统设计后，就可以 进行系统实现阶段了，系统实现是每指把系统的物理模型转换成实际运行系统的全过程。 其基本任务是： a) 前期准备 b) 系统平台的安装与调试 c) 程序的编制与调试 d) 信息系统调试 e) 数据库与文件的建立 f) 系统转换 g) 试运行、验收与维护 4〃 1 系统表单的实现及相关源代码 1． 病人就诊情况 表单 1）表单运行的窗体： 2）、表单构成相关控件和事件： 新建一表单，保存在 医院 病历 管理系统 下，命名为 病人就诊情况 表单 .scx,修改表单的 Caption 属性为“病人就诊情况表”；为表单引入病人就诊情况表数据表数据环境，拖放病人就诊情况表数据表 字段到表单中，形成一个 grd 病人就诊情况表。 在表单上放臵两个命令铵钮组选项铵钮控件，并用它的生成器选项生成 10 个命令铵钮，分别修改命令铵钮的 Caption 属性为“第一条记录”、“下一条记录”、“前一条记录”、“最后一条记录”、“添加”、“编辑”、“删除”、“打印”、“查询”、“关闭”。 3）、表单构成相关源代码： 第一条记录代码 病人就诊情况表 .setfocus go top messagebox(39。 记录已经在第一条 39。 , 0 ,39。 记录信息 39。 ) 前一条记录代码： 病人就诊情况表 .setfocus if reo()1 skip 1 else messagebox(39。 记录已经在第一条了 39。 , 0 ,39。 记录信息 39。 ) endif 下一条记录代码： 病人就诊情况表 .setfocus if not eof() skip else messagebox(39。 记录已经在未尾了 39。 , 0 ,39。 记录信息 39。 ) endif 最后一条记录代码： 病人就诊情况表 .setfocus go bottom messagebox(39。 记录在未尾了 39。 , 0 , 39。 记录信息 39。 ) 添加铵钮代码： if =39。 添加 39。 病人就诊情况表 .readonly=.f. =39。 保存 39。 =.f. =.f. appe blan else =39。 添加 39。 病人就诊情况表 .readonly=.t. =.t. =.t. endif 病人就诊情况表 .setfocus 病人就诊情况表 .refresh 编辑铵钮代码： if =39。 编辑 39。 病人就诊情况表 .readonly=.f. =39。 保存 39。 =.f. =.f. else =39。 编辑 39。 病人就诊情况表 .readonly=.t. =.t. =.t. endif 病人就诊情况表 .setfocus 病人就 诊情况表 .refresh 删除铵钮代码： sele 病人就诊情况表 病人就诊情况表 .setfocus if messagebox(是否删除当前记录 ! ,32+4+256,删除记录 )=6 = 病人就诊情况表 .recordsource delete next 1 pack 病人就诊情况表 .recordsource= endif 打印铵钮代码： IF sys(102)!=OFF ELSE =messagebox(打印机没有准备好。 ,0+48,警告 ) ENDIF 查询铵钮代码： do form 医院 病历 管理系统 \病人就诊情况查询表单 .scx 关闭铵钮代码： 病人就诊情况查询表单 1）、表单运行时的窗体界面如下： 2）、表单构成相关控件和事件 新建一表单，保存在 医院 病历 管理系统 \病人就诊情况查询表单 .scx下，修改表单的 caption 属性为“病人情况查询表”；为表单引入病人 就诊情况表数据表数据环境，拖放病人就诊情况表数据表字段到表单中，形成一个 grd 病人就诊情况表；在表单上放臵一个选项按钮组控件，用它的生成器选项生成两个选项铵钮，修改其 caption 属性为“按姓名查找”、“按就诊科室查找”；在表单上放臵一个标签控件，一个文本框控件，一个命令铵钮组控件生成的两个命令选项铵钮，分别修改其 caption 属性为“请输入就诊科室或姓名”，“查找”、“结束查找”。 3）、表单构成相关源代码： 查找铵钮源代码： 病人就诊情况表 .setfocus do case case =1 locate all for alltrim( 病 人 就 诊 情 况 表 . 姓名 )==alltrim() if found() y=reo() go y messagebox(病人已经找到 !) else messagebox(未找到此病人 ,请确认 !) endif case =2 locate all for alltrim( 病人就诊 情况表 . 就诊科室 )==alltrim() if found() y=reo() go y messagebox(病人已经找到 !) else messagebox(未找到此病人 ,请确认 !) endif endcase 结束查找铵钮代码： 医务人员基本情况表 1）、表单运行时的窗体界面如下： 2）、表单构成相关事件和控件： 新建一表单，保存在 医院 病历 管理系统 下，命名为 医务人员基本情况表 .scx,修改表单的 Caption 属性为“医务人员基本情况 表 ”；为表单引入医务人员基本情况 表 数据表数据环境，拖放医务人员基本情况 表数据表字段到表单中，形成一个 grd 医务人员基本情况 表。 在表单上放臵两个命令铵钮组选项铵钮控件，并用它的生成器选项生成 10 个命令铵钮，分别修改命令铵钮的 Caption 属性为“第一条记录”、“下一条记录”、“前一条记录”、“最后一条记录”、“添加”、“编辑”、“删除”、“打印”、“查询”、“关闭”。 3）、表单构成相关源代码： 第一条记录代码： 医务人员基本情况表 .setfocus go top messagebox(39。 记录已经在第一条 39。 , 0 ,39。 记录信息 39。 ) 前一条记录代码： 医务人员基本情况表 .setfocus if reo()1 skip 1 else messagebox(39。 记录已经在第一条了 39。 , 0 ,39。 记录信息 39。 ) endif 下一条记录代码： 医务人员基本情况表 .setfocus if not eof() skip else messagebox(39。 记录已经在未尾了 39。 , 0 ,39。 记录信息 39。 ) endif 最后一条记录代码： 医务人员基本情况表 .setfocus go bottom messagebox(39。 记录在未尾了 39。 , 0 , 39。 记录信息 39。 ) 添加按钮代码： if =39。 添加 39。 医务人员基本情况表 .readonly=.f. =39。 保存 39。 =.f. =.f. appe blan else =39。 添加 39。 医务人员基本情况表 .readonly=.t. =.t. =.t. endif 医务人员基本情况表 .setfocus 医务人员基本情况表 .refresh 编辑铵钮代码： if =39。 编辑 39。 医务人员基本情况表 .readonly=.f. =39。 保存 39。 =.f. =.f. else =39。 编辑 39。 医务人员基本情况表 .readonly=.t. =.t. =.t. endif 医务人员基本情况表 .setfocus 医务人员基本情况表 .refresh 删除铵钮代码： sele 医务人员基本情况表 医务人员基本情况表 .setfocus if messagebox(是否删除当前记录 ! ,32+4+256,删除记录 )=6 = 医务人员基本情况表 .recordsource delete next 1 pack 医务人员基本情况表 .recordsource= endif 删除铵钮代码： IF sys(102)!=OFF ELSE =messagebox(打印机没有准备好。 ,0+48,警告 ) ENDIF 打印铵钮代码： IF sys(102)!=OFF ELSE =messagebox(打印机没有准备好。 ,0+48,警告 ) ENDIF 查询铵钮代码： do form 医院 病历 管理系统 \医务人员查询表单 .scx 关闭铵钮代码： 医务人员查询表单 1）、表单运行时的窗体如下： 2）、表单构成相关控件和事件 新建一表单，保存在 医院 病历 管理系统 \医务人员查询表单 .scx 下，修改表单的 caption 属性为“医务人员查询表单”；为表单引入医务人员基本情况表数据表数据环境，拖放医务人员基本情况表数据表字段到表单中，形成一个 grd 医务人员基本情况表；在表单上放臵一个选项按钮组控件，用它的生成器选项生成 两个选项铵钮，修改其caption 属性为“按姓名查找”、“按工号查找”；在表单上放臵一个标签控件，一个文本框控件，一个命令铵钮组控件生成的两个命令选项铵钮，分别修改其 caption 属性为“请输入工号或姓名”，“查找”、“结束查找”。 3）、表单构成相关源代码： 查找铵钮源代码： 医务人员基本情况表 .set focu s do case case e=1 locate all for alltrim( 医 务 人 员 基 本 情 况 表 . 姓名 )==alltrim( .parent .text e) if found() y=reo() go y messagebox(医务人员已经找到 !) else messagebox(未找到此医务人员 ,请确认 ! ) endif case e=2 locate all for alltrim( 医 务 人 员 基 本 情 况 表 . 工号 )==alltrim( .parent .text e) if found() y=reo() go y messagebox(医务人员已经找到 !) else messagebox(未找到此医务人员 ,请确认 ! ) endif endcase 结束查找铵钮代码： 系统主表单 1）、表单运行时的窗体如下： 2）表单构成相关事件和控件： 新建一表单，保存在 医院 病历 管理系统 \系统主表单 .scx 下，修改表单的 ca ption 属性为“医院病历管理系统”；在表单上放臵一个标签控件， 3 个命令铵钮控件，分别修改其 capt ion 属性为“医务人员管理”、“病人管理” 、“关闭”。 3）、表单构成相关源代码： 医务人员管。