【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 在這個(gè)模塊中，還可以對(duì)掛號(hào)信息進(jìn)行查詢，查詢結(jié)果在一個(gè) DBGrid 中打印出來(lái)。由于我設(shè)計(jì)的是可選多條件查詢，在編寫(xiě)查詢程序的時(shí)候遇到了很多困難。主要的困難是動(dòng)態(tài)編寫(xiě) SQL 語(yǔ)言。代碼如下： procedure (Sender: TObject)。 var Sql : string。 begin Sql := 39。select * from 掛 號(hào) 信 息 表 where 39。++39。=39。+39。39。39。39。++39。39。39。39。 With DM do begin 。 。 (Sql)。 。 if = 0 then Messagebox(0,39。沒(méi)有你所查詢的項(xiàng)目 39。,39。提示 39。,Mb_Ok)。 。 end。 end。 這個(gè)過(guò)程有一個(gè)缺點(diǎn)，就是 Sql 變量的賦值。 Sql 應(yīng)該設(shè)定成一個(gè) Const（常量），這樣可以提高系統(tǒng)程序的編譯速度。 在讀取數(shù)據(jù)庫(kù)中數(shù)據(jù)表的時(shí)候，我沒(méi)有用到傳統(tǒng)的 ADOTable 組件，而選擇使用ADOQuery，因?yàn)槲以?jīng)看過(guò)一本書(shū)上寫(xiě)過(guò)：“ ADOTable 再讀取數(shù)據(jù)庫(kù)中數(shù)據(jù)表時(shí)，是整個(gè)表的記錄同時(shí)讀取的，如果是一個(gè)大的管理系統(tǒng)的話，這樣會(huì)造成網(wǎng)絡(luò)的堵塞。而 ADOQuery就沒(méi)有這樣的問(wèn)題，因?yàn)?ADOQuery 再讀取數(shù)據(jù)庫(kù)中數(shù)據(jù)表的時(shí)候是一條一條數(shù)據(jù)的讀取的，不會(huì)造成網(wǎng)絡(luò)堵塞?！边@個(gè)窗口 的截圖如附錄 C 圖 3 所示。 門(mén)診病例管理窗口的設(shè)計(jì)和開(kāi)發(fā) 在考慮門(mén)診病例管理的時(shí)候，我遇到了很多的問(wèn)題。門(mén)診病例的管理是很困難的，因?yàn)殚T(mén)診病例的記錄不是一條一條的，應(yīng)該是一批一批的。因?yàn)橐粋€(gè)人到門(mén)診部看病，有可能是多次，如果記錄是一條一條的，這個(gè)人就會(huì)有很多條的記錄，那么病例號(hào)就不可能設(shè)為主鍵。解決這個(gè)問(wèn)題的方法只能是動(dòng)態(tài)建立數(shù)據(jù)表：如果一個(gè)沒(méi)有去門(mén)診看過(guò)病的病人，要先在數(shù)據(jù)庫(kù)中新建一個(gè)病人的病例表，以后就可以對(duì)這個(gè)數(shù)據(jù)表進(jìn)行修改。不過(guò)動(dòng)態(tài)新建數(shù)據(jù)表我沒(méi)有接觸過(guò)，所以實(shí)現(xiàn)起來(lái)有很大的困難。所 以這個(gè)窗口有著很大的缺陷，有待以后的進(jìn)一步完善。這個(gè)窗口的截圖如附錄 C 圖 4 所示。 住院登記窗口的設(shè)計(jì)和開(kāi)發(fā) 在這個(gè)窗口中，我用到了一個(gè) PageControl 組件。這個(gè) PageControl 一共有兩個(gè)頁(yè)面，一個(gè)是住院登記的輸入窗口，另外一個(gè)是住院出管理頁(yè)面。在住院登記的輸入窗口中，可以對(duì)住院病人的信息進(jìn)行輸入，并且可以通過(guò)查詢病床的科室、病房類型（一般、高級(jí)或加護(hù)）和是否為空床來(lái)選擇病床。實(shí)現(xiàn)病床的選擇和掛號(hào)窗口的掛號(hào)醫(yī)師的選擇的原理是一樣的，是通過(guò) DataSource 的 OnDataChange 事件來(lái)實(shí)現(xiàn)的。這個(gè)窗口中查詢按鈕的 OnClick 事件要比之前窗口的查詢按鈕復(fù)雜得多，因?yàn)檫@次查詢涉及到了 3 個(gè)查詢條件，代碼如下所示： procedure (Sender: TObject)。 var Sql : string。 begin Sql := 39。select * from 病床信息表 where 是否為空床 =39。+39。39。39。39。+39。是 39。+39。39。39。39。 Sql := Sql+39。 and 病房類型 =39。+39。39。39。39。++39。39。39。39。 Sql := Sql+39。 and 科別 =39。+39。39。39。39。++39。39。39。39。 With DM do begin 。 。 (Sql)。 。 if = 0 then Messagebox(0,39。沒(méi)有你所查詢的項(xiàng)目 39。,39。提示 39。,Mb_Ok)。 end。 end。 在住院處管理頁(yè)面中，可以對(duì)病人的醫(yī)療項(xiàng)目明細(xì)表信息進(jìn)行錄入和查詢。住院病人醫(yī)療項(xiàng)目明細(xì)表信息可以反映病人在住院期間所接受治療的詳細(xì)資料，可以對(duì)需要查看的醫(yī)療項(xiàng)目信息進(jìn)行查詢。這兩個(gè)窗口的截圖如附錄 C 圖 6。 手術(shù)室管理 這個(gè)窗體一共有兩個(gè)頁(yè)面：手術(shù)室信息管理和手術(shù)室使用計(jì)劃。在這個(gè)窗口中我用到了一個(gè) NoteBook 組件，這個(gè)組件可以在一個(gè)窗口上顯示兩個(gè)頁(yè)面。我在窗體頂部放一個(gè) Panel組件，然后在 Panel 組件上放兩個(gè) Bitbtn 組件 ，用來(lái)選擇頁(yè)面。分別在兩個(gè) Bitbtn 組件的Onclick 事件中寫(xiě)入以下代碼： procedure (Sender: TObject)。 begin := 0。 end。 procedure (Sender: TObject)。 begin := 1。 end。 這樣就可以實(shí)現(xiàn)在兩個(gè)頁(yè)面之間的切換了。 查詢程序的設(shè)計(jì)、代碼與之前的 代碼大同小異。 醫(yī)院?jiǎn)T工管理窗口的設(shè)計(jì)和開(kāi)發(fā) 這個(gè)窗口是對(duì)醫(yī)院所有員工的信息和工資情況進(jìn)行管理。在設(shè)計(jì)數(shù)據(jù)庫(kù)的時(shí)候，為了更好的對(duì)醫(yī)院所有員工進(jìn)行管理，我把他們分成五類：門(mén)診醫(yī)師、住院醫(yī)師、醫(yī)護(hù)人員、管理人員和清潔人員。這里就會(huì)有一個(gè)問(wèn)題了，因?yàn)楣芾砣藛T也可以是門(mén)診醫(yī)師或住院醫(yī)師。所以我在他們的工資管理表中設(shè)置了三個(gè)工資的字段：基本工資、級(jí)別工資和工齡工資。這樣就能更好的對(duì)他們相關(guān)的信息進(jìn)行管理了。在這個(gè)窗口中我也用一個(gè) NoteBook 組件把醫(yī)院?jiǎn)T工信息管理和工資管理分到兩個(gè)頁(yè)面中去。每個(gè)頁(yè) 面用一個(gè) PageControl 進(jìn)一步把五類人員劃分出來(lái)。在 PageControl 的每個(gè)頁(yè)面中分別放一個(gè) DBGrid 組件以便反饋數(shù)據(jù)庫(kù)中數(shù)據(jù)表的信息。每個(gè) NoteBook 頁(yè)面中只放五個(gè)數(shù)據(jù)庫(kù)控制按鈕，分別是：添加、刪除、確定、取消和刷新。這意味這所有的 PageControl 頁(yè)面需要共用這五個(gè)數(shù)據(jù)庫(kù)控制按鈕。我用多個(gè)Case 語(yǔ)句來(lái)解決這個(gè)問(wèn)題，代碼如下： procedure (Sender: TObject)。 begin With DM do Case of 0 : 。 1 : 。 2 : 。 3 : 。 4 : 。 end。 end。 procedure (Sender: TObject)。 begin With DM do if Messagedlg(39。 是 否 真 的 要 刪 除 此 記 錄 ?39。,mtConfirmation,[mbOK, mbCancel],0)=mrOk then Case of 0 : 。 1 : 。 2 : 。 3 : 。 4 : 。 end。 end。 procedure (Sender: TObject)。 begin With DM do Case of 0 : 。 1 : 。 2 : 。 3 : 。 4 : 。 end。 end。 procedure (Sender: TObject)。 begin With DM do Case of 0 : 。 1 : 。 2 : 。 3 : 。 4 : 。 end。 end。 在設(shè)計(jì)查詢程序的時(shí)候也出現(xiàn)了問(wèn)題，查詢的時(shí)候是查詢哪一個(gè)表的內(nèi)容呢。我利用 的屬性和 Case 語(yǔ)句連用，哪一個(gè)頁(yè)面處于激活狀態(tài)，查詢語(yǔ)句就查詢哪一個(gè)表里的內(nèi)容。具體代碼如下： procedure (Sender: TObject)。 var Sql : String。 begin Case of 0 : Sql := 39。select * from 門(mén)診醫(yī)師信息表 where 39。++39。=39。+39。39。39。39。++39。39。39。39。 1 : Sql := 39。select * from 住院醫(yī)師信息表 where 39。++39。=39。+39。39。39。39。++39。39。39。39。 2 : Sql := 39。select * from 護(hù)理人員信息表 where 39。++39。=39。+39。39。39。39。++39。39。39。39。 3 : Sql := 39。select * from 管理人員信息表 where 39。++39。=39。+39。39。39。39。++39。39。39。39。 4 : Sql := 39。select * from 清潔人員信息表 where 39。++39。=39。+39。39。39。39。++39。39。39。39。 end。 With DM do begin 。 。 (Sql)。 。 //showmessage()。 if = 0 then Messagebox(0,39。沒(méi)有你所查詢的項(xiàng)目 39。,39。提示 39。,Mb_Ok)。 。 end。 end。 小結(jié) 開(kāi)發(fā)這個(gè)醫(yī)院信息管理系統(tǒng)，我不是一開(kāi)始就知道整個(gè)系統(tǒng)應(yīng)該怎么樣實(shí)現(xiàn)的，而是在系統(tǒng)設(shè)計(jì)的過(guò)程中一點(diǎn)一滴的積累的，是一個(gè)“遇到難題－ 解決 — 遇到新的難題 — 解決”的過(guò)程，我的開(kāi)發(fā)水平也隨著一點(diǎn)一滴的提高，這是令我最欣慰的事情。在這個(gè)過(guò)程當(dāng)中，我讀了很多相關(guān)的書(shū)籍，對(duì)自己最有幫助的書(shū)便是劉藝著的 Delphi 面向?qū)ο缶幊趟枷搿Ｍㄟ^(guò)這本書(shū)，我對(duì)面向?qū)ο缶幊逃辛诉M(jìn)一步的理解。不過(guò)，由于時(shí)間的關(guān)系，我并沒(méi)有把所有的知識(shí)都運(yùn)用到這個(gè)程序中去，畢竟從理論到實(shí)現(xiàn)還需要一定的時(shí)間和經(jīng) 驗(yàn)。根據(jù)劉藝的面向?qū)ο缶幊趟季S，很多信息都可以創(chuàng)建成一個(gè)類來(lái)訪問(wèn)，例如醫(yī)院?jiǎn)T工的信息可以創(chuàng)建一個(gè)類，而門(mén)診醫(yī)師這個(gè)類可以繼承醫(yī)院?jiǎn)T工這個(gè)類。這樣，既可以貫徹面向?qū)ο缶幊痰乃季S，又可以對(duì)代碼有優(yōu)化的作用。這個(gè)剛完成的醫(yī)院信息管理系統(tǒng)還有很多方面的不足，需要進(jìn)一步的更新和完善。 5. 5. 謝辭 經(jīng)過(guò)幾個(gè)月的努力，醫(yī)院信息管理系統(tǒng)的開(kāi)發(fā)已經(jīng)完成。從我開(kāi)始接受課題，著手編制到系統(tǒng)設(shè)計(jì)完成，指導(dǎo)老師程小輝老師不但提供了資料，而且給予了熱誠(chéng)的指導(dǎo)，并提出了許多寶貴的建議，解決了不少的問(wèn)題。這里我向指導(dǎo)老師程小輝 老師致以衷心的感謝。另外，還要感謝江將、鄧力銘等曾給過(guò)自己?jiǎn)l(fā)與幫助的同學(xué)。正是指導(dǎo)老師程小輝老師、及那些同學(xué)的幫助，我的畢業(yè)設(shè)計(jì)才能得以順利的完成。 由于本人水平有限、時(shí)間緊張，文中錯(cuò)誤之處在所難免，請(qǐng)老師和同學(xué)們指正！