《醫(yī)院信息系統(tǒng)》實(shí)驗(yàn)報(bào)告

《《醫(yī)院信息系統(tǒng)》實(shí)驗(yàn)報(bào)告》由會(huì)員分享，可在線閱讀，更多相關(guān)《《醫(yī)院信息系統(tǒng)》實(shí)驗(yàn)報(bào)告（25頁(yè)珍藏版）》請(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)教師：沈邵武肖勇 目錄 第一章概述 3 L1背景 -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、.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ù)庫(kù)結(jié)構(gòu)設(shè)計(jì)（含數(shù)據(jù)字典） -6- 第4童系統(tǒng)詳堿計(jì) -7- 4. 1系統(tǒng)功能模塊說(shuō)明 -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í)代，可以毫不夸張的說(shuō)，離開了信息，一切將無(wú)從運(yùn)轉(zhuǎn)。而 一向以治病救人為目的的醫(yī)院為了提高服務(wù)質(zhì)量，加強(qiáng)內(nèi)部管理，改善醫(yī)患關(guān)系，也紛紛將 人類智慧的結(jié)晶一一信息技術(shù)引進(jìn)來(lái)。一時(shí)間，醫(yī)院信息化的浪潮席卷全球。我們國(guó)

3、家雖然 起步較晚，但是后勁足。時(shí)值十二五規(guī)劃期間，黨和國(guó)家紛紛出臺(tái)各種政策和投入大量人力 物力，以利于醫(yī)院信息化的建設(shè)。 1.2系統(tǒng)開發(fā)目的與意義 醫(yī)院信息系統(tǒng)并非是以機(jī)械的代替?zhèn)鹘y(tǒng)的手工操作，其意義一方面在于利用現(xiàn)代信息 技術(shù)的高度時(shí)空伸縮性，將有限的醫(yī)療資源充分利用起來(lái)，緩解當(dāng)前形勢(shì)下，我們國(guó)家百姓 抱怨看病難，看病貴的問題；另一方面在于利用現(xiàn)代信息系統(tǒng)強(qiáng)大的功能，對(duì)醫(yī)院進(jìn)行管理, 將醫(yī)務(wù)人員從以前繁重的工作中解放出來(lái)，并旦可以輔助醫(yī)務(wù)人員進(jìn)行口常診斷。 門診掛號(hào)系統(tǒng)作為醫(yī)院信息系統(tǒng)的一個(gè)子系統(tǒng)，是整個(gè)醫(yī)療活動(dòng)的開始階段，其重要 性不言而喻，與傳統(tǒng)的手工錄入信息相比，本系統(tǒng)智能化程度

4、高，出錯(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ī)院信息系統(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)員所要輸入的僅是病人的姓名和性別，其它的可以通 過下

5、拉框進(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)的頁(yè)面之后，可■以對(duì)掛號(hào)表進(jìn)行查詢，查詢方式有多種，如：按掛號(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ú)立，不能集成

6、為一個(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. 對(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ù)庫(kù)中的，用戶（掛號(hào)員和管理員）憑各自的用戶 名和密碼選擇要進(jìn)入的操作界面，若條件符合，則進(jìn)入；否則給出錯(cuò)誤提示。 掛號(hào)員進(jìn)入掛號(hào)界面，其中醫(yī)生和科室的信息是直接從數(shù)據(jù)庫(kù)

7、中查詢后顯示的，選擇不 同的科室，顯示醫(yī)生就會(huì)不同，掛號(hào)的編號(hào)和掛號(hào)日期是系統(tǒng)自動(dòng)生成的，不允許用戶修改, 用戶只要輸入掛號(hào)者的姓名和年齡，選擇性別，就可以將掛號(hào)信息添加到數(shù)據(jù)庫(kù)中，至于打 印掛號(hào)單，目前沒有實(shí)現(xiàn)，只是用了一個(gè)按鈕表示。 管理員進(jìn)入管理界面可以對(duì)掛號(hào)的信息進(jìn)行查詢，查詢方式有按口期，按編號(hào)，按姓名, 查詢的信息來(lái)自掛號(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ù)庫(kù)結(jié)構(gòu)設(shè)計(jì)（含數(shù)據(jù)字典） 表名：yonghu 字段名 數(shù)據(jù)類型 含義說(shuō)明 空值情況 userid

8、tinvint J 用戶編號(hào) 主關(guān)鍵字 userName varchar(20) 用戶姓名 不為空 passwd varchar(20) 用戶密碼 不為空 grade tinvint J 用戶權(quán)限級(jí)別 不為空 表名:registered 字段名 數(shù)據(jù)類型 含義說(shuō)明 空值情況 gliNo vaichai(10) 掛號(hào)編號(hào) 主關(guān)鍵字 gliXin vaichai(10) 掛號(hào)姓名 不為空 xb chai (2) 性別 不為空 ill chai (2) 年齡 不為空 glLb vaichai(10) 掛號(hào)類別 不為

9、空 gliKs varchar(20) 掛號(hào)科室 不為空 zzYs varchar(20) 專家醫(yī)師 不為空 ghFy vaicliai(5) 掛號(hào)費(fèi)用 不為空 ghy vaichai(10) 掛號(hào)員 不為空 ghRq vaichai(10) 掛號(hào)日期 不為空 表名：ks 字段名 數(shù)據(jù)類型 含義說(shuō)明 空值情況 ksNo tinvint 科室編號(hào) 主關(guān)鍵字 ksName vaichar(20) 科室名稱 不為空 表名:doctor 字段名 數(shù)據(jù)類型 含義說(shuō)明 空值情況 docld smallmt 醫(yī)生編號(hào)

10、 主關(guān)鍵字 docName vaichar(20) 醫(yī)生姓名 不為空 docKs tinvint J 醫(yī)生科室 不為空 第4章系統(tǒng)詳細(xì)設(shè)計(jì) 4. 1系統(tǒng)功能模塊說(shuō)明 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)表中刪除該

