门诊医生工作站系统方案

1、中医药大学医学信息工程专业实验报告课程名称：医院信息系统教程实验题目：门诊医生工作站系统实验日期：2013年5月 日起至 2013年6月24日止班级：11级医学信息工程一班实验成绩：指导教师：二O一三年五月第1章概述门诊医生工作站系统是为医院提升管理水平，为患者提供更加高效快捷的医疗服务而提供的一套稳定、完善的数字化医院解决方案。实施本系统后将给医院管理和临床医生提供极大的方便，提高患者就诊的效率，减少患者排队和来回跑诊室的现象，使医院迅速走向数字化管理的新台阶。1.2系统开发目的与意义门诊医生工作站系统以电子病历为中心，支持医院建立门诊病历库，为医生提供高效的电子病历和电子处方管理平台，并为

2、以后的病历统计分析提供有效的手段，对提高医院管理和医生的医疗水平作用重大。同时支持医院医卡通（推荐高性价比的条形码医卡通系统） 或医保卡的使用，为患者建立起连续的就医资料，提高对患者的诊疗与服务水平，从而提高患者的忠诚度；电子处方单符合卫生部最新标准。在实施门诊医生工作站系统后，医生可以方便的获取患者既往的就诊记录、既往病史、用药记录、检查检验报告、当前病情发展情况、各种检验检查结果等，通过计算机下达处方和各种检验检查申请，记录患者病情及发展变化情况，在诊断时遇到疑难杂症利用计算机进行辅助分析。同时方便的获取相关医疗知识，查阅各种疾病的诊疗常规、药物信息、检验信息等医学数据。第2章系统需求分析

3、2.1组织管理调查2.1.1组织结构2.1.2主要职能医生：接诊病人；问诊、查体，收集病史资料和病情信息；提出必要的辅助检验检查申请，查阅检验检查结果；确定门诊诊断，提出治疗方案；开具处方、治疗处置单等；必 要时将病人收入院治疗，或及时为病人联系转诊医院，指导病人办理转诊手续获取患者既往的就诊记录、既往病史、用药记录、检查检验报告、当前病情发展情况、 各种检验检查结果等， 通过计算机下达处方、 各种检验检查申请， 记录患者病情及发展变化 情况。同时方便的获取相关医疗知识，对各种疾病的诊疗常规、药物手册、检验手册、医学 信息资源进行检索。与门急诊管理、检验检查、手术麻醉等系统一体化集成。2.2业

4、务流程调查业务流程下诊断业务流程图挂号表复诊病人门诊医生病人资料病历调阅病人病史病人问诊主诉、病史检验检查申 请单提出检验检查申请初步诊断主诉、症状、 检验检查目处方/病历开处方、写门 诊病历诊断记录手术申请1r手术申请单住院登记住院登记记 录确诊检验检查结果2.3 现行系统存在的主要问题和薄弱环节a. 系统运行中途发生重大错误的数据恢复b. 门诊规模扩大后系统的适应性c. 病人转诊机制2.4 系统需求说明2.4.1功能需求1、抽取就诊的病人信息。2、为医生提供辅助诊断分析功能。3、为病人下达检查单。4、为病人下达处方、注射单。5、为病人生成病历。6、 医生病历模板、处方模板的建立和管理。医生

5、根据病种定义相应可用的协定处方、 自选处方、门诊病历模板。7、门诊病人档案信息查询，包括完整的处方、费用、病历、检验结果、检查报告、图 像报告。8、门诊病历统计分析表，根据医院的需求自定义统计表。用一览表及框图的形式说明本系统的系统元素（各层模块、子程序、公用程序等）的划分，扼要说明每个系统元素的标识符和功能，分层次地给出各元素之间的控制与被控制关系。整个系统按功能划分，可分为5个模块编号模块名称模块功能功能说明1患者信息患者信息录入添加、删除、更新、查询2检验检杳检验检查申请及调阅结果添加、删除、更新、查询3药物医嘱药物医嘱录入添加、删除、更新、查询4中医处方处方录入添加、删除、更新、查询5

