医院管理系统课程设计方案_第1页
医院管理系统课程设计方案_第2页
医院管理系统课程设计方案_第3页
医院管理系统课程设计方案_第4页
医院管理系统课程设计方案_第5页
已阅读5页,还剩9页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

一、系统需求与功能分析1.系统需求分析医院信息化是医院应用信息技术及其产品的过程,是信息技术由局部到全局、由战术层次到战略层次向医院的全面渗透,运用于流程管理、支持医院经营管理的过程。信息化的实施从自上而下的角度说,必须与医院的制度创新、组织创新和管理创新结合;从自上而下的角度说,必须以作为医院主体的业务人员直接受益及其使用水平的逐步提高为基础。调查用户需求:本系统的最终用户为医院,我们根据从医院方面取得的图表资料、文字资料以及其他细节方面的信息,根据我们日常生活中的经验,根据我们所做的其他询问和调查,得出用户的下列实际要求:用户对系统的要求:信息要求:由于系统的使用主体是医院的管理人员,因此对系统的信息要求可分为以下方面:(1)病人信息①:首先是病人的基本信息,主要包括病人的姓名,性别,出生年月,年龄,家庭住址,联系方式等;②:对于住院病人,还需要入院时间,所在病区,所在医科,床位等。(2)处理要求:系统应当完成以下的信息处理:店①假:付存储病人信歼息,供相应培的人员查询折;袄②耗:丑对病人信息滴进行及时的鸡更新和统计画;草(狼3覆)偷安全性要求华:哪系统应设置兰访问用户的殃标识以鉴别络是否是合法税用户,并要走求合法景用户设置其翅密码,保证贱用户身份不疏被盗用。木2.籍功能分析库铃(疗1技)信息录入侵处理:住院搬病人信息录技入、住院病扯人治疗费用用录入、住院踢病人药品费仔用录入。冶雨撇住院病人信俱息录入就是臭将源数据库绢中没有的病盟人信息重新工录入进去,洗并且可以录透入病人姓名呀。住院病人独费用录入和斑住院病人药移品录入功能唯相近,都是客将甲陈病人在住院兴期间的所花葛的费用进行磁录入保存,吨方便以后进损行查询。杂详(缸2概)信息查询槽处理:住院苗病人信息查点询和住院病立人隔费用查询。缎垫坡住院病人信纵息查询和住泛院病人费用寨查询功能相开似,从数据仰库中将病人版信息和费用少显示到前台补,让病人及陡时了解自己已的弄个人信息和励消费情况。辫烫(活3翁)信息统计填处理:住院绢病人总费用晒统计难按大类科、右专科、病区德及指定的病杠人进行查询牧统计启(坑4球)权信息打印处颠理:住院病偿人信息打印忆住院病人信劈息报表打印虑用于显示病柿人的住院号陈、床位号、寒床位费、病晚人姓名、性激别编码出生晒日期、民族升、籍贯和病删症等详细信原息。安涂(易5护)系统维护根处理:病人棍信息维护、愉大类科编码串维护、专科饼编码维护、毁病区编码维蒙护、治疗项及目编码维护删、减药品编码维候护医生编码浸维护和用户疯编薯码维护。冬系统编码维马护时分别对院病人信息、镰大类科、专冲科、病区、郊治忽疗项目、药收品信息、医劳生信息和用确户信息进行曲录入、查询梢与修改三等操作,鹅数据编码表杂维护是对各康类数据编码已表中的记录巧进行录入、佣查询与修改触等操作。呼3课.摇系统功能菜连单筒由此方案设妇计的系统功云能菜单如业下表油所示。演信息爹录入致信息团查询盒信息赢统计匆数据打印该系统维护弱信息复制猫病人信息录夜入城病人信息查子询说病人总费用训统计亿病人信息打鲜印昌系统维护截批量复制指病人治疗费店用录入馆病人费用查唱询茶大类科季编码维护株病人药品费攀用录入沟专科序编码裙维护径病区编码维背护检治疗项目维令护醒药品编码维游护忧医生编码维法护竟用户编码维脚护邻递表咱炭学生成绩管夜理功能菜单蛇二、数据库眼设计政设计系统的蒜数据库结构抹、数据表结浸构包含序号厉、数据项名赖、含义、数耻据项类型、减长度、非空鹅、索引、主哪键、外键、棍引用字段、瞎数据来源等辫。蔬1姻.杰大类科编码冤表殊Categ钻ory特表因1涌大类科编码铁表悬tblCa殊tegor水y冰序号捉字段名筐含义烧类型允宽度杏小数送主抱/矛外宋键塑1撒Cate_衣Id始大类科编码歌Varch饶ar麦10欺PK当2针C毕ate_N瓣ame划大类科名称叔V僚archa念r嗽20渐3养Cat都e_Dea狂n偶大类科主任争Varch胸ar扮10妨2宾.层专科编码表州Spec牛表忙2职培专科编码表魄tblSp莲ec睬序号塑字段名号含义纲类型均宽度堂小数沟狐主谎/庭外鸦键闭关联表扇/经字段酷1胳Spec_堪Id虫专科编码致Varch馆ar蝇10驻PK姐2唯Spec_假Name纵专科名称属Varch神ar士3悼0庆3插Spec_费Cate资所属大类科坛编码地Varch丰ar残10锻FK警tblCa念tegor庸y/C陵ate_I究D盆3沈.济病区编码表堤Ward颈表惊3沟病区编码表幅tblWa亩rd疲序号模字段名秀含义绝类型尚宽度短小数评耽主煤/捐外新键鸣关联表点/项字段眠1伟Ward_缝Id臭病区编码宿Varch提ar批10商PK朗2室Ward胡_Name煤病区名称伙Varch唐ar抗20持3忙Ward_蝇Pos月病区位置号Varch经ar暑20为4牲Ward_缴Beds察总床位数让Int啊5许Ward_消Used榴已用床位数戏Int眉6碎Ward_斑Rest子剩余床位数灰flaot丹7狸Ward_颜Head落病区主任吼Varch滚ar王1喉0标8虏Ward_馅Spe杀c润所属专科编柱码中Varch兔ar写况2铺FK蛮tblSp协ec/杂Spec_鼓ID筝4喂.弄病人信息表隐Patie行nt孕表冤4担病人信息表甩tblPa当tient拳序号缺字段名兄含义盼类型恒宽度丧小数忌级主识/跳外欧键房关联表坑/睬字段浴1突Pat_I产d吼住院号贝Varch篇ar搂10货PK吧2洋Pat_B寻ed毯床位号亭Varch程ar贴50双3德Pat_B华edFee磁床位费划money藏2伞4葱Pat_N堡ame皂病人姓名永Varch掩ar宏8经5伟Pat_S因ex森性别编码醒Varch筹ar径1哨tblSe住x/S犯ex_ID远6火Pat_B印irth岔出生日期腥Datet昂ime歉7善Pat_N总ati象on鱼民族仇Varch求ar杰2罗tblNa咳tion组/Nat叮ion_I醉D绵8辛Pat_N螺tvPlc舞籍贯蜜Varch哗ar半6达tblNt慌vPlc赚/Ntv宿Plc_I牛D肥9谜Pat_S结ympto遗n脾病症笼Varch另ar筐20箩10济Pat_W裤ork朱工作单位溪Varch序ar如20它11赔Pat_C普ha集rId宫身份证号康Varch煎ar俭40秘12爷Pat僚_Ward捏病区编码我Varch拨ar填10萄tblWa萌rd/赔Ward_闯ID工13桂Pat_Z响ipCod奏e爆住机宅邮编展Varch笼ar珍6磁14朽Pat_P茶hone阅住宅电话兽Varch荷ar躁20抛15寺Pat_A蝇ddr社户口地址海Varch步ar撕5尿0痛16饶Pat_A涂dmit股入院日期石Datet勇ime宽17砖Pat_L馆eave逗出院日期斑Datet漠ime息18雪Pat_P更ayAd锋预交费报mon馋ey译2莲19姜Pa遗t_Pay华Sum翼费用总额兵mo核ney皱2但20茶Pat_P享ayRes推t斩费用结余夸money浑2祸21哗Pat_I星mage披病人照片皮Image妇5柜.芒性别编码轰表间Sex占表塔5买性别编码表床tblSe误x罗序号伸字段名售含义扇类型户宽度域小数壳主擦/版外邀键驴1弓Sex_I临d味性别编码森Varch您ar区1朴施PK喘2挎Sex_N即ame闸性别扔Varch仓ar费1达0脂叹滥6贺.询民族编码寄表肌Natio胁n雅表隆6挡民族编码表役tblNa喉tion虽序号报字段名幸含义促类型民宽度竭小数而主赴外押键点1铃Natio驳n_Id稠民族编码水Varch烦ar委2锻珍PK镰2脚Natio谋n_Nam学e垄民族名称叛Varch墨ar筒20蜡墓膨7瑞.澡籍贯编码慈表摊NtvPl衬c氧表哪7份籍贯编码表强tblNt修vPlc屑序号桌字段名酸含义再类型斩宽度汽小数燕主霞/嚼外律键誉1闹NtvPl该c_Id卧籍贯编码害Varch廉ar扰6访怪PK悲2劣NtvPl桑c_Nam岭e袭籍贯名称址Varch怠ar英20窑嗓如8站.萌治疗项目编塞码捐表也Item陪表音8晒治疗项目编霸码表稻tblIt丘em知序号融字段名识含义丸类型要宽度揭小数监伸主交/屋外浑键念关联表升/当字段瞒1埋Item_浊Id性项义目编码接Varch港ar淡10英PK刻2复Item_西Name瓣项目名称均Varch故ar捆6而3惊Item_瞒Type幼项目类别籍Varch倘ar钻6沿4盐Item_慢Wbm明五笔码瓦Varch永ar腐30牌5垃Item_兼Pym究拼音码会Varch宇ar鞠10妇6农Item_弊PerPr酿ice候项目单价资float煎2错7揉Item_膝Mark田备注贿Varch若ar旁2场0刺9蔑.旷病人治疗项厨目费用小表颤MedIt佳em芦表看9酬病人治疗项抱目费用表墙t跨blMed善Item饰序号弊字段名堪含义踢类型锻宽度伪小数甜热主星/遍外龙键咳关联表桂/净字段爷1近Mi_Pa堂tId凤住院号辣Varch哥ar贝10粪PK蹄tb逆lPati崖ent/畅蠢Pat_I稳d喇2敬Mi_It岛emId限项目编码负Varch锋ar告10时tblIt村em/迷Item_炎ID艇3垫Mi_Qu占antit耳y笑数量辟float时4底Mi_Am玩ount最金额丙int堡5刃Mi_Da库te许使用日期绝Varch铁ar瓣10塔6址Mi_Ti晒me高使用时间父Va鸟rchar喊5她0汽7泡Mi_Do辱cId严医生编码切V色archa搭r毯10驳tblDo贫c蝴tor/锐Doct塔_Id他8底Mi_Ad发vice西医嘱号鸽Varch交ar俘1栋0罢10易.辜药品编码栽表轮Medic旺ine感表弯10齐药品编码表先tblMe敬dicin套e沿序号债字段名班含义萄类型泡宽度颈小数屯厅主州/犬外饿键俱关联表焦/呆字段酒1会Med_I谨d尤药品编码棉Varch数ar别1点7受PK烛2教Med_W庄bm陪五笔编码集Varch哪ar律6磁3渠Med_P拐ym诊拼音编码餐Varch蛾ar裙6浑4宝Med_N明ame棒药品名盲称棒Varch晋ar毕3箩0适5砖Med_S眨pec选药品规格阔V回archa躺r牙1剧6伟6模Med_U极nit饺计量单位另Varch斜ar屿6扶7崭Med_P让erPri描ce俘药品单价姿float断2验8展Med_E胶xpiry劝date品药品有效期据Varch肢ar煎11许.婚病人药品费响用庄表哭MedFe估e岗表军11属病人药品费瞧用表送tblMe问dFee恳序号晕字段名衔含义午类型讽宽度戏小数牲堤主宣/拦外开键假关联表役/左字段粘1夫Mf_Pa僚tId饿住院号听Varch取ar盐10滥PK棵tblPa馆ti薯ent/离坝Pat_I陪d线2蚁Mf_It直emId斩药品编码码Var汪char罚17稠tblMe洁dicin界e/设Med_I狸d芝3迈Mf_Un愁it构药品单位姐Varch抛ar告4叉4铅Mf_Q存uanti漂ty手数量回float达5插Mf_Am台ount僚金额盆float底6览Mf_Da坊te辰使用日期形Varch韵ar忧10劣7蜻Mf_Ti惑me丽使用时间痕Varch议ar冠5兰8考Mf_Do垫cId接医生编码板Varch绩ar壤5粥tblDo铜ctor符/Doc扰t_Id识9挠Mf_Ad盒vice屿医嘱阶号移Varch花ar睁10升1员2让.痒医生编码流表惩Docto膀r培序号甲字段名纱含义怜类型遥宽度糟小数敲主键抢表忽12盖屡医生编码表治tblDo好ctor公序号北字段名凉含义英类型森宽度羡小数尸眯主端/末外刻键唇关联表久/参字段独1须Doct_米ID随医生编码紧Varch忽ar咳5缎PK慧2梅Doct_脊Name音医生名称仓Varch炎ar厚8掌3杜Doct_牙Spec童所属专科编桶码磁Varch沈ar起8塑tblSp子ec/膀Spec_念Id害4香Doct叙_Ward遇所属病区编而码多V召archa眯r数10狐tblW保ard/涨Ward赔_Id窜13破.叮用户榜表盯User率表涌13爬用户表免tblUs蛮er挪序号防字段名西含义大类型准宽度孟小伶数森陶主贞/晌外些键张关联表妄/毫字段础1寺User_秩ID痛用户名辆Varch侨ar脾10码PK茶2满User_追Psw牌用户密码鄙Varch完ar盏20糟3麻User_侧Flag径用户权限标妖志确Varch代ar蚕1刚三、饲程序酒设计垂1常.劲系统潮登录在(主)棍图姑1逆迫用户登录界待面厌在登录界面策的设计中萌,我采用的义是有连接访豆问数据库,虹这样数据累并发性问题酱更容易控制节,数矛据也是当前瞎的和及时更画新的才;叮此外还犹设有用户权鄙限,权限不磁同登录成功飞后虫呈现出辣的主界面也市不同辨;蔬并且使觉用仪DataR型eade随r屡组件来以只扇读和仅转发趴的方式从数膀据源检分索数据从;核心代码漆如下:神//光有连接访问煮stati泄c等白strin悬g辣str常=迁"Data浮Sour查ce=AS贱US-PC抖\\SQL堤EXPRE驰SS;In赢itial闭Cata造log=H忌ospit址al;Us燃erId税=sa;P梨asswo量rd=sa慈"晴;包树伏SqlCo扩nnect吉ion些con股=踪new隙达SqlCo骗nnect占io戏n应(str)灰;雀priva富t远e始悄void贝btn_架Login悼_Clic利k(慢objec探t甲send辣er,奇Event手Args雁e){恩strin梢g段cmdS茎tr=贩"Sele督c舍t*F困romt师blLog从inWh绩ereU报ser_N么ame=@虚aand能User谱_Pwd=胁@b"央;情衫虹答SqlCo姿mmand茧cmd专=异new兄拦SqlCo蜂mmand深(cmdS课tr,c吓on);散废棍赤SqlPa庸ramet见er烧s1,诱s2;瞎旬刊s1然=cmd僵.Para恼meter护s.Add贫(肤"@a"绑,持SqlDb滴Type躲.VarC株har,筐20);疗紧择s2坑=cmd湿.Para俭meter船s.Add盏(撒"@b"眯,骄Sq绣lDbTy蚂pe蒜.VarC刊har,纪20);脊瓶肿s1.糠Value仰=tx搬t_Use乖rName约.Text撇;凭教套s2.饼Value饭=tx君t_Use扑rPwd.疾Text;道//菠打开连接贡您阻con固.Open剧();悉//演定义坝SqlDa拍taRea病der训对象坏预坝敞SqlDa拢taRea梢der倍dr=勾cmd.伸Execu徒t认eRead伪er();协勾谊河//秋只读的方式长从数据源检裕索数据贿需箩贷if逆(dr.柱Read(答))婆网峡{肌//调用户权限登养录堵研吊瓣笔Commo滔n尺.User糟_Flag薪=dr砖[己"User陪_Flag勺"冒].ToS截tring啦();绒席返扩兄含/遵/辆显示主得窗体叙须Form_祝Main妥frm载=突new夺挣Form_丧Main救();翅浮凑咳frm.泰Show(疑);券猴优}早搁裹锤爹else今线黑{去狼钟挖渡Messa子geBox能.Show篮(带"愧用户名或密瓶码真错误叹!刻"贺);洪凉拜}否//圣关闭连接灵舞球con纽.Clos懂e();}堪2绢.川主界面概(主)阁图辽2苗改医院住院信素息管理系统舅在主界面设缠计,傲为了将所有粪界面以整体帖的方式全部结实现出来称,即执行一碧次就能看到想全部效果,蹈我在主界层面添加钓了性M季enuSt腾rip灭控件并且蔬在仅M街enuSt鹊rip雾控件上添加冠了作MeauI煎te待m唐控件,双私击限MeauI战te拼m愿控件添加代部码实现基主经/势子窗体连接概;而义且把界面设横计的漂亮、需规范,我晕把讨For茎m扯窗体约的胁IsMdi吨Conta袋ine可r裳属性设置愿为僻Tru枝e盾,移Backg记round坛Ima搁g普e葵属性导入一闲张图片,加价入一售个县time占r论控件基在积statu西sStri政p筑显示时间;颤此外涉及到聚用户权限问欣题,我拘在捆Form_磨Loa祸d瓦事件中添加领代码,用户灿权限不同登蝇录后访问的视主界面也不吊同。核心代圈码如下:面//谈单击主界面慧上适住院清病人业药品费用录筛入时,将显重示出住院病茧人药品费用亮录入学的蒙For五m娘子窗体亩priva桶te筐绑void桐tsmi遮MfInp矿ut_Cl拆ick(王objec霉t颠send演er,三Event路Args棒e困){柜贺剂Form_躬MedFe终e翁frm嘱=港new那涌Form_齿MedFe甲e陶();董钓frm.指Md设iPare仇nt=锅this徒;精路frm.粪Show(罚);丸烈泼slbl_甘windo蛙w.Tex矛t=捷"解腐当前窗咱体亮:"匙+fr涂m.Tex遮t;}释//宗用户权限设肝置裙priva辉te酿挤void召F兔orm_M腥ain_L洋oad(戚objec教t郊send捡er,现Event盏Args串e){瞎横争//决调挪用夜Commo姻n洋类的静态变项量移User_猫Fla侮g团,当用户权政限机为觉0鸽时,系统维宝护界面失效红,但可见豆敬突夏if燃(与Commo潮n染.User呼_Flag绘==住"0"两)却巾收{扔兰金汽/猪/泛系统亦维护界面失形效竿漫违赵Menu毕Maint光ain.E吗nable蝶d=蒙false校;架躺}}捎//守time忆r部控件显示时荷间损priva请te垫酱void肚time汤r1_Ti抬ck(炸objec盯t蚁槽sende踏r,娇Event栏Args扩e){休处执slbl_泰time.羞Text带=杨"粘日期:时间富:茄"吸+窜Conve蒸rt惩.ToSt壶ring(俭DateT赠ime那.Now)存;}表//杂单击主界面醉上筒住院病人总倡费用录入时符,将显示出命住院病人总桨费用录入出的误For颗m仰子窗体暑priva吊te射掀void帅山住院望病人总费用尼统躬计河ToolS倒tripM住enuIt惨em_Cl敌ick(娇objec课t肺send隶er,昏Event焰Args秒e){顷卫赞傻Form_分FeeSt好at蒙frm幼=卧new由样Form_涉FeeSt信at沟();钞匪frm慈.MdiP何arent历=谣this缝;毕际frm滥.Show泄();招际slb渡l_win族dow.T茂ext=级音"艺若当前窗再体室:"累+fr部m阁.Text钥;}仿//粪单击主界面绵上贿批量复制时艰,将显示出猛批量复制贡的陡For惕m毒子窗体橡priva怠te模悔void则tool映S牌tripB轿utton挣1_Cli软ck(晃objec锤t鸡send恭er,悉Event承Args勿e){授摆章Form_再Copy起frm踢=设new写恐Form_尖Copy竿();适神frm等.MdiP绩aren锤t=唯this埋;扯垫frm峰.Show野();候尼slb虾l_win旨dow.T层ext=触党"箭勉当前窗略体周:"肥+fr猫m.Tex拥t;}户//铲单击主界面鹿上惹住模院病人信息不打印时,将盐显示出住院某病人信息打舌印背的搞For户m帐子窗体箭priva死te杀允void困tsmi赌PatPi袋nt_Cl疏ic惩k(弃objec逃t飘send扶er,舟Event圆Args窄e){耀带辰Form_高PatBb拜frm结=毕new揪材Form_放PatBb贫();荡瓣frm涂.MdiP乘arent筛=初this竞;付欲fr翻m.Sho尿w();质洪末slbl驼_wind序ow.Te乎xt=坟"文杰当前窗河体蛛:"善+fr薄m.Tex抗t;}兰3.模病人信息录蜜入俊(次)勉图泉3融洁病人信息录对入丽早病人信息用碗于对病人信钻息的录入岗、查询和显帆示等操作写,并且可以互插入病人照养片。主要代疲码如下:画while谱(myR作eade亦r.Rea初d()){收浓file火=回new极闲(save杠dImag戒eName笼,明.Open卫OrCre桂ate,则.Writ年e);滩杠bw侦=饮new字研Binar偶yWrit台er迅(file跟);露助star如tInde豆x=0就;怀/怖/贴读取的起点遵位置柱齐retv仇al=希myRea谊der.G本etByt阴es(蠢0,st愚artIn惭dex,灾outby线te,0晴,buf早ferSi影ze);撞/德/鞋返回实际读捡取的字节数忌龄月/捧/愿当图片大小敬大于或等于末数组大小时惯,需分块写景入到文件中困稼火while嫌(ret少val=乏=buf炕ferSi酸ze)件邮摘{易徐懒bw.婚Write课(outb逝yte);认棕天添宝bw.Fl揭ush()誉;雀微狡选star删tInde嫁x+=谷buffe爪rSize爷;独/男/指重置读取的粗起点位置标库欺绝retv舌al=叮my镰Reade臣r.Get矮Bytes刃(0,s最tartI旺ndex,录outb议yte,早0,bu仔fferS慨ize);灾燥倚塑绒}乎困壮bw.Wr张ite(o帐utbyt磨e,0,零(旧int巷)retv锁al-歪1);舱税bw.F迹lush(嗽);臂谁bw.C拍lose(忍);青摊手();}选4.哗住院病人信弓息参查询我(次)称图豪4堡住院病人信翁息查询峡从数据库中厕将病人信息悄和费用显示杰到前台,让胳病人及时了神解自己的个崇人信息免。代码:眉priva同te帮醋void拿cbo_芳Cate_否Selec吗tedIn涂dexCh僻anged爪(村objec穗t渐send霉er,恶Event堪Args筝e)舒{恋县炭/舰/钟无连接访问朋实现专科表书和大类科表王的绑定逆毒森strin政g狭cmdS呢tr=饭"Sele犹ct*争From羊tblSp篮ecwh烘ereS汽pec_C妄ate=@薄a"扶;拨册辛SqlCo脊mmand逼cmd咬=司new婚阅SqlCo肤mmand械(cmdS调tr,c蹄on);夫后尼SqlPa唯ramet册er至s1;蔬应s1=恭cmd.仆Param棕eters任.Add(捧"@a"茧,父SqlDb伶T俘ype知.VarC棋har,丙2);及俗s1.V票alue禁=cbo草_Cate庄.Sele吵ctedV既alue.筝To递Strin墨g();合钳淘SqlDa购taAda绪pter饭dp=刻涛new亦西SqlDa隔taAda叨pter检();副鞋dp.S旦elect设Comma画nd=终cmd;盐辫楚DataS任et辛ds=矩刮new吊士DataS丑et渔();唉嘱dp.F泰ill(d缸s,碰"Spec史"运);台兼cbo_仍Spec.找DataS桥ource疮=ds陈.Tabl站es[页"Spec懒"诵];塑唐虹if滴(ds.械Table醋s[谋"Spec于"境].Row供s.Cou缴nt==叠0)浑看{洁逗金cbo碌_Spec球.Disp粘layMe窄mber乔=宅""沙;反恋挥乔cbo_绞Spec.响Value密Membe汇r=统""摩;丈瞒}由诊防else洲奴{际费姓其cbo_S女pec.D汉ispla畜yMemb另er=叠"Spec共_Name乡"龄;货技防涛cbo_玻Spec.趣Value窝Membe夜r=类"Spec吵_Id"遵;垫住讽}顶}蓝5.臂住院病人总弃费用统计桂(次)躁图尖5爱住院病人总恭费用统计肯易住院病人总缺费用姐统计时用于晶统计病人住袜院治疗等项吓目的总费用罢,及其消费而药品名称、朱数量、金额章、使用时间蠢等,都会相酿信的显示出错来,一目了躬然。主要代研码如下呢:旅while悦(rd_枪Cate.歪Read(拳)){帝防禽/移/黑定义树结点公敏盯TreeN丑ode研node酒_Cate度=打new扮腐TreeN血ode吧(rd_C猴ate.G通etVal薪ue(0)载.ToSt述ring(盗));您尺叠if涌(rd_做Cate.构GetVa铺lue(1似).ToS遮tring胆()!=留屑strin舌g烛.Empt桌y)三胃{刊知退劫strin祥g四strS单pec=晌暗"sele毯ctSp芝ec_Na弟me,Sp划ec_Id能from位tblS语pecw富here临Spec皱_Cate艳='"答;争景千驳strSp饮ec+=挖rd_C摔ate.G乡etVal勉ue(1)毛.ToSt书ring(悬);汉敢挨strS央pec+桑=县"'"研;讯熄记肌SqlCo曾mmand坚cmd_起Spec青=竟new膀国SqlCo铺mma抖nd香(strS耀pec,腹con);悉明怖桨SqlDa苦taRea亩der羡rd_S育pec=傲cmd_脑Sp御ec.Ex靠ecute轿Reade鬼r();富拒扑畏while拾(rd_临Spec.付Read(才))冰仙先极{哀偏星骡案TreeN致ode轧node显_Spec精=倾new缸多TreeN而ode姜(rd_S打pec.G拿etVal壮ue(0)古.ToSt眼ring(压));颈梢掀胡猫if锁(rd_呢Spec.宾GetVa煎lue(1雹).ToS饿trin脚g()!岸=刚strin匪g辱.Empt爬y)志傻捕匙立{朽怨励润细滤strin筛g遭strW列ard=宫喊"sele捐ctWa驶rd_N隆ame,W数ard_I退dfro竖mtbl闸Ward劈where洗Ward_削Spec=急'"昼;捧斗长伟脆网strWa搜rd+=裕rd_S慎pec.G溜etVal忽ue(1)叉.ToSt驰ring(税);涨传侦哭堪轰strWa放rd+=极逮"'"童;方拳捕亿樱拨SqlCo悦mmand贫cmd_午Ward鞠=村new列赌SqlCo泛mmand窗(strW怠ard,尘con);氏型叛婆腰秃SqlDa阴taRea当der霜rd_W励ard=田cmd_鬼Ward.凉Execu缩teRea应der()瞧;谅工创府弓遵while娇(rd_劝Ward.码Read(员)帖)辆普声铸俘王{保株却颈栗库TreeN坑ode幕node忧_Ward令=镜new滴害TreeN改ode唤(rd_W星ar离d.Get弓Value坏(0).T丛oStri笋ng())圈;铅轰溉厕静冈if守(rd_陕Ward.嘴GetVa丧lue(1贱).ToS折tring怖()!=俗省strin诵g皂.Empt习y)该北驱财查雷{告福屋德拐筝肿双strin毕g语strP请at=羡"sele桌ctPa批t_Nam纠efro唉mtbl砍Patie坝ntwh坑ere遗Pat_W鹅ard='铜"北;圾皂衬恩厨变朽忙唯strPa园t+=耳rd_Wa明rd.Ge岂tValu盯e(1).赴ToStr跟ing()蔬;毒可锁战幅旨蚀纹艇strPa丙t+=舒"'"勉;柳肾回染站舅潜臂SqlCo邮mmand奉cmd_嘴Pat=敬颗new幕查SqlCo肌mmand输(strP辽at,c穗on);衔锅忆费捷封妥SqlDa帜taRea病der终rd_P湿at=脱cmd_P南at.Ex阵ecute眉Reade潜r();孟填甲哲异屿峡段淋while其(rd_壳Pat.R兵ead()东)辈简兰顷对酒病睬{朱体乏正眨移元鼻TreeN状ode班node伪_Pat伤=精new梳狸TreeN染ode独(rd_P垒at.Ge坑tValu扎e(0).构ToStr师ing()烫);圣视馒裳飘欢素逼node_脏Ward.怎Nodes找.Add(莫node_寄Pat);蛾艳秩嘴漆施阻筹}奥胳逢他盒鸣努伶rd_Pa菜t.Clo吐se();扒乞挑桃辫净淹}他洽讽悠币价吊村node_连Spec.避Nodes香.Add(击node_情Ward)罩;像钻迎械驻}汤立顶起显书rd_Wa岔rd.Cl米ose()橡;饶蓬尿芒乡}优区茧nod伤e_Cat肤e.Nod侮es.Ad酬d(nod乎e_Spe输c);甩垮侄捷防}认架邀甜rd_Sp晨ec.Cl驳ose()脖;接牺键}蓝兽tree中View_芒Pati父ent.N夹odes.宴Add(n蜻ode_C破ate);}捞6.魔住院病人报诸表打印球(主)玻图挤6愈病人信息报尽表打印爆株病人信息报剂表打印坊是我们组的虎重头戏,找在宿HISDa恢taSe靠t疤内存数据集穿中添加一个抗内存表,相答比其他既内存数据表打,这个内存恳数据表不是宗建立连接从睬外存熊数据库中拉过入的,而是势我米用紫Selec配t锄语句编写的匠即拳Patie喇n季t桃;在解决方城案资源管理辟器中新建翻Cryst寨al巩报表并且趟从限HISDa泛taSe昏t弯内桑存数据集中抖导入姻用诞Patie倍n程t合内存表的数绿据信息;另绍外悲在选For妨m恨窗体上添加蒜cryst有alRep刑ortVi洁ewer脾窗体胖,作剪用是在运行够时,线使绩Fro饼m漏窗体上查询自的信息显示比在壁cryst奉alRep俗ortVi砖ewer嫁窗体刘上,形成报咬表的格式;蹈此外在代码相上也有做修阿改,当具体拥不知道病人性的姓名时可现采用模糊查路询,当点击侧显示和预览花两个按钮时协出现的界面包,这些所都是通过代术码实现的,木具体代码如蝇下:楼//讽预览按钮捐priva锡te逮睛void亭捏tsBtn诱_煤P季revie爹w比_Clic大k(瓦objec幼t症send建er,障Event酬Args皱e){格森织仅/曾/舰显示愿cryst罗alRep裁ortVi扬ewer姑cryst听alRep脉ortVi巾ewer1纲.Visi彻ble=协宇t形rue农;常/资/到定义滑一资个驰Cryst资alRep翅ort_P解atien狡t赤对棒象细cr狭你弃塔Cryst充alRep诞ort_P割atien视t吩cr=掏顾new翅弃Cryst撕alRep肚ort_P白atien扒t录();慌讲中cr.Se太tData肆Sourc怒e(ds.码Table师s[荣"Pati剑ent"帖]);双长各cryst示alRep塔ortVi很ewer1陡.Repo束rtSou撤rce=辈cr;}渣/宽/芹显示按钮衫priva洋te船冷void听匠tsBtn蹈_Disp垃lay往_Clic蜘k(盟objec沿t显send剧er,景Event洒Args淡e){没/闯/张不显示痰cryst屠alRep盲ortVi足ewer遭控件税店候cryst粥alRep匠ortVi挪ewer1护.Visi训ble=堂怪false蔽;}当priva倍te病画void贴Form乱_PatB定b吵_Load躬(治objec摔t表send途er,娃Event衣Args随e){傲朵警cmd.C绑omman受dType透=芦Comma摸ndTyp北e伶.Text辩;摧筹脂cmd.沈Conne肆ction跳=co伟n;骂裤号cmd.C俯omman凯dTime否out=董15;晌/览/帖不显示貌crys悦talRe睡portV竭iewer继控件吐逢颤cryst喇alRep尖ortVi框ewer1宪.Visi客ble=桃舌false阻;}幕/姓/晌写一个私有航的亚Bindi府ngPat深ient(秃)犯方法捧priva费te侍极void刘Bind咐ingPa葱tient采(){击/源/独打开连接桶捏姻con.O垄pen()智;美/抢/特使瘦用坡Selec瓦t渐语句从内存恢数据敲集报HISDa混taSe漆t穗中秆的政Patie衰n抬t卖数据表中选叫择信匙息刷爽多strin辅g惨cmdS柜tr=盏"Sele甩ctPa汪t_Id,厘Pat_B比ed,Pa创t_Bed驳Fee,河"最;板盗暗cmdSt族r+=碑"Pat搭_Name此,Pat_倘Sex,P曲at_Bi钩rth,P旱at_Na侍tion,泳Pat_N蜜tvPlc声,Pat_务Sympt体on"觉;该岛乔cmdS危tr+=诊朵"f期romP诊atien滨t"乏;差/警/蚊模糊查询疯者治cmdS艺tr+=艇似"届P发at_Na冻meli肺ke'"温+te甘xtBox秒1.Tex拍t+割"%'"弹;共喇芝cmd.凯Comma弓ndTex要t=c羡mdStr芳;槽夸惠da.Se凤lectC喉omman叹d=c替md;健/复/疼关闭连接冤侄指con.C改lose(禁);同霉压da.F蚁ill(d豪s,办"Pati叔ent"仆);脱/那/仍定义一个脂临时保存数伐据的膨网格贞虚拟表夏的对从象席table缘_Pati稠ent诞任携龙Dat乡aTabl费e炒tabl幸e_Pat类ient是=磨new矩茎DataT比able澡();代帆妈tabl歌e_Pat慢ient稍=ds.蹲Table拔s[尽"Pati阻ent"读];震捕卫dataG亿ridVi控ew1.D瓶ataSo吹urce体=ds.村Table研s[哀"Pati顺ent"呼];艰安骆t粪xt_Id茎.Data淹Bindi爹ngs.C圆lear(巾);寨鹅历txt_I出d.Dat微aBind事ings.厌Add(皮"Text化"榜,tab妇le_Pa悉tient绍,携"Pat_奉Id"假);纷盯庸烘txt_B泳ed显.Data运Bindi腊ngs.C续lear(拣);意瓶够txt_丹Bed.D洗ataBi践nding钳s.Add买(期"Text鲜"源,tab哥le_Pa委tient株,孙"Pat_羊Bed"胁);世己帽txt_堡BedFe热e.Dat意aBind示ings.苍Clear稠();茄贿财txt_充BedFe糟e.D窑ataBi骑nding烂s.Add屡(麻"Text稍"怕,tab讽le_Pa动tient读,纹"Pat_踏BedFe糖e"望);庄盆绿txt_饼Name.童DataB骂indin搁gs.Cl芬ear()疫;蛛瓣连txt_动Name圆.Data钟Bindi恒ngs.A砌dd(醒"Text酿"缎,tab改le_Pa捞tient饱,图"Pat_筐Name"宗);临坛拘txt_甜Sex.D平ataBi冒nding老s.Cle贩ar();形术塞txt_栏Sex.D稼ataBi茶nding知s.Add魔(籍"Text弓"秤,tab溜le_Pa遇tient朴,俭"Pa膛t_Sex窝"竿);帆犬贱txt_B洞irth.训DataB蔽indin强gs.Cl扔ear()殖;旱考唇txt_照Birth座.Data被Bindi属ngs.A话dd(矮"Text树"厉,tab蝇le_Pa竹tient钩,虚"P半at_Bi瓦rth"资);尖活叙txt_寸Natio赶n.Dat宰aBind炊ings.斩Clear颂();涝王露txt_微Natio总n.Dat扰aBind勉ings.识Add(截"Text恭"作,tab益le_Pa饥tient门,织"Pat_痒Natio晋n"徒);理勤牢txt_N霞tvPlc拘.Data劈Bi练nding老s.Cle帖ar();猾验社txt_N的tvPlc马.Data渐Bindi法ngs.A草dd(脚"Text怎"层,tab丸le_Pa瞒tient孙,务"Pat_厘NtvPl膨c"淡);圈波尖txt_S些vmpto退n宰.Data蚀Bindi街ngs.C宝lear(馅);呀振删txt_废Svmpt芳on.Da妇taBin怒dings包.Add(筐"Text台"弃,tab滥le_Pa建tient迁,毕"Pat_婆Sympt每on"浩);}为/兰/倾查询按钮纵priva磨te李料void尿穿Btn_F方ind梁_Clic摔k(青objec材t幕send挡er,骄伤Event羞Args陪e){碍con.O次pen()甩;刑/拘/吩打开连接摩/谁/给使铲用莫Selec样t秤语句从内存雕数据涌集纯HISDa美taSe它t凝中昏的台Patie础n抄t色数据表中选悉择信息课剖strin杨g总cmdS站tr=瘦"Sele舞ctP对at_Id谷,Pat_芹Bed,P贫at_Be春dFe敬e,Pat重_Name墨,Sex_避Name,启Pat_B爆irth,何Natio证n_Nam自e,Ntv恶Plc_N滥ame,P么at_Sy凶mpton末"观;喘篮朴cmdSt草r+=绳"fro浓mPat猫ient饰"倦;灾罚尽cmdS回tr+=渣哪"wh戚ere拉Pat_N克amel司ike'售"乐+te橡xtBox个1.Tex青t+仿"%'"继;兵董cmd迹.Comm隶andTe含xt=仆cmdSt孩r;粪浇浊da.S柏elect总Comma溪nd=穿cm聚d;体con.C誓lose(坊);弹/篮/亮关闭连接缠/君/洒再次批查询时原来善显示信息将伪被清除件爬略生if源(ds.点Table凤s.Con染tains时(硬"Pati并ent"凳))印心贫{摇摩雷赏ds.Ta副bles[酒"Pati论ent"迅].Cle泡ar();捆醒饲}悔/谎/猎调环用雾Fil抛l腥方法将外存订数据库中的坏信息填充到股内存数据集中中柴监短da.Fi清ll(ds逢,玉"Pati泄ent"翻);敲/折/灭定义一个圣临时保存数晃据的罪网格井虚拟表桨的对祸象仰table搬_Pati滋ent浴图添DataT将able赛t钩able_消Patie照nt=狱new经蚁DataT络able登();做列喇tabl估e_Pat乓ient场=ds.任Table桨s[围"Pati防ent"洋];管组鹅data禽GridV贸iew1.歼DataS窑ource倘=ds凡.Tabl少es[壶"Pati留ent"睛];奴拖浪txt_记Id.Da伟taBin碎dings吉.Clea脆r();倘译蜂txt_绞Id.Da续taBin承dings勾.Add(陶"Text队"鞋,tab题l熟e_Pat恋ient,释外"Pat_主Id"遇);趋彩txt道_Bed.填DataB盾in绳dings者.Clea界r();跑浩txt的_Bed.技DataB思indin浇gs.Ad平d(峰"Text傲"至,tab吸le_Pa亏tient体,仁"Pat_上Bed"拣);呈巧txt后_BedF小ee.Da蛋taBin屿dings茫.Clea忧r();伟铃嘉txt_姜BedFe引e.Dat萌aBind蔽i靠ngs.A责dd(忆"Text使"岔,tab骡le_Pa铅tient绑,茅"Pat_狼BedFe浑e"捕);批篇txt调_Name主.D泪ataBi傍nding妻s.Cle钥ar();写你txt再_Name壤.Data每Bin锁dings哀.Add(面"Text著"景,tab慢le_Pa网tient续,糊"Pat_捷Name"育);疏徐享txt_S晒ex.Da稠taBin萍dings予.Clea传r();干矛乡txt_仿Sex.D良ataBi炉nding哥s.Add客(店"Text毙"袜,tab洪le_Pa过tient惕,意"Sex_壶Name"个)废;吹崇央txt_易Birth件.Data肯Bindi汉ngs.C乞lear(烈);娱样晃txt_宾Birth至.Data藏B林indin滴gs.Ad粱d(岩"Text尖"帜,tab吉le_Pa尺tient与,秘"Pat_帅Birt赠h"仁);兽笑喂txt_N紧ation趋.Data弱Bindi煤ngs.C想lear(雀);书扯涌txt_N乡ation鲜.Data间Bindi烂ngs.A恢dd(辜"Text亮"黄,tab怎le_Pa嗓tient气,稍"Nati抛on_Na缓me"分);股个泻txt_搜NtvPl绒c.Dat著aBind僻ings无.Clea何r();公街当txt_N巷tvPlc科.Data标Bindi滥ngs.A白dd(尖"Text良"规,tab往le_Pa赴ti红ent,已"NtvP纵lc_Na际me"师);董逐宪txt_S洋vmpto娃n.Dat尸a跟Bindi膏ngs.C视lear(早);份托饼txt_S脚vmpto秧n.Dat谨aBind禾ings.林Add(斑"Text寿"朋,tab软le_Pa牲tient尤,郑"Pat_挪Sympt忧on"明);}扁7.急病人编码维总护帽(主)夏图彻7船病人编码维着护毙推病人编码维耗护窗体是通挖过控件绑定肾实现起功能猜的;其功能竹有:跑保存病人的买住院号、病沙人姓名、性线别和出生日种期等信息,洞还设有查询渠病人信息功醋能;首先只在择For昂m赢窗体添报加执Bindi阔ngSou乓rce休窗体盯,重命名呼为沈Bindi套ngSou帖rce_P涝a丘t厅,左将翁Bindi我ngSou样rc翠e姿的兰DataS开o无urc拉e必属性与内存掏数据竖集碰HISDa饱taSe劈t摔绑定寺、骨DataM抵embe嘉r蒜属性与内存路数据缘表肚tblPa食tien遵t标绑定;其次惊因亦为扫TextB纹o薪x溪绑定属于简咏单数据绑定算,所以只要犁将基本信息碍(纤Group答Bo域x滥)中由的露TextB理o姐x读控件的运(傲DataB仁indin插g钟s躺)以--Tex鼻t终属性分别姻与额Bindi茫ngSou吊rce_P柜a棵t嗽对应绑定即讨可,例拉子:厦【加txtPa夸t_I占d违(住院号)久的授(钻DataB荐indin受g愉s完)细-Tex御t盘属性浴与陈Bindi连ngSou陵rce判_Pat-荐Pat_I务d兄绑定】;此水外将病人编挂码维护夺的鸽Fro昼m税窗体上近的末DataG着ridVi侦e细w俗控件岂的坦DataS饶ourc计e银属性忆与熔Bindi玉ngSou吓rce_P德a龄t萌进行绑定梦、寸colum墨n晃属性改为对登应的中文汉宴字虽;最后保存屠、退出和查沟询是由代码皂实现的,代南码如下:稠/棕/吵保存按钮蓝priva农te渐互void喊观tsBtn应_Save首_Clic纺k(般objec切t掩send拖er,随Event滑Args杨e){宁垮歇杏this哑.tblP殊atien晴tTabl山eAdap绒ter.U毒pdate统(挪this喉.hISD致ataSe耻t.tbl甩Pat独ient)恋;}拌/种/圾退出按钮弄priva朱te兄欠void悬我tsBtn铃_Exit桶_易_Cli柴ck(蝇objec隆t幼send碌er,俘Event幻Args狸e){矮寻肢this驶.Clos没e();}道/木/托查询按钮姜priva斤te虹唯void较挪Btn_C工heck浊_Clic爽k(俯objec僚t明send拨er,分Event火Args悠e){午映bin寨dingS渗ource压_Pat.让Fi菜lter牌=杏"Pat_偏name因like弦'"像+tx恼t_Pat放.Text楚+目"%'"颜;}含8.跳大类科编码眯维护放(主)怒图螺8博大类科编码三维护经级内大类科编码展维护伴的实现功能勉也是通过编鼻码绑定实现狂的,同样在蛮大纱类科编码维便护态For般m汇窗体上添肥加括Bindi朋ngSou别rc发e鸡窗抄体行nam船e炮属性改扰为勿Bindi馆ngSou禽rce型_Cat朴e赏、煮DataS僻ourc巴e悔属性与内存照数据窄集邀HISDa轧taSe栽t渔绑定嫂和描DataM慧embe谨r呀属性与内存陆数据口表章tblCa仿tegor狡y的绑定;我还笨添加了缴bindi波ngNav瓜igato目r副控烦件枕nam归e陶属性扛命名为胆bindi针ngNav闹igato破r_Cat膜e尼,目的是为扫了用户一目钱了然,并且漠将其脂的粪Bindi宏ngSou途rc但e赌属性芹与蒸Bindi肥ngSou鹅rce_C俩at柔e准绑定,这样乏运行时就直旬接点击冬bindi课ngNav券igato酸r置的第关键帧就可堡以查看信息叮,方便;另挎外窗体上还计添看加疾listB驴o生x扣控件,其数纺据绑定是属侍于复杂数据阔绑定,因此映其悠DataS丈ourc调e肌属性沟与楚Bindi凑ngSou疮rce_C秋at宣e棕绑定坊、意Displ后ayMem改be炭r饮属性倾与驻Cate_姻Nam钟e抢绑定翅和禽Value故Membe型r皱属性蚀与坑Cate_凭I止d钉绑定;此外饭其他控件都摘属于简单数悉据采绑定;最后桐,退出和保凳存是代码实马现,代码如虏下:飞/绑/叮退出按钮妖priva劝te彩么void俗格tsBtn丢_Exit忘_Clic帆k(插obj植ect雀send锡er,适Event背Args方e){后沫首this辫.Clos底e舌();}难/柿/态保存按钮碗priva剃t

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论