【正文】 和入庫單相類似，考慮到出庫時物資實際庫存量可能會因其他用戶也同時在進(jìn)行出庫處理，而導(dǎo)致在審核單據(jù)時發(fā)生某項物資的實際庫存不足的情況，因此，出庫單審核時需要增加一步庫存量是否足夠的檢測工作，這一步在存26 / 40儲過程中有體現(xiàn)。同時為了方便操作員提前檢查這種待出庫物資庫存不足的情況，窗口中增加了一個【檢測】按鈕，如圖 所示:圖 物資出庫業(yè)務(wù)管理窗口關(guān)鍵代碼（出庫單據(jù)審核的存儲過程 proc_wzck）：/*物資出庫審核*//*作者：黃盛 重大網(wǎng)院 082 計算機(jī)科學(xué)與技術(shù)*//*20221019 V1 支持加權(quán)平均單價算法*/CREATE PROC proc_wzck @shczybm CHAR(6), @dh CHAR(10)ASBEGIN TRANSACTION down 設(shè)置審核標(biāo)志，以防別人讀取。27 / 40 UPDATE tb_CKD SET shczy=@shczybm FROM tb_CKD WHERE (shczy=39。39。 or shczy is null) AND dh=@dh IF @@error0 BEGINSELECT 39。設(shè)置審核標(biāo)志時失敗。請重試！39。ROLLBACK TRANSACTION downRETURN END 生成流水帳記錄 INSERT INTO tb_KCLSZ ([DH],[DJLX],[DJRQ],[WZBM],[DW],[DJ],[KCDJ],[CSKC],[RKSL],[CKSL],[JYKC],[LYQX]) SELECT ,39。O39。,getdate(),,0, FROM tb_ckd a,tb_rkdmx b,tb_wz c,tb_kh d WHERE = and = and = and =@dh IF @@error0 BEGINSELECT 39。生成流水帳記錄時失敗，請重試！39。 ROLLBACK TRANSACTION downRETURN END 從流水帳記錄中計算出加權(quán)平均單價及新的庫存 UPDATE tb_WZ set dj= ,dqkc= 28 / 40 FROM tb_WZ a,(SELECT WZBM,JYKC,CONVERT(DECIMAL(12,2),CASE JYKC WHEN 0 THEN DJ ELSE (CSKC*KCDJCKSL*DJ)/JYKC END) AS 39。newdj39。 FROM tb_KCLSZ WHERE djlx=39。O39。 and dh=@dh) b WHERE = IF @@error0 BEGINSELECT 39。更新庫存時失敗，請重試！39。 ROLLBACK TRANSACTION downRETURN END 提交事務(wù) SELECT 39。OK39。 COMMIT TRANSACTION down審核過的入庫單及出庫單均可再查詢并打印出來，見圖 及圖 所示：29 / 40圖 物資入庫單查詢窗口30 / 40圖 物資出庫單查詢窗口 查詢統(tǒng)計程序?qū)ξ镔Y信息的查詢有二種，分別為物資信息查詢、物資流水帳查詢，如圖 和圖 所示：31 / 40圖 物資信息查詢窗口圖 物資庫存流水帳查詢窗口系統(tǒng)為滿足最基礎(chǔ)的入出庫業(yè)務(wù)統(tǒng)計，設(shè)計了庫房業(yè)務(wù)月報表，見圖 所示：32 / 40圖 庫房業(yè)務(wù)月報表窗口系統(tǒng)設(shè)計了庫存超限查詢功能，用于篩選現(xiàn)有庫存低于庫存下限或高于庫存上限的物資，以便及時進(jìn)行調(diào)控處理，窗口見圖 所示：圖 庫存超限查詢窗口33 / 40 系統(tǒng)維護(hù)系統(tǒng)提供了密碼修改和權(quán)限分配功能，如圖 及圖 所示：圖 更改用戶個人密碼窗口關(guān)鍵代碼（確定按鈕的 CLICKED 事件，精簡代碼）：if thenMessagebox(提示,您兩次輸入的新密碼不同，請檢查！ )() (0,len())returnend if string ls_dlmm select dlmm into :ls_dlmm from tb_YG where YGBM=:str_czybm and DLMM=: and QYBZ=39。Y39。if 0 thenMessagebox(錯誤,檢查數(shù)據(jù)正確性失敗，請重試! )returnend ifif ls_dlmm= then update tb_YG set dlmm=: where YGBM=:str_czybm and dlmm=:。if 0 thenrollback using sqlca。Messagebox(錯誤,更改密碼失敗，密碼沒有修改! )returnelsemit using sqlca。Messagebox(成功,更改密碼成功，您的新密碼已生效! )close(parent)end if else34 / 40 l_change++ if l_change3 then Messagebox(終止,您連續(xù) 3 次提供的舊密碼錯誤，操作被終止! ) close(parent) else Messagebox(失敗,您提供的舊密碼不正確，請檢查! ) () (0,len())end if end if圖 分配用戶權(quán)限窗口關(guān)鍵代碼（確定分配按鈕的 CLICKED 事件，精簡代碼）：string ls_ygbmls_ygbm=(1,39。ygbm39。)if ls_ygbm= or isnull(ls_ygbm) thenMessagebox(提示,請在列表中選擇要分配的操作員！)() returnend ifif ls_ygbm=39。999939。 thenMessagebox(提示,系統(tǒng)內(nèi)置的管理員帳號不允許修改權(quán)限！ )returnend if35 / 40string ls_newfwqxif =true then ls_newfwqx=1elsels_newfwqx=0end ifif =true then ls_newfwqx=ls_newfwqx+1elsels_newfwqx=ls_newfwqx+0end ifif =true then ls_newfwqx=ls_newfwqx+1elsels_newfwqx=ls_newfwqx+0end ifif =true then ls_newfwqx=ls_newfwqx+1elsels_newfwqx=ls_newfwqx+0end ifif =true then ls_newfwqx=ls_newfwqx+1elsels_newfwqx=ls_newfwqx+0end ifif =true then ls_newfwqx=ls_newfwqx+1elsels_newfwqx=ls_newfwqx+0end ifif =true then ls_newfwqx=ls_newfwqx+1elsels_newfwqx=ls_newfwqx+0end if36 / 40 ls_newfwqx=ls_newfwqx+111update tb_yg set fwqx=:ls_newfwqx where ygbm=:ls_ygbm。if 0 then str_sqlerr=rollback using sqlca。messagebox(提示,數(shù)據(jù)庫發(fā)生錯誤，請重新保存數(shù)據(jù)。 ~n~n+str_sqlerr)returnelsemit using sqlca。if ls_ygbm=str_czybm then str_czyfwqx=ls_newfwqxmessagebox(提示,分配成功，您可以繼續(xù)選擇其他操作員進(jìn)行分配! )end if=false=false=false=false=false=false=false程序設(shè)計了數(shù)據(jù)庫備份恢復(fù)功能，如圖 所示：圖 數(shù)據(jù)庫和備份恢復(fù)窗口經(jīng)過功能細(xì)化及反復(fù)的調(diào)試、修正、完善，完整的“庫房庫存物資管理信息系統(tǒng)”終于編譯及運行測試通過。 系統(tǒng)環(huán)境要求及安裝運行說明 運行環(huán)境要求37 / 40（1）硬件要求（最低配置 / 建議配置）： CPU:Pentium 200MHZ / Pentium III 以上；內(nèi)存：256M / 1G 以上；安裝所需硬盤空間（含數(shù)據(jù)庫）：100MB / 5G 以上；（2）操作系統(tǒng)： Windows 2022/2022/XP/Vista/WINDOWS 7；（3）支持軟件： 使用 MSSQL Server 2022 或更高版本作為后臺數(shù)據(jù)庫；由于程序使用了 MSSQL SERVER 直連技術(shù)，如果客戶端和服務(wù)器不是同一臺機(jī)，可能需要客戶機(jī)安裝 MSSQL SERVER 2022 的客戶端。（4）運行庫要求： PowerBuilder 運行庫，程序安裝包中已包含此運行庫，或在系統(tǒng)中進(jìn)行PowerBuilder 的安裝。 安裝運行說明 系統(tǒng)安裝運行分 2 個部分，一是客戶端程序安裝、客戶端安裝較為簡單，將源程序中編譯后執(zhí)行文件 拷貝至硬盤任意目錄下均可。二是服務(wù)器端數(shù)據(jù)庫安裝。本文附帶數(shù)據(jù)庫文件：（主數(shù)據(jù)庫文件）、（數(shù)據(jù)庫日志文件）。將此 2 文件拷貝到 C:\Program Files\Microsoft SQL Server\MSSQL\Data 目錄下，然后進(jìn)入 SQL Server 2022 企業(yè)管理器，對酒店管理信息系統(tǒng)的 2 個數(shù)據(jù)庫文件進(jìn)行附加操作，附加數(shù)據(jù)庫名字：Stock，附加完成后，建議修改 SA 密碼為安性高的密碼（字符+數(shù)字，并且長度至少8 位）即完成了服務(wù)端的安裝。注：不建議將 SQL Server 的 SA 用戶密碼設(shè)置為空，這與本系統(tǒng)的安全保護(hù)理念是相違背的。運行客戶端程序,程序檢查到系統(tǒng)為第一次運行，此時會彈出一個設(shè)置聯(lián)接數(shù)據(jù)庫服務(wù)器的窗口，分別設(shè)置 IP 地址（默認(rèn)是：）、數(shù)據(jù)庫名稱(默認(rèn)是：STOCK 請不要修改)、數(shù)據(jù)庫服務(wù)器登錄用戶名（默認(rèn)是 SA，可以修改，但為了能正常備份恢復(fù)，請設(shè)置有管理員權(quán)限的用戶名）、及數(shù)據(jù)庫服務(wù)器登錄密碼（默認(rèn)是：空，強(qiáng)烈不建議），然后點擊“聯(lián)接”，如果系統(tǒng)順利聯(lián)接上服務(wù)器，說時設(shè)置正38 / 40確，登錄設(shè)置及密碼將被加密保存，下次登錄將不需要再次設(shè)置。系統(tǒng)默認(rèn)登錄用戶 9999，登錄密碼 9999，登錄后請盡快修改此用戶名密碼，以防他人擅用。39 / 40隨著科學(xué)技術(shù)的不斷提高，計算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識，它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。使用計算機(jī)對物資信息進(jìn)行管理，具有手工管理所無法比擬的優(yōu)點。例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高了企業(yè)的管理效率，是企業(yè)的科學(xué)化、規(guī)范化管理的重要條件。在本系統(tǒng)的設(shè)計中，基本達(dá)到課題的要求。在涂風(fēng)華老師的指導(dǎo)下，通過本次實踐，使我受益非淺，通過這次《企業(yè)庫房庫存物資管理系統(tǒng)》軟件的開發(fā)設(shè)計，充分熟悉了軟件工程設(shè)計的流程，深刻理解和體會了自頂向下，逐步求精的設(shè)計思想, 實踐和驗證了“設(shè)計先于編碼”思想的重要性和正確性。在制定軟件計劃后，必須嚴(yán)格進(jìn)行軟件需求分析，軟件需求必須理論和實際相結(jié)合，只有具有可行性的軟件和完全被理解的軟件需求才可以得到完整全面的軟件總體設(shè)計。同時也熟悉了常用軟件工程的各種圖表的繪制、文檔的編寫、管理，對自己以后面對更大的工程增強(qiáng)了信心。40 / 40參考文獻(xiàn)[1] 史濟(jì)民、顧春華、李昌武、——原理、方法與應(yīng)用 （2022重?。㊣SBN 7040115611[2] 邵維忠 楊芙清. 年[3] 王姍、 年[4] 宋昆、 Server 年 1 月[5] 劉志銘 張振坤 [6] 周予濱. 年