6、手术输血手术输血申请添加、删除、更新、查询2.4.2性能需求1）精度对软件的输入输出数据应该做到正确无误，并能对操作人员的误操作给予提示，且能 对垃圾数据进行有效制止，防止器进入系统数据源。2） 整个系统运行于网络环境下，数据源与数据库应用分布于不同的主机上，应保证在不出现数据阻塞、数据丢失的情况下，快速准确地响应系统操作人员所提出的各种合法请求。3）灵活性所开发的系统应能适应于以下几种所述情况的变化：运行环境的变化； 操作方式上的变化； 精度和有效时限的变化；4）输入输出要求系统应能支持多种形式的数据输入输出方式，比如对于业务量处理大的时候，系统可以支持键盘、鼠标、语音、扫描仪等输入形式。2

7、.4.3输入输出需求新系统实现后，凡需要填写病人基本信息的地方均可直接由系统自动填充。主要存在以下输入需求：需要提供就诊卡读卡器，自动读取就诊卡信息，并调阅病人基本信息。a病人挂号信息：挂号单编号由系统直接生成，其他信息由门诊收费员输入b. 病历单信息：主要记录病人的病史，由医生给出，门诊收费员输入c. 诊断信息：医生诊断信息，记录在诊断单d. 医生信息：医院所有医务人员的基本信息，包括新建，管理，删除，由人事管理人员 负责。门诊药房药品库存情况。输出需求：新系统直接将检验检查申请单、手术申请单、住院申请、药品处方等信息以纸质文档形式打印输出，同时存储至数据库，供门诊检验检查科室、手术室、门诊

8、收费系统等访问。打印输出门诊病历。2.4.4运行环境需求本系统适行在Microsoft Windows 的各个版本下，包括 Windows9X（win95需要升级系 统文件）Windows XP等平台下，奔腾512MHz或更快,1G存或更多，250G磁盘空间。第3章系统逻辑设计3.1系统开发目标门诊医生工作站系统的开发主要服务对象是门诊医生，所以系统开发的目标主要是方便医生，简洁而快速的使用系统， 达到节约时间节约人力物力的功效。 旨在便于处理患者信息， 检验检查申请，手术申请输血申请，处方医嘱等功能。3.2系统数据流程3.2.1数据流程分析门诊医生工作站主要负责存储医嘱、处方明细信息，存储的

9、主要数据为医生在开处方、 下医嘱等过程产生的临床数据。主要数据如下表：序号业务类型主要数据备注1病人信息病历记录病人病史及是否欠费等信息2检查申请信息检查申请表记录检查申请情况/时间/医生/主诉/科室/诊断等信息3检验申请信息检验申请表记录检验申请情况/时间/医生/主诉/科室/诊断等信息4处方信息处方表记录包括处方项目/次数/天数/用法/数量等处方信息5手术申请信息手术申请表记录手术申请情况/时间/医生/主诉/科室/诊断等信息6输血申请信息输血申请表记录输血申请情况/时间/血型/数量等信息7医嘱信息医嘱表记录医嘱项目/次数/天数/用法等医嘱信息3.2.2数据流程图病人.问诊主诉、病史检验检查申

10、请单检验检查申请检验检查申请目的V申请检查确诊住院登记检验检查结果开处方 写病历处方/病历w诊断记录手术申请3.4系统数据模型(E-R图) (1 )挂号处理(2)医生诊断11111包括包括41NN检查项目住院申请检验项目1111门诊病人门诊病历对应包括3包括2挂号门诊医生1处理方案N挂号单1挂号1门诊处方N包括53.5系统数据字典3.5.1数据元素编号名称别名数据类型长度备注A01诊疗卡号ID号varchar12首次就诊，建立索引，分配ID号复诊病人，调用或检索ID号A02挂号流水号IC号varchar17病人当日在医院就诊时分配的流水号A03科室编码科室char7A04主治大夫医师char1

11、0就诊医生的名字A05char10病人描述A06年龄int病人年龄描述A07性别char2病人性别描述A08出生日期datetime病人出生日期A09婚姻状况char4病人已婚或未婚A10名族varchar8病人所属名族名称A11国籍varchar8病人的国籍A12籍贯varchar6病人所来自的省份A13单位或住址varchar8现住址或是单位所在地A14联系varchar12病人联系A15门诊病案号病案号varchar12病人门诊病案的唯一编号，在门诊系统共享3.5.2数据结构编号名称别名构成简述B01门诊病历病历门诊病案号+病人ID号+性别+年龄+日期+ 就诊次数+修改人+病历容+归档人