11、掛號(hào)者的信 息，事先對(duì)是否存在該用戶做了判斷。 4. 2界面設(shè)計(jì) 登陸界面 掛號(hào)界面 匚叵岡 |ghFy |ghy |ghiq - 管理界面 gliNu IgFMn xblnl] ghLb |ghKs kzYs 2012052000 2012052001 2012052002 2012052003 2012052004 2012052005

12、?□-3 bb CO dd cc ff * 23 另23警通門診 女23專家門診 女23專病門診 女23有診 男23傳兔病（形 專病門診 內(nèi)科 目科 外村 toil Project 1 區(qū)j 景玲 I 件時(shí)沱貿(mào)溫 張李華孫吳 避超 tem 戲 華華華華華 v?^-■ .lx 201205.20 201205.20 201205.20 201205.20 201205.20 共查詢到6條記錄 :二二明二二 M 梅國(guó)強(qiáng) 舞:華杰 201205.20 I查詢所有 .com/Dull： 管理界面

13、 退號(hào)處理界面 4.3代碼設(shè)計(jì) Umtl代碼如H： unit Umtl; inreiface uses Windows, Messages. SysUtils, Valiants, Classes. Giaplucs, Contiols. Forms. Dialogs. StdCtils, Mask, DB. ADODB. DBTables. jpeg. ExtCtrls: type TFonnl - class(TFoim) Editl: TEdit; Edit2: TEdit; RadioButt on 1: TRa

14、dioButton; 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 declaiati

15、ons ) public (Public declarations ) end: var Fonnl: TFonnl; implementation uses Umt2. Unit3; {SR ?.dfin} procedure TForml Buttoii2Click(Sendei: TObject); begin close; end; procedure TForml.ButtonlClick(Sender: TObject); var g:integer; begin g：-o； if RadioButtonl .Checked then g:-2;

16、 if RadioButtoii2.Checked theng:-l; with ADOQuer\4 do begm close: sql.Cleai: sql.Add（*select * from yonghu where username-:name and passwd-:pass and grade-^ade'）; ADOQuend.Pai ameters[O].Value:-editl.Text; ADOQuend.Pai ameters[l].Value:-edit2.Text; ADOQueryrl.Paiaineters[2].Value:-g; execs

17、ql; open; if recordcount>0 then begm if RadioButtonl Checked then fbrni2.Show; if RadioButton2.Checked then fdnn3.show; end else begm edit 1 Tag:-edit 1 Tag-rl; if editl.Tag>3 then begin showMessage（對(duì)不起，您無(wú)權(quán)使用該程序！，）； Application. Tenninate; end else begin showMessage（對(duì)不起，您輸入的用戶名或密碼有誤

18、，造重新輸入！，）; editl.Text:-M; edit2.Text:-M; end; end: end; end; end. Umt2代碼如下： unit Unit2; interface uses Windows, Messages. SysUtils, Valiants, Classes. Graphics, Controls, Forms, Dialogs. StdCtds, DB. DBCtils. DBTables, ADODB. jpeg, ExtCtrls; type TFonn2 - class(TForm) Button 1: TButt

19、on: 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; Ed

20、it4: 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: TObjec

21、t); 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

22、); 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); pri

