医院管理系统课程设计方案说明书

PAGE11一、系统需求与功能分析1．系统需求分析医院信息化是医院应用信息技术及其产品的过程，是信息技术由局部到全局、由战术层次到战略层次向医院的全面渗透,运用于流程管理、支持医院经营管理的过程。信息化的实施从自上而下的角度说,必须与医院的制度创新、组织创新和管理创新结合；从自上而下的角度说,必须以作为医院主体的业务人员直接受益及其使用水平的逐步提高为基础。调查用户需求：本系统的最终用户为医院,我们根据从医院方面取得的图表资料、文字资料以及其他细节方面的信息，根据我们日常生活中的经验，根据我们所做的其他询问和调查，得出用户的下列实际要求:用户对系统的要求:信息要求：由于系统的使用主体是医院的管理人员，因此对系统的信息要求可分为以下方面：（1)病人信息①:首先是病人的基本信息，主要包括病人的姓名，性别，出生年月,年龄，家庭住址,联系方式等；②：对于住院病人,还需要入院时间，所在病区,所在医科，床位等。（2)处理要求：系统应当完成以下的信息处理：①:存储病人信息,供相应的人员查询；②：对病人信息进行及时的更新和统计；(3)安全性要求：系统应设置访问用户的标识以鉴别是否是合法用户，并要求合法用户设置其密码，保证用户身份不被盗用.2．功能分析ﻩ（1）信息录入处理：住院病人信息录入、住院病人治疗费用录入、住院病人药品费用录入。ﻩ住院病人信息录入就是将源数据库中没有的病人信息重新录入进去，并且可以录入病人姓名。住院病人费用录入和住院病人药品录入功能相近，都是将病人在住院期间的所花的费用进行录入保存，方便以后进行查询。ﻩ（2）信息查询处理：住院病人信息查询和住院病人费用查询。ﻩ住院病人信息查询和住院病人费用查询功能相似，从数据库中将病人信息和费用显示到前台，让病人及时了解自己的个人信息和消费情况。ﻩ（3）信息统计处理：住院病人总费用统计按大类科、专科、病区及指定的病人进行查询统计（４)信息打印处理：住院病人信息打印住院病人信息报表打印用于显示病人的住院号、床位号、床位费、病人姓名、性别编码出生日期、民族、籍贯和病症等详细信息。ﻩ（5）系统维护处理:病人信息维护、大类科编码维护、专科编码维护、病区编码维护、治疗项目编码维护、药品编码维护医生编码维护和用户编码维护.系统编码维护时分别对病人信息、大类科、专科、病区、治疗项目、药品信息、医生信息和用户信息进行录入、查询与修改等操作，数据编码表维护是对各类数据编码表中的记录进行录入、查询与修改等操作。3．系统功能菜单由此方案设计的系统功能菜单如下表所示。信息录入信息查询信息统计数据打印系统维护信息复制病人信息录入病人信息查询病人总费用统计病人信息打印系统维护批量复制病人治疗费用录入病人费用查询大类科编码维护病人药品费用录入专科编码维护病区编码维护治疗项目维护药品编码维护医生编码维护用户编码维护表学生成绩管理功能菜单二、数据库设计设计系统的数据库结构、数据表结构包含序号、数据项名、含义、数据项类型、长度、非空、索引、主键、外键、引用字段、数据来源等。１。大类科编码表Cateｇoｒy表１大类科编码表tbｌCａtｅgｏry序号字段名含义类型宽度小数主／外键１Ｃａte＿Ｉd大类科编码Ｖaｒｃhaｒ10PK２Cａte_Namｅ大类科名称Varcｈａｒ２０３Cａte_Ｄean大类科主任Varchar102。专科编码表Sｐec表2专科编码表ｔbｌSpec序号字段名含义类型宽度小数主／外键关联表／字段1Ｓpec_Ｉd专科编码Ｖarｃhar10PＫ２Speｃ_Ｎaｍe专科名称Ｖaｒｃｈａr３03Spｅｃ_Ｃatｅ所属大类科编码Vａrｃｈaｒ１0FKｔｂlCatｅgoｒy/Ｃａte_IＤ3。病区编码表Ｗarｄ表3病区编码表tblWａrｄ序号字段名含义类型宽度小数主／外键关联表/字段1Ｗard_Id病区编码Varchaｒ１0PK2Wａrd＿Ｎaｍe病区名称Vａｒchar203Wａｒd_Ｐos病区位置Vａrｃｈar20４Ｗaｒd_Bedｓ总床位数Ｉnt５Ｗａｒｄ＿Usｅd已用床位数Int6Waｒd_Resｔ剩余床位数fｌaoｔ7Ward_Heaｄ病区主任Vａｒcｈar1０8Ｗａrｄ_Speｃ所属专科编码Ｖａrchar２FＫtｂlSｐeｃ/Speｃ＿ＩＤ4.病人信息表Patｉeｎt表4病人信息表tｂｌPatient序号字段名含义类型宽度小数主/外键关联表／字段1Pａｔ_Ｉd住院号Ｖarchar10PK２Ｐaｔ_Bed床位号Vａrchar503Ｐat_BedFｅe床位费ｍoney2４Pat＿Nａｍｅ病人姓名Varchar85Ｐat_Ｓex性别编码Ｖarcｈａr1ｔblSeｘ/Seｘ＿ID6Pat_Birth出生日期Ｄatetime７Paｔ_Natiｏn民族Varchａｒ2tbｌNatｉｏｎ/Natioｎ_ＩD8Paｔ＿NtvPlc籍贯Ｖａrｃｈａr6ｔbｌＮtｖPｌｃ／ＮtvPlc_ID9Paｔ_Ｓｙｍptｏn病症Vaｒchar2０10Paｔ_Ｗｏrk工作单位Ｖarｃｈａr2011Pａｔ＿CｈarＩd身份证号Vａrchar4012Pat＿Wａｒd病区编码Ｖarｃhaｒ10tblＷａrd/Ｗard＿IＤ１３Paｔ_ZipCｏｄe住宅邮编Ｖarｃhaｒ61４Paｔ＿Phone住宅电话Varｃｈar20１5Pat_Ａｄdr户口地址Vａrｃhar5016Ｐat＿Ａdmit入院日期Dａteｔimｅ17Pat＿Lｅavｅ出院日期Dａｔeｔｉｍe１８Pａｔ_PayAｄ预交费money2１9Paｔ_PaｙSｕm费用总额moｎeｙ220Paｔ_PayＲｅｓｔ费用结余ｍonｅy２２１Ｐat_Iｍagｅ病人照片Imａge5．性别编码表Ｓex表5性别编码表ｔｂlSeｘ序号字段名含义类型宽度小数主/外键1Ｓｅｘ＿Id性别编码Varchａr1PK２Sex＿Name性别Varcｈａｒ1０6.民族编码表Nａtion表6民族编码表ｔblNaｔiｏn序号字段名含义类型宽度小数主外键１Natioｎ_Ｉd民族编码Ｖａrcｈａｒ2ＰK2Nａｔion_Ｎａmｅ民族名称Ｖaｒcｈar２０7。籍贯编码表ＮtvPlc表7籍贯编码表tblＮtvＰｌc序号字段名含义类型宽度小数主/外键1NtvPlc＿Id籍贯编码Ｖarchar6PＫ２ＮｔvPlc_Ｎａｍｅ籍贯名称Varchar2０８.治疗项目编码表Ｉteｍ表８治疗项目编码表tblＩtem序号字段名含义类型宽度小数主/外键关联表/字段1Iｔｅm_Ｉd项目编码Varｃｈaｒ1０PK２Ｉtｅm_Ｎame项目名称Varｃhar63Ｉtem_Ｔｙｐe项目类别Varｃhａr64Iteｍ_Wbｍ五笔码Varcｈaｒ30５Ｉteｍ_Pyｍ拼音码Vaｒcｈａr1０６Ｉteｍ＿PeｒＰｒiｃe项目单价fｌoａt２７Ｉtem_Maｒk备注Varchａr20９。病人治疗项目费用表MｅdItｅm表９病人治疗项目费用表tblMｅｄＩｔem序号字段名含义类型宽度小数主/外键关联表／字段１Mi_PatIｄ住院号Ｖａｒchar10PKtbｌPatiｅｎｔ/Pat＿Ｉｄ２Mi_ItemＩｄ项目编码Vａrcｈar10tbｌIteｍ/Iteｍ_ＩD3Mi_Quaｎtｉｔｙ数量ｆloａｔ４Ｍｉ_Amoｕnｔ金额inｔ5Mｉ_Daｔe使用日期Varchar１06Mi＿Tiｍe使用时间Vａｒchａr５0７Mi_DocＩd医生编码Varｃhar１0ｔｂlＤｏcｔor／Doｃt_Iｄ8Mi_Ａdviｃｅ医嘱号Varchar1010。药品编码表Meｄiｃiｎｅ表1０药品编码表tblＭeｄiｃine序号字段名含义类型宽度小数主/外键关联表／字段1Ｍed＿Ｉd药品编码Vａrchar17PＫ2Mｅd_Wbm五笔编码Varｃhar63Ｍed_Pｙm拼音编码Vaｒｃｈar６４Ｍｅd_Nａme药品名称Vaｒｃhar305Mｅd_Sｐeｃ药品规格Vａrcｈaｒ1６6Ｍｅd＿Ｕniｔ计量单位Varchar67Mｅd＿PｅrＰriｃｅ药品单价float28Meｄ＿Expiｒyｄatｅ药品有效期Varchar１1.病人药品费用表ＭeｄFeｅ表１１病人药品费用表ｔbｌＭedFｅｅ序号字段名含义类型宽度小数主/外键关联表/字段1Mｆ_PａtId住院号Ｖaｒｃhaｒ1０PKtbｌPａtient／Ｐａｔ_Id2Mｆ_ItemＩd药品编码Vaｒchaｒ17ｔbｌＭedｉcｉne/Ｍeｄ_Ｉd3Mf_Uniｔ药品单位Varｃｈａr44Mｆ_Ｑuantｉtｙ数量ｆｌｏat５Mｆ＿Aｍount金额floａt6Ｍf_Ｄａｔｅ使用日期Vａrchar１07Ｍｆ_Tｉmｅ使用时间Varchａr５８Mf＿ＤocId医生编码Vaｒcｈａr5tｂlDoｃtor/Doｃｔ＿Id9Mf_Advice医嘱号Varcｈａr1０１2．医生编码表Ｄｏctoｒ序号字段名含义类型宽度小数主键表１2医生编码表tｂlＤoctｏr序号字段名含义类型宽度小数主/外键关联表／字段１Docｔ_ID医生编码Ｖarchar5PK2Doｃt_Name医生名称Ｖaｒchａｒ８3Ｄoct_Ｓpec所属专科编码Varchar8tblＳpｅｃ／Spｅｃ_Ｉd4Doｃt＿Ｗard所属病区编码Vａrchar10tbｌWard/Warｄ_Ｉd1３。用户表User表1３用户表tblＵｓer序号字段名含义类型宽度小数主/外键关联表／字段１Uｓer_ＩD用户名Varchar1０PＫ2Useｒ_Ｐsw用户密码Ｖaｒｃhaｒ２03Usｅr_Ｆlag用户权限标志Ｖaｒｃhar1三、程序设计１。系统登录（主）图1用户登录界面在登录界面的设计中,我采用的是有连接访问数据库，这样数据并发性问题更容易控制，数据也是当前的和及时更新的;此外还设有用户权限，权限不同登录成功后呈现出的主界面也不同；并且使用DａｔａReaｄer组件来以只读和仅转发的方式从数据源检索数据；核心代码如下：／／有连接访问ｓｔatｉcｓtriｎgstｒ＝”DａtaSｏurce＝ASUＳ—PC＼\SQLEXＰＲＥＳS；ＩnitiａlＣａtalog=Hospｉｔａｌ;UseｒＩd＝sa；Password＝sａ”；SｑlCｏnnectioｎcoｎ＝neｗSqlＣonnection(str）；ｐrｉvaｔｅｖｏｉｄbtn_Lｏgin_Ｃlick（ｏbjｅcｔsenｄｅr,ＥｖeｎtＡrgｓｅ）｛sｔrｉngcｍdStr="Selｅｃt＊FrｏmtblＬｏｇiｎWｈｅｒｅUｓer＿Nａmｅ＝@ａaｎdUser＿Pwd=@ｂ＂;SqｌCommandcmd=newSqlＣommａｎd(ｃmｄＳｔｒ，con）;SqｌＰａrａmeｔeｒs1，s2;ｓ１＝cmd.Ｐaraｍｅters。Aｄｄ(”＠ａ＂,SqlDbＴype．ＶarＣhar,2０）；s2=cmd.Pａｒaｍetｅrs．Add（"@b”,SqlDｂTyｐｅ．VaｒＣｈａｒ，20);ｓ１。Valｕe=ｔｘt_UserＮａmｅ．Text;s2。Ｖａｌuｅ=ｔxt_UｓerPwd．Tｅxt;／/打开连接con。Opｅn(）;/／定义SqｌDatａＲｅａdｅr对象SqｌDataReaderｄr=cmd。EｘecｕteReaｄer(）;ﻩﻩ／／只读的方式从数据源检索数据if(dr。Ｒeａd（）)｛／／用户权限登录Common．Usｅr_Flaｇ=dｒ[”Ｕsｅr＿Flag＂]。TｏStrinｇ（);/／显示主窗体Ｆｏｒm＿Maｉnfｒm＝newＦorm_Mａｉn(）;ｆrm．Show（);｝elsｅ｛MessageBoｘ．Ｓhｏｗ("用户名或密码错误！＂）;｝／/关闭连接con.Closｅ(）；｝２.主界面(主)图2医院住院信息管理系统在主界面设计，为了将所有界面以整体的方式全部实现出来,即执行一次就能看到全部效果，我在主界面添加了MeｎｕStｒip控件并且在ＭeｎｕSｔｒiｐ控件上添加了MeauItem控件，双击MeａuIteｍ控件添加代码实现主／子窗体连接;而且把界面设计的漂亮、规范,我把Fｏrｍ窗体的IsMdｉＣｏｎｔａｉｎｅr属性设置为Ｔｒue，ＢacｋgrｏunｄImaｇe属性导入一张图片，加入一个ｔimｅｒ控件在ｓｔatusSｔｒｉｐ显示时间；此外涉及到用户权限问题，我在Fｏrｍ＿Ｌoad事件中添加代码，用户权限不同登录后访问的主界面也不同。核心代码如下：／/单击主界面上住院病人药品费用录入时，将显示出住院病人药品费用录入的Foｒm子窗体pｒivatｅvoidtsmiMfInpｕt_Clｉｃk（ｏbjｅcｔsｅｎｄer，EvenｔArgse）{Ｆｏｒm＿MedFeefｒm＝ｎewＦorｍ_MedFｅe()；frm.MdｉPａrent=ｔhis;ｆrｍ．Sｈow（）；ｓlｂl_wiｎdow.Tｅｘt="当前窗体：＂＋fｒm。Ｔexｔ；｝/／用户权限设置prｉvatevoidFｏrm_Maiｎ_Loａd（objｅctsｅｎder,EventArgse)｛ﻩ/／调用Ｃommｏn类的静态变量Ｕser＿Flａｇ，当用户权限为0时，系统维护界面失效,但可见ｉf（Ｃomｍｏn.User_Flａg=＝"0”）｛ ﻩ//系统维护界面失效MenuＭaintａin．Enabｌed=ｆalse;}｝//timer控件显示时间privａteｖoidｔiｍeｒ１＿Ｔiｃｋ(obｊectsenｄｅｒ，EventAｒｇse）｛slbl_ｔimｅ．Teｘｔ="日期：时间："＋Cｏｎvert.TｏSｔｒｉng（DａteTｉme.Nｏｗ）；｝／/单击主界面上住院病人总费用录入时,将显示出住院病人总费用录入的Form子窗体pｒｉｖａｔevoid住院病人总费用统计ToolSｔｒipMｅnｕItem_Ｃlｉck（obｊectsender,EｖentArgse）｛Ｆorｍ_FeeＳtatfｒm＝ｎewＦorm＿FｅeＳtａｔ(）;frm。MｄｉPareｎt=thiｓ;frm.Sｈow（);slbl_wｉndow．Ｔeｘt="当前窗体:”+frm。Ｔexｔ;}//单击主界面上批量复制时，将显示出批量复制的Foｒｍ子窗体ｐriｖaｔｅｖｏidtoｏlStriｐＢutｔon１_Clｉcｋ（ｏｂjectseｎdｅr,ＥvenｔＡrgｓｅ）｛Form_Coｐyfrm=newFoｒm_Copy（);frｍ。ＭdiParent=this；ｆrｍ.Shｏｗ（)；slbl＿windｏｗ。Ｔeｘt＝＂当前窗体：＂+ｆｒm。Text；｝／／单击主界面上住院病人信息打印时，将显示出住院病人信息打印的Ｆｏrｍ子窗体prｉｖaｔeｖoidtsｍｉPaｔPｉｎｔ_Ｃlｉck（ｏbｊecｔseｎｄer，EvｅｎｔArgsｅ）{Fｏrm_PaｔＢbfrm=nｅwFｏrm＿PａtBb(）；ｆｒm.MdｉPａrent=thiｓ;frm．Sｈow（）;ｓｌｂl_window。Tｅxt=＂当前窗体:"+ｆｒm.Tｅxｔ;｝3。病人信息录入(次)图3病人信息录入ﻩ病人信息用于对病人信息的录入、查询和显示等操作,并且可以插入病人照片。主要代码如下:ｗｈile（mｙRｅａdeｒ。Rｅad()）{filｅ=ｎewＦｉlｅStream（saｖｅｄImaｇｅＮaｍe，FileＭｏde。OpｅnOｒCｒeatｅ，ＦilｅＡcｃeｓs。Ｗrｉtｅ);ｂw=nｅｗBinａｒｙWｒｉtｅr(fｉle）；sｔａrｔIｎｄeｘ＝0；//读取的起点位置retvaｌ=myReader.ＧetＢｙｔｅs(0,sｔａrtIndex，ｏuｔbyｔe,0,bufferSiｚe);／/返回实际读取的字节数/／当图片大小大于或等于数组大小时，需分块写入到文件中ｗhiｌe(rｅtvａl=＝buｆfeｒＳizｅ）{bｗ．Ｗriｔｅ（outbｙte)；bw.Ｆｌuｓｈ()；sｔartIndex＋=buｆｆerSiｚe;//重置读取的起点位置rｅｔvaｌ=myＲeaｄer.ＧeｔBｙtes（0，ｓtaｒtIｎdeｘ，ｏutｂytｅ，0，buffｅrSize）;}bｗ．Wriｔe（outｂyte，0,（ｉnt）ｒeｔval—1）；ｂw.Ｆlｕｓｈ（)；ｂw。Ｃlose（）；fｉｌe.Ｃlose（）；｝４。住院病人信息查询（次)图4住院病人信息查询从数据库中将病人信息和费用显示到前台,让病人及时了解自己的个人信息。代码:pｒivateｖoｉdcbo_Catｅ＿SeleｃtedＩｎdｅｘChａｎged(oｂjｅctsｅｎdeｒ，EｖｅntArgse）｛ﻩ//无连接访问实现专科表和大类科表的绑定ｓtringｃmdＳtr=”Select*ＦｒｏmtbｌＳpｅｃwhｅreSｐｅc_Ｃａte＝@a"；SqｌCｏｍmandｃmｄ=ｎewSqlCoｍmａnｄ(ｃmdStr，con）;SqlPaｒaｍeters1;s1＝ｃmd.Ｐaraｍeterｓ.Aｄｄ（”@a"，SqlＤbＴｙpe.VaｒＣhar，２）；ｓ1．Ｖalｕe＝ｃbｏ_Ｃate．ＳelｅｃtedＶaluｅ。ToＳtrｉng（）;SqｌDaｔaＡdaptｅrdｐ=nｅｗSｑlDaｔａAｄapteｒ();dp.SelｅcｔＣommand=cmｄ；DataＳetdｓ=newDataSｅt();dｐ．Fｉｌｌ（dｓ,"Sｐec")；cbo＿Spec。DataＳource=ｄs。Tａbｌｅs［”Sｐeｃ"]；if（ｄs．Ｔables［"Spec”］．Rｏws.Couｎt=＝0）｛ｃbｏ＿Sｐｅc。DisｐlａyMeｍbeｒ=”＂;ｃbo_Spec。ＶalｕｅＭemｂｅr＝＂"；}ｅlse｛ｃbｏ_Ｓpec.DiｓplayMeｍbｅr=＂Spｅｃ＿Naｍｅ＂；ｃbo＿Spｅc。ValueＭembｅr＝"Sｐec_Iｄ”;｝｝5.住院病人总费用统计（次)图5住院病人总费用统计 住院病人总费用统计时用于统计病人住院治疗等项目的总费用，及其消费药品名称、数量、金额、使用时间等，都会相信的显示出来，一目了然.主要代码如下:ｗｈｉｌｅ（rd_Ｃate.Ｒｅａd（))｛//定义树结点TｒeeNodenode_Ｃatｅ＝newTrｅeNode(rd_Cａte．GetVaｌue(0)。ToＳｔｒinｇ（)）；if（rd_Cate.GetVaｌue(1)．TｏString(）!=sｔrｉｎg．Empty）｛strｉｎｇstrSpｅc＝＂sｅleｃtSpec_Nａme,Spec_IｄｆｒｏmｔｂlSpeｃｗhｅrｅSpeｃ_Cate=＇"；ｓｔrSpeｃ＋=rd_Cate。GｅｔVaｌue(１）．ToStｒing（)；strSｐec＋="'”；ＳｑlＣoｍmandcｍd_Sｐec=neｗＳｑｌＣｏmmａnd(ｓtrSpeｃ,cｏｎ);SqlDataＲeaderｒd_Sｐｅc=cmｄ_Spec．EｘｅcuｔｅReａdｅｒ(）；ｗhilｅ(rd_Spｅc．Read（))｛TｒeeNｏdenodｅ_Spec=newＴreｅNoｄe(rd_Ｓpeｃ.GeｔＶaｌue（０).ToＳｔrｉnｇ（）)；if（rｄ_Spｅc．GetValｕe（１).ToStｒiｎg（)！=sｔriｎg。Ｅｍｐty）｛stringｓtrWarｄ＝＂seｌeｃtＷard_Ｎaｍe,Wａrd＿ＩdfｒｏmｔblWａrｄwｈeｒeWard_Ｓpec=＇";strＷarｄ＋＝ｒd_Ｓｐec。GｅｔＶａｌue(1）。ToSｔrｉnｇ()；strWａrｄ+＝”'”；SqlCｏｍmａndcｍｄ＿Ward=ｎewSqｌＣｏmmand（strWarｄ，coｎ);ＳqlDataRｅaｄｅrｒｄ_Wａｒｄ＝cmd_Ward.EｘeｃｕteＲeadeｒ(）；wｈile（rd_Ｗard.Ｒead(））｛TｒｅeNodenode_Ward＝neｗTrｅeNoｄｅ（rd_Warｄ。GetValue(0）.ＴoSｔｒing（）);iｆ（rｄ_Ｗard.GｅtＶaｌue(1）.ＴｏＳｔrinｇ(）!＝sｔｒiｎｇ．Ｅmptｙ)｛stringstrPaｔ="ｓeｌｅctPａt_NamｅfromtblPatiｅnｔｗｈeｒePａｔ＿Wａrｄ=’＂；ｓtｒPaｔ＋＝ｒｄ_Ｗａrd.GｅtValue(1）．TｏString(）；ｓtrＰat+=”’”；ＳqｌCｏｍmandcmd_Pat=ｎeｗSｑlCｏｍｍａｎd(ｓtrPat，cｏn)；SqlDataＲｅaｄerrd_Ｐaｔ=cmｄ＿Pａｔ。EｘecuteＲeader(）；while（rd_Pat.Ｒｅad（)）｛TreeＮodenｏｄe＿Ｐat＝ｎｅｗTreｅＮoｄe（ｒd_Pａｔ．GetＶａlｕe（0）。TｏString（）);noｄｅ＿Ｗarｄ.Nｏｄeｓ.Ａｄd(ｎｏｄe_Pａt）；}rd＿Pat。Ｃｌoｓe(）；｝nodｅ_Sｐec．Nｏdeｓ．Add(node_Waｒd)；}rｄ_Ｗａrd。Cｌｏse（）;｝noｄｅ_Cａte.Nodes.Ａdd(ｎoｄe＿Speｃ）；}ｒd＿Sｐｅｃ.Cloｓe（）;｝tｒeeＶｉew_Ｐａtｉenｔ．Ｎoｄes.Ａdd(ｎｏde＿Ｃａtｅ);}６．住院病人报表打印(主）图6病人信息报表打印病人信息报表打印是我们组的重头戏，在HIＳＤatａＳeｔ内存数据集中添加一个内存表，相比其他内存数据表,这个内存数据表不是建立连接从外存数据库中拉入的,而是我用Selecｔ语句编写的即Ｐａｔient；在解决方案资源管理器中新建Cryｓtal报表并且从HISDaｔａSeｔ内存数据集中导入用Paｔient内存表的数据信息;另外在Ｆorm窗体上添加ｃryｓtａlＲeｐorｔVｉeｗｅr窗体，作用是在运行时，使Ｆｒom窗体上查询的信息显示在crｙstaｌRepｏｒtＶｉewer窗体上，形成报表的格式；此外在代码上也有做修改，当具体不知道病人的姓名时可采用模糊查询,当点击显示和预览两个按钮时出现的界面，这些都是通过代码实现的，具体代码如下:／/预览按钮ｐrｉｖaｔeｖoidtsＢtｎ＿Ｐreviｅw＿Ｃｌick（oｂjecｔsｅｎdｅr,EｖenｔAｒgse){//显示ｃrystａlRepｏrｔVｉewerｃryｓtalRｅｐｏｒtViewｅr1．Visibｌe＝tｒue;/／定义一个CｒysｔaｌReｐｏｒt＿Ｐatient对象crCｒｙstａlReport_Patientcr＝newＣｒｙsｔaｌＲeｐｏrt_Ｐａｔｉeｎｔ（）；ｃr。ＳetDataSourｃｅ(ds．Tables［”Ｐaｔieｎt"］）;crysｔalRｅｐoｒtVｉｅｗeｒ1．RｅportSourｃｅ=ｃr;｝／/显示按钮prｉvatｅｖｏiｄtsBｔn＿Displaｙ＿Ｃｌicｋ(ｏｂjｅｃｔｓeｎder，EｖｅntArgｓe)｛／/不显示ｃｒysｔalＲepoｒｔＶiｅwｅr控件cryｓtａｌRｅｐoｒtVｉeｗｅr1。Ｖｉsｉble=ｆalｓe；}prｉｖaｔeｖoｉdＦoｒm＿PatBb_Ｌoaｄ(obｊｅctsendeｒ，ＥｖentＡrｇse){cｍｄ。ＣommａndTｙpe=ＣoｍmaｎdＴypｅ.Ｔｅxt;ｃｍｄ。Conneｃtioｎ=ｃon；ｃmｄ.ＣｏmｍａndTimeｏｕｔ=15；/／不显示cryｓtaｌRepoｒtViｅwer控件crystalReportVieｗer1。Vｉsiｂｌｅ＝falｓe;｝//写一个私有的BindｉngPatient（）方法ｐrｉvaｔevｏidBindiｎgＰaｔienｔ（）｛//打开连接cｏn.Oｐeｎ（）；／/使用Seｌeｃt语句从内存数据集ＨＩSDatａSｅt中的Paｔient数据表中选择信息strｉｎｇcmdＳtｒ=＂ＳｅlｅｃｔPaｔ_Id,Pａｔ_Bed,Pat_ＢedFeｅ,"；ｃｍdSｔr+="Pat_Ｎame,Pat_Sｅx,Pａt＿Birth，Paｔ_Ｎatｉon，Pａt＿ＮtｖＰlc，Pat_Symｐton"；ｃmdStｒ＋＝"ｆroｍＰaｔiｅｎｔ"；／/模糊查询ｃmdStｒ＋＝"Pat＿Nａmeｌiｋe’”+textBｏx1.Ｔeｘt＋”％’";cmｄ。CoｍmaｎｄTｅxｔ=cmｄＳtr；da．SelecｔＣｏmｍanｄ＝ｃmｄ；／/关闭连接con。Ｃlose(）；da．Ｆilｌ(ds，”Patient＂）;//定义一个临时保存数据的HＹPEＲLIＮK"http：//baiｋe．bａidｕ．cｏm/view／10755.hｔm＂网格虚拟表的对象taｂｌe_PatienｔDaｔａＴａｂlｅｔaｂlｅ＿Patｉｅnt=neｗDataTabｌｅ（);taｂle_Paｔｉenｔ=ds.Ｔablｅs［”Ｐaｔｉent"］；daｔaGridVｉew１.DaｔaSoｕｒｃｅ＝dｓ．Tａbles["Patｉent"]；txt＿Ｉd。DataＢｉｎｄｉnｇｓ。Cｌｅar(）;ｔxｔ＿Ｉd．DataＢindiｎgs.Ａdd(”Teｘt”，table_Paｔiｅnt，”Pat＿Ｉd＂）;ｔxｔ_Bｅd.DatａＢinｄｉngｓ.Clear（）；tｘt_Bed。ＤaｔａBinｄings．Ａdd(”Tｅxt”，tａble＿Ｐatiｅnt，＂Ｐat_Beｄ”）;txt＿BｅｄFee．ＤａtaBindings．Clｅaｒ(）;tｘt＿BedFee．DａtaＢｉndiｎgｓ。Aｄｄ（＂Teｘt＂，tａbｌe_Ｐatｉeｎt，"Pａｔ_ＢeｄFee”）;ｔｘt＿Nａme．DａtａBiｎｄinｇs.Cｌｅar（）;txｔ＿Naｍe.ＤatａＢindingｓ。Ａdd（＂Ｔexｔ”,tabｌｅ＿Ｐａtienｔ，"Pat＿Name");ｔｘt＿Sｅx。ＤａtaBiｎdｉngs．Ｃｌｅaｒ（）;txt＿Sex．DａｔaBｉndinｇs。Ａｄd（＂Texｔ＂,ｔａｂlｅ_Ｐａｔiｅｎt,”Pat＿Sｅx")；txt_Bｉrth.DataＢｉｎdings.Cleａr(）；txt_Ｂirtｈ．DataBｉndiｎｇｓ.Add("Texｔ”,ｔablｅ_Patｉｅnt,”Pａt_Ｂirth”)；txt＿Naｔｉｏn。DataBiｎdｉnｇs.Clear（）;txt_Nａtiｏｎ.DatａBindingｓ.Aｄd(”Tｅxt＂,ｔablｅ_Patient，”Ｐat_Natｉｏn”）;tｘｔ_ＮｔvPlｃ。DataBｉndingｓ．Cleaｒ（);ｔxt＿NtvPｌc。DatａBiｎdings．Ａdd（”Tｅxｔ",ｔａble_Patieｎｔ，"Pａt＿NtvＰlｃ”)；tｘt＿Sｖmｐton.DａｔaＢinｄiｎgｓ.Ｃlｅａr（）；txt_Ｓｖmpｔon.ＤaｔａBindiｎｇｓ。Adｄ（"Ｔeｘt”,table_Patｉｅnｔ,＂Ｐat_Symptｏｎ"）;｝／/查询按钮pｒivatevoiｄBtn_Fｉnd_Click（obｊeｃtsｅnｄｅr,EvenｔAｒｇse)｛ｃｏｎ。Oｐen（）；／/打开连接//使用Ｓｅｌｅｃt语句从内存数据集HIＳDａｔａSeｔ中的Patient数据表中选择信息sｔｒiｎgcmdＳtr=＂SeｌectＰaｔ＿Id，Pat_Beｄ，Ｐat＿ＢｅdFee,Ｐat_Ｎame，Sex＿Namｅ，Pａt_Ｂirth，Ｎａtioｎ_Name,ＮtvPlc_Ｎaｍe，Paｔ＿Sｙmpton＂；cmdＳｔｒ+＝”fromPatｉeｎｔ”；cｍｄSｔr+=＂wherｅＰａt＿Namelike'”＋tｅxtBｏx1．Ｔexｔ＋＂％＇”;cmd。CoｍｍaｎdText=cmdSｔr；da.SelectＣoｍmａnd=ｃｍd；con。Ｃlose（）；／／关闭连接/／再次查询时原来显示信息将被清除if(dｓ。Ｔabｌｅs．Ｃonｔaｉns（＂Ｐatient")）｛ds.Ｔableｓ［”Pａtｉeｎt"]。Clｅar();}//调用Fill方法将外存数据库中的信息填充到内存数据集中da。Fiｌｌ（ds,"Ｐaｔiｅnｔ”）;//定义一个临时保存数据的HＹPERLINK”http:/／bａike.ｂａidu．ｃoｍ/vｉew／１0755。hｔｍ"\t"_blank”网格虚拟表的对象table_PatiｅntDａtaTaｂleｔable＿Ｐaｔｉent=nｅwDａtａTable（）;ｔabｌe＿Pａtienｔ＝dｓ.Tabｌｅs［＂Ｐatiｅnt”］;dａｔaGrｉdView1。DataＳource＝ds。Taｂlｅｓ[＂Patient"]；txt_Id．DａtaBindings．Clear（)；ｔxt＿Ｉd。DatａBiｎｄiｎgs.Add（”Tｅxt”,ｔabｌｅ_Ｐaｔienｔ,"Pat_Ｉd＂）；tｘt＿Bed．ＤatａＢiｎdingｓ。Clｅaｒ()；txt_Beｄ．DａｔaBiｎｄiｎｇs．Aｄd（"Ｔext",taｂｌe_Patｉenｔ,＂Pａｔ＿Ｂed"）；ｔxt＿ＢedFee。ＤatａBiｎｄinｇs.Cｌｅaｒ（）；ｔxｔ_BeｄFｅe．ＤaｔaBinｄinｇs．Ａdd("Text＂，ｔaｂle_Ｐatienｔ，"Pat_BedFee＂）；tｘt_Ｎamｅ。DatａBｉｎdings。Ｃleaｒ（）;txt_Ｎａｍｅ。DａtaBindiｎgs。Add（”Text",taｂle＿Patｉenｔ，"Ｐaｔ_Ｎaｍe＂）；txｔ_Ｓeｘ．ＤａtaＢiｎｄings．Cｌeａｒ（);txｔ_Ｓｅx．ＤatａＢindｉnｇｓ．Ａdｄ(＂Ｔeｘt",tａｂle_Ｐａtｉenｔ，”Sex_Nａme"）;txt_Birｔh.DａtaBiｎdinｇs。Clear()；ｔｘｔ_Bｉｒtｈ。ＤataＢindiｎgs.Ａdｄ（”Tｅxｔ＂,taｂle_Ｐａｔieｎｔ，”Pａt＿Biｒtｈ”）；txt_Natiｏn。DatａBｉｎdｉngs.Clｅａr(）;ｔｘt_Nation．DaｔaBindingｓ。Add(＂Ｔext”,table_Patienｔ,"Ｎaｔion＿Naｍe"）；txt_NtvPｌc.DaｔaＢindings.Cｌeａr(）；txt＿ＮtｖＰlｃ。DataBｉｎｄinｇs。Aｄd（＂Ｔext"，ｔａble_Pａｔiｅｎt，"NtvＰｌc_Nａme”);ｔxｔ_Svmｐton.DataＢiｎｄｉngs.Clear（）;ｔxt＿Ｓｖｍpton.DａtａＢindinｇs。Ａdd（”Tｅｘt＂，table_Paｔiｅｎｔ,"Ｐat_Ｓymptoｎ")；}7.病人编码维护（主)图7病人编码维护病人编码维护窗体是通过控件绑定实现起功能的；其功能有：保存病人的住院号、病人姓名、性别和出生日期等信息，还设有查询病人信息功能；首先在Forｍ窗体添加ＢｉｎｄｉngSｏurcｅ窗体,重命名为BiｎdｉngSourｃｅ_Pａｔ,将BindinｇSoｕrce的DａｔaSoｕrce属性与内存数据集HISDataSeｔ绑定、DataMemｂer属性与内存数据表ｔblPaｔｉeｎt绑定；其次因为TexｔBox绑定属于简单数据绑定，所以只要将基本信息（GroupBox)中的ＴｅxtＢoｘ控件的(DataBindｉｎgs）－-Text属性分别与BinｄｉngSource_Pａt对应绑定即可，例子：【ｔｘtＰat_Id（住院号）的（DａtaBinｄｉnｇs)—Ｔeｘt属性与BｉnｄinｇＳouｒcｅ＿Ｐat－Pat＿Ｉd绑定】；此外将病人编码维护的Fｒom窗体上的DatａＧrｉｄＶiew控件的DaｔaSourｃｅ属性与BinｄinｇＳouｒｃｅ_Pat进行绑定、cｏlumｎ属性改为对应的中文汉字；最后保存、退出和查询是由代码实现的，代码如下：//保存按钮ｐriｖaｔevoｉdtsＢｔn_Saｖe＿Clｉｃｋ（ｏｂｊｅcｔｓendｅr，EvｅｎtAｒｇsｅ）{tｈiｓ．tｂlPatieｎtTａblｅAｄaｐter．Ｕpdaｔe(this。hＩSDａtaSet。tblPatient);｝/／退出按钮privatevoidtsＢｔn_Ｅxiｔ__Ｃｌick（objｅcｔsｅnｄeｒ,EvenｔＡrｇse){tｈis。Ｃｌosｅ（）；｝//查询按钮privatevoｉdＢtn＿Cheｃk_Cliｃk(oｂjｅctsｅnｄｅr，ＥvｅnｔArｇse）｛biｎdｉngＳouｒce_Pat.Filter=”Pａt_namｅlike＇"+txt_Pat。Texｔ+”％＇＂;}８。大类科编码维护(主）图8大类科编码维护大类科编码维护的实现功能也是通过编码绑定实现的，同样在大类科编码维护Fｏrｍ窗体上添加BindingSource窗体name属性改为BindiｎgSｏurｃe＿Cａte、ＤａtaSourｃe属性与内存数据集HＩSDataSeｔ绑定和DａtaMｅmbeｒ属性与内存数据表tbｌＣａｔegorｙ绑定；我还添加了binｄｉngNavigaｔoｒ控件namｅ属性命名为ｂinｄingNavigaｔor_Cate，目的是为了用户一目了然,并且将其的BｉｎｄingSoｕrce属性与BindｉｎｇＳourｃe_Catｅ绑定，这样运行时就直接点击bindｉnｇNaｖigａtor的关键帧就可以查看信息，方便；另外窗体上还添加listBｏx控件，其数据绑定是属于复杂数据绑定，因此其ＤataSｏuｒｃｅ属性与BindｉngSourcｅ_Cate绑定、DｉspｌayMｅｍｂeｒ属性