【導(dǎo)讀】集信息、管理信息，從而更好地利用信息，來提高醫(yī)院的管理水平。能夠杜絕欠費，減少漏費現(xiàn)象，從根本上防止價格的誤劃。要實現(xiàn)五項功能：掛號、收費、醫(yī)生工作站、醫(yī)技工作站、藥房。查閱資料確定初步方案、開題，系統(tǒng)需求分析，概念設(shè)計，邏輯設(shè)計，物理設(shè)計，模塊設(shè)計，代碼設(shè)計與調(diào)試。本系統(tǒng)需要的理論知識有：軟件工程、信息管理、數(shù)據(jù)庫技術(shù)、程序設(shè)計、項目開發(fā)等。并且能較好的進行綜合訓(xùn)練，提高實踐能。能夠滿足軟件工程專業(yè)本科畢業(yè)設(shè)計的要求。SQLServer數(shù)據(jù)庫技術(shù)，中間使用ADO控件。使系統(tǒng)達到較高的運行效率。

　　

【正文】 ADO 組件，這是 ADO 程序的一大優(yōu)點。 本科生畢業(yè)設(shè)計（論文） 25 ADO 組件包括 3 個核心組件分別是用于數(shù)據(jù)庫鏈接的 ADOConnection 和用于執(zhí)行 SQL命令的 ADOCommand以及用于執(zhí)行返回結(jié)果集合請求的 ADODataSet組件。還有 3 個兼容組件 ADOTable， ADOQuery 和 ADOStoreProc，可以用它們將 BDE 的應(yīng)用程序移植到 ADO 中。另外 1 個 RDSConnection 組件 ,用于訪問遠程多級應(yīng)用程序中的數(shù)據(jù)。下 面對 ADO 組件的功能和作用分別做以介紹： 組件 ADOConnection 組件的主要作用是建立與數(shù)據(jù)庫的連接。此外，它還有一定的事務(wù)處理能力。使用 ADO訪問數(shù)據(jù)庫，必須先與其連接?？梢允褂?ADOConnection作為連接的工具，也可以直接使用 ADO 組件與數(shù)據(jù)源作為連接。兩者的不同在于，使用 ADOConnection 來連接，可以使多個 ADO 組件共享這一連接，以便集中控制，進行事務(wù)處理；而直接使用 ADO 組件連接比較簡捷、方便。 組件 ADOCommand 組 件定義了將對數(shù)據(jù)源執(zhí)行的指定命令。 ADOCommand 組件主要用于 SQL 的數(shù)據(jù)定義或執(zhí)行一個不帶返回結(jié)果集的存儲過程。如果 SQL 語句帶有返回結(jié)果集，最好使用 ADODataSet， ADOQuery 和 ADOStoreProc 等組件。 組件 ADODataSet 組件是最常用的 ADO 數(shù)據(jù)集組件，使用該組件可以從 ADO 數(shù)據(jù)庫讀取 1個或多個數(shù)據(jù)表?？梢灾苯幼x取數(shù)據(jù)表，也可以通過 SQL 語句訪問數(shù)據(jù)表。在使用 ADODataSet 組件訪問數(shù)據(jù)前需要建立它與數(shù)據(jù)庫的的關(guān)聯(lián)，建立這種關(guān)聯(lián)可以通過設(shè)置 ADODataSet 組件的 ConnectionString 屬性或者通過設(shè)置Connection 屬性。 組件 ADOTable 組件是一個數(shù)據(jù)集組件，封裝了一個可訪問的 ADO 的數(shù)據(jù)表。使用ADOTable 組件可利用 ADO 訪問單個數(shù)據(jù)表中的數(shù)據(jù)，它提供了直接訪問數(shù)據(jù)表中每條記錄和字段的方法。 ADO 數(shù)據(jù)表組件也可以用于數(shù)據(jù)表中經(jīng)過限定范圍或條件過濾的記錄的子集。 組件 ADOQuery 組件為 ADO 數(shù)據(jù)存儲提供發(fā)布 SQL 的方法，使用 ADOQuery 組件訪問應(yīng)用 SQL 語句的數(shù)據(jù)存儲中的 一個或多個數(shù)據(jù)表。 TADOQuery 對象可從使用SELECT 語句的 ADO 數(shù)據(jù)存儲中得到數(shù)據(jù)，它對 ADO 數(shù)據(jù)存儲中的數(shù)據(jù)表和其他數(shù)據(jù)源對象執(zhí)行諸如 INSERT、 DELETE、 UPDATE、 ALTER TABLE 和 CREATE TABLE 一類的操作，也執(zhí)行存儲過程。 組件 當客戶端應(yīng)用程序必須在數(shù)據(jù)庫中使用存儲過程時即可使用該組件。并非所 本科生畢業(yè)設(shè)計（論文） 26 有數(shù)據(jù)庫服務(wù)器都支持存儲過程。 ADOStoreProc 重載了 Parameters 屬性保持存儲過程返回的結(jié)果。 Parameters 是 TParameter對象的集合。每個 TParameter 對象為存儲過程提供一個單獨的參數(shù)。依據(jù)服務(wù)器執(zhí)行情況，存儲過程返回單一的一組值或和查詢的結(jié)果集相似的結(jié)果集。 醫(yī)院門診收費管理系統(tǒng) 在開發(fā)時，充分考慮了 ADO 組件的功能和作用，并針對系統(tǒng)本身的實際情況選用了 ADOConnection 組件與數(shù)據(jù)庫的連接。并且選用了ADOQuery 組件、 ADOTable 組件做為 ADO 數(shù)據(jù)集組件。在調(diào)用存儲過程時，還用到了 ADOStoreProc 組件。并且把這些 ADO 組件都整理到一個 DataModule 中，在DataModule 中編寫數(shù)據(jù)庫鏈接 的核心代碼。 unit datamodule。 interface uses SysUtils, Classes, DB, ADODB。 type TDataModule1 = class(TDataModule) ADOC: TADOConnection。 ADOQryStu: TADOQuery。 Student_DSource: TDataSource。 ADOQryClass: TADOQuery。 Class_DSource: TDataSource。 ADOQryCourse: TADOQuery。 ADOTabTeacher: TADOTable。 Teacher_DSource: TDataSource。 TCourse_DSource: TDataSource。 Course_Score: TDataSource。 AdoqryCourse_Score: TADOQuery。 AdoqryCourse_Scoreid: TAutoIncField。 AdoqryCourse_Scorename: TStringField。 AdoqryCourse_Scorestudentno: TStringField。 AdoqryCourse_Scorename_1: TStringField。 AdoqryCourse_Scorescore: TIntegerField。 AdoqryCourse_Scorename_2: TStringField。 AdoqryStudent_Score: TADOQuery。 Student_Score: TDataSource。 本科生畢業(yè)設(shè)計（論文） 27 Course_Set: TDataSource。 Course_ADOTable: TADOTable。 procedure ADOTabTeacherAfterScroll(DataSet: TDataSet)。 procedure AdoqryCourse_ScoreAfterScroll(DataSet: TDataSet)。 private { Private declarations } public { Public declarations } end。 var DataModule1: TDataModule1。 implementation uses score。 {$R *.dfm} Procedure (DataSet: TDataSet)。 begin 。 (39。select name from course where teacherno=39。39。39。+(39。teacherno39。).AsString +39。39。39。 39。)。 。 end。 procedure (DataSet: TDataSet)。 begin 。 (39。select id ,studentno ,name ,sex ,specialty ,depart from student where studentno= 39。39。39。+ (39。studentno39。).asstring+39。39。39。 39。)。 。 :=(39。score39。).AsString。 end。 end. 本科生畢業(yè)設(shè)計（論文） 28 模塊實現(xiàn) 1． 登錄界面 此界面的作用是用戶登錄。也就是說，驗證用戶代號、密碼是否匹配，只有代號、密碼匹配的情況下用戶才可以進入系統(tǒng)。 在系統(tǒng)登錄時，系統(tǒng)會根據(jù)用戶的身份判定該用戶具有的操作權(quán)限。醫(yī)院門診管理信息系統(tǒng)的登錄身份分為五類：管理員、掛號員、收費員、醫(yī)生、藥房管理員、醫(yī)技管理員。用戶在選擇登錄身份后，若是系統(tǒng)管理員輸入管理員的代號；若是掛號員輸入掛號員代號；若是收費員輸入收費員代號；若是醫(yī)生則輸入醫(yī)生代號；若是藥房管理員則輸入藥房管理員代號；若是藥房管理員則輸入藥房管理員代號 ；然后，再輸入個人的密碼。這樣就會登錄到相應(yīng)系統(tǒng)中了。 如果代碼與密碼不匹配，則無法登錄到系統(tǒng)。只有當代碼和密碼完全正確時才可以進入系統(tǒng)。若用戶想修改個人密碼可以在進入系統(tǒng)后在修改密碼窗體中進行修改。下面以進入門診掛號界面為例，介紹一下基本界面及操作。如下圖 所示 。 圖 2． 門診掛號主界面 在系統(tǒng)登錄后，就進入了門診掛號主界面，該界面中包括七個功能模塊分 是：掛號登記、掛號查詢、掛號修改、門診退號、以往掛號查詢、修改密碼、退出系統(tǒng)。進入系統(tǒng)后，可以對這七個功能模塊分別進行操作。 如下 圖 所示。 本科生畢業(yè)設(shè)計（論文） 29 圖 3． 門診掛號登記界面 點擊掛號登記，出現(xiàn)下面的界面，在姓名欄中輸入內(nèi)容，在性別、類別、醫(yī)生、就診科別、掛號類別等欄目中選擇相對應(yīng)的項，然后點擊確定按紐，將會出現(xiàn)病志號信息界面。如圖 和 所示。 圖 本科生畢業(yè)設(shè)計（論文） 30 圖 4． 門診掛號查詢界面 點擊掛號查詢，掛號的信息就會看到。如剛剛掛號輸入姓名是白佳，如圖 所示，則在掛號查詢界面就可以看到白佳的掛號信息了，如下圖 所示。 圖 5． 門診掛號修改界面 點擊掛號修改，輸入病志號那么此患者的掛號信息就可以全部看到。然后可以更改相應(yīng)的信息。，如圖 所示。想看到更改后的信息，點擊掛號查詢即可。如下圖 所示。 本科生畢業(yè)設(shè)計（論文） 31 圖 圖 6． 門診退號修改界面 如果需要退號，則點擊門診退號，輸入病志號，然后點擊確定按紐即完成了退號。如下圖 所示。 本科生畢業(yè)設(shè)計（論文） 32 圖 7． 門診退號查詢界面 點擊門診退號，就可以查詢到退號信息。如圖 。 圖 8． 退出系統(tǒng) 當需要退出系統(tǒng)時直接點擊退出系統(tǒng)，即可退出。 本科生畢業(yè)設(shè)計（論文） 33 下面介紹一下代碼的實現(xiàn)： 1． 登錄部分代碼 1)確定按紐 procedure (Sender: TObject)。 begin // 。 // flogin:=nil。 。 [39。@dm39。]:=。 [39。@mm39。]:=。 。 if 0 then begin :=false。 fmz_main:=(nil)。 。 end else (39。代碼或密碼錯誤 39。,39。注意 39。,mb_iconerror)。 end。 2)退出按紐 procedure (Sender: TObject)。 begin close。 end。 2． 門診掛號登記 1)確定按紐 procedure (Sender: TObject)。 var sex,bzhm:string。 begin if trim() =39。39。 then begin (39。請輸入患者姓名 39。,39。輸入錯誤 )。 本科生畢業(yè)設(shè)計（論文） 34 //(39。 確實要退出系統(tǒng) 39。,39。 退出系統(tǒng)39。,MB_ICONQUESTION or MB_YESNO)=IDNO 。 exit。 end。 with mz_brgh do begin [39。@dm39。]:=。 [39。@xm39。]:=。 if =true then sex:=39。男 39。 else sex:=39。女 39。 [39。@xb39。]:=sex。 [39。@dw39。]:=。 [39。@sfh39。]:=(39。dm39。).Asstring。 [39。@jzd39。]:=39。039。 [39。@ksh39。]:=(39。dm39。).asstring。 [39。@ysh39。]:=(39。dm39。).AsString。 [39。@ghlh39。]:=(39。dm39。).AsString。 [39。@ghm39。]:=。 Execute。 end。 if bool=false then begin bzhm:=[39。@dm139。]。 :=bzhm。 (pchar(39。 請記 錄 病 志號 39。+bzhm),39。 病志號39。,mb_iconasterisk)。 end。 本科生畢業(yè)設(shè)計（論文） 35 :=true。 :=true。