《医院信息系统》实验报告

湖北中医药大学医学信息工程专业实验报告课程名称医院信息系统课程设计实验题目 和协医院门诊挂号系统实验日期：2012年05月以日起2012年05月28日止班 级：09级信工(2)班姓 名：途彦学 号：20090702076指导教师：沈邵武肖勇目录第一章概述3L1背景-3-L2系统开发目的与意义-3-第2章系统需求分析-3-2.1现行系统调查-3-2.2业务流程分析-3-2. 3数据流程分析（略）-4-2.4现行系统存在的主要问题和薄弱环节-4-第3章系统总体设计-4-3.1系统开发目标-4-3.2系统功能设计-4-3.3系统数据流程-4-3. 4新系统数据模型（E-R图）-4-3. 5数据库结构设计（含数据字典）-6-第4童系统详碱计-7-4. 1系统功能模块说明-7-4. 2界面设计-8-4.3代码设计-9-第5章系统实施-23-结论-23-参考文献-24-第一章概述1.1背景21世纪是一个信息化的时代，可以毫不夸张的说，离开了信息，一切将无从运转。而 一向以治病救人为目的的医院为了提高服务质量，加强内部管理，改善医患关系，也纷纷将 人类智慧的结晶一一信息技术引进来。一时间，医院信息化的浪潮席卷全球。我们国家虽然 起步较晚，但是后劲足。时值十二五规划期间，党和国家纷纷出台各种政策和投入大量人力 物力，以利于医院信息化的建设。1.2系统开发目的与意义医院信息系统并非是以机械的代替传统的手工操作，其意义一方面在于利用现代信息 技术的高度时空伸缩性，将有限的医疗资源充分利用起来，缓解当前形势下，我们国家百姓 抱怨看病难，看病贵的问题；另一方面在于利用现代信息系统强大的功能，对医院进行管理, 将医务人员从以前繁重的工作中解放出来，并旦可以辅助医务人员进行口常诊断。门诊挂号系统作为医院信息系统的一个子系统，是整个医疗活动的开始阶段，其重要 性不言而喻，与传统的手工录入信息相比，本系统智能化程度高，出错概率小，分工明确, 操作简单易上手，适于大面积推广。第2章系统需求分析2. 1现行系统调查经过实地调查与网上搜集资料综合分析，大部分医院所用的挂号系统操作不方便，而且 不适合与医院信息系统集成，造成了各自为政的局面，阻碍了医院信息化的发展，甚至有部 分医院仍在使用手工的方式填写挂号单，这种方式不利于病人信息的储存，而且也因为修改 方便，一旦出现医疗纠纷，往往损害的是病人的利益，造成不公。2. 2业务流程分析挂号员和管理员先通过用户名和密码进入的操作界面，挂号员负责给病人输入挂号信 息，由于很多内容都是系统生成，挂号员所要输入的仅是病人的姓名和性别，其它的可以通 过下拉框进行选择，例如选择急诊，那么挂号费用就会自动显示所对应的金额，选择一个科 室，医生这一栏就自动显示对应科室的医生，挂号员只有对病人进行挂号的权限。管理员进 入对应的页面之后，可以对挂号表进行查询，查询方式有多种，如：按挂号口期查询，按挂 号编号查询，按挂号姓名查询，显示所有信息。管理员还有退号的权限，进入相应的界面后, 输入病人的挂号编号，就可以退号了。2.3数据流程分析（略）2. 4现行系统存在的主要问题和薄弱环节1. 现行的系统存在着分工不明确，例如挂号员和管理员集于一身，对数据的权限控制 形成真空，不利于保护的用户的信息。2. 现行系统比较分立，各自独立，不能集成为一个大型的，功能强大的医院信息系统。第3章系统总体设计3.1系统开发目标本系统是为了对现行的系统的功能进行改进，以期最大的程度方便挂号员挂号，有效的 缩短患者挂号的等待时间，以及对用户的信息进行必要的保护。3. 2系统功能设计1. 对用户的身份进行验证2. 添加（打印）挂号信息3. 查询并统计挂号信息4. 删除（退号）挂玷者的信息3. 3系统数据流程首先，用户的信息是事先直接添加到数据库中的，用户（挂号员和管理员）凭各自的用户 名和密码选择要进入的操作界面，若条件符合，则进入；否则给出错误提示。挂号员进入挂号界面，其中医生和科室的信息是直接从数据库中查询后显示的，选择不 同的科室，显示医生就会不同，挂号的编号和挂号日期是系统自动生成的，不允许用户修改, 用户只要输入挂号者的姓名和年龄，选择性别，就可以将挂号信息添加到数据库中，至于打 印挂号单，目前没有实现，只是用了一个按钮表示。管理员进入管理界面可以对挂号的信息进行查询，查询方式有按口期，按编号，按姓名, 查询的信息来自挂号表，还可以根据编号删除相应的挂号信息，己完成用户的挂号退号要求。3.4新系统数据模型（E-R图）3.5数据库结构设计（含数据字典）表名：yonghu字段名数据类型含义说明空值情况useridtinvintJ用户编号主关键字userNamevarchar(20)用户姓名不为空passwdvarchar(20)用户密码不为空gradetinvintJ用户权限级别不为空表名:registered字段名数据类型含义说明空值情况gliNovaichai(10)挂号编号主关键字gliXinvaichai(10)挂号姓名不为空xbchai (2)性别不为空illchai (2)年龄不为空glLbvaichai(10)挂号类别不为空gliKsvarchar(20)挂号科室不为空zzYsvarchar(20)专家医师不为空ghFyvaicliai(5)挂号费用不为空ghyvaichai(10)挂号员不为空ghRqvaichai(10)挂号日期不为空表名：ks字段名数据类型含义说明空值情况ksNotinvint科室编号主关键字ksNamevaichar(20)科室名称不为空表名:doctor字段名数据类型含义说明空值情况docldsmallmt医生编号主关键字docNamevaichar(20)医生姓名不为空docKstinvintJ医生科室不为空第4章系统详细设计4. 1系统功能模块说明1. 对用户的身份进行验证：己确认用户信息是否正确，并根据用户的权限级别，让用 户进入相应的界面。2, 添加（打印）挂号信息：根据输入的信息，添加到相应的挂号表中去3, 查询并统计挂号信息：选择一种查询方式，根据输入的内容，查询并统计相应的信 息，例如选择按口期查询，输入想查询的口期，就可以查到当天挂号的人数和详细信息。4. 删除（退号）挂号者的信息：根据输入的挂号编号，可以从挂号表中删除该挂号者的信 息，事先对是否存在该用户做了判断。4. 2界面设计登陆界面挂号界面匚叵冈|ghFy |ghy |ghiq-管理界面gliNu IgFMn xblnl ghLb |ghKskzYs201205200020120520012012052002201205200320120520042012052005-3bbCOddccff * 23另23警通门诊 女23专家门诊 女23专病门诊 女23有诊男23传兔病（形 专病门诊内科 目科 外村 toilProject 1区j景玲 I 件时沱贸温 张李华孙吴避超tem 戏 华华华华华 v-.lx201205.20201205.20201205.20201205.20201205.20共查询到6条记录:二二明二二 M梅国强舞:华杰201205.20I查询所有.com/Dull：管理界面退号处理界面4.3代码设计Umtl代码如H：unit Umtl;inreiface usesWindows, Messages. SysUtils, Valiants, Classes. Giaplucs, Contiols. Forms.Dialogs. StdCtils, Mask, DB. ADODB. DBTables. jpeg. ExtCtrls:typeTFonnl - class(TFoim)Editl: TEdit;Edit2: TEdit;RadioButt on 1: TRadioButton;RadioButton2: TRadioButton;Buttonl: TButton:Button2: TButton:ADOCoiinectionl: TADOConnection;ADOQueryl: TADOQuery;Image 1: TImage;Labell: TLabel;Label2: TLabel;procedure Buttoii2Click(Sendei: TObject);procedure ButtonlClick(Sendei: TObject);private(Private declaiations )public(Public declarations )end:varFonnl: TFonnl;implementationuses Umt2. Unit3;SR .dfinprocedure TForml Buttoii2Click(Sendei: TObject);beginclose;end;procedure TForml.ButtonlClick(Sender: TObject);varg:integer;beging：-o；if RadioButtonl .Checked then g:-2;if RadioButtoii2.Checked theng:-l;with ADOQuer4 dobegmclose:sql.Cleai:sql.Add（*select * from yonghu where username-:name and passwd-:pass and grade-ade）;ADOQuend.Pai ametersO.Value:-editl.Text;ADOQuend.Pai ametersl.Value:-edit2.Text;ADOQueryrl.Paiaineters2.Value:-g;execsql;open;if recordcount0 thenbegmif RadioButtonl Checked then fbrni2.Show;if RadioButton2.Checked then fdnn3.show;endelsebegmedit 1 Tag:-edit 1 Tag-rl;if editl.Tag3 thenbeginshowMessage（对不起，您无权使用该程序！，）；Application. Tenninate;endelsebeginshowMessage（对不起，您输入的用户名或密码有误，造重新输入！，）;editl.Text:-M;edit2.Text:-M;end;end:end;end;end.Umt2代码如下：unit Unit2;interfaceusesWindows, Messages. SysUtils, Valiants, Classes. Graphics, Controls, Forms,Dialogs. StdCtds, DB. DBCtils. DBTables, ADODB. jpeg, ExtCtrls;typeTFonn2 - class(TForm)Button 1: TButton:Button?: TButton:Button3: TButton:Editl: TEdit;ADOQueryl: TADOQuery；ADOCoiinectionl: TADOCoimection;Edit2: TEdit;Button4: TButton:Button5: TButton:ComboBox2: TComboBox;ComboBox3: TComboBox;ComboBox4: TComboBox;ComboBox5: TComboBox;ComboBoxd: TComboBox;Edit3: TEdit;Edit4: TEdit;Image 1: TImage;ComboBoxl: TComboBox;Labell: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;Label?: TLabel;Labels： TLabel;Label9: TLabel;LabellO: TLabel;procedure FonnShow(Sender: TObject);procedure Button4Click(Sendei: TObject);procedure Buttoii2Click(Sendei: TObject);procedure ButtonlClick(Sendei: TObject);procedure Button5Click(Sendei : TObject);procedure ComboBox2Change(Sender: TObject);procedure ComboBox6KeyPiess(Sender: TObject; var Key: Char);procedure ComboBox 1 KeyPiess(Sender: TObject; var Key: Char);procedure ComboBox2KeyPiess(Sender: TObject; var Key: Char);procedure ComboBox3KeyPiess(Sender: TObject; var Key: Char);procedure ComboBox4KeyPiess(Sender: TObject; var Key: Char);procedure ComboBox5KeyPiess(Sender: TObject; var Key: Char);procedure ComboBox3Change(Sender: TObject);private(Private decimations ) public(Public declarations ) end:varFonn2: TFonn2;ghNo :string:implementationuses Umtl;SR *.dfiii procedure TForm2.FonnShow(Sender: TObject);beginwith ADOQuer4 dobegmclose;sql.Clear;sql.AddCselect top 1 ghNo from registered order by ghNo desc); execsql;open;ghNo : FieldsO.AsSumg;edit 1.Text:- IntToStr(StrToInt(ghNo)+ 1);close;sql.Clear;sql.AddCselect ksName from ks);execsql;open:while not eof dobegincomboboxS.Items.AddtfieldbynanieCsName.asstimg);next;end;ComboBox3 Itenilndex:-O;close;sql.Clear;combobox4.Items.Clear;sql.Addfselect docName from doctor where docKs-:docKs);ADOQuel ,PaiainetersO .Value:-1;execsql:open;while not eof dobegmcombobox4.Items.Add(fieldbyname(,docName,).assumg);next;end;ComboBox4.IteniIndex:-0;end;ifForml Ednl Text-zhenghuajie*) thenComboBox6. Itemindex:-0:ifForml .Editl Text-xuguodong*) thenComboBoxd. Itenilndex: -1;ifForml .Editl Text-yanir)thenComboBox6.IteniIndex:-2;SliortDateFoimat:-Xysymin.dd,;ed it4.Text:-Datetostr(nowQ) end;procedure TFoim2.Button4Click(Sender: TObject); beginApplication. Teinunate;end;procedure TFoim2.Buttoii2Click(Sendei: TObject);beginedit2.Text:-K;edit3.Text:-K;ComboBoxl Itemlndex:-O;end;procedure TFoim2.Button 1 Click(Sender: TObject); beginif(edit2.Text o ”)thenbeginif4 dobegmclose;sql.Clear;sql.Addfselect top 1 ghNo from registered order by ghNo desc);execsql:open;ghNo :- FieldsO.AsStrmg;editl.Text:- IntToSti(StrToInt(ghNo)+l);end;endelseshowmessage(，请输入挂号者的年龄冗endelseshowmessage(/请输入挂号者的姓名);end;procedure TFoim2.Buttoii5Click(Sendei : TObject);beginfbim2.Close;xmqoA爵 m/uqoH板 pu9s)SSEdA 爵寸 Xo8oquloo?.lo mp80】d-OU9OTU3胃 x2o.爵 m/uqoH板 pu9s)SSEdA 爵 ExogoquIOoTuno mp80】d-OU9OTU【a)9q x2o.爵 m/uqoH板 pu9s)SSEdA 爵xogoqurooTuno mp80】d-OU9OV&x2o.爵 m/uqoH板 pu9s)SSEdA 爵 TxogoquIOoTunoJXmp80】d-OU9 一号rrLXQPUIU&ISXOffloqmooUIBOq 一号 -TXPUIU&ISXOffloqmooUIBOq一号PUIW2I5xoffloqmooUIBOq 35(忠一B.LXU 殳offloqmoom一号 二 LX9PUIUI2I5xoffloqmooUIBOq(态一 J 撼皈.Lxg .殳。ffloqmoom 一号oLX9PUIUI2I5xoffloqmooUIBOq (态一 J渤.Lxgaoffloqmoom xQwqoHuQPUQSvBacqo殳 ogoqurooTuno jxmp80】d-OU9,oqs 】unqjkey:-#O;end;procedure TFoim2.ComboBox5KeyPiess(Sendei: TObject; var Key: Char):beginkey:-#。；end;procedure TFoim2.ComboBox6KeyPiess(Sendei: TObject; var Key: Char);beginkey:-#。；end;procedure TFoim2.ComboBox3Change(Sender: TObject);beginwith ADOQueiy 1 dobegmclose;sql.Clear;combobox4.Items.Clear;sql.AddCselect docName from doctor where docKs-:docKs);ADOQuer4 ParainetersO.Value:-combobox3.IteniIiidex-rl;execsql;open;while not eof dobegincombobox4.Items.Add(fieldbyname(,docName,).assumg);next;end;end;ComboBox4.IteniIndex:-0;end;end.Umt3代码如下：unit Umt3;interfaceusesWindows, Messages. SysUtils, Variants, Classes. Graphics, Contiols, Forms, Dialogs. StdCtds, Gilds. DBGnds, DB, DBTables, jpeg, ExtCtds, ADODB;typeTFonn3 - chss(TForm)DBGndl: TDBGiid;Image 1: TImage;Label 1: TLabel;Button 1: TButton;Button2: TButton;Button3: TButton;Editl:TEdit;ComboBoxl: TComboBox;Label2: TLabel;LabeB: TLabel;ADOCoiinectionl: TADOComiection;ADOQueryl: TADOQuery；DataSource 1: TDataSource;Tablel: liable;Label4: TLabel;Button4: TButton;Button5: TButton;procedure FonnShow(Sender: TObject);procedure Button3Click(Sendei: TObject);procedure Buttoii2Click(Sendei: TObject);procedure Button 1 Click(Sendei: TObject);procedure Button4Click(Sendei: TObject);procedure Button5Click(Sendei: TObject); private(Private declarations ) public(Public declarations end;varFonn3: TFonn3;implementationuses Umtl. Unit4;SR *.dfmprocedure TFoim3,FonnShow(Sender: TObject);begin/dbgnd 1 .Colunms0.Title.Caption:-*挂号编号/dbgnd 1 .Columns 1 Title:盘挂号姓名。;/with ADOQuetyl do-61 -柚碓角布网叮河dsia sp片日/ X而贸段王一1叫叮,河dsia 9sp片日/ :萍蚀官卉一四叮河dsia sspi。! 朴*茉岳存一四叮河dsia Hspi。! :御由一1叫叮,河dsg spi。! iff 我 LioqW耶垣aldspi。!部/ 格琳布网叮河dsg tspqu， ，含物含孤一pqc河 dsTQ。戏 XiucNAaP2U， Jbsgx。：）01 口卬-：9叫4 osj0】mnnd AignboOV X4b.n3:-biq3 osqz pwqjstSqj utoij * 】g9S,）ppv bs :9QbsRsopinSq op ndOQV 叩tmmSqg甲 颌幽日 .-Ji TXoqoqiuoo）；!uiSq ：（】gqOJL ：puQS）ifon9Tuonnq fuuojx xnpsoid:pg :AOlS TUT.TOJ ：OSOJ3 UT.TOJuiSq ：（jOQ（q01 mpgS）W!QWO）ns unojx oinpsoid:pg jcurunx uoTjuoTjddyuiSq ：（jOQ（q01 mpgS）W!Q买。）ns funojx oinpsoid:pg:PW:血口各孤一网叮何dma 6SP2U7 :褚.角 .-jsqcqXqdsia ssppij/ :山林有我l 1冲7何ds!a /Jsp同助 :,而贸琲王L：PqcH何dma 9SP2U7 滓姓昌我l 1冲7何ds!a sp同助 :席采昌孤一网叮何dsTatdsp2U7:螺L：pqccids!a sp同助:咯料L：PqcH何dma SP2U7M瞬 孤一网叮何dma TSP2U，7 :点蜥 .-pqciXqdsia osppij/ inSq/ocX,番由为,+(Junoopjoo9i)jjsoi)ui + Ji 舌限厚许)。矛sswunoqs mdobsgx。：P9I9】S诣。i iuo.g * 】g9s)ppv bs moQlbs：9SOQinSqop 心冲0。叩tm uiSq：(jg何01 ：np国S)甲TQuonna funojx “npsoid:pg :pu。:pgX,番由为,+ (Junoopjoo9i)jJS01)ui + Ji 舌限厚许)。矛sswunoqs mdobsgx。:冲 IJTpiQig osimunnud nboav ：(,oxi3:-O5q3 osqz pjqjstSw iuo.g * 】g9S)ppv bs moQlbs：9S0QinSqop 心冲0。叩tmmSqu。甲啤辜含费-Jxojnxogoquio加:pu。:pgX,番由为,+ (JunoopiooM)iJS01)ui + Ji 舌限厚许)。矛sswunoqs mdobsgx。:冲 IJTpiQig osimunnud nboav %,uiXlS:-iuxn2 0】9qz pjqjstSw iuo.g * 】g9S)ppv bs moQlbs：9S0QinSqop 心冲0。叩tmmSqu。甲(O 才.-JXQi- TXogoquiooljT:pu。:pgX,番由为,+ (Junoopjoo9i)jJS01)ui + Ji 舌限厚许)。矛sswunoqs mdoW 含我 i 冲1 何 dsya 6spi咆/:酒 4我网叮Edsra 8sp。!丑/end;end;procedure TFoim3.Button5Click(Sendei : TObject);beginfbim4.show;fbim3.Close;end;end.Unit4代码如下：unit Umt4;interfaceusesWindows, Messages. SysUtils, Valiants, Classes. Graphics, Contiols, Forms, Dialogs. StdCtils, jpeg, ExtCtrE. DB, ADODB;typeTFonn4 - class(TForm)Editl: TEdit;Buttonl: TButton:Button2: TButton:Button3: TButton:Image 1: TImage;Labell: TLabel;Label2: TLabel;ADOCoiinectionl: TADOConnection;ADOQueryl: TADOQuery；procedure Buttoii2Click(Sendei: TObject);procedure Button3Click(Sendei: TObject);procedure ButtonlClick(Sendei: TObject);private(Private declaiations )public(Public declarations )end:varFonn4: TFonn4;implementation uses Umt3;SR *.dfiiiprocedure TFoim4.Button2Click(Sendei: TObject);beginfbnn4.Close;fbnxB.show;end;procedure TFoim4.Button3Click(Sendei: TObject);beginApplication. Tenninate;end;procedure TF01 m4.Bu(ton 1 Click(Sender: TObject);vari: integer;begini:-MessageDlg(确认要删除编号十 editl.Text +,|lmtConfirmation.mbYes,mbNo,0);iRi6) thenbeginwith ADOQiieryrl dobeginclose:sql.Cleai:sql.Add(*select * from xegistered where ghNo-:gliNo);ADOQuend.Pai ainetersO.Value:-editl.Text;execsql;open;if recordcount-0 thenbeginshowmessage(，你所输入的编号不存在，请再次确认编号!)；endelsebeginclose;sql.Clear;sql.Addfdelete from registered where ghNo-:ghNo);ADOQuer4 PaiainetersO .Value:-editl Text;ExecSQL;showmessageC恭喜你，编号十editl.Text + 已成功删除);end:end;end;end;end.第5章系统实施本系统对硬件的要求比较低，可在各种平台上流畅运行。数据库用的是sql server 2005, 可以放在一台普通的PC上，其他的PC与之联网即可，无要繁复的安装，操作简单易上手, 经过短时间的培训，即可熟练操作。结论学Delplu课程是在两年前的事了，距今时间长，中间又没有经常的去复习，所以很多 的内容都忘记了，而java我们学的又不是很深入，做这样的系统可谓是困难重重。考虑再 三，最终选择了 delplu,毕竟我们是学过的，回去看看书就能记起来了，而且delphi做界面 比较容易上手。本次试验的项目我选的是门诊挂号系统，算是个小型项目，我本人也没有管理项目的经 验，再加上我们组的另外一个项目比较大，需要人手，所以凭借一股不服输的决心，我一人 承担起这个项目的所有任务，包括从问题定义，到系统实施。还和另外一个组叫板，看看谁 先完成。项目初始阶段就遇到了大的难题，那就是和数据库关联起来，由于在以前上delphi课程 的时候没怎么认真听，现在遇到麻烦了。于是上网查资料，看书，问同学，用了一下午的时 间把一个登录的功能实现了，取得了阶段性的胜利。完成了这个查询的功能，那么其他要对 数据库操作的基本上都是大同小异了。第二天，我花费了一天的时间，将其他的从界面到功 能大体都实现，看着自己的成果，虽然很累，可是也很欣慰。接下来我把版本升级到2.0 了，加入了挂号退号处理的模块，对其中一些不合理的逻辑 加以修正，对一些输入进行了验证，防止添加无效的，不合法的信息到数据库中去。通过本次试验，我对门诊挂号的业务流程有了更好的认识，对程序中数据的流程有了更 清晰的思路，最后的体会是：编程虽然很累，很费脑子，但是能锻炼一个人的思维，培养一 个人冷静的思考方式，看着自己把想法变为现实，从中也能体会到不小的成就感。最后感谢沈邵武老师和肖勇老师对我的指导，以及我们组员对我的大力支持和项目期间 提供的帮助。参考文献1. 医院信息系统 王明时主编 科学出版社2. Delplu程序设计教程刘瑞新等编著 机械工业出版社3. sql server 2005基础教程和试验指导清华大学出版社4. 数据库原理与技术孙扬波等主编武汉大学出版社