freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

社區(qū)醫(yī)院藥品管理系統(tǒng)設(shè)計與實現(xiàn)畢業(yè)設(shè)計(文件)

2025-08-05 12:50 上一頁面

下一頁面
 

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