12、+归档时 间+归档标志+金额+籍贯+国籍+单位或住 址+黑标志科室是数据结构B02科室科室编号+科室名称科室的基本信息B03病人信息ID号+IC号+主治医师+医保类别+黑标志B04药物医嘱医嘱序号+ID号+科室编码+开医嘱医生+医 嘱时间+停止医嘱医生+药品名称+药品规格 +单次剂量+剂量单位+给药途径+执行频率 +滴速+滴塑单位+天数+药物数量+数量单 位+备注病人病情和注意事项B05中医处方处方序号+ID号+就诊次数+处方类型+处方 序号+明细序号+项目序号+项目规格+草药 副数+给药方式+次数代码+用量+用量单位 +天数+注释+皮试标志+开单科室+开单医 生+打印名称B06检查申请表检杳

13、申请号+ID号+就诊次数+检杳目的+检 查描述+检杳影像+医嘱序号+申请科室+申 请医生+申请时间+申请状态+记账序号+收 费标志+执行科室+执行人工号+检查号+检 杳方法+影像所见+影像意见+影像号+申请 人员+检查部位+急检标志+备注B07检验申请表检验申请号+ID号+就诊次数+申请科至+申 请医生+申请时间+申请状态+执行科至+执 仃人工号+执仃时间+申请人员+急检标志+ 诊断名称+检验项目+检验标本+备注B08手术申请表手术申请号+ID号+申请科室+申请医生+申 请时间+申请状态+手术前主诊断+拟行手术 名称+拟行麻醉名称+拟行手术时间+手术类 型+备注手术类型包括急诊和传染B09门诊

14、医生医生编号+医生+科室编号所有门诊医生基本信息表B10输血申请表输血申请号+ID号+申请科室+申请医生+申 请时间+申请状态+西医主诊断+预疋输血日 期+输血项目+输血方法+血型+RH阴或阳+ 申请血量+血量单位+既往输血情况B11病人就诊记 录ID号+就诊次数+就诊科室+就诊医生编码+ 就诊日期+主要诊断+次要诊断+挂号科别+ 就诊标志3.5.3数据流编号名称简述来源去向构成流诵量C01病人信息描述病人挂号时 提供的基本信息病人挂号ID号+IC号+主治医师+医保类别+黑标志180次/小时C02病历医生为病人开的 取药单主治大 夫各科室病人病历信息100分/天C03化验单医生为病人开的 化验

15、通知单主治大 夫化验室病人所需化验信息50分/天C04检验单医生为病人开的 检验通知单主治大 夫各科室病人所得检验信息50分/天C05手术单手术通知单主治大 夫手术至病人所需手术信息50分/天C06挂号单七土 口、兴 挂号室主治大夫挂号信息180次/时C07住院单住院通知单门诊科室住院部住院信息50分/每天3.5.4数据存储编号名称简述构成D01病人就诊记 录病人就诊记录ID号+就诊次数+就诊科室+就诊医生编码+就诊日期+ 主要诊断+次要诊断+挂号科别+就诊标志D02诊断信息病人的主诉、病史记录ID号+临床症状+西医诊断+中医诊断D03检查申请单医生为病人开的检验申请 单检杳申请号+ID号+就

16、诊次数+检杳目的+检杳描述+检 查影像+医嘱序号+申请科室+申请医生+申请时间+申 请状态+记账序号+收费标志+执行科室+执行人工号+ 检杳号+检杳方法+影像所见+影像意见+影像号+申请 人员+检查部位+急检标志+备注D04检验申请单医生为病人开的检验申请 单检验申请号+ID号+就诊次数+申请科室+申请医生+申 请时间+申请状态+执行科室+执行人工号+执行时间+ 申请人员+急检标志D05手术申请单手术申请号+ID号+申请科室+申请医生+申请时间+申 请状态+手术前主诊断+拟仃手术名称+拟仃麻醉名称+ 拟行手术时间+手术类型+备注D06门诊病历病人病案信息门诊病案号+病人ID号+性别+年龄+日期

