《醫(yī)院信息系統(tǒng)》實驗報告

《《醫(yī)院信息系統(tǒng)》實驗報告》由會員分享，可在線閱讀，更多相關(guān)《《醫(yī)院信息系統(tǒng)》實驗報告（25頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、湖北中醫(yī)藥大學(xué) 醫(yī)學(xué)信息工程專業(yè) 實驗報告 課程名稱醫(yī)院信息系統(tǒng)課程設(shè)計 實驗題目 和協(xié)醫(yī)院門診掛號系統(tǒng) 實驗日期：2012年05月以日起2012年05月28日止 班 級：09級信工(2)班 姓 名：途彥 學(xué) 號：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è)計 -4- 3.1系統(tǒng)開發(fā)目標(biāo) -4- 3

2、.2系統(tǒng)功能設(shè)計 -4- 3.3系統(tǒng)數(shù)據(jù)流程 -4- 3. 4新系統(tǒng)數(shù)據(jù)模型（E-R圖） -4- 3. 5數(shù)據(jù)庫結(jié)構(gòu)設(shè)計（含數(shù)據(jù)字典） -6- 第4童系統(tǒng)詳堿計 -7- 4. 1系統(tǒng)功能模塊說明 -7- 4. 2界面設(shè)計 -8- 4.3代碼設(shè)計 -9- 第5章系統(tǒng)實施 -23- 結(jié)論 -23- 參考文獻 -24- 第一章概述 1.1背景 21世紀(jì)是一個信息化的時代，可以毫不夸張的說，離開了信息，一切將無從運轉(zhuǎn)。而 一向以治病救人為目的的醫(yī)院為了提高服務(wù)質(zhì)量，加強內(nèi)部管理，改善醫(yī)患關(guān)系，也紛紛將 人類智慧的結(jié)晶一一信息技術(shù)引進來。一時間，醫(yī)院信息化的浪潮席卷全球。我們國

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

4、高，出錯概率小，分工明確, 操作簡單易上手，適于大面積推廣。 第2章系統(tǒng)需求分析 2. 1現(xiàn)行系統(tǒng)調(diào)查 經(jīng)過實地調(diào)查與網(wǎng)上搜集資料綜合分析，大部分醫(yī)院所用的掛號系統(tǒng)操作不方便，而且 不適合與醫(yī)院信息系統(tǒng)集成，造成了各自為政的局面，阻礙了醫(yī)院信息化的發(fā)展，甚至有部 分醫(yī)院仍在使用手工的方式填寫掛號單，這種方式不利于病人信息的儲存，而且也因為修改 方便，一旦出現(xiàn)醫(yī)療糾紛，往往損害的是病人的利益，造成不公。 2. 2業(yè)務(wù)流程分析 掛號員和管理員先通過用戶名和密碼進入的操作界面，掛號員負責(zé)給病人輸入掛號信 息，由于很多內(nèi)容都是系統(tǒng)生成，掛號員所要輸入的僅是病人的姓名和性別，其它的可以通 過下

5、拉框進行選擇，例如選擇急診，那么掛號費用就會自動顯示所對應(yīng)的金額，選擇一個科 室，醫(yī)生這一欄就自動顯示對應(yīng)科室的醫(yī)生，掛號員只有對病人進行掛號的權(quán)限。管理員進 入對應(yīng)的頁面之后，可■以對掛號表進行查詢，查詢方式有多種，如：按掛號口期查詢，按掛 號編號?查詢，按掛號姓名查詢，顯示所有信息。管理員還有退號的權(quán)限，進入相應(yīng)的界面后, 輸入病人的掛號編號，就可以退號了。 2.3數(shù)據(jù)流程分析（略） 2. 4現(xiàn)行系統(tǒng)存在的主要問題和薄弱環(huán)節(jié) 1. 現(xiàn)行的系統(tǒng)存在著分工不明確，例如掛號員和管理員集于一身，對數(shù)據(jù)的權(quán)限控制 形成真空，不利于保護的用戶的信息。 2. 現(xiàn)行系統(tǒng)比較分立，各自獨立，不能集成

6、為一個大型的，功能強大的醫(yī)院信息系統(tǒng)。 第3章系統(tǒng)總體設(shè)計 3.1系統(tǒng)開發(fā)目標(biāo) 本系統(tǒng)是為了對現(xiàn)行的系統(tǒng)的功能進行改進，以期最大的程度方便掛號員掛號，有效的 縮短患者掛號的等待時間，以及對用戶的信息進行必要的保護。 3. 2系統(tǒng)功能設(shè)計 1. 對用戶的身份進行驗證 2. 添加（打印）掛號信息 3. 查詢并統(tǒng)計掛號信息 4. 刪除（退號）掛玷者的信息 3. 3系統(tǒng)數(shù)據(jù)流程 首先，用戶的信息是事先直接添加到數(shù)據(jù)庫中的，用戶（掛號員和管理員）憑各自的用戶 名和密碼選擇要進入的操作界面，若條件符合，則進入；否則給出錯誤提示。 掛號員進入掛號界面，其中醫(yī)生和科室的信息是直接從數(shù)據(jù)庫

