《《醫(yī)院信息系統(tǒng)》實(shí)驗(yàn)報(bào)告》由會(huì)員分享，可在線閱讀，更多相關(guān)《《醫(yī)院信息系統(tǒng)》實(shí)驗(yàn)報(bào)告（25頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。
1、湖北中醫(yī)藥大學(xué)醫(yī)學(xué)信息工程專業(yè)實(shí)驗(yàn)報(bào)告課程名稱醫(yī)院信息系統(tǒng)課程設(shè)計(jì)實(shí)驗(yàn)題目 和協(xié)醫(yī)院門診掛號(hào)系統(tǒng)實(shí)驗(yàn)日期：2012年05月以日起2012年05月28日止班 級(jí)：09級(jí)信工(2)班姓 名：途彥學(xué) 號(hào)：20090702076指導(dǎo)教師：沈邵武肖勇目錄第一章概述3L1背景-3-L2系統(tǒng)開發(fā)目的與意義-3-第2章系統(tǒng)需求分析-3-2.1現(xiàn)行系統(tǒng)調(diào)查-3-2.2業(yè)務(wù)流程分析-3-2. 3數(shù)據(jù)流程分析（略）-4-2.4現(xiàn)行系統(tǒng)存在的主要問題和薄弱環(huán)節(jié)-4-第3章系統(tǒng)總體設(shè)計(jì)-4-3.1系統(tǒng)開發(fā)目標(biāo)-4-3.2系統(tǒng)功能設(shè)計(jì)-4-3.3系統(tǒng)數(shù)據(jù)流程-4-3. 4新系統(tǒng)數(shù)據(jù)模型（E-R圖）-4-3. 5數(shù)據(jù)庫結(jié)構(gòu)
2、設(shè)計(jì)（含數(shù)據(jù)字典）-6-第4童系統(tǒng)詳堿計(jì)-7-4. 1系統(tǒng)功能模塊說明-7-4. 2界面設(shè)計(jì)-8-4.3代碼設(shè)計(jì)-9-第5章系統(tǒng)實(shí)施-23-結(jié)論-23-參考文獻(xiàn)-24-第一章概述1.1背景21世紀(jì)是一個(gè)信息化的時(shí)代，可以毫不夸張的說，離開了信息，一切將無從運(yùn)轉(zhuǎn)。而 一向以治病救人為目的的醫(yī)院為了提高服務(wù)質(zhì)量，加強(qiáng)內(nèi)部管理，改善醫(yī)患關(guān)系，也紛紛將 人類智慧的結(jié)晶一一信息技術(shù)引進(jìn)來。一時(shí)間，醫(yī)院信息化的浪潮席卷全球。我們國家雖然 起步較晚，但是后勁足。時(shí)值十二五規(guī)劃期間，黨和國家紛紛出臺(tái)各種政策和投入大量人力 物力，以利于醫(yī)院信息化的建設(shè)。1.2系統(tǒng)開發(fā)目的與意義醫(yī)院信息系統(tǒng)并非是以機(jī)械的代替?zhèn)鹘y(tǒng)
3、的手工操作，其意義一方面在于利用現(xiàn)代信息 技術(shù)的高度時(shí)空伸縮性，將有限的醫(yī)療資源充分利用起來，緩解當(dāng)前形勢(shì)下，我們國家百姓 抱怨看病難，看病貴的問題；另一方面在于利用現(xiàn)代信息系統(tǒng)強(qiáng)大的功能，對(duì)醫(yī)院進(jìn)行管理, 將醫(yī)務(wù)人員從以前繁重的工作中解放出來，并旦可以輔助醫(yī)務(wù)人員進(jìn)行口常診斷。門診掛號(hào)系統(tǒng)作為醫(yī)院信息系統(tǒng)的一個(gè)子系統(tǒng)，是整個(gè)醫(yī)療活動(dòng)的開始階段，其重要 性不言而喻，與傳統(tǒng)的手工錄入信息相比，本系統(tǒng)智能化程度高，出錯(cuò)概率小，分工明確, 操作簡(jiǎn)單易上手，適于大面積推廣。第2章系統(tǒng)需求分析2. 1現(xiàn)行系統(tǒng)調(diào)查經(jīng)過實(shí)地調(diào)查與網(wǎng)上搜集資料綜合分析，大部分醫(yī)院所用的掛號(hào)系統(tǒng)操作不方便，而且 不適合與醫(yī)院信
4、息系統(tǒng)集成，造成了各自為政的局面，阻礙了醫(yī)院信息化的發(fā)展，甚至有部 分醫(yī)院仍在使用手工的方式填寫掛號(hào)單，這種方式不利于病人信息的儲(chǔ)存，而且也因?yàn)樾薷?方便，一旦出現(xiàn)醫(yī)療糾紛，往往損害的是病人的利益，造成不公。2. 2業(yè)務(wù)流程分析掛號(hào)員和管理員先通過用戶名和密碼進(jìn)入的操作界面，掛號(hào)員負(fù)責(zé)給病人輸入掛號(hào)信 息，由于很多內(nèi)容都是系統(tǒng)生成，掛號(hào)員所要輸入的僅是病人的姓名和性別，其它的可以通 過下拉框進(jìn)行選擇，例如選擇急診，那么掛號(hào)費(fèi)用就會(huì)自動(dòng)顯示所對(duì)應(yīng)的金額，選擇一個(gè)科 室，醫(yī)生這一欄就自動(dòng)顯示對(duì)應(yīng)科室的醫(yī)生，掛號(hào)員只有對(duì)病人進(jìn)行掛號(hào)的權(quán)限。管理員進(jìn) 入對(duì)應(yīng)的頁面之后，可以對(duì)掛號(hào)表進(jìn)行查詢，查詢方式有
5、多種，如：按掛號(hào)口期查詢，按掛 號(hào)編號(hào)查詢，按掛號(hào)姓名查詢，顯示所有信息。管理員還有退號(hào)的權(quán)限，進(jìn)入相應(yīng)的界面后, 輸入病人的掛號(hào)編號(hào)，就可以退號(hào)了。2.3數(shù)據(jù)流程分析（略）2. 4現(xiàn)行系統(tǒng)存在的主要問題和薄弱環(huán)節(jié)1. 現(xiàn)行的系統(tǒng)存在著分工不明確，例如掛號(hào)員和管理員集于一身，對(duì)數(shù)據(jù)的權(quán)限控制 形成真空，不利于保護(hù)的用戶的信息。2. 現(xiàn)行系統(tǒng)比較分立，各自獨(dú)立，不能集成為一個(gè)大型的，功能強(qiáng)大的醫(yī)院信息系統(tǒng)。第3章系統(tǒng)總體設(shè)計(jì)3.1系統(tǒng)開發(fā)目標(biāo)本系統(tǒng)是為了對(duì)現(xiàn)行的系統(tǒng)的功能進(jìn)行改進(jìn)，以期最大的程度方便掛號(hào)員掛號(hào)，有效的 縮短患者掛號(hào)的等待時(shí)間，以及對(duì)用戶的信息進(jìn)行必要的保護(hù)。3. 2系統(tǒng)功能設(shè)計(jì)1
6、. 對(duì)用戶的身份進(jìn)行驗(yàn)證2. 添加（打印）掛號(hào)信息3. 查詢并統(tǒng)計(jì)掛號(hào)信息4. 刪除（退號(hào)）掛玷者的信息3. 3系統(tǒng)數(shù)據(jù)流程首先，用戶的信息是事先直接添加到數(shù)據(jù)庫中的，用戶（掛號(hào)員和管理員）憑各自的用戶 名和密碼選擇要進(jìn)入的操作界面，若條件符合，則進(jìn)入；否則給出錯(cuò)誤提示。掛號(hào)員進(jìn)入掛號(hào)界面，其中醫(yī)生和科室的信息是直接從數(shù)據(jù)庫中查詢后顯示的，選擇不 同的科室，顯示醫(yī)生就會(huì)不同，掛號(hào)的編號(hào)和掛號(hào)日期是系統(tǒng)自動(dòng)生成的，不允許用戶修改, 用戶只要輸入掛號(hào)者的姓名和年齡，選擇性別，就可以將掛號(hào)信息添加到數(shù)據(jù)庫中，至于打 印掛號(hào)單，目前沒有實(shí)現(xiàn)，只是用了一個(gè)按鈕表示。管理員進(jìn)入管理界面可以對(duì)掛號(hào)的信息進(jìn)行
7、查詢，查詢方式有按口期，按編號(hào)，按姓名, 查詢的信息來自掛號(hào)表，還可以根據(jù)編號(hào)刪除相應(yīng)的掛號(hào)信息，己完成用戶的掛號(hào)退號(hào)要求。3.4新系統(tǒng)數(shù)據(jù)模型（E-R圖）3.5數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)（含數(shù)據(jù)字典）表名：yonghu字段名數(shù)據(jù)類型含義說明空值情況useridtinvintJ用戶編號(hào)主關(guān)鍵字userNamevarchar(20)用戶姓名不為空passwdvarchar(20)用戶密碼不為空gradetinvintJ用戶權(quán)限級(jí)別不為空表名:registered字段名數(shù)據(jù)類型含義說明空值情況gliNovaichai(10)掛號(hào)編號(hào)主關(guān)鍵字gliXinvaichai(10)掛號(hào)姓名不為空xbchai (2)性
8、別不為空illchai (2)年齡不為空glLbvaichai(10)掛號(hào)類別不為空gliKsvarchar(20)掛號(hào)科室不為空zzYsvarchar(20)專家醫(yī)師不為空ghFyvaicliai(5)掛號(hào)費(fèi)用不為空ghyvaichai(10)掛號(hào)員不為空ghRqvaichai(10)掛號(hào)日期不為空表名：ks字段名數(shù)據(jù)類型含義說明空值情況ksNotinvint科室編號(hào)主關(guān)鍵字ksNamevaichar(20)科室名稱不為空表名:doctor字段名數(shù)據(jù)類型含義說明空值情況docldsmallmt醫(yī)生編號(hào)主關(guān)鍵字docNamevaichar(20)醫(yī)生姓名不為空docKstinvintJ醫(yī)生科室
9、不為空第4章系統(tǒng)詳細(xì)設(shè)計(jì)4. 1系統(tǒng)功能模塊說明1. 對(duì)用戶的身份進(jìn)行驗(yàn)證：己確認(rèn)用戶信息是否正確，并根據(jù)用戶的權(quán)限級(jí)別，讓用 戶進(jìn)入相應(yīng)的界面。2, 添加（打?。焯?hào)信息：根據(jù)輸入的信息，添加到相應(yīng)的掛號(hào)表中去3, 查詢并統(tǒng)計(jì)掛號(hào)信息：選擇一種查詢方式，根據(jù)輸入的內(nèi)容，查詢并統(tǒng)計(jì)相應(yīng)的信 息，例如選擇按口期查詢，輸入想查詢的口期，就可以查到當(dāng)天掛號(hào)的人數(shù)和詳細(xì)信息。4. 刪除（退號(hào)）掛號(hào)者的信息：根據(jù)輸入的掛號(hào)編號(hào)，可以從掛號(hào)表中刪除該掛號(hào)者的信 息，事先對(duì)是否存在該用戶做了判斷。4. 2界面設(shè)計(jì)登陸界面掛號(hào)界面匚叵岡|ghFy |ghy |ghiq-管理界面gliNu IgFMn xbln
10、l ghLb |ghKskzYs201205200020120520012012052002201205200320120520042012052005-3bbCOddccff * 23另23警通門診 女23專家門診 女23專病門診 女23有診男23傳兔?。ㄐ?專病門診內(nèi)科 目科 外村 toilProject 1區(qū)j景玲 I 件時(shí)沱貿(mào)溫 張李華孫吳避超tem 戲 華華華華華 v-.lx201205.20201205.20201205.20201205.20201205.20共查詢到6條記錄:二二明二二 M梅國強(qiáng)舞:華杰201205.20I查詢所有.com/Dull：管理界面退號(hào)處理界面4.3代
11、碼設(shè)計(jì)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:Butto
12、n2: 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. Unit
13、3;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 a
14、nd 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;i
15、f editl.Tag3 thenbeginshowMessage（對(duì)不起，您無權(quán)使用該程序！，）；Application. Tenninate;endelsebeginshowMessage（對(duì)不起，您輸入的用戶名或密碼有誤，造重新輸入！，）;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.
16、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;ComboB
17、ox5: 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 Butt
18、on4Click(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; va
19、r 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);priv
20、ate(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.A
21、sSumg;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-:docK
22、s);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-ya
23、nir)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.
24、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(，請(qǐng)輸入掛號(hào)者的年齡冗endelseshowmessage(/請(qǐng)輸入掛號(hào)者的姓名);end;p
25、rocedure 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 一號(hào)rrLXQP
26、UIU&ISXOffloqmooUIBOq 一號(hào) -TXPUIU&ISXOffloqmooUIBOq一號(hào)PUIW2I5xoffloqmooUIBOq 35(忠一B.LXU 殳offloqmoom一號(hào) 二 LX9PUIUI2I5xoffloqmooUIBOq(態(tài)一 J 撼皈.Lxg .殳。ffloqmoom 一號(hào)oLX9PUIUI2I5xoffloqmooUIBOq (態(tài)一 J渤.Lxgaoffloqmoom xQwqoHuQPUQSvBacqo殳 ogoqurooTuno jxmp80】d-OU9,oqs 】unqjkey:-#O;end;procedure TFoim2.ComboBox5K
27、eyPiess(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 doc
28、Ks-: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
29、, 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: T
30、ADOQuery；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);pr
31、ocedure 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:-*掛號(hào)編號(hào)/dbgnd 1 .Columns 1 Title:盤掛號(hào)姓名。;/with ADOQuetyl do-61 -
32、柚碓角布網(wǎng)叮河dsia sp片日/ X而貿(mào)段王一1叫叮,河dsia 9sp片日/ :萍蝕官卉一四叮河dsia sspi。! 樸*茉岳存一四叮河dsia Hspi。! :御由一1叫叮,河dsg spi。! iff 我 LioqW耶垣aldspi。!部/ 格琳布網(wǎng)叮河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
33、 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:血口各孤一網(wǎng)叮何dma 6SP2U7 :褚.角 .-jsqcqXqdsia ssppij/ :山林有我l 1沖7何ds!a /Jsp同助 :,而貿(mào)琲王L：PqcH何dma 9SP2U7
34、 滓姓昌我l 1沖7何ds!a sp同助 :席采昌孤一網(wǎng)叮何dsTatdsp2U7:螺L：pqccids!a sp同助:咯料L：PqcH何dma SP2U7M瞬 孤一網(wǎng)叮何dma TSP2U，7 :點(diǎn)蜥 .-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,番
35、由為,+ (Junoopjoo9i)jJS01)ui + Ji 舌限厚許)。矛sswunoqs mdobsgx。:沖 IJTpiQig osimunnud nboav ：(,oxi3:-O5q3 osqz pjqjstSw iuo.g * 】g9S)ppv bs moQlbs：9S0QinSqop 心沖0。叩tmmSqu。甲啤辜含費(fèi)-Jxojnxogoquio加:pu。:pgX,番由為,+ (JunoopiooM)iJS01)ui + Ji 舌限厚許)。矛sswunoqs mdobsgx。:沖 IJTpiQig osimunnud nboav %,uiXlS:-iuxn2 0】9qz pjqj
36、stSw 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我網(wǎng)叮Edsra 8sp。!丑/end;end;procedure TFoim3.Button5Click(Sendei : TObject);beginfbim4.show;fbim3.Close;end;end.Unit4代碼如下：unit Umt4;int
37、erfaceusesWindows, 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;ADOQ
38、ueryl: 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);b
39、eginfbnn4.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(確認(rèn)要?jiǎng)h除編號(hào)十 editl.Text +,|lmtConfirmation.mbYes,mbNo,0);iRi6) thenbeginwith ADOQiieryrl dobeginclose:sql.Cleai
40、:sql.Add(*select * from xegistered where ghNo-:gliNo);ADOQuend.Pai ainetersO.Value:-editl.Text;execsql;open;if recordcount-0 thenbeginshowmessage(，你所輸入的編號(hào)不存在，請(qǐng)?jiān)俅未_認(rèn)編號(hào)!)；endelsebeginclose;sql.Clear;sql.Addfdelete from registered where ghNo-:ghNo);ADOQuer4 PaiainetersO .Value:-editl Text;ExecSQL;showme
41、ssageC恭喜你，編號(hào)十editl.Text + 已成功刪除);end:end;end;end;end.第5章系統(tǒng)實(shí)施本系統(tǒng)對(duì)硬件的要求比較低，可在各種平臺(tái)上流暢運(yùn)行。數(shù)據(jù)庫用的是sql server 2005, 可以放在一臺(tái)普通的PC上，其他的PC與之聯(lián)網(wǎng)即可，無要繁復(fù)的安裝，操作簡(jiǎn)單易上手, 經(jīng)過短時(shí)間的培訓(xùn)，即可熟練操作。結(jié)論學(xué)Delplu課程是在兩年前的事了，距今時(shí)間長(zhǎng)，中間又沒有經(jīng)常的去復(fù)習(xí)，所以很多 的內(nèi)容都忘記了，而java我們學(xué)的又不是很深入，做這樣的系統(tǒng)可謂是困難重重?？紤]再 三，最終選擇了 delplu,畢竟我們是學(xué)過的，回去看看書就能記起來了，而且delphi做界面 比
42、較容易上手。本次試驗(yàn)的項(xiàng)目我選的是門診掛號(hào)系統(tǒng)，算是個(gè)小型項(xiàng)目，我本人也沒有管理項(xiàng)目的經(jīng) 驗(yàn)，再加上我們組的另外一個(gè)項(xiàng)目比較大，需要人手，所以憑借一股不服輸?shù)臎Q心，我一人 承擔(dān)起這個(gè)項(xiàng)目的所有任務(wù)，包括從問題定義，到系統(tǒng)實(shí)施。還和另外一個(gè)組叫板，看看誰 先完成。項(xiàng)目初始階段就遇到了大的難題，那就是和數(shù)據(jù)庫關(guān)聯(lián)起來，由于在以前上delphi課程 的時(shí)候沒怎么認(rèn)真聽，現(xiàn)在遇到麻煩了。于是上網(wǎng)查資料，看書，問同學(xué)，用了一下午的時(shí) 間把一個(gè)登錄的功能實(shí)現(xiàn)了，取得了階段性的勝利。完成了這個(gè)查詢的功能，那么其他要對(duì) 數(shù)據(jù)庫操作的基本上都是大同小異了。第二天，我花費(fèi)了一天的時(shí)間，將其他的從界面到功 能大體都
43、實(shí)現(xiàn)，看著自己的成果，雖然很累，可是也很欣慰。接下來我把版本升級(jí)到2.0 了，加入了掛號(hào)退號(hào)處理的模塊，對(duì)其中一些不合理的邏輯 加以修正，對(duì)一些輸入進(jìn)行了驗(yàn)證，防止添加無效的，不合法的信息到數(shù)據(jù)庫中去。通過本次試驗(yàn)，我對(duì)門診掛號(hào)的業(yè)務(wù)流程有了更好的認(rèn)識(shí)，對(duì)程序中數(shù)據(jù)的流程有了更 清晰的思路，最后的體會(huì)是：編程雖然很累，很費(fèi)腦子，但是能鍛煉一個(gè)人的思維，培養(yǎng)一 個(gè)人冷靜的思考方式，看著自己把想法變?yōu)楝F(xiàn)實(shí)，從中也能體會(huì)到不小的成就感。最后感謝沈邵武老師和肖勇老師對(duì)我的指導(dǎo)，以及我們組員對(duì)我的大力支持和項(xiàng)目期間 提供的幫助。參考文獻(xiàn)1. 醫(yī)院信息系統(tǒng) 王明時(shí)主編 科學(xué)出版社2. Delplu程序設(shè)計(jì)教程劉瑞新等編著 機(jī)械工業(yè)出版社3. sql server 2005基礎(chǔ)教程和試驗(yàn)指導(dǎo)清華大學(xué)出版社4. 數(shù)據(jù)庫原理與技術(shù)孫揚(yáng)波等主編武漢大學(xué)出版社
《醫(yī)院信息系統(tǒng)》實(shí)驗(yàn)報(bào)告