23、vate (Private decimations ) public (Public declarations ) end: var Fonn2: TFonn2; ghNo :string: implementation uses Umtl; {SR *.dfiii} procedure TForm2.FonnShow(Sender: TObject); begin with ADOQuer\4 do begm close; sql.Clear; sql.AddCselect top 1 ghNo from registered order by ghNo desc

24、'); execsql; open; ghNo :■ Fields[O].AsSumg; edit 1.Text:- IntToStr(StrToInt(ghNo)+ 1); close; sql.Clear; sql.AddCselect ksName from ks'); execsql; open: while not eof do begin comboboxS.Items.AddtfieldbynanieC^sName^.asstimg); next; end; ComboBox3 Itenilndex:-O; close; sql.Clear; c

25、ombobox4.Items.Clear; sql.Addfselect docName from doctor where docKs-:docKs'); ADOQue^l ,Paiaineters[O] .Value:-1; execsql: open; while not eof do begm combobox4.Items.Add(fieldbyname(,docName,).assumg); next; end; ComboBox4.IteniIndex:-0; end; if

26、oBox6. Itemindex:-0: if

27、; procedure TFoim2.Buttoii2Click(Sendei: TObject); begin edit2.Text:-K; edit3.Text:-K; ComboBoxl Itemlndex:-O; end; procedure TFoim2.Button 1 Click(Sender: TObject); begin if(edit2.Text o ”)then begin if

28、t mto registered values (”'十 edit 1 .text+””-edit2.text十””十ComboBoxLItems[comboboxl.ItemIndex]十””十 edit3 .Text+”',”'KomboBox2.It ems[combobox2.IteniIndex]+MVM+ComboBox3.Itenis[combobox3.IteniIndex]-t-n7H+ComboBox4.Iteins[combobox 4.IteniIndex]+,,,,K,+ComboBox5.Items[combobox5.ItemIndex]+,M/,,+Com

29、boBox6.Items[combobox6.ItemIndex]+H, ,*edit4.Text 十”')')； execsql; showMessageC恭喜，添加成功！ '); end; edit2.Text:-M; edit3.Texl; ComboBoxl Itemlndex:-O; with ADOQuer>4 do begm close; sql.Clear; sql.Addfselect top 1 ghNo from registered order by ghNo desc'); execsql: open; ghNo :- Fields[O]

30、.AsStrmg; editl.Text:- IntToSti(StrToInt(ghNo)+l); end; end else showmessage(，請(qǐng)輸入掛號(hào)者的年齡冗 end else showmessage(/請(qǐng)輸入掛號(hào)者的姓名'); end; procedure TFoim2.Buttoii5Click(Sendei : TObject); begin fbim2.Close; xmqoA爵 m/u￡「qoH板 pu9s)SSEdA 爵寸 Xo8oquloo?.lo 》mp80】d -OU9 OTU 3胃 x2o>.爵 m/u￡「qoH板 pu9s

31、)SSEdA 爵 ExogoquIOoTuno 》mp80】d -OU9 OTU 【?a)9q x2o>.爵 m/u￡「qoH板 pu9s)SSEdA 爵"xogoqurooTuno 》mp80】d -OU9 OV& x2o>.爵 m/u￡「qoH板 pu9s)SSEdA 爵 TxogoquIOoTunoJX》mp80】d -OU9 一號(hào) rrLXQPUIU&ISXOffloqmoo UIBOq 一號(hào) -TXPUIU&ISXOffloqmoo UIBOq 一號(hào) PUIW2I5xoffloqmoo UIBOq 35(忠一B.LXU 殳offloqmoom

