【正文】 總　　結(jié)　　醫(yī)院管理系統(tǒng)基本實現(xiàn)了最初的設(shè)計思想，滿足了醫(yī)院對藥品進(jìn)貨，銷售以及庫存管理的基本需求，比較接近預(yù)定的性能指標(biāo)。所以我盡可能用各種數(shù)據(jù)進(jìn)行測試，以便發(fā)現(xiàn)問題及時解決。在“藥品盤點”模塊中，選擇盤點人員編號時盤點人員編號未能與盤點人員名稱對應(yīng)，檢查源代碼發(fā)現(xiàn)變量聲明時對應(yīng)數(shù)據(jù)表數(shù)據(jù)發(fā)生錯誤，修改為應(yīng)對應(yīng)數(shù)據(jù)表數(shù)據(jù)后實現(xiàn)所需求的功能。在測試“修改密碼”模塊時，輸新密碼之后，數(shù)據(jù)庫中數(shù)據(jù)未發(fā)生改變。我們采用了多組數(shù)據(jù)分別進(jìn)行測試，發(fā)現(xiàn)運行結(jié)果和手工的結(jié)果一致，說明設(shè)計基本成功，如果發(fā)現(xiàn)問題在詳細(xì)的進(jìn)行調(diào)試，盡量使整套系統(tǒng)完美。驗證軟件的可行性。最后，進(jìn)行系統(tǒng)測試。在程序中往往存在著許多預(yù)料不到的問題，可能會被疏漏，許多隱藏的錯誤只有在特定的環(huán)境下才可能暴露出來，會遺留到運行階段中去，所以我們把測試的目標(biāo)對準(zhǔn)發(fā)現(xiàn)程序中存在的錯誤，在選取測試用例時，考慮那些易于發(fā)現(xiàn)程序錯誤的數(shù)據(jù)。其重要性體現(xiàn)在它是保證系統(tǒng)質(zhì)量與可靠性的最后關(guān)口。 測試的目的設(shè)計好的程序需要經(jīng)過測試才能明確的知道其功能上的不足之處。(3) 例外錯誤：是由程序直接控制的外部環(huán)境引起的。(2) 邏輯錯誤：很難發(fā)現(xiàn)和排除，編譯通過卻不能達(dá)到預(yù)期的運行結(jié)果。編譯程序代碼是查找大多數(shù)語法錯誤的最快方法，但是有一些與語法相關(guān)的錯誤并不能在編譯中表達(dá)出來。 調(diào)試中出現(xiàn)的問題即解決的辦法經(jīng)過總結(jié)共有3類經(jīng)常出現(xiàn)的錯誤，即語法錯誤、邏輯錯誤和例外錯誤。為了保證軟件的質(zhì)量和可靠性，在軟件投入運行之前進(jìn)行軟件調(diào)試與測試是非常關(guān)鍵的步驟。單獨運行的各個程序和模塊，看看是否能夠達(dá)到預(yù)期的目標(biāo)，在出錯的地方仔細(xì)分析，查找產(chǎn)生錯誤的原因，并找出解決的方法，再進(jìn)行逐步調(diào)試，達(dá)到真正的無誤后，開始進(jìn)行總體調(diào)試，對系統(tǒng)整體上進(jìn)行調(diào)試，檢查各模塊數(shù)據(jù)之間是否準(zhǔn)確，模塊間的接口是否恰當(dāng)，能否滿足用戶的需要。調(diào)試對于開發(fā)者來說也是很關(guān)鍵的。455 系統(tǒng)的調(diào)試和測試對于每一個開發(fā)的應(yīng)用系統(tǒng)都需要對其進(jìn)行調(diào)試與測試，系統(tǒng)是否具有嚴(yán)密性、正確性，是否在功能上達(dá)到完善，實現(xiàn)功能需求，只能通過嚴(yán)格的調(diào)試和測試，發(fā)現(xiàn)和解決問題，才能達(dá)到完整的開發(fā)一個應(yīng)用軟件的要求。圖412 庫存查詢(1) 在數(shù)據(jù)庫中修改存儲過程“proc_Storage”，依次添加“Flag”參數(shù)為“Select_Type”、“Select_MedicineID” “Select_ValidityTime” “Select_Big” “Select_Small”五段SQL語句，這些語句分別根據(jù)傳入的參數(shù)而執(zhí)行不同的查詢。為了實現(xiàn)這些功能，需要如下控件：2個TComboBox控件，用來選擇查詢項目和查詢條件；1個TBitBtn控件，用來實現(xiàn)查詢操作；1個TDateTimePicker控件，用來選擇日期查詢條件；1個TDBGrid控件，用來顯示查詢結(jié)果的數(shù)據(jù)表格。(7) 添加“查找”按鈕的單擊事件，此事件的功能主要是查找盤點信息。(5) 添加“保存”按鈕的單擊事件，此事件的功能是調(diào)用“proc_ Check”存儲過程，判斷“Flag”標(biāo)記是否為“InsertCheck”和“InsertBody”，若是則執(zhí)行數(shù)據(jù)插入操作，將數(shù)據(jù)保存至數(shù)據(jù)庫中。(4) 添加“刪除”按鈕的單擊事件，此事件的功能主要是判斷單據(jù)是否已經(jīng)審核，當(dāng)單據(jù)還未審核時可以刪除單據(jù)信息。(2) 添加窗體的OnShow事件，此事件的功能主要是初始化盤點模塊一些控件的初值。在存儲過程中使用“Flag”將代碼分為了七大段，分別處理不數(shù)據(jù)。窗體的設(shè)計界面如圖411所示。 庫存盤點“盤點建立”窗體主要實現(xiàn)庫存盤點管理，其中包含了盤點主單據(jù)的錄入和盤點藥品明細(xì)的錄入以及盤點單的打印?！皩徍恕卑粹o單擊事件還實現(xiàn)了更改審核狀態(tài)并更新庫存，將庫存量減少。(5) 添加“保存”按鈕的單擊事件，此事件的功能是調(diào)用“proc_ Sale”存儲過程，判斷“Flag”標(biāo)記是否為“InsertHeader”和“InsertBody”，若是則執(zhí)行數(shù)據(jù)插入操作，將數(shù)據(jù)保存至數(shù)據(jù)庫中。(4) 添加“刪除”按鈕的單擊事件，此事件的功能主要是判斷單據(jù)是否已經(jīng)審核，當(dāng)單據(jù)還未審核時可以刪除單據(jù)信息。(2) 添加窗體的OnShow事件，此事件的功能主要是初始化銷售模塊一些控件的初值?！癋lag”將代碼分為了七大段，分別處理不同的出庫業(yè)務(wù)數(shù)據(jù)。窗體的設(shè)計界面如圖410所示。 出庫管理“出庫建立”窗體主要實現(xiàn)銷售出貨管理，其中包含了銷售主單據(jù)的錄入和藥品明細(xì)的錄入。).AsString。 := (39。Remark39。).AsString。 := (39。InDepotID39。).AsString)。 := StrToDate((39。StockID39。).AsString。 := (39。 OpenDataSQL(qryInDepotHeader, SelectAll)。,InDepotID=39。39。SelectInDepot39。Exec proc_InDepot Flag=39。, FindID)。, 39。 FindBool := InputQuery(39。 FindBool: Boolean。實現(xiàn)代碼如下：procedure (Sender: TObject)。在這里使用到了另一個存儲過程proc_Storage。(5) 添加“保存”按鈕的單擊事件，此事件的功能是調(diào)用“proc_ InDepot”存儲過程，判斷“Flag”標(biāo)記是否為“InsertHeader”和“InsertBody”，若是則執(zhí)行數(shù)據(jù)插入操作，將數(shù)據(jù)保存至數(shù)據(jù)庫中。(4) 添加“刪除”按鈕的單擊事件，此事件的功能主要是判斷單據(jù)是否已經(jīng)審核，當(dāng)單據(jù)還未審核時可以刪除單據(jù)信息。(2) 添加窗體的OnShow事件，此事件的功能主要是初始化入庫模塊一些控件的初值。在存儲過程中使用“Flag”將代碼分為了八大段，分別處理不同的入庫業(yè)務(wù)數(shù)據(jù)。窗體的設(shè)計界面如圖49所示。 入庫管理“入庫建立”窗體主要實現(xiàn)進(jìn)貨入庫管理，其中包含了入庫主單據(jù)的錄入。 end。 := 39。錯誤39。查詢錯誤,請核實后重新查詢!39。 end。Remark39。).AsString。 := (39。StockDatetime39。).AsString。 := (39。StockID39。 OpenDataSQL(qryStockHeader, SelectAll)。 + Quotedstr(FindID)。 +39。39。39。 SelectAll := 39。自動生成39。, FindID)。, 39。 FindBool := InputQuery(39。 FindBool: Boolean。其實現(xiàn)代碼如下：procedure (Sender: TObject)。end。 := 39。提示39。審核成功!39。 ExecSQL(qryAudtiting,Auditing)。,StockID=39。39。Auditing39。Exec proc_StockTask Flag=39。,68) = IDNo then Exit。,39。 if (39。 end。,16)。,39。 then begin (39。begin if = 39。其實現(xiàn)代碼如下：procedure (Sender: TObject)。end。,16)。,39。 OpenDataSQL(qryStockBody, SelectBody) except (39。 ExecSQL(qryStockHeader,InsertHeader)。,StockID=39。39。SelectStock39。Exec proc_StockTask Flag=39。 + 。 + + 39。 + + 39。 + + 39。 + Quotedstr() + 39。 + Quotedstr() + 39。 + 39。39。39。 InsertBody := 39。,Remark=39。,TabMan=39。,StockDatetime=39。,ProviderID=39。,StockID=39。39。InsertHeader39。Exec proc_StockTask Flag=39。 end。,16)。,39。 then begin (39。 if = 39。 Exit。,16)。,39。) then begin (39。) or ( = 39。) or ( = 39。) or ( = 39。 if ( = 39。 Exit。提示39。已審核不能再保存數(shù)據(jù)!39。已審核39。var InsertHeader, InsertBody, SelectBody: string。(5) 添加“保存”按鈕的單擊事件，此事件的功能是調(diào)用“proc_StockTask”存儲過程，判斷“Flag”標(biāo)記是否為“InsertHeader”和“InsertBody”，若是則執(zhí)行數(shù)據(jù)插入操作，將數(shù)據(jù)保存至數(shù)據(jù)庫中。 end。提示39。明細(xì)刪除成功!39。 OpenDataSQL(qryStockBody, SelectAll)。,StockID=39。39。SelectStock39。Exec proc_StockTask Flag=39。 + QuotedStr()) = False then ExecSQL(qryStockHeader,DelHeadStr)。 if FindSQL(39。 + QuotedStr()。 + 39。39。39。 DelHeadStr := 39。,MedID=39。,StockID=39。39。DelStock39。Exec proc_StockTask Flag=39。提示39。確定要刪除此條信息嗎?39。 if then Exit。 Exit。提示39。已審核不能修改!39。已審核39。var DelBodyStr,DelHeadStr, SelectBody, SelectAll: string。通過調(diào)用“proc_StockTask”存儲過程，當(dāng)“Flag”變量標(biāo)記為“DelStock”和“DelHeader”時刪除從表和主表數(shù)據(jù)，維持主從表數(shù)據(jù)的完整性。end。MaxID39。PR39。000139。yyyymm39。PR39。39。MaxID39。 OpenDataSQL(, MaxID)。39。SelectMaxID39。Exec proc_StockTask Flag=39。未審核39。39。39。39。39。39。39。begin 。其實現(xiàn)代碼如下：procedure (Sender: TObject)。(2) 添加窗體的OnShow事件，此事件的功能主要是初始化采購模塊一些控件的初值。在存儲過程中使用“Flag”將代碼分為了七大段，分別處理不同的采購業(yè)務(wù)數(shù)據(jù)。窗體的設(shè)計界面如圖48所示。 采購管理“采購建立”窗體主要實現(xiàn)采購管理，其中包含了采購主單據(jù)的錄入和藥品明細(xì)的錄入。添加窗體的OnClose事件，其主要功能是釋放窗體實例。窗體的設(shè)計界面如圖47所示。 藥商字典“藥商字典維護(hù)”窗體主要實現(xiàn)對供藥廠商基本資料的維護(hù)。(2) 依次添加“添加”、“修改”、“刪除”、“保存”和“取消”按鈕的單擊事件，這些事件的功能主要是對數(shù)據(jù)庫執(zhí)行添加、刪除、修改、保存等基本的數(shù)據(jù)庫操作。圖46 藥品字典維護(hù)(1) 添加窗體的OnShow事件，在此事件中調(diào)用公用單元的OpenDataSQL方法，通過傳入指定的SQL語句打開藥品字典數(shù)據(jù)集。為了實現(xiàn)這些功能，需要如下控件：1個TDBGrid控件，用來顯示數(shù)據(jù)表格；5個TBitBtn控件，分別用來實現(xiàn)添加、修改、刪除、保存和取消操作；3個TDBEdit控件，用來輸入或顯示數(shù)據(jù)字段值；1個TDBText控件，用于顯示編號信息；2個TComboBox控件，用來選擇藥品單位和藥品類型；9個TLabel控件，顯示信息描述簡介；3個TDBMemo控件，用來輸入或顯示藥品描述，用法，備注信息；1個TDataSource控件，數(shù)據(jù)源控件；1個TADOQuery控件，用于獲取數(shù)據(jù)集。添加窗體的OnClose事件和“取消”按鈕的單擊事件，這兩個事件分別用來釋放窗體實例和關(guān)閉窗體。Password39。其實現(xiàn)代碼如下：(2) 添加“確定”按鈕的單擊事件，此事件的功能主要是調(diào)用“proc_Base”存儲過程中修改密碼的SQL語句，通過傳入制定的用戶編號和密碼來實現(xiàn)密碼修改。窗體的設(shè)計界面如圖45所示。用戶通過輸入原密碼，再通過一次輸入新密碼，之后再一次確認(rèn)輸入新密碼，來更改之前所使用的密碼。(2) 添加“權(quán)限列表”的單擊事件，此事件的功能主要是當(dāng)選擇某一用戶是調(diào)用存儲過程，查詢處當(dāng)前用戶所擁有的權(quán)限并顯示在列表框中。窗體的設(shè)計界面如圖44所示。“權(quán)限設(shè)定”窗體主要實現(xiàn)對用戶進(jìn)行權(quán)限管理，控制用戶在藥品進(jìn)銷存管理系統(tǒng)中擁有的權(quán)限。(4)在窗體的OnClose事件中釋放窗體實例。)。begin OpenDataSQL(qryUser, 39。其代碼如下所示。end。procedure (Sender: TObject)。 。,68) = IDNo then Exit。,39。begin if (39。end。procedure (Sender: TObject)。)