【正文】 ck_sm39。bh39。039。) () return 1 end if count_row=() if count_row=0 then SELECT max() INTO :xx1 FROM ck_d。,39。) return end if () stemp_llks=[1] if isnull(stemp_llks) or len(trim(stemp_llks))= 0 then messagebox(39。,39。 messagebox(提示 ,數(shù)據(jù)處理錯(cuò)誤，按提示的信息查找原因！ ) 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_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 。+rck_wzbh +39。,39。 if 0 then m_bz=1 32 messagebox(39。物資檔案中無(wú)此物資！ 39。提示 39。+rck_mc) end if end if //修改物資檔案庫(kù)存 select wzbh into :yyyy from kc_da where wzbh=:rck_wzbh 。+rck_wzbh +39。,39。 if 0 then m_bz=1 messagebox(39。庫(kù)存中無(wú)此物資！ 39。提示 39。+rck_mc) end if //判斷庫(kù)存中是否有此物資（主要是單價(jià)） select wzbh into :yyyy from kcqd_d where wzbh=:rck_wzbh and kcqd_dj=:rck_dj。,入出庫(kù)流水處理錯(cuò)！ ~r~n出錯(cuò)物資編號(hào)是 :+rck_wzbh +39。 if 0 then m_bz=1 messagebox(39。無(wú)數(shù)據(jù)可處理、打??！ 39。提示 39。0000039。 return END IF //產(chǎn)生打印入庫(kù)單編號(hào) string max_dydh long xx1 //最大入庫(kù)單打印號(hào) SELECT max() INTO :xx1 FROM ck_d。存盤錯(cuò)誤！ 39。提示 39。 messagebox(提示 ,數(shù)據(jù)處理錯(cuò)誤，按提示的信息查找原因！ ) 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 。) 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。 if 0 then m_bz=1 messagebox(39。物資檔案中無(wú)此物資 ,更改物資檔案 28 庫(kù)！ 39。提示 39。+rck_mc) end if end if //修改物資檔案庫(kù)存 select wzbh into :yyyy from kc_da where wzbh=:rck_wzbh 。+rck_wzbh +39。,39。 if 0 then m_bz=1 messagebox(39。,~r~n出錯(cuò)物資名是 :39。向庫(kù)中添加物資出錯(cuò)！ ~r~n出錯(cuò)物資編號(hào)是 :39。提示 39。 if 0 then //無(wú)此單價(jià)物資，向庫(kù)存庫(kù)中添加該物資物資中 INSERT INTO kcqd_d (wzbh, wzfl, kcqd_mc, kcqd_dj, kcqd_ggxh, rck_dw, rck_sm, rck_je ) VALUES (:rck_wzbh, :rck_wzfl, :rck_mc, :rck_dj, :rck_ggxh, :rck_dw, :rck_sm, :rck_gjje)。,~r~n出錯(cuò)物資名是 :39。 入出庫(kù)流水處理錯(cuò)！ ~r~n出錯(cuò)物資編號(hào) 27 是 :39。 提示 39。) return end if m_bz=0 =false //設(shè)置提交標(biāo)志 FOR ii=1 TO jj //取出每條記錄的值 rck_wzbh=(ii,wzbh) rck_rq = (ii,rq) rck_bh = (ii,bh) rck_wzfl=(ii,wzfl) rck_mc = (ii,rk_mc) rck_ggxh= (ii,ggxh) rck_cd = (ii,rk_cd) rck_dj =(ii,rk_gjdj) rck_sm =(ii,rk_sm) rck_gjje=(ii,rk_gjje) rck_dw =(ii,rk_dw) xx_1 =(1,rk_bgy) xx_2 =(1,rk_jbr) //插入流水庫(kù) INSERT INTO rckls_d (wzbh, rq, bh, wzfl, rck_mc, rck_ggxh, rck_cd, rck_gjdj, rck_sm, rck_bzsm, rck_je, rck_dw) VALUES (:rck_wzbh,:rck_rq, :rck_bh, :rck_wzfl, :rck_mc, :rck_ggxh, :rck_cd, :rck_dj, :rck_sm, 1, :rck_gjje, :rck_dw)。,39。) //求出的本次打印入庫(kù)單號(hào) //求出所有的未打印入庫(kù)的入庫(kù)設(shè)備數(shù)，準(zhǔn)備做相應(yīng)數(shù)據(jù)處理 int ii,jj jj=() 26 if jj=0 then messagebox(39。 if 0 then xx1=1 else xx1=xx1 + 1 end if max_dydh =string(xx1,39。 return END IF //產(chǎn)生打印入庫(kù)單編號(hào) string max_dydh long xx1 //最大入庫(kù)單打印號(hào) SELECT max() INTO :xx1 FROM rk_d where 39。存盤錯(cuò)誤！ 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,rc