32、 一號(hào) 二 LX9PUIUI2I5xoffloqmoo UIBOq (態(tài)一 J 撼皈.Lxg .殳。ffloqmoom 一號(hào) oLX9PUIUI2I5xoffloqmoo UIBOq (態(tài)一 J?渤.Lxgaoffloqmoom xQwqoHuQPUQSvBacqo殳 ogoqurooTuno jx》mp80】d -OU9 >,oqs 】unqj key:-#O; end; procedure TFoim2.ComboBox5KeyPiess(Sendei: TObject;

33、var Key: Char): begin key:-#。； end; procedure TFoim2.ComboBox6KeyPiess(Sendei: TObject; var Key: Char); begin key:-#。； end; procedure TFoim2.ComboBox3Change(Sender: TObject); begin with ADOQueiy 1 do begm close; sql.Clear; combobox4.Items.Clear; sql.AddCselect docName from doctor wher

34、e docKs-:docKs'); ADOQuer>4 Paraineters[O].Value:-combobox3.IteniIiidex-rl; execsql; open; while not eof do begin combobox4.Items.Add(fieldbyname(,docName,).assumg); next; end; end; ComboBox4.IteniIndex:-0; end; end. Umt3代碼如下： unit Umt3; interface uses Windows, Messages. SysUtils, V

35、ariants, Classes. Graphics, Contiols, Forms, Dialogs. StdCtds, Gilds. DBGnds, DB, DBTables, jpeg, ExtCtds, ADODB; type TFonn3 - chss(TForm) DBGndl: TDBGiid; Image 1: TImage; Label 1: TLabel; Button 1: TButton; Button2: TButton; Button3: TButton; Editl:TEdit; ComboBoxl: TComboBox; Label2:

36、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: TObjec

37、t); procedure Button 1 Click(Sendei: TObject); procedure Button4Click(Sendei: TObject); procedure Button5Click(Sendei: TObject); private (Private declarations ) public (Public declarations } end; var Fonn3: TFonn3; implementation uses Umtl. Unit4; {SR *.dfm} procedure TFoim3,FonnShow(Send

38、er: TObject); begin //dbgnd 1 .Colunms[0].Title.Caption:-*掛號(hào)編號(hào) //dbgnd 1 .Columns] 1 [Title:盤掛號(hào)姓名。; //with ADOQuetyl do -61 - 柚碓?角布?網(wǎng)叮河dsia ["sp片日/ X而貿(mào)段王?一1叫叮,河dsia [9]sp片日/ :萍蝕官卉一四叮河dsia [s]spi。!％ 樸*茉岳存一四叮河dsia [Hspi。!％ :御由?一1叫叮,河dsg [￡]spi。!％ ??[iff 我 LioqW耶垣aldspi。!部/ 格琳布?網(wǎng)叮河dsg [t]spqu， ，含