7、中查詢后顯示的，選擇不 同的科室，顯示醫(yī)生就會不同，掛號的編號和掛號日期是系統(tǒng)自動生成的，不允許用戶修改, 用戶只要輸入掛號者的姓名和年齡，選擇性別，就可以將掛號信息添加到數(shù)據(jù)庫中，至于打 印掛號單，目前沒有實現(xiàn)，只是用了一個按鈕表示。 管理員進入管理界面可以對掛號的信息進行查詢，查詢方式有按口期，按編號，按姓名, 查詢的信息來自掛號表，還可以根據(jù)編號刪除相應(yīng)的掛號信息，己完成用戶的掛號退號要求。 3.4新系統(tǒng)數(shù)據(jù)模型（E-R圖） 3.5數(shù)據(jù)庫結(jié)構(gòu)設(shè)計（含數(shù)據(jù)字典） 表名：yonghu 字段名 數(shù)據(jù)類型 含義說明 空值情況 userid

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

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

10、 主關(guān)鍵字 docName vaichar(20) 醫(yī)生姓名 不為空 docKs tinvint J 醫(yī)生科室 不為空 第4章系統(tǒng)詳細設(shè)計 4. 1系統(tǒng)功能模塊說明 1. 對用戶的身份進行驗證：己確認(rèn)用戶信息是否正確，并根據(jù)用戶的權(quán)限級別，讓用 戶進入相應(yīng)的界面。 2, 添加（打?。焯栃畔ⅲ焊鶕?jù)輸入的信息，添加到相應(yīng)的掛號表中去 3, 查詢并統(tǒng)計掛號信息：選擇一種查詢方式，根據(jù)輸入的內(nèi)容，查詢并統(tǒng)計相應(yīng)的信 息，例如選擇按口期查詢，輸入想查詢的口期，就可以查到當(dāng)天掛號的人數(shù)和詳細信息。 4. 刪除（退號）掛號者的信息：根據(jù)輸入的掛號編號，可以從掛號表中刪除該

11、掛號者的信 息，事先對是否存在該用戶做了判斷。 4. 2界面設(shè)計 登陸界面 掛號界面 匚叵岡 |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 件時沱貿(mào)溫 張李華孫吳 避超 tem 戲 華華華華華 v?^-■ .lx 201205.20 201205.20 201205.20 201205.20 201205.20 共查詢到6條記錄 :二二明二二 M 梅國強 舞:華杰 201205.20 I查詢所有 .com/Dull： 管理界面

13、 退號處理界面 4.3代碼設(shè)計 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（對不起，您無權(quán)使用該程序！，）； Application. Tenninate; end else begin showMessage（對不起，您輸入的用戶名或密碼有誤

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(，請輸入掛號者的年齡冗 end else showmessage(/請輸入掛號者的姓名'); 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 一號 rrLXQPUIU&ISXOffloqmoo UIBOq 一號 -TXPUIU&ISXOffloqmoo UIBOq 一號 PUIW2I5xoffloqmoo UIBOq 35(忠一B.LXU 殳offloqmoom

32、 一號 二 LX9PUIUI2I5xoffloqmoo UIBOq (態(tài)一 J 撼皈.Lxg .殳。ffloqmoom 一號 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:-*掛號編號 //dbgnd 1 .Columns] 1 [Title:盤掛號姓名。; //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 :點蜥 ^.-^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國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。甲〈啤辜含費?■-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)要刪除編號'十 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(，你所輸入的編號不存在，請再次確認(rèn)編號!)； end else begin close; sql.Clear; sql.Addfdelete from registered where ghNo-:ghNo'); ADOQuer>4 Paiaineters[O] .Value:-editl Text; ExecSQL; showmessageC恭喜你，編號「十editl.Text + '已成功刪除'); end: end; end; end; end. 第5章系統(tǒng)實施

49、 本系統(tǒng)對硬件的要求比較低，可在各種平臺上流暢運行。數(shù)據(jù)庫用的是sql server 2005, 可以放在一臺普通的PC上，其他的PC與之聯(lián)網(wǎng)即可，無要繁復(fù)的安裝，操作簡單易上手, 經(jīng)過短時間的培訓(xùn)，即可熟練操作。 結(jié)論 學(xué)Delplu課程是在兩年前的事了，距今時間長，中間又沒有經(jīng)常的去復(fù)習(xí)，所以很多 的內(nèi)容都忘記了，而java我們學(xué)的又不是很深入，做這樣的系統(tǒng)可謂是困難重重。考慮再 三，最終選擇了 delplu,畢竟我們是學(xué)過的，回去看看書就能記起來了，而且delphi做界面 比較容易上手。 本次試驗的項目我選的是門診掛號系統(tǒng)，算是個小型項目，我本人也沒有管理項目的經(jīng) 驗，再加上我們組

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

51、模塊，對其中一些不合理的邏輯 加以修正，對一些輸入進行了驗證，防止添加無效的，不合法的信息到數(shù)據(jù)庫中去。 通過本次試驗，我對門診掛號的業(yè)務(wù)流程有了更好的認(rèn)識，對程序中數(shù)據(jù)的流程有了更 清晰的思路，最后的體會是：編程雖然很累，很費腦子，但是能鍛煉一個人的思維，培養(yǎng)一 個人冷靜的思考方式，看著自己把想法變?yōu)楝F(xiàn)實，從中也能體會到不小的成就感。 最后感謝沈邵武老師和肖勇老師對我的指導(dǎo)，以及我們組員對我的大力支持和項目期間 提供的幫助。 參考文獻 1. 醫(yī)院信息系統(tǒng) 王明時主編 科學(xué)出版社 2. Delplu程序設(shè)計教程劉瑞新等編著 機械工業(yè)出版社 3. sql server 2005基礎(chǔ)教程和試驗指導(dǎo)清華大學(xué)出版社 4. 數(shù)據(jù)庫原理與技術(shù)孫揚波等主編 武漢大學(xué)出版社