门诊医生工作站系统

-.z.中医药大学医学信息工程专业实验报告课程名称：医院信息系统教程实验题目：门诊医生工作站系统实验日期：2013年5月日起至2013年6月24日止班级：11级医学信息工程一班实验成绩：指导教师：二○一三年五月第1章概述门诊医生工作站系统是为医院提升管理水平，为患者提供更加高效快捷的医疗效劳而提供的一套稳定、完善的数字化医院解决方案。实施本系统后将给医院管理和临床医生提供极大的方便，提高患者就诊的效率，减少患者排队和来回跑诊室的现象，使医院迅速走向数字化管理的新台阶。1.2系统开发目的与意义门诊医生工作站系统以电子病历为中心，支持医院建立门诊病历库，为医生提供高效的电子病历和电子处方管理平台，并为以后的病历统计分析提供有效的手段，对提高医院管理和医生的医疗水平作用重大。同时支持医院医卡通〔推荐高性价比的条形码医卡通系统〕或医保卡的使用，为患者建立起连续的就医资料，提高对患者的诊疗与效劳水平，从而提高患者的忠诚度；电子处方单符合卫生部最新标准。在实施门诊医生工作站系统后，医生可以方便的获取患者既往的就诊记录、既往病史、用药记录、检查检验报告、当前病情开展情况、各种检验检查结果等，通过计算机下达处方和各种检验检查申请，记录患者病情及开展变化情况，在诊断时遇到疑难杂症利用计算机进展辅助分析。同时方便的获取相关医疗知识，查阅各种疾病的诊疗常规、药物信息、检验信息等医学数据。第2章系统需求分析2.1组织管理调查组织构造门诊部门诊部挂号室病理科药剂科中心功能检查室检验科中心手术室麻醉科入院卫生处理室门诊医生收费室分诊台主要职能医生：接诊病人；问诊、查体，收集病史资料和病情信息；提出必要的辅助检验检查申请，查阅检验检查结果；确定门诊诊断，提出治疗方案；开具处方、治疗处置单等；必要时将病人收入院治疗，或及时为病人联系转诊医院，指导病人办理转诊手续获取患者既往的就诊记录、既往病史、用药记录、检查检验报告、当前病情开展情况、各种检验检查结果等，通过计算机下达处方、各种检验检查申请，记录患者病情及开展变化情况。同时方便的获取相关医疗知识，对各种疾病的诊疗常规、药物手册、检验手册、医学信息资源进展检索。与门急诊管理、检验检查、手术麻醉等系统一体化集成。2.2业务流程调查YYNNNYNY门诊医嘱、病历相应的治疗、用药等住院通知单是否需要住院完毕是否启用分诊呼叫病人就诊检验、检查写主诉、病史问诊调取病人资料当天复诊病人诊断明确是否退诊下诊断开检验、检查完毕就诊开场缴费Y业务流程业务流程图门诊医生门诊医生病人资料挂号表复诊病人调阅病人病史问诊病人主诉、病史病历初步诊断主诉、病症、检验检查目的提出检验检查申请检验检查申请单检验检查结果确诊诊断记录开处方、写门诊病历处方/病历住院登记住院登记记录手术申请手术申请单2.3现行系统存在的主要问题和薄弱环节a.系统运行中途发生重大错误的数据恢复b.门诊规模扩大后系统的适应性c.病人转诊机制2.4系统需求说明功能需求1、抽取就诊的病人信息。2、为医生提供辅助诊断分析功能。3、为病人下达检查单。4、为病人下达处方、注射单。5、为病人生成病历。6、医生病历模板、处方模板的建立和管理。医生根据病种定义相应可用的协定处方、自选处方、门诊病历模板。7、门诊病人档案信息查询，包括完整的处方、费用、病历、检验结果、检查报告、图像报告。8、门诊病历统计分析表，根据医院的需求自定义统计表。用一览表及框图的形式说明本系统的系统元素〔各层模块、子程序、公用程序等〕的划分，扼要说明每个系统元素的标识符和功能，分层次地给出各元素之间的控制与被控制关系。整个系统按功能划分，可分为5个模块编号模块名称模块功能功能说明1患者信息患者信息录入添加、删除、更新、查询2检验检查检验检查申请及调阅结果添加、删除、更新、查询3药物医嘱药物医嘱录入添加、删除、更新、查询4中医处方处方录入添加、删除、更新、查询5手术输血手术输血申请添加、删除、更新、查询性能需求1)精度对软件的输入输出数据应该做到正确无误，并能对操作人员的误操作给予提示，且能对垃圾数据进展有效制止，防止器进入系统数据源。2〕整个系统运行于网络环境下，数据源与数据库应用分布于不同的主机上，应保证在不出现数据阻塞、数据丧失的情况下，快速准确地响应系统操作人员所提出的各种合法请求。3〕灵活性所开发的系统应能适应于以下几种所述情况的变化：运行环境的变化；操作方式上的变化；精度和有效时限的变化；输入输出要求系统应能支持多种形式的数据输入输出方式，比方对于业务量处理大的时候，系统可以支持键盘、鼠标、语音、扫描仪等输入形式。输入输出需求新系统实现后，凡需要填写病人根本信息的地方均可直接由系统自动填充。主要存在以下输入需求：需要提供就诊卡读卡器，自动读取就诊卡信息，并调阅病人根本信息。a.病人挂号信息：挂号单编号由系统直接生成，其他信息由门诊收费员输入b.病历单信息：主要记录病人的病史，由医生给出，门诊收费员输入c.诊断信息：医生诊断信息，记录在诊断单d.医生信息：医院所有医务人员的根本信息，包括新建，管理，删除，由人事管理人员负责。门诊药房药品库存情况。输出需求：新系统直接将检验检查申请单、手术申请单、住院申请、药品处方等信息以纸质文档形式打印输出，同时存储至数据库，供门诊检验检查科室、手术室、门诊收费系统等访问。打印输出门诊病历。运行环境需求本系统适行在MicrosoftWindows的各个版本下，包括Windows9*(win95需要升级系统文件〕Windows*P等平台下,奔腾512MHz或更快,1G存或更多,250G磁盘空间。第3章系统逻辑设计3.1系统开发目标门诊医生工作站系统的开发主要效劳对象是门诊医生，所以系统开发的目标主要是方便医生，简洁而快速的使用系统，到达节约时间节约人力物力的成效。旨在便于处理患者信息，检验检查申请，手术申请输血申请，处方医嘱等功能。3.2系统数据流程数据流程分析门诊医生工作站主要负责存储医嘱、处方明细信息，存储的主要数据为医生在开处方、下医嘱等过程产生的临床数据。主要数据如下表：序号业务类型主要数据备注1病人信息病历记录病人病史及是否欠费等信息2检查申请信息检查申请表记录检查申请情况/时间/医生/主诉/科室/诊断等信息3检验申请信息检验申请表记录检验申请情况/时间/医生/主诉/科室/诊断等信息4处方信息处方表记录包括处方工程/次数/天数/用法/数量等处方信息5手术申请信息手术申请表记录手术申请情况/时间/医生/主诉/科室/诊断等信息6输血申请信息输血申请表记录输血申请情况/时间/血型/数量等信息7医嘱信息医嘱表记录医嘱工程/次数/天数/用法等医嘱信息数据流程图手术申请单手术申请单住院登记记录处方/病历诊断记录检验检查结果检验检查申请单检验检查申请目的主诉、病史病人病史复诊病人信息挂号表门诊医生呼叫病人就诊手术申请住院登记开处方写病历确诊检验检查申请申请检查问诊读复诊病人信息病人3.4系统数据模型〔E-R图〕〔1〕挂号处理11N门诊医生挂号门诊病人科室编号医生**IC号**主治医师〔2〕医生诊断111111NN1N11111N1N1门诊医生发出出处理方案挂号挂号单门诊病人挂号包括包括2包括3包括4住院申请检查工程检验工程门诊处方包括5门诊病历对应3.5系统数据字典数据元素编号名称别名数据类型长度备注A01诊疗卡号ID号varchar12首次就诊，建立索引，分配ID号复诊病人，调用或检索ID号A02挂号流水号IC号varchar17病人当日在医院就诊时分配的流水号A03科室编码科室char7A04主治大夫医师char10就诊医生的名字A05char10病人描述A06年龄int病人年龄描述A07性别char2病人性别描述A08出生日期datetime病人出生日期A09婚姻状况char4病人已婚或未婚A10名族varchar8病人所属名族名称A11国籍varchar8病人的国籍A12籍贯varchar6病人所来自的省份A13单位或住址varchar8现住址或是单位所在地A14联系varchar12病人联系A15门诊病案号病案号varchar12病人门诊病案的唯一编号，在门诊系统共享数据构造编号名称别名构成简述B01门诊病历病历门诊病案号+病人ID号++性别+年龄+日期+就诊次数+修改人+病历容+归档人+归档时间+归档标志+金额++籍贯+国籍+单位或住址+黑标志科室是数据构造B02科室科室编号+科室名称科室的根本信息B03病人信息ID号+IC号+主治医师+医保类别+黑标志B04药物医嘱医嘱序号+ID号+科室编码+开医嘱医生+医嘱时间+停顿医嘱医生+药品名称+药品规格+单次剂量+剂量单位+给药途径+执行频率+滴速+滴塑单位+天数+药物数量+数量单位+备注病人病情和考前须知B05中医处方处方序号+ID号+就诊次数+处方类型+处方序号+明细序号+工程序号+工程规格+草药副数+给药方式+次数代码+用量+用量单位+天数+注释+皮试标志+开单科室+开单医生+打印名称B06检查申请表检查申请号+ID号+就诊次数+检查目的+检查描述+检查影像+医嘱序号+申请科室+申请医生+申请时间+申请状态+记账序号+收费标志+执行科室+执行人工号+检查号+检查方法+影像所见+影像意见+影像号+申请人员+检查部位+急检标志+备注B07检验申请表检验申请号+ID号+就诊次数+申请科室+申请医生+申请时间+申请状态+执行科室+执行人工号+执行时间+申请人员+急检标志+诊断名称+检验工程+检验标本+备注B08手术申请表手术申请号+ID号+申请科室+申请医生+申请时间+申请状态+手术前主诊断+拟行手术名称+拟行麻醉名称+拟行手术时间+手术类型+备注手术类型包括急诊和传染B09门诊医生医生编号+医生+科室编号所有门诊医生根本信息表B10输血申请表输血申请号+ID号+申请科室+申请医生+申请时间+申请状态+西医主诊断+预定输血日期+输血工程+输血方法+血型+RH阴或阳+申请血量+血量单位+既往输血情况B11病人就诊记录ID号+就诊次数+就诊科室+就诊医生编码+就诊日期+主要诊断+次要诊断+挂号科别+就诊标志数据流编号名称简述来源去向构成流通量C01病人信息描述病人挂号时提供的根本信息病人挂号ID号+IC号+主治医师+医保类别+黑标志180次/小时C02病历医生为病人开的取药单主治大夫各科室病人病历信息100分/天C03化验单医生为病人开的化验通知单主治大夫化验室病人所需化验信息50分/天C04检验单医生为病人开的检验通知单主治大夫各科室病人所得检验信息50分/天C05手术单手术通知单主治大夫手术室病人所需手术信息50分/天C06挂号单挂号室主治大夫挂号信息180次/时C07住院单住院通知单门诊科室住院部住院信息50分/每天数据存储编号名称简述构成D01病人就诊记录病人就诊记录ID号+就诊次数+就诊科室+就诊医生编码+就诊日期+主要诊断+次要诊断+挂号科别+就诊标志D02诊断信息病人的主诉、病史记录ID号+临床病症+西医诊断+中医诊断D03检查申请单医生为病人开的检验申请单检查申请号+ID号+就诊次数+检查目的+检查描述+检查影像+医嘱序号+申请科室+申请医生+申请时间+申请状态+记账序号+收费标志+执行科室+执行人工号+检查号+检查方法+影像所见+影像意见+影像号+申请人员+检查部位+急检标志+备注D04检验申请单医生为病人开的检验申请单检验申请号+ID号+就诊次数+申请科室+申请医生+申请时间+申请状态+执行科室+执行人工号+执行时间+申请人员+急检标志D05手术申请单手术申请号+ID号+申请科室+申请医生+申请时间+申请状态+手术前主诊断+拟行手术名称+拟行麻醉名称+拟行手术时间+手术类型+备注D06门诊病历病人病案信息门诊病案号+病人ID号++性别+年龄+日期+就诊次数+修改人+病历容+归档人+归档时间+归档标志+金额++籍贯+国籍+单位或住址D07药物医嘱病人用药医嘱序号+ID号+科室编码+开医嘱医生+医嘱时间+停顿医嘱医生+药品名称+药品规格+单次剂量+剂量单位+给药途径+执行频率+滴速+滴塑单位+天数+药物数量+数量单位+备注D08中医处方中医用药ID号+就诊次数+处方类型+处方序号+明细序号+工程序号+工程规格+草药副数+给药方式+次数代码+用量+用量单位+天数+注释+皮试标志+开单科室+开单医生+打印名称D09输血申请表输血申请输血申请号+ID号+申请科室+申请医生+申请时间+申请状态+西医主诊断+预定输血日期+输血工程+输血方法+血型+RH阴或阳+申请血量+血量单位+既往输血情况D10住院申请申请号+ID+申请科室+申请医生+申请时间+病人根本病情+住院要求数据加工编号名称简述输入数据流输出数据流部处理逻辑E01检查单医生为病人开的检查通知单病人所需检查信息检查申请单E02检验单医生为病人开的化验通知单病人所需检验信息检验申请单E03病人信息病人信息确认病人信息挂号信息如果病人信息与其挂号信息不符，则取消就诊，否则，继续就诊。E04手术单手术申请的完成手术信息手术单E05输血单输血申请的完成输血信息输血单E06住院单住院申请的完成住院申请信息住院单外部实体编号名称简述有关数据流实体个数F01病人到本院就诊的病人。病人根本信息挂号信息4000人/天F02门诊医生病人的主治医师医师根本信息第4章系统物理设计4.1系统功能构造图门诊医生工作站门诊医生工作站电子处方门诊病历检验检查门诊手术初诊病历复诊病历4.2模块说明书〔IPO〕系统名称医生工作站模块编号模块名称登陆设计人设计日期2013年5—6月上层调用模块无下层调用模块无模块文件名全局和局部变量输入数据医生编号、登陆密码输出数据无处理逻辑描述输入医生编号、登陆密码IF输入正确THENForm1.show〔显示医生工作站主界面〕Else提示输入错误end注释系统名称医生工作站模块编号模块名称患者信息设计人设计日期2013年5—6月上层调用模块挂号信息系统、电子病历系统下层调用模块电子病历系统模块文件名全局和局部变量输入数据病人病历信息输出数据候诊患者信息、病人根本信息处理逻辑描述选择候诊病人患者信息显示输入临床诊断、西医诊断、中医诊断信息点击保存——信息存入病人电子病历数据库点击退出——form2.show〔显示登陆界面〕注释系统名称医生工作站模块编号模块名称检查申请表/检验申请表设计人设计日期2013年5—6月上层调用模块无下层调用模块检查信息系统/检验信息系统、电子病历系统模块文件名全局和局部变量输入数据检查/验申请表信息输出数据检查/验结果处理逻辑描述输入检查/验申请表信息点击添加——提交申请表到检查/验信息系统点击删除——删除申请表信息、输入全置为空点击修改——点击保存——注释系统名称医生工作站模块编号模块名称药品医嘱、中医处方设计人设计日期2013年5—6月上层调用模块无下层调用模块护士工作站、电子病历系统、药品管理信息系统模块文件名全局和局部变量输入数据医嘱信息输出数据药品信息处理逻辑描述输入医嘱信息点击添加——添加药品到医嘱点击删除——删除输入的药品名称点击修改——点击保存——提交到医嘱到护士工作站注释系统名称医生工作站模块编号模块名称手术申请表/输血申请表设计人设计日期2013年5—6月上层调用模块无下层调用模块手术麻醉信息系统/输血管理信息系统、电子病历系统模块文件名全局和局部变量输入数据手术/输血申请表信息输出数据处理逻辑描述输入手术/输血申请表信息点击添加——提交申请表到手术麻醉信息系统点击删除——删除申请表信息、输入全置为空点击修改——点击保存——注释4.3数据库构造逻辑构造〔关系数据模型〕科室〔科室编号，科室名称〕门诊医生〔医生编号，医生，科室编号,口令〕门诊病历〔门诊病案号，病人ID号，，性别，年龄，日期，就诊次数，修改人，病历容，归档人，归档时间，归档标志，金额，，籍贯，国籍，单位或住址，黑标志〕病人信息〔ID号，IC号，主治医师，医保类别，黑标志〕药物医嘱〔医嘱序号，ID号，科室编码，开医嘱医生，医嘱时间，停顿医嘱医生，药品名称，药品规格，单次剂量，剂量单位，给药途径，执行频率，滴速，滴速单位，天数，药物数量，数量单位，备注〕中药处方〔处方序号，ID号，就诊次数，处方类型，明细序号，工程序号，工程规格，草药副数，给药方式，次数代码，用量，用量单位，天数，注释，皮试标志，开单科室，开单医生，打印名称〕检查申请表〔检查申请号，ID号，就诊次数，检查目的，检查描述，检查影像，医嘱序号，申请科室，申请医生，申请时间，申请状态，记账序号，收费标志，执行科室，执行人工号，检查号，检查方法，影像所见，影像意见，影像号，申请人员，检查部位，急检标志，备注〕检验申请表〔检验申请号，ID号，就诊次数，申请科室，申请医生，申请时间，申请状态，执行科室，执行人工号，执行时间，申请人员，急检标志〕手术申请表〔手术申请号，ID号，申请科室，申请医生，申请时间，申请状态，手术前主诊断，拟行手术名称，拟行麻醉名称，拟行手术时间，手术类型，备注〕输血申请表〔输血申请号，ID号，申请科室，申请医生，申请时间，申请状态，西医主诊断，预定输血日期，输血工程，输血方法，血型，RH阴或阳，申请血量，血量单位，既往输血情况〕病人就诊记录〔ID号，就诊次数，就诊科室，就诊医生编码，就诊日期，主要诊断，次要诊断，挂号科别，就诊标志〕住院申请〔申请号，ID，申请科室，申请医生，申请时间，病人根本病情，住院要求〕物理构造〔二维表构造〕Ks科室字段名字段中文名数据类型长度是否为空备注dept_code科室编号varchar7否dept_name科室名称varchar32是Mzys门诊医生字段名字段中文名数据类型长度是否为空备注dept_code科室编号varchar7否doctor_code医生编号varchar7是doctor_name医生varchar10否password口令varchar20是Mzbl门诊病历字段名字段中文名数据类型长度能否为空备注file_no门诊病案号varchar12否patient_id病人ID号varchar12否patient_name病人varchar10否se*病人性别char2是age病人年龄int是date日期datetime否times就诊次数int否modifier修改人varchar10是bl_content病历容varchar1000否guidang_man归档人varchar10否guidang_time归档时间datetime否guidang_flag归档标志varchar2否sumofmoney金额float是patient_tel病人varchar16是patient_jg病人籍贯varchar10是patient_gj病人国籍varchar10是address病人住址varchar50是black_flag黑标志varchar2否Br**病人信息字段名字段中文名数据类型长度能否为空备注patient_id病人ID号varchar12否patient_ic病人IC号varchar12否patient_name病人varchar10是main_doctor主治医师varchar7是yibao_type医保类别varchar8是black_flag黑标志varchar2否Ywyz药物医嘱字段名字段中文名数据类型长度能否为空备注order_no医嘱序号varchar12否patient_id病人ID号varchar12否dept_code科室编码varchar7否order_doctor开医嘱医生编码varchar7是order_time开医嘱时间datetime否stop_doctor停医嘱医生编码varchar7是drug_name药品名称varchar20是drug_standard药品规格varchar50是dosage单次剂量float是dosage_unit剂量单位varchar4是supply_way给药途径varchar5是frequence执行频率varchar10是drip_speed滴速float是drip_speed_unit滴速单位varchar4是days天数smallint是drug_amount药物数量float是drug_amount_unit数量单位varchar4是ment备注te*t是Zycf中医处方字段名字段中文名数据类型长度能否为空备注chufang_no处方序号smallint否patient_id病人ID号varchar12否times就诊次数int否chufang_type处方类型varchar10否detail_no明细序号smallint否charge_code工程序号varchar2否serial_no工程规格varchar2否herbal_amount草药副数decimal〔8,2〕supply_way给药方式varchar10否frequence次数代码varchar10否dosage用量decimal〔12,4〕否dosage_unit用量单位varchar10否days天数smallintment注释varchar150是skin_test_flag皮试标志char2是apply_dept开单科室varchar10否apply_doctor开单医生varchar10否p_name打印名称varchar10是Jcsqb检查申请表字段名字段中文名数据类型长度能否为空备注jc_no检查申请号int否patient_id病人ID号varchar12否times就诊次数int否e*am_objective检查目的varchar50是e*am_add_info检查描述varchar50是image检查影像image是order_no医嘱序号varchar12是apply_dept申请科室varchar7是apply_doctor申请医生varchar10是apply_date申请时间datetime是charge_sn记账序号int是charge_flag收费标志varchar2是charge_dept_no执行科室varchar7是manual_no执行人工号varchar50是check_no检查号varchar20是check_way检查方法varchar100是image_desc影像所见varchar1000是image_mind影像意见varchar1000是image_no影像号varchar18是record_opera申请人员varchar10是jc_location检查部位varchar20是urgent_flag急检标志varchar2是ment备注varchar50是Jysqb检验申请表字段名字段中文名数据类型长度能否为空备注jy_no检验申请号int否patient_id病人ID号varchar12否times就诊次数int否apply_dept申请科室varchar7是apply_doctor申请医生varchar10是apply_date申请时间datetime是apply_status申请状态varchar2是charge_dept_no执行科室varchar7是manual_no执行人工号varchar50是e*ec_date执行时间datetime是record_opera申请人员varchar10是urgent_flag急检标志varchar2是diagnose_name诊断名称varchar20是check_item检验工程varchar8是如钠，钾check_sample检验标本varchar10是如全血ment备注varchar50是Sssqb手术申请表字段名字段中文名数据类型长度能否为空备注ss_no手术申请号int否patient_id病人ID号varchar12否apply_dept申请科室varchar10是apply_doctor申请医生varchar10是apply_date申请时间datetime是apply_status申请状态varchar2是zhuzhenduan手术前主诊断varchar20是opera_name手术名称varchar20是narcosis_name麻醉名称varchar10是opera_time手术时间datetime是opera_type手术类型varchar8是ment备注varchar150是S*sqb输血申请表字段名字段中文名数据类型长度能否为空备注s*_no输血申请号int否patient_id病人ID号varchar12否apply_dept申请科室varchar10是apply_doctor申请医生varchar10是apply_date申请时间datetime是apply_status申请状态varchar2是zhuzhenduan西医主诊断varchar20是predict_date预定输血日期datetime否transfusion_item输血工程varchar20否transfusion_way输血方法varchar8是blood_type血型varchar5否RHRH为阴或阳varchar2是amount申请血量float是amount_unit血量单位varchar8是tran_history既往输血情况varchar100是Brjzjl病人就诊记录字段名字段中文名数据类型长度能否为空备注patient_id病人ID号varchar12否主键times就诊次数int否主键visit_dept就诊科室varchar10是doctor_code就诊医生编码varchar7是visit_date就诊日期datetime是main_diagnose主要诊断varchar16是second_diagnose次要诊断varchar16是gh_dept挂号科别varchar10是visit_flag就诊标志varchar2是Zysq住院申请字段名字段中文名数据类型长度能否为空备注zy_no申请号varchar12否patient_id病人ID号varchar12否apply_dept申请科室varchar10是apply_doctor申请医生varchar10是apply_date申请时间datetime是patient_condition病人根本病情varchar100是patient_demand住院要求varchar100是4.4界面设计：代码：//登陆unitUnit2;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,jpeg,E*tCtrls,DB,ADODB;typeTForm2=class(TForm)Image1:TImage;Label1:TLabel;Edit1:TEdit;Label2:TLabel;Edit2:TEdit;Button1:TButton;Button2:TButton;Image2:TImage;ADOConnection1:TADOConnection;ADOQuery1:TADOQuery;DataSource1:TDataSource;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm2:TForm2;implementationusesUnit1;{$R*.dfm}procedureTForm2.Button1Click(Sender:TObject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.Sql.Add('selectdoctor_code,passwordfrommzyswheredoctor_code='+''''+edit1.Te*t+''''+'andpassword='+''''+edit2.Te*t+'''');adoquery1.Open;ifadoquery1.RecordCount=0thenbeginapplication.MessageBo*('密码错误，请重新输入','提示',mb_ok);edit1.SetFocus;endelsebeginform1.Show;form2.hide;end;end;procedureTForm2.Button2Click(Sender:TObject);beginclose;end;End.//主业务unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Ctrls,Menus,Mask,DB,ADODB,Grids,DBGrids,E*tCtrls,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;GroupBo*1:TGroupBo*;Label1:TLabel;Label2:TLabel;Label4:TLabel;Label6:TLabel;Label7:TLabel;Label8:TLabel;Label10:TLabel;Edit1:TEdit;Edit4:TEdit;Edit5:TEdit;Edit7:TEdit;GroupBo*2:TGroupBo*;GroupBo*4:TGroupBo*;PageControl3:TPageControl;TabSheet9:TTabSheet;Label15:TLabel;Label16:TLabel;Label17:TLabel;Label18:TLabel;Label19:TLabel;Label20:TLabel;Label21:TLabel;Label22:TLabel;Label23:TLabel;Label24:TLabel;Label25:TLabel;Label26:TLabel;Label27:TLabel;Label28:TLabel;Label29:TLabel;Edit11:TEdit;Edit12:TEdit;Edit13:TEdit;Edit14:TEdit;Edit15:TEdit;Edit16:TEdit;Edit17:TEdit;Edit18:TEdit;Edit19:TEdit;Edit20:TEdit;TabSheet10:TTabSheet;Label30:TLabel;Label31:TLabel;Edit21:TEdit;CheckBo*1:TCheckBo*;TabSheet11:TTabSheet;Button3:TButton;Button4:TButton;TabSheet3:TTabSheet;Button7:TButton;Button8:TButton;Button9:TButton;TabSheet4:TTabSheet;Button13:TButton;Button15:TButton;Button17:TButton;TabSheet5:TTabSheet;TabSheet6:TTabSheet;TabSheet7:TTabSheet;Memo2:TMemo;TabSheet15:TTabSheet;DBGrid1:TDBGrid;Button10:TButton;Button11:TButton;Button12:TButton;DBGrid2:TDBGrid;ADOConnection1:TADOConnection;ADOQuery1:TADOQuery;ADOQuery2:TADOQuery;ADOQuery3:TADOQuery;ADOQuery4:TADOQuery;ADOQuery5:TADOQuery;ADOQuery6:TADOQuery;ADOQuery7:TADOQuery;ADOQuery8:TADOQuery;ADOQuery9:TADOQuery;DataSource1:TDataSource;DataSource2:TDataSource;DataSource3:TDataSource;DataSource4:TDataSource;DataSource5:TDataSource;DataSource6:TDataSource;DataSource7:TDataSource;DBGrid3:TDBGrid;Button19:TButton;Button25:TButton;Button26:TButton;DBGrid4:TDBGrid;DBGrid5:TDBGrid;Button18:TButton;Button22:TButton;DataSource8:TDataSource;DataSource9:TDataSource;Label12:TLabel;Edit8:TEdit;Label13:TLabel;Label14:TLabel;Edit9:TEdit;Label32:TLabel;Label33:TLabel;Label34:TLabel;Label35:TLabel;MaskEdit2:TMaskEdit;Edit10:TEdit;Edit22:TEdit;Edit23:TEdit;Label36:TLabel;Edit24:TEdit;Label38:TLabel;Edit26:TEdit;CheckBo*2:TCheckBo*;Label39:TLabel;Memo1:TMemo;Label40:TLabel;Memo4:TMemo;Label41:TLabel;Memo5:TMemo;Label42:TLabel;Edit27:TEdit;Label43:TLabel;Edit28:TEdit;Label44:TLabel;Edit29:TEdit;Label45:TLabel;Edit30:TEdit;Label46:TLabel;Edit31:TEdit;Label48:TLabel;Label49:TLabel;Edit34:TEdit;CheckBo*3:TCheckBo*;Label50:TLabel;Edit35:TEdit;Label51:TLabel;Edit36:TEdit;Label52:TLabel;Memo6:TMemo;Label11:TLabel;Label3:TLabel;Label53:TLabel;Label54:TLabel;Label56:TLabel;Label57:TLabel;Edit37:TEdit;Edit38:TEdit;Edit39:TEdit;Edit43:TEdit;Label58:TLabel;Edit44:TEdit;Label59:TLabel;Edit45:TEdit;Label60:TLabel;Edit46:TEdit;Label61:TLabel;Memo7:TMemo;DBGrid6:TDBGrid;Label62:TLabel;Edit47:TEdit;Label63:TLabel;Edit48:TEdit;Label64:TLabel;Edit49:TEdit;Label65:TLabel;Label67:TLabel;Edit52:TEdit;Label68:TLabel;MaskEdit3:TMaskEdit;Label69:TLabel;Edit53:TEdit;Label70:TLabel;Edit54:TEdit;Label71:TLabel;boBo*1:TboBo*;Label72:TLabel;boBo*2:TboBo*;Label73:TLabel;Edit55:TEdit;Label74:TLabel;Edit56:TEdit;Label75:TLabel;Memo8:TMemo;Button14:TButton;Button16:TButton;Button23:TButton;Label76:TLabel;Edit57:TEdit;Label77:TLabel;Edit58:TEdit;Label78:TLabel;Edit59:TEdit;Label79:TLabel;Edit60:TEdit;Label80:TLabel;Edit61:TEdit;Label81:TLabel;Edit62:TEdit;Label82:TLabel;Edit63:TEdit;Label83:TLabel;Edit64:TEdit;Label84:TLabel;Edit65:TEdit;Label85:TLabel;Edit66:TEdit;Label86:TLabel;Edit67:TEdit;Label87:TLabel;Edit68:TEdit;CheckBo*4:TCheckBo*;Label88:TLabel;Edit69:TEdit;Label89:TLabel;Edit70:TEdit;Label90:TLabel;Memo9:TMemo;Label91:TLabel;Edit71:TEdit;Label92:TLabel;Edit72:TEdit;Label93:TLabel;Edit73:TEdit;Label94:TLabel;Edit74:TEdit;Label95:TLabel;Edit75:TEdit;Label96:TLabel;Edit76:TEdit;Label97:TLabel;Edit77:TEdit;Label98:TLabel;Edit78:TEdit;Label99:TLabel;Edit79:TEdit;Label100:TLabel;Edit80:TEdit;Label101:TLabel;Edit81:TEdit;Label102:TLabel;Edit82:TEdit;Label103:TLabel;Edit83:TEdit;Label104:TLabel;Edit84:TEdit;Label105:TLabel;Edit85:TEdit;Label106:TLabel;Memo10:TMemo;Label107:TLabel;Button24:TButton;Button27:TButton;MaskEdit4:TMaskEdit;Button28:TButton;Label108:TLabel;MaskEdit5:TMaskEdit;MaskEdit6:TMaskEdit;MaskEdit7:TMaskEdit;MaskEdit8:TMaskEdit;MaskEdit9:TMaskEdit;Button29:TButton;CheckBo*5:TCheckBo*;Label37:TLabel;Edit3:TEdit;Label47:TLabel;Edit25:TEdit;Button30:TButton;Button21:TButton;Label55:TLabel;Edit32:TEdit;Button31:TButton;Label66:TLabel;Label109:TLabel;Label5:TLabel;Edit2:TEdit;Label110:TLabel;Edit33:TEdit;Label111:TLabel;Edit40:TEdit;Panel1:TPanel;Label116:TLabel;Label117:TLabel;Label118:TLabel;Label119:TLabel;Label120:TLabel;Edit41:TEdit;Edit42:TEdit;Edit50:TEdit;Button1:TButton;Button2:TButton;DataSource10:TDataSource;ADOQuery10:TADOQuery;Label9:TLabel;Edit6:TEdit;Edit51:TEdit;Edit86:TEdit;TabSheet12:TTabSheet;Label121:TLabel;Memo11:TMemo;Label122:TLabel;Memo12:TMemo;Label123:TLabel;Edit87:TEdit;Label124:TLabel;Edit88:TEdit;Label125:TLabel;ADOQuery11:TADOQuery;DataSource11:TDataSource;Button5:TButton;DBGrid7:TDBGrid;Button6:TButton;Button32:TButton;Button33:TButton;Label126:TLabel;Edit90:TEdit;GroupBo*3:TGroupBo*;Label112:TLabel;Label113:TLabel;Memo3:TMemo;RvProject1:TRvProject;RvSystem1:TRvSystem;RvDataSetConnection1:TRvDataSetConnection;Button20:TButton;Label114:TLabel;MaskEdit1:TMaskEdit;RvProject2:TRvProject;RvSystem2:TRvSystem;RvDataSetConnection2:TRvDataSetConnection;Button34:TButton;Button35:TButton;procedureButton19Click(Sender:TObject);procedureButton25Click(Sender:TObject);procedureButton26Click(Sender:TObject);procedureButton24Click(Sender:TObject);procedureButton14Click(Sender:TObject);procedureButton23Click(Sender:TObject);procedureButton27Click(Sender:TObject);procedureButton16Click(Sender:TObject);procedureButton13Click(Sender:TObject);procedureButton15Click(Sender:TObject);procedureButton28Click(Sender:TObject);procedureButton17Click(Sender:TObject);procedureButton7Click(Sender:TObject);procedureButton8Click(Sender:TObject);procedureButton29Click(Sender:TObject);procedureButton9Click(Sender:TObject);procedureButton18Click(Sender:TObject);procedureButton22Click(Sender:TObject);procedureButton30Click(Sender:TObject);procedureButton21Click(Sender:TObject);procedureButton10Click(Sender:TObject);procedureButton11Click(Sender:TObject);procedureButton31Click(Sender:TObject);procedureButton12Click(Sender:TObject);procedureButton3Click(Sender:TObject);procedureButton4Click(Sender:TObject);procedureButton5Click(Sender:TObject);procedureButton6Click(Sender:TObject);procedureButton32Click(Sender:TObject);procedureButton33Click(Sender:TObject);procedureFormCreate(Sender:TObject);procedureButton1Click(Sender:TObject);procedureButton20Click(Sender:TObject);procedureButton35Click(Sender:TObject);procedureButton2Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementationusesUnit3;{$R*.dfm}//中医处方//添加procedureTForm1.Button19Click(Sender:TObject);varpishi:string;beginifcheckbo*1.Checkedthenpishi:='是'elsepishi:='否';withadoquery3dobeginclose;sql.Clear;sql.Add('insertintozycfvalues(:a1,:a2,:a3,:a4,:a5,:a6,:a7,:a8,:a9,:a10,:a11,:a12,:a13,:a14,:a15,:a16,:a17)');parameters.ParamByName('a1').Value:=edit57.Te*t;//处方序号parameters.ParamByName('a2').Value:=label107.Caption;//病人IDparameters.ParamByName('a3').Value:=edit58.Te*t;//就诊次数parameters.ParamByName('a4').Value:=edit59.Te*t;//处方类型parameters.ParamByName('a5').Value:=edit60.Te*t;//明细序号parameters.ParamByName('a6').Value:=edit61.Te*t;//工程序号parameters.ParamByName('a7').Value:=edit62.Te*t;//工程规格parameters.ParamByName('a8').Value:=edit63.Te*t;//草药副数parameters.ParamByName('a9').Value:=edit64.Te*t;//给药方式parameters.ParamByName('a10').Value:=edit65.Te*t;//次数代码parameters.ParamByName('a11').Value:=edit66.Te*t;//用量parameters.ParamByName('a12').Value:=edit67.Te*t;//用量单位parameters.ParamByName('a13').Value:=edit68.Te*t;//天数parameters.ParamByName('a14').value:=memo9.Te*t;//注释parameters.ParamByName('a15').Value:=pishi;//皮试标志parameters.ParamByName('a16').Value:=edit69.Te*t;//开单科室parameters.ParamByName('a17').Value:=edit70.Te*t;//开单医生e*ecsql;close;sql.Clear;sql.Add('select*frommzcf');open;end;end;//删除procedureTForm1.Button25Click(Sender:TObject);beginwithadoquery3dobeginclose;sql.Clear;sql.Add('deletefrommzcfwherechufang_no=:a1');parameters.ParamByName('a1').Value:=edit57.Te*t;e*ecsql;close;sql.Clear;sql.Add('select*frommzcf');open;end;end;//保存procedureTForm1.Button26Click(Sender:TObject);beginadoquery3.Post;end;//修改procedureTForm1.Button24Click(Sender:TObject);beginadoquery3.Edit;end;//输血申请表//添加procedureTForm1.Button14Click(Sender:TObject);beginwithadoquery9dobeginclose;sql.Clear;sql.Add('insertintos*sqbvalues(:a1,:a2,:a3,:a4,:a5,:a6,:a7,:a8,:a9,:a10,:a11,:a12,:a13,:a14,:a15)');parameters.ParamByName('a1').Value:=edit47.Te*t;//输血申请号parameters.ParamByName('a2').Value:=label107.Caption;//病人IDparameters.ParamByName('a3').Value:=edit48.Te*t;//申请科室parameters.ParamByName('a4').Value:=edit49.Te*t;//申请医生parameters.ParamByName('a5').Value:=maskedit4.Te*t;//申请时间parameters.ParamByName('a6').Value:=edit3.Te*t;//申请状态parameters.ParamByName('a7').Value:=edit52.Te*t;//西医主诊断parameters.ParamByName('a8').Value:=maskedit3.te*t;//预定输血日期parameters.ParamByName('a9').Value:=edit54.Te*t;//输血工程parameters.ParamByName('a10').Value:=edit53.Te*t;//输血方法parameters.ParamByName('a11').Value:=bobo*1.Te*t;//血型parameters.ParamByName('a12').Value:=bobo*2.Te*t;//RH阴或阳parameters.ParamByName('a13').Value:=edit55.Te*t;//申请血量parameters.ParamByName('a14').Value:=edit56.Te*t;//血量单位parameters.ParamByName('a15').value:=memo8.Te*t;//既往输血情况e*ecsql;close;sql.Clear;sql.Add('select*froms*sqb');open;end;end;//删除procedureTForm1.Button23Click(Sender:TObject);beginwithadoquery9dobeginclose;sql.Clear;sql.Add('deletefroms*sqbwheres*_no=:a1');parameters.ParamByName('a1').Value:=edit47.Te*t;e*ecsql;close;sql.Clear;sql.Add('select*froms*sqb');open;end;end;//修改procedureTForm1.Button27Click(Sender:TObject);beginadoquery9.Edit;end;//保存procedureTForm1.Button16Click(Sender:TObject);beginadoquery9.Post;end;//药物医嘱//保存procedureTForm1.Button13Click(Sender:TObject);beginwithadoquery8dobeginclose;sql.Clear;sql.Add('insertintoywyzvalues(:a1,:a2,:a3,:a4,:a5,:a6,:a7,:a8,:a9,:a10,:a11,:a12,:a13,:a14,:a15,:a16,:a17,:a18)');parameters.ParamByName('a1').Value:=edit71.Te*t;//医嘱序号parameters.ParamByName('a2').Value:=label107.Caption;//病人IDparameters.ParamByName('a3').Value:=edit72.Te*t;//科室编号parameters.ParamByName('a4').Value:=edit73.Te*t;//开医嘱医生编码parameters.ParamByName('a5').Value:=maskedit5.Te*t;//开医嘱时间parameters.ParamByName('a6').Value:=edit74.Te*t;//停医嘱医生编码parameters.ParamByName('a7').Value:=edit75.Te*t;//药品名称parameters.ParamByName('a8').Value:=edit76.Te*t;//药品规格parameters.ParamByName('a9').Value:=edit77.Te*t;//单次剂量parameters.ParamByName('a10').Value:=edit78.Te*t;//剂量单位parameters.ParamByName('a11').Value:=edit79.Te*t;//给药途径parameters.ParamByName('a12').Value:=edit80.Te*t;//执行频率parameters.ParamByName('a13').Value:=edit81.Te*t;//滴速parameters.ParamByName('a14').value:=edit82.Te*t;//滴速单位parameters.ParamByName('a15').Value:=edit83.Te*t;//天数parameters.ParamByName('a16').Value:=edit84.Te*t;//药物数量parameters.ParamByName('a17').Value:=edit85.Te*t;//数量单位parameters.ParamByName('a18').Value:=memo10.Te*t;//备注e*ecsql;close;sql.Clear;sql.Add('select*fromywyz');open;end;end;//删除procedureTForm1.Button15Click(Sender:TObject);beginwithadoquery8dobeginclose;sql.Clear;sql.Add('deletefromywyzwhereorder_no=:a1');parameters.ParamByName('a1').Value:=edit71.Te*t;e*ecsql;close;sql.Clear;sql.Add('select*