【正文】 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 。 ELSE messagebox(39。提示 39。,39。存盤錯(cuò)誤！ 39。) ROLLBACK 。 return END IF //產(chǎn)生打印入庫(kù)單編號(hào) string max_dydh long xx1 //最大入庫(kù)單打印號(hào) SELECT max() INTO :xx1 FROM ck_d。 if 0 then xx1=1 else xx1=xx1 + 1 end if 30 max_dydh =string(xx1,39。0000039。) //求出的本次打印出庫(kù)單號(hào) //求出所有的未打印出庫(kù)的出庫(kù)設(shè)備數(shù)，準(zhǔn)備做相應(yīng)數(shù)據(jù)處理 int ii,jj jj=() if jj=0 then messagebox(39。提示 39。,39。無數(shù)據(jù)可處理、打?。?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,ck_mc) rck_ggxh= (ii,ggxh) rck_cd = (ii,ck_cd) rck_dj =(ii,ck_gjdj) rck_sm =(ii,ck_sm) rck_gjje=(ii,ck_gjje) rck_dw =(ii,ck_dw) xx_1 =(1,ck_bgy) xx_2 =(1,ck_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 31 _dj, :rck_sm, 1, :rck_gjje, :rck_dw)。 if 0 then m_bz=1 messagebox(39。 提示 39。,入出庫(kù)流水處理錯(cuò)！ ~r~n出錯(cuò)物資編號(hào)是 :+rck_wzbh +39。,~r~n出錯(cuò)物 資名是 :39。+rck_mc) end if //判斷庫(kù)存中是否有此物資（主要是單價(jià)） select wzbh into :yyyy from kcqd_d where wzbh=:rck_wzbh and kcqd_dj=:rck_dj。 if 0 then //無此單價(jià)物資，提示報(bào)錯(cuò)處理 m_bz=1 messagebox(39。提示 39。,rck_mc +39。庫(kù)存中無此物資！ 39。) else //庫(kù)存中有此物資，減去本類物資信息 update kcqd_d set rck_sm=rck_sm :rck_sm , rck_je=rck_je :rck_gjje where wzbh=:rck_wzbh and kcqd_dj=:rck_dj。 if 0 then m_bz=1 messagebox(39。提示 39。,39。更改本類物資信息錯(cuò)！ ~r~n出錯(cuò)物資編號(hào)是 :39。+rck_wzbh +39。,~r~n出錯(cuò)物資名是 :39。+rck_mc) end if end if //修改物資檔案庫(kù)存 select wzbh into :yyyy from kc_da where wzbh=:rck_wzbh 。 if 0 then //物資檔案庫(kù)中無此物資，提示說明 m_bz=1 messagebox(39。提示 39。,39。物資檔案中無此物資！ 39。) else //更改物資檔案信息 update kc_da set rck_sm=rck_sm :rck_sm where wzbh=:rck_wzbh 。 if 0 then m_bz=1 32 messagebox(39。提示 39。,39。更改物資檔案信息錯(cuò)！ ~r~n出錯(cuò)物資編號(hào)是 :39。+rck_wzbh +39。,~r~n出錯(cuò)物資名是 :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 。 (stemp_llks) else ROLLBACK。 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。提示 39。,39。規(guī)定最多輸入為 9個(gè)記錄 39。) return end if () stemp_llks=[1] if isnull(stemp_llks) or len(trim(stemp_llks))= 0 then messagebox(39。提示 39。,39。用料單位不能為空！ 39。) () return 1 end if count_row=() if count_row=0 then SELECT max() INTO :xx1 FROM ck_d。 if 0 or isnull(xx1) then xx1=1 else xx1=xx1 + 1 end if 34 else aa1=(1,bh) FOR ii=1 TO count_row aa2=(ii,bh) if aa1aa2 then aa1=aa2 end if xx1=double (aa1) + 1 NEXT end if count_row= (0) () (count_row,rq_,d_rq_) (count_row) (count_row) (count_row,bh,string(xx1,0000000)) (count_row,dybz,39。039。) (39。bh39。) open(w_wzzl_xz) if xx_mc,./,./ then (count_row,ck_mc,xx_mc) (count_row,wzfl,xx_wzfl) (count_row,ck_dw,xx_dw) (count_row,ck_gjdj, xx_dj) (count_row,ggxh, xx_ggxh) (count_row,wzbh,xx_wzbh) (count_row,yldw,stemp_llks) () (39。ck_sm39。) () else (count_row) end if 35 致謝