39、物含孤一pqc]河 dsTQ〈。戲 XiucNAaP2U， Jbsgx。 ：）01 口卬°-：9叫4\ [o]sj0】mnn€d [AignboOV X4b.n[3:-biq3 osqz pwqjstSqj utoij * 】g[9S,）ppv [bs :"9Q[bs Rsop inS^q op "ndOQV 叩tm mS^q g甲 頜■幽日 ^.-J^i TXoqoqiuoo）；! uiS^q ：（】g「qOJL ：?puQS）ifon9Tuonnq fuuojx xnpsoid :pg :A\Ol{S TUT.TOJ ：OSOJ3 ￡UT.TOJ uiS^q ：（jOQ（q

40、01 mpgS）W!QWO））ns ￡unojx oinpsoid :pg ^jcurun^x uoTjuoTjddy uiS^q ：（jOQ（q01 mpgS）W!Q買。））ns funojx oinpsoid :pg :PW :?血口各孤一網(wǎng)叮何dma [6]SP2U7 :褚.角 ^.-jsqcqXqdsia [s]sppij// :?山林有我l 1沖7何ds!a [/Jsp同助 :,而貿(mào)琲王L：PqcH何dma [9]SP2U7 滓姓昌我l 1沖7何ds!a [§]sp同助 :席采昌孤一網(wǎng)叮何dsTa[tdsp2U7 :?螺■L：pqc￥cids!a [￡]sp同助 :?咯

41、料L：PqcH何dma ⑵SP2U7 M瞬 孤一網(wǎng)叮何dma [T]SP2U，7 :點(diǎn)蜥 ^.-^pqciXqdsia [o]sppij// inS^q// ?oc? X,番由為,+(Junoopjoo9i)jjsoi)ui + Ji 舌限厚許)。矛sswunoqs mdo "bsgx。 ：〈P9I9】S詣。i iuo.g * 】g[9s)ppv [bs moQlbs ：9SOQ inS^q op [心沖0。￥叩tm uiS^q ：(jg何01 ：np國(guó)S)甲TQ?uonna funojx “npsoid :pg :pu。 :pg X,番由為,+ (Junoopjoo9

42、i)jJS01)ui + Ji 舌限厚許)。矛sswunoqs mdo "bsgx。 :沖 IJTpiQig [o]simunnud "nboav ：(,oxi{3:-O5[q3 osqz p^jqjstSw iuo.g * 】g[9S)ppv [bs moQlbs ：9S0Q inS^q op [心沖0。￥叩tm mS^q u。甲〈啤辜含費(fèi)?■-Jxojnxogoquio加 :pu。 :pg X,番由為,+ (JunoopiooM)iJS01)ui + Ji 舌限厚許)。矛sswunoqs mdo "bsgx。 :沖 IJTpiQig [o]simunnud "nbo

43、av %,uiX^lS:-iuxn2 0】9qz p^jqjstSw iuo.g * 】g[9S)ppv [bs moQlbs ：9S0Q inS^q op [心沖0。￥叩tm mS^q u。甲(O 才 .-JXQi- TXogoquiooljT :pu。 :pg X,番由為,+ (Junoopjoo9i)jJS01)ui + Ji 舌限厚許)。矛sswunoqs mdo W □ ?含我 i 沖1 何 dsya [6]spi咆/ :酒 4我網(wǎng)叮Edsra [8]sp。!丑/ end; end; procedure TFoim3.Button5Click(Sendei

44、: TObject); begin fbim4.show; fbim3.Close; end; end. Unit4代碼如下： unit Umt4; interface uses Windows, Messages. SysUtils, Valiants, Classes. Graphics, Contiols, Forms, Dialogs. StdCtils, jpeg, ExtCtrE. DB, ADODB; type TFonn4 - class(TForm) Editl: TEdit; Buttonl: TButton: Button2: TButton

45、: 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

46、(Public declarations ) end: var Fonn4: TFonn4; implementation uses Umt3; {SR *.dfiii} procedure TFoim4.Button2Click(Sendei: TObject); begin fbnn4.Close; fbnxB.show; end; procedure TFoim4.Button3Click(Sendei: TObject); begin Application. Tenninate; end; procedure TF01 m4.Bu(ton 1 Click

47、(Sender: TObject); var i: integer; begin i:-MessageDlg('確認(rèn)要?jiǎng)h除編號(hào)'十 editl.Text +,|l^\mtConfirmation.[mbYes,mbNo],0); iRi?6) then begin with ADOQiieryrl do begin close: sql.Cleai: sql.Add(*select * from xegistered where ghNo-:gliNo'); ADOQuend.Pai aineters[O].Value:-editl.Text; execsql; o

48、pen; if recordcount-0 then begin showmessage(，你所輸入的編號(hào)不存在，請(qǐng)?jiān)俅未_認(rèn)編號(hào)!)； end else begin close; sql.Clear; sql.Addfdelete from registered where ghNo-:ghNo'); ADOQuer>4 Paiaineters[O] .Value:-editl Text; ExecSQL; showmessageC恭喜你，編號(hào)「十editl.Text + '已成功刪除'); end: end; end; end; end. 第5章系統(tǒng)實(shí)施

49、 本系統(tǒng)對(duì)硬件的要求比較低，可在各種平臺(tái)上流暢運(yùn)行。數(shù)據(jù)庫(kù)用的是sql server 2005, 可以放在一臺(tái)普通的PC上，其他的PC與之聯(lián)網(wǎng)即可，無(wú)要繁復(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é)過的，回去看看書就能記起來(lái)了，而且delphi做界面 比較容易上手。 本次試驗(yàn)的項(xiàng)目我選的是門診掛號(hào)系統(tǒng)，算是個(gè)小型項(xiàng)目，我本人也沒有管理項(xiàng)目的經(jīng) 驗(yàn)，再加上我們組

50、的另外一個(gè)項(xiàng)目比較大，需要人手，所以憑借一股不服輸?shù)臎Q心，我一人 承擔(dān)起這個(gè)項(xiàng)目的所有任務(wù)，包括從問題定義，到系統(tǒng)實(shí)施。還和另外一個(gè)組叫板，看看誰(shuí) 先完成。 項(xiàng)目初始階段就遇到了大的難題，那就是和數(shù)據(jù)庫(kù)關(guān)聯(lián)起來(lái)，由于在以前上delphi課程 的時(shí)候沒怎么認(rèn)真聽，現(xiàn)在遇到麻煩了。于是上網(wǎng)查資料，看書，問同學(xué)，用了一下午的時(shí) 間把一個(gè)登錄的功能實(shí)現(xiàn)了，取得了階段性的勝利。完成了這個(gè)查詢的功能，那么其他要對(duì) 數(shù)據(jù)庫(kù)操作的基本上都是大同小異了。第二天，我花費(fèi)了一天的時(shí)間，將其他的從界面到功 能大體都實(shí)現(xiàn)，看著自己的成果，雖然很累，可是也很欣慰。 接下來(lái)我把版本升級(jí)到2.0 了，加入了掛號(hào)退號(hào)處理的

51、模塊，對(duì)其中一些不合理的邏輯 加以修正，對(duì)一些輸入進(jìn)行了驗(yàn)證，防止添加無(wú)效的，不合法的信息到數(shù)據(jù)庫(kù)中去。 通過本次試驗(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ù)庫(kù)原理與技術(shù)孫揚(yáng)波等主編 武漢大學(xué)出版社