【正文】 //最大入庫單打印號 SELECT max() INTO :xx1 FROM ck_d。提示 39。 if 0 then m_bz=1 messagebox(39。+rck_mc) end if //判斷庫存中是否有此物資（主要是單價(jià)） select wzbh into :yyyy from kcqd_d where wzbh=:rck_wzbh and kcqd_dj=:rck_dj。庫存中無此物資！ 39。,39。+rck_mc) end if end if //修改物資檔案庫存 select wzbh into :yyyy from kc_da where wzbh=:rck_wzbh 。物資檔案中無此物資！ 39。,39。+rck_mc) end if end if IF m_bz=1 THEN exit END IF NEXT if m_bz=0 then for ii=1 to jj [ii]=max_dydh [ii]=d_rq next () COMMIT 。,39。,39。039。ck_sm39。bh39。) () return 1 end if count_row=() if count_row=0 then SELECT max() INTO :xx1 FROM ck_d。) return end if () stemp_llks=[1] if isnull(stemp_llks) or len(trim(stemp_llks))= 0 then messagebox(39。 messagebox(提示 ,數(shù)據(jù)處理錯誤，按提示的信息查找原因！ ) end if =true (max_dydh) int xxx,yyy,jjjj xxx=() yyy=9 xxx for jjjj=1 to yyy (0) next =xx_1 =xx_2 () jjjj=integer(print_sum) for jj=1 to jjjj (false) 33 next xx_1 =(1,rk_bgy) xx_2 =(1,rk_jbr) =xx_1 =xx_2 () ： double xx1,count_row,ii () ii= () string aa1,aa2 int lllppp lllppp=() if lllppp =9 then messagebox(39。+rck_wzbh +39。 if 0 then m_bz=1 32 messagebox(39。提示 39。+rck_wzbh +39。 if 0 then m_bz=1 messagebox(39。提示 39。,入出庫流水處理錯！ ~r~n出錯物資編號是 :+rck_wzbh +39。無數(shù)據(jù)可處理、打印！ 39。0000039。存盤錯誤！ 39。 messagebox(提示 ,數(shù)據(jù)處理錯誤，按提示的信息查找原因！ ) end if =true (max_dydh) int xxx,yyy,jjjj string xx_bgr,xx_wzkj xxx=() yyy=9 xxx for jjjj=1 to yyy (0) 29 next =xx_1 =xx_2 () jjjj=integer(print_sum) for jj=1 to jjjj (false) next //string mmcc,ffll,ddww,wz_bh string rck_rq,rck_bh,rck_mc,rck_ggxh,rck_cd,yyyy,rck_dw,rck_wzbh,rck_wzfl string xx_1,xx_2 double rck_sm,x000 dec {3} rck_gjje,rck_dj //打印前必須先存盤，預(yù)防有不規(guī)則數(shù)據(jù)產(chǎn)生 () IF ( ) = 1 THEN COMMIT 。,39。物資檔案中無此物資 ,更改物資檔案 28 庫！ 39。+rck_mc) end if end if //修改物資檔案庫存 select wzbh into :yyyy from kc_da where wzbh=:rck_wzbh 。,39。,~r~n出錯物資名是 :39。提示 39。,~r~n出錯物資名是 :39。 提示 39。,39。 if 0 then xx1=1 else xx1=xx1 + 1 end if max_dydh =string(xx1,39。存盤錯誤！ 39。醫(yī)療裝備 25 附錄 本次的醫(yī)院設(shè)備管理系統(tǒng)的部分源程序如下： ： //string mmcc,ffll,ddww,wz_bh string rck_rq,rck_bh,rck_mc,rck_ggxh,rck_cd,yyyy,rck_dw,rck_wzbh,rck_wzfl string xx_1,xx_2 double rck_sm,x000 dec {3} rck_gjje,rck_dj //打印前必須先存盤，預(yù)防有不規(guī)則數(shù)據(jù)產(chǎn)生 () IF ( ) = 1 THEN COMMIT 。 醫(yī)療設(shè)備維護(hù)管理初探 [J]。 24 參考文獻(xiàn) [1] 李石山，孫韶光、王新海 .管理信息系統(tǒng) [M].北京：高等教育出版社 . [2] 李玲 .數(shù)據(jù)庫管理系統(tǒng)及應(yīng)用 [M].北京：中國經(jīng)濟(jì)出版社 . [3] 衛(wèi)海 .Power builder 課程設(shè)計(jì)案例精編 [M].北京：中國水利水電出版社 . [4] 薩師煊，王珊 .數(shù)據(jù)庫系統(tǒng)概論 [M].北京：高等教育出版社 .2021 [5] 馬安貴，李明武，朱永生 .Power builder Win32 API 程序設(shè)計(jì)寶典 [M].北京：清華大學(xué)出版社 . [6] 姚阿慶等 .醫(yī)院管理大全 [M].北京：科學(xué)技術(shù)文獻(xiàn)出版社 .1996:156237 [7] 蔡毅 .PowerBuilder 基礎(chǔ)開發(fā)篇 [M].北京：清華大學(xué)出版社 .2021:253321 [8] 朱愛民 .PowerBuilder 編程實(shí)用技術(shù)與案例 [M].清華大學(xué)出版社 .:277309 [9] 周鋼 .PowerBuilder 項(xiàng)目開發(fā)實(shí)踐 [M].中國鐵道出版社 .:165204 [10] 顧澤月 . 基礎(chǔ)教程 [M].機(jī)械工業(yè)出版社 .:246283 [11] 陳春玲 .軟件工程與數(shù)據(jù)庫概論 [M](第一版 ).西安 :西安電子科技大學(xué)出版社 .:93109 [12] 陳永強(qiáng) ,謝維成 .SQL Server 數(shù)據(jù)庫企業(yè)應(yīng) 用系統(tǒng)開發(fā) [M] (第一版 ).北京：清華大學(xué)出版社 ,:55112 [13] 羅駿 .SQL 實(shí)用簡明教程 [M] (第一版 ).武漢： 中國水利出版社 . :65120 [14] 夏邦貴 .SQL Server 數(shù)據(jù)庫開發(fā)入門與范例解析 [M]. 北京：機(jī)械工業(yè)出版社 .:91144 [15] [美 ]William .《 軟件測試的有效方法 》 [M].北京： 機(jī)械工業(yè)出版社 . :71125 [16] 古樂 ,史九林 .軟件測試技術(shù)概論 [M] (第一版 ). 北京： 清 華大學(xué)出版社 . :97143 [17] 宋振會 .SQL Server2021 中文版基礎(chǔ)教程 [M].北京：清華大學(xué)出版社 .2021:235260 [18] 宋振會 .面向?qū)ο蠹夹g(shù)原理與設(shè)計(jì) [M].長沙：國防科技大學(xué)出版社 .1992:100134 [19] 王維紅 ,樊廷玖 。 本次實(shí)踐，通過對 操作系統(tǒng) 2021 、 powerbuilder 、 SQL 語言以及軟件工程的 親身實(shí)踐和應(yīng)用，學(xué)到了往日在書本上學(xué)不到 的知識，由此體會 到了實(shí)踐的重要性。隨著現(xiàn)代醫(yī)學(xué)的進(jìn)步醫(yī)療水平的提高，本系統(tǒng)的功能和特性也會不斷 完善與修改。目的是為了審核程序的實(shí)現(xiàn)及功能與用戶的需求是否一致， 也是對程序編碼進(jìn)行查錯的過程。 圖 設(shè)備庫存名細(xì)表：該表記錄了設(shè)備的庫存情況，查詢結(jié)果包括設(shè)備編號、名稱、規(guī)格、數(shù)量、單價(jià)、金額、庫存等。 設(shè)備出庫統(tǒng)計(jì)：根據(jù) 設(shè)備出庫時(shí)間、分類或名稱來對設(shè)備進(jìn)行查詢，結(jié)果包括設(shè)備類別、設(shè)備名稱、規(guī)格、單位、數(shù)量、單價(jià)、金額等 。 圖 設(shè)備出庫查詢：根據(jù)查詢時(shí)間的范圍或相關(guān)部門、設(shè)備編號、設(shè)備分類、設(shè)備名稱等關(guān)鍵詞查詢，查詢的結(jié)果包括出庫日期、領(lǐng)用的單位、設(shè)備的出庫單、設(shè)備的分類、設(shè)備名稱、規(guī)格型號、計(jì)量單位、出庫數(shù)量、出庫單價(jià)、出庫金額、設(shè)備相關(guān)保管員、經(jīng)辦人、備注等。 設(shè)備月入庫明細(xì)：根據(jù)要查詢的月份來查詢，結(jié)果包括入庫日期、入庫單號、設(shè)備的分類、設(shè)備的名稱、規(guī)格、型號、計(jì)量單位、數(shù)量、單價(jià)、總金額、發(fā)票號、設(shè)備保管員、經(jīng)辦人、備注等。) ROLLBACK 。 ELSE messagebox(39。經(jīng)辦人字典：經(jīng)辦人的名單，具備刪除、增加、查詢功能 14 圖 名稱輸入界面 設(shè)備分類字典：設(shè)備的分類屬性，可以增加、刪除、查詢設(shè)備種類、設(shè)備的名稱，設(shè)備類別的統(tǒng)計(jì)。初始化設(shè)備：用來初始化設(shè)備的信息，包括設(shè)備的名稱，規(guī)格型號，數(shù)量，單價(jià)金額等要素，