17、+就诊次数+ 修改人+病历容+归档人+归档时间+归档标志+金额+ 籍贯+国籍+单位或住址D07药物医嘱病人用药医嘱序号+ID号+科室编码+开医嘱医生+医嘱时间+停 止医嘱医生+药品名称+药品规格+单次剂量+剂量单位+给药途径+执行频率+滴速+滴塑单位+天数+药物数 量+数量单位+备注D08中医处方中医用药ID号+就诊次数+处方类型+处方序号+明细序号+项目 序号+项目规格+草药副数+给药方式+次数代码+用量 +用量单位+天数+注释+皮试标志+开单科室+开单医 生+打印名称D09输血申请表输血申请输血申请号+ID号+申请科室+申请医生+申请时间+申请状态+西医主诊断+预定输血日期+输血项目+输血

18、方 法+血型+RH阴或阳+申请血量+血量单位+既往输血 情况D10住院申请申请号+ID+申请科室+申请医生+申请时间+病人基本 病情+住院要求3.5.5数据加工编号名称简述输入数据 流输出数据 流部处理逻辑E01检查单医生为病人开的检 查通知单病人所需检查信息检查申请 单E02检验单医生为病人开的化 验通知单病人所需 检验信息检验申请 单E03病人信 息病人信息确认病人信息挂号信息如果病人信息与其挂号信息不 符，则取消就诊，否则，继续就诊。E04手术单手术申请的完成手术信息手术单E05输血单输血申请的完成输血信息输血单E06住院单住院申请的完成住院申请 信息住院单3.5.6外部实体编号名称简述

19、有关数据流实体个数F01病人到本院就诊的病人。病人基本信息挂号信息4000人/天F02门诊医生病人的主治医师医师基本信息第4章系统物理设计4.1系统功能结构图4.2模块说明书（IPO）系统名称医生工作站模块编号模块名称登陆设计人设计日期2013 年 5 6 月上层调用模块无下层调用模块无模块文件名全局和局部变量输入数据医生编号、登陆密码输出数据无处理逻辑描述输入医生编号、登陆密码IF 输入正确 THENForml.show （显示医生工作站主界面）Else提示输入错误end注释系统名称医生工作站模块编号模块名称患者信息设计人设计日期2013 年 5 6 月上层调用模块挂号信息系统、电子病历系统

20、下层调用模块电子病历系统模块文件名全局和局部变量输入数据病人病历信息输出数据候诊患者信息、病人基本信息处理逻辑描述选择候诊病人患者信息显示输入临床诊断、西医诊断、中医诊断信息 点击保存信息存入病人电子病历数据库点击退出form2.show （显示登陆界面）注释系统名称医生工作站模块编号模块名称检查申请表/检验申请表设计人设计日期2013 年 5 6 月上层调用模块无下层调用模块检查信息系统/检验信息系统、电 子病历系统模块文件名全局和局部变量输入数据检查/验申请表信息输出数据检查/验结果处理逻辑描述输入检查/验申请表信息点击添加提交申请表到检查 /验信息系统点击删除一一删除申请表信息、输入全置

21、为空点击修改点击保存注释系统名称医生工作站模块编号模块名称药品医嘱、中医处方设计人设计日期2013 年 5 6 月上层调用模块无下层调用模块护士工作站、电子病历系统、药品 管理信息系统模块文件名全局和局部变量输入数据医嘱信息输出数据药品信息处理逻辑描述输入医嘱信息点击添加添加药品到医嘱点击删除一一删除输入的药品名称点击修改点击保存提交到医嘱到护士工作站注释系统名称医生工作站模块编号模块名称手术申请表/输血申请表设计人设计日期2013 年 5 6 月上层调用模块无下层调用模块手术麻醉信息系统/输血管理信息 系统、电子病历系统模块文件名全局和局部变量输入数据手术/输血申请表信息输出数据处理逻辑描述

22、输入手术/输血申请表信息点击添加 提交申请表到手术麻醉信息系统 点击删除一一删除申请表信息、输入全置为空点击修改 点击保存注释4.3数据库结构431逻辑结构（关系数据模型）科室（科室编号，科室名称）门诊医生（医生编号，医生，科室编号，口令）门诊病历（门诊病案号，病人ID号，性别，年龄，日期，就诊次数，修改人，病历容，归档人，归档时间，归档标志，金额，籍贯，国籍，单位或住址，黑标 志）病人信息（ID号,IC号，主治医师，医保类别，黑标志）药物医嘱（医嘱序号，ID号，科室编码，开医嘱医生，医嘱时间，停止医嘱医生，药品名 称，药品规格，单次剂量，剂量单位，给药途径，执行频率，滴速，滴速 单位，天数，

23、药物数量，数量单位，备注）中药处方（处方序号，ID号，就诊次数，处方类型，明细序号，项目序号，项目规格，草 药副数，给药方式，次数代码，用量，用量单位，天数，注释，皮试标志, 开单科室，开单医生，打印名称）检查申请表（检查申请号，ID号，就诊次数，检查目的，检查描述，检查影像，医嘱序号，申请科室，申请医生，申请时间，申请状态，记账序号，收费标志，执行科室，执行人工号，检查号，检查方法，影像所见，影像意见，影像号，申请人员，检查部位，急检标志，备注）检验申请表（检验申请号，ID号，就诊次数，申请科室，申请医生，申请时间，申请状态， 执行科室，执行人工号，执行时间，申请人员，急检标志）手术申请表（

24、手术申请号，ID号，申请科室，申请医生，申请时间，申请状态，手术前主 诊断，拟行手术名称，拟行麻醉名称，拟行手术时间，手术类型，备注）输血申请表（输血申请号，ID号，申请科室，申请医生，申请时间，申请状态，西医主诊 断，预定输血日期，输血项目，输血方法，血型， RH阴或阳，申请血量, 血量单位，既往输血情况）病人就诊记录（ID号，就诊次数，就诊科室，就诊医生编码，就诊日期，主要诊断，次要 诊断，挂号科别，就诊标志）住院申请（申请号，ID，申请科室，申请医生，申请时间，病人基本病情，住院要求）4.3.2物理结构（二维表结构）Ks 科室字段名字段中文名数据类型长度是否为空备注dept code科至

25、编号varchar7否dept name科室名称varchar32是Mzys 门诊医生字段名字段中文名数据类 型长度是否为 空备注dept_code科至编号varchar7否doctor code医生编号varchar7是doct or n ame医牛varchar10否password口令varchar20是Mzbl门诊病历字段名字段中文名数据类型长度能否为空备注file_ no门诊病案号varchar12否patie nt_id病人ID号varchar12否patie nt_n ame病人varchar10否sex病人性别char2是age病人年龄int是date日期datetime否ti

26、mes就诊次数int否modifier修改人varchar10是bl c ontent病历容varchar1000否guida ng ma n归档人varchar10否guida ng time归档时间datetime否guida ng flag归档标志varchar2否sumofm oney金额float是patie nt_tel病人varchar16是patie nt_jg病人籍贯varchar10是patie nt_gj病人国籍varchar10是address病人住址varchar50是black_flag黑标志varchar2否Brxx病人信息字段名字段中文名数据类型长度能否为空备注

27、patie nt_id病人ID号varchar12否patie nt_ic病人IC号varchar12否patie nt_n ame病人varchar10是main _doctor主治医师varchar7是yibao type医保类别:varchar8是black_flag黑标志varchar2否Ywyz 药物医嘱字段名字段中文名数据类型长度能否为空备注order_ no医嘱序号:varchar12否patie nt_id病人ID号varchar12否dept_code科室编码varchar7否order_doctor开医嘱医生编码:varchar7是order_time开医嘱时间dateti

28、me否stop_doctor停医嘱医生编码varchar7是drug name药品名称varchar20是drug sta ndard药品规格varchar50是dosage单次剂量float是dosage unit剂量单位varchar4是supply way给药途径varchar5是freque nee执行频率varchar10是drip speed滴速float是drip speed un it滴速单位varchar4是days天数smalli nt是drug am ount药物数量float是drug_am ount_uni t数量单位varchar4是comme nt备注text是Z

29、ycf 中医处方字段名字段中文名数据类型长度能否为空备注chufa ng no处方序号 smalli nt否patie nt id病人ID号varchar12否times就诊次数int否chufa ng type处方类型varchar10否detail_ no明细序号smalli nt否charge_code项目序号:varchar2否serial_ no项目规格varchar2否herbal_am ount草药副数decimal（8,2）supply_way给药方式varchar10否freque nee次数代码varchar10否dosage用量decimal（12,4）否dosage_

30、unit用量单位varchar10否days天数:smalli ntcomme nt注释varchar150是skin test flag皮试标志char2是apply_dept开单科室varchar10否apply doctor开单医生varchar10否p_n ame打印名称varchar10是Jcsqb检查申请表字段名字段中文名数据类型长度能否为空备注jc_no检杳申请号int否patie nt_id病人ID号varchar12否times就诊次数int否exam_objective检查目的 varchar50是exam add i nfo检杳描述varchar50是image检查影像i

31、mage是order_ no医嘱序号:varchar12是apply dept申请科室varchar7是apply doctor申请医生varchar10是apply date申请时间datetime是charge s n记账序号int是charge flag收费标志varchar2是charge dept no执行科室varchar7是manual no执行人工号varchar50是check no检查号varchar20是check way检查方法varchar100是image desc影像所见varchar1000是image mi nd影像意见varchar1000是image no

32、影像号varchar18是record opera申请人员varchar10是jc locati on检杳部位varchar20是urge nt flag急检标志varchar2是comme nt备注varchar50是Jysqb检验申请表字段名字段中文名数据类型长度能否为空备注jy_no检验申请号int否patie nt_id病人ID号varchar12否times就诊次数int否apply_dept申请科室varchar7是apply_doctor申请医生varchar10是apply_date申请时间:datetime是apply_status申请状态varchar2是charge_de

33、pt_ no执行科室varchar7是manual no执行人工号varchar50是exec date执行时间datetime是record opera申请人员varchar10是urge nt flag急检标志varchar2是diag nose_n ame诊断名称varchar20是check item检验项目varchar8是如钠，钾check sample检验标本varchar10是如全血comme nt备注varchar50是Sssqb手术申请表字段名字段中文名数据类型长度能否为空备注ss_no手术申请号:int否patie nt_id病人ID号varchar12否apply de

34、pt申请科室varchar10是apply doctor申请医生varchar10是apply_date申请时间datetime是apply status申请状态varchar2是zhuzhenduan手术前主诊断:varchar20是opera_ name手术名称varchar20是n arcosis name麻醉名称varchar10是opera time手术时间:datetime是opera type手术类型varchar8是comme nt备注varchar150是Sxsqb 输血申请表字段名字段中文名数据类型长度能否为空备注sx_no输血申请号 :int否patie nt id病人I

35、D号varchar12否apply dept申请科室varchar10是apply doctor申请医生varchar10是apply date申请时间datetime是apply status申请状态:varchar2是zhuzhenduan西医主诊断varchar20是predict_date预定输血日期datetime否tran sfusi on _item输血项目varchar20否tran sfusio n_way输血方法varchar8是blood_type血型varchar5否RHRH为阴或阳varchar2是amount申请血量float是amount_un it血量单位var

36、char8是tran _history既往输血情况varchar100是Brjzjl病人就诊记录字段名字段中文名数据类型长度能否为空备注patie nt id病人ID号varchar12否主键times就诊次数int否主键visit_dept就诊科室varchar10是doctor code就诊医生编码:varchar7是visit date就诊日期datetime是main _diag nose主要诊断varchar16是sec on d diag nose次要诊断:varchar16是gh dept挂号科别varchar10是visit flag就诊标志varchar2是Zysq住院申请字

37、段名字段中文名数据类型长度能否为空备注zy_no申请号varchar12否patie nt id病人ID号varchar12否apply_dept申请科室varchar10是apply doctor申请医生varchar10是apply date申请时间datetime是patie nt_con dit ion病人基本病情varchar100是patie nt dema nd住院要求varchar100是4.4界面设计:jr门诊医生工作站至统登录上门狰吐口芟=匸：三?1 B- = V- /.-| 厂耳吒占#二U.5*6核丙耳脩？d药常內 穴盂处=丨手才申Q主 毎F电頁云 申方来 住三申看年0I

38、“捱名00000000345 李貝袒&疗号 I 桂号丘水号 丨 门禺偽京号I *驭用自斬禺色说莎ESTWJ) 昌7决悵M 壬呈JEW) 时整童(X)孚检 左曲(Z)a(=fl恰古年潸来 前匕那 中臣册方|丰才却上东缶n住自為|檢申曲去tr塔俸由臣瑕祚r弟必坝希科应嚼冯厂*文埶世FEIAS生嘴&厂=4暹巫主期凸-nx1天放迂品名忙1ftfelUMia 1年/_日si0丫如01佛人Q号恤3：硒|耳眨0?创人区IWMT1【rinrm*淙址卅僚保有申ifi科堂手禾环r时乍呂称riRrtiO l年_冃手北时卸手术箋型1申由衬至1止由企生日沪纣闻曲8|境1矣*爺主诊缸1?如1 (W1101 0120! W

39、22 M2102 2三栄缶WV)计g fTrOSSiX 环曽逞结丄旧mfilrS |忙2i用i祚 斛瑚XW 中扳处巧|手*序宵有 诫巾.电谖挖 缺用 并 ；尺币両|Ita Imu13改ftfr三巨业势 J Tfits v)兰正貌Itxwj ExaeiX)壬Em(Y WIfti sfi I拉夜3诒去药PAW I即医处方|车朮51识杰羽F氏出亍审占喪饬申请輪tDtlP粤I百医主诊断印请科重r侦定w)m日则一策一曰mm頂訂21讯血方洽厂时目|一隼 J E2! |SXI 二J PH|CaibjBjK2_*E话伙恋1阪往输血恬兄尬碩血母申位厂Aba ISAI 1I4Z SKE1 Itt.ffiU険z日也

40、11111匚申种1沖加W茫61 101 0012 炉545H15432 10? 002 3PZ I审iflIE盘I电诰百I隼一日HASinffi：1 茨芦求:itfl世覘噱存代码：/登陆unit Unit2;interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, DB, ADODB;typeTForm2 = class(TForm) Image1: TImage;Label1: TLabel;Edit1:

41、 TEdit;Label2: TLabel;Edit2: TEdit;Button1: TButton;Button2: TButton;Image2: TImage;ADOConnection1: TADOConnection;ADOQuery1: TADOQuery; DataSource1: TDataSource;procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);private Private declarations public Public declarations e

42、nd;varForm2: TForm2;implementationuses Unit1;$R *.dfmprocedure TForm2.Button1Click(Sender: TObject);begin adoquery1.Close; adoquery1.SQL.Clear;whereadoquery1.Sql.Add(select doctor_code,password from mzys doctor_code=+edit1.Text+and password=+edit2.Text+);adoquery1.Open;if adoquery1.RecordCount=0 the

43、nbeginapplication.MessageBox( 密码错误，请重新输入 ,提示 ,mb_ok); edit1.SetFocus;endelsebeginform1.Show;form2.hide;end;end;procedure TForm2.Button2Click(Sender: TObject);beginclose;end;End./主业务unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, C

44、omCtrls, Menus, Mask, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, RpCon, RpConDS, RpBase, RpSystem, RpDefine, RpRave;typeTForm1 = class(TForm)MainMenu1: TMainMenu;N1: TMenuItem;N2: TMenuItem;N3: TMenuItem;N4: TMenuItem;N5: TMenuItem;N6: TMenuItem;N7: TMenuItem;N8: TMenuItem;N9: TMenuItem;PageControl1: TPageControl;TabSheet2: TTabSheet;GroupBox1: TGroupBox;Label1: TLabel;Label2: TLabel;Label4: TLabel;Label6: TLabel;Label7: TLabel;Label8: TLabel;Label10: TLabel;Edit1: TEdit;Edit4: TEdit;Edit5: TEdit;Edit7: TEdit;GroupBox2: TGroupBox;GroupBox4: TGroupBox;PageControl3: TPageControl