【正文】 COND GO RECBH ENDIF 1系統(tǒng)維護表單 增加命令代碼： SELECT JBRB APPEND BLANK 刪除命令代碼： if messagebox(記錄一旦刪除 ,便不能恢復(fù) ,真的刪除嗎 。 ENDIF 排序確認命令代碼： SELECT JH1 SEL= DO CASE CASE SEL=1 INDEX ON NO+STR(NO1) TO TEMPIDX CASE SEL=2 INDEX ON RQ TO TEMPIDX CASE SEL=3 INDEX ON DW TO TEMPIDX CASE SEL=4 INDEX ON MC TO TEMPIDX CASE SEL=5 INDEX ON XH TO TEMPIDX CASE SEL=6 INDEX ON JBR TO TEMPIDX ENDCASE GO TOP 1商品庫存統(tǒng)計表單： 排序確認命令代碼： SELECT JH SEL= DO CASE CASE SEL=1 INDEX ON NO TO TEMPIDX 54 CASE SEL=2 INDEX ON RQ TO TEMPIDX CASE SEL=3 INDEX ON DW TO TEMPIDX CASE SEL=4 INDEX ON MC TO TEMPIDX CASE SEL=5 INDEX ON XH TO TEMPIDX CASE SEL=6 INDEX ON JBR TO TEMPIDX ENDCASE GO TOP 打印商品庫存表命令代碼： SELECT JH RECBH=RECNO() COUNT TO ZS IF ZS=0 =MESSAGEBOX(沒有選擇任何要打印的商品記錄 ,不能打印 !,48,信息提示 ) ELSE COND=FILTER() IF EMPTY(COND) COND=.T. ENDIF SET FILTER TO !EMPTY(TAG) AND amp。 53 REPL TAG WITH SPACE(2) ELSE REPL TAG WITH 39。 ALL GO RECBH ENDIF 全部取消命令代碼： SELECT JH1 RECBH=RECNO() COUNT TO REC IF REC=0 =MESSAGEBOX(沒 有 選 擇 的 進 貨 記 錄 !,48,信息提示 ) ELSE REPL TAG WITH SPACE(2) ALL GO RECBH ENDIF 選擇或取消命令代碼： SELECT JH1 IF TAG=39。COND GO RECBH ENDIF 全部選定命令代碼： SELECT JH1 RECBH=RECNO() COUNT TO REC IF REC=0 =MESSAGEBOX(沒 有 選 擇 的 進 貨 記 錄 !,48,信息提示 ) ELSE REPL TAG WITH 39。為本次收款金額 ENDIF 50 取消收款命令代碼： BYR=0 BYR=0 銷貨記錄及收款情況的查詢與打印表單 查找銷貨單命令代碼： public fchar(12),fname(12),ftype(12) fchar(1)=進貨編號 fname(1)=no ftype(1)=C fchar(2)=銷售編號 fname(2)=no1 ftype(2)=N fchar(3)=銷貨日期 fname(3)=rq ftype(3)=D fchar(4)=發(fā)貨單位 fname(4)=dw ftype(4)=C fchar(5)=品名 fname(5)=mc ftype(5)=C fchar(6)=單價 fname(6)=dj ftype(6)=N fchar(7)=數(shù)量 fname(7)=sl ftype(7)=N fchar(8)=金額 fname(8)=jr ftype(8)=N 51 fchar(9)=未收金額 fname(9)=yr ftype(9)=N fchar(10)=經(jīng)辦人 fname(10)=jbr ftype(10)=C fchar(11)=保管人 fname(11)=bgr ftype(11)=C fchar(12)=收貨人 fname(12)=shr ftype(12)=C do form jh12 打印銷貨資金表命令代碼： SELECT JH1 RECBH=RECNO() COUNT TO ZS IF ZS=0 =MESSAGEBOX(沒有選擇任何要打印的銷貨記錄 ,不能打印 !,48,信息提示 ) ELSE COND=FILTER() IF EMPTY(COND) COND=.T. ENDIF SET FILTER TO !EMPTY(TAG) AND amp。若存在記錄 ,則轉(zhuǎn)向 取消 操作前的記錄 go endif endif (enabled,.F.,textbox) (enabled,.F.,bobox) 49 () endif 存儲命令代碼： if tableupdate(.F.)=.F. =messagebox(數(shù)據(jù)保存不成功 ,48,信息提示 ) else =.F. =.F. endif 打印命令代碼： SELECT JH1 THISREC=RECNO() REPO FORM JH3 FOR RECNO()=THISREC PREVIEW 進貨收款表單設(shè)計： 收款確認命令代碼： ??CHR(7) IF MESSAGEBOX(輸入的付款正確嗎 [一旦付款 ,不能再改動 ]?,4+32,提示信息 )=6 SELECT FK1 APPEND BLANK REPL NO WITH REPL NO1 WITH repl no2 with REPL RQ WITH REPL JR WITH REPL JBR WITH REPL YR WITH REPL BZ WITH BYR= amp。添加操作 = if 0 amp。將數(shù)據(jù)恢復(fù) =.F. =.F. if =1 amp?；卮?是 =tablerevert(.F.) amp?；卮?是 delete 48 jhysl=jhysl+ = =2 select fk1 delete for no= and no1= endif select jh1 修改命令代碼： (enabled,.T.,textbox) (enabled,.T.,bobox) =.T. =.T. =3 取消命令代碼： if messagebox(是否放棄當(dāng)前操作 ?, 48+4,信息提示 )=6 amp。為本次進貨記錄的余額 select fk1 set filter to no= and no1= count to bh do form jh32 with bh select jh1 repl yf with yf+byr,yr with yrbyr endif 打印收款條命令代碼： SELECT JH1 IF YF0 SELECT REPTAB ZAP APPEND BLANK 46 REPL NO WITH ,RQ WITH ,DW WITH ,MC WITH REPL PZ WITH ,XH WITH ,DJ WITH ,SL WITH REPL JR WITH ,YF WITH ,YR WITH ,JBR WITH REPL BGR WITH ,FHR WITH ,RQ1 WITH ,JR1 WITH ,JBR1 WITH REPO FORM FK1 PREVIEW SELECT JH1 ELSE =MESSAGEBOX(沒有選擇任何收 款單 ,不能打印 ,48,信息提示 ) ENDIF 返回命令代碼： 第一個命令代碼： go top =reo() (enabled,.F.,textbox) (enabled,.F.,bobox) 上一個命令代碼： skip 1 if bof() go top endif =reo() (enabled,.F.,textbox) (enabled,.F.,bobox) 下一個命令代碼： skip if eof() 47 go bottom endif =reo() (enabled,.F.,textbox) (enabled,.F.,bobox) 最后一個命令代碼： go bottom =reo() (enabled,.F.,textbox) (enabled,.F.,bobox) 添加命令代碼： select jh1 append blank =+1 jhno1=jhno1+1 repl mc with jhmc,xh with jhxh,pz with jhpz repl no with jhno,no1 with jhno1 (enabled,.T.,textbox) (enabled,.T.,bobox) =.T. =.T. =1 刪除命令代碼： if messagebox(記錄一旦刪除便不能恢復(fù) ,真的要刪除嗎 ?,48+4,信息提示 )=6 amp。cond 39 if testcond=1 =messagebox(設(shè)置的查詢條件不正確 ,48,信息提示 ) return endif go top 重置命令代碼： = = = = = = =.F. =.F. =.F. =0 =.F. 取消命令代碼： 進貨查詢表單設(shè)計：該表單只能用于查找，不能輸入、修改和刪除進貨單 查找進貨表單命令代碼： public fchar(11),fname(11),ftype(11) fchar(1)=進貨編號 fname(1)=no ftype(1)=C fchar(2)=進貨日期 fname(2)=rq ftype(2)=D fchar(3)=進貨單位 fname(3)=dw 40 ftype(3)=C fchar(4)=品名 fname(4)=mc ftype(4)=C fchar(5)=單價 fname(5)=dj ftype(5)=N fchar(6)=數(shù)量 fname(6)=sl ftype(6)=N fchar(7)=金額 fname(7)=jr ftype(7)=N fchar(8)=剩余數(shù)量 fname(8)=ysl ftype(8)=N fchar(9)=經(jīng)辦人 fname(9)=jbr ftype(9)=C fchar(10)=保管人 fname(10)=bgr ftype(10)=C fchar(11)=發(fā)貨人 fname(11)=fhr ftype(11)=C do form jh12 打印資金表命令代碼： public fchar(11),fname(11),ftype(11) fchar(1)=進貨編號 fname(1)=no 41 ftype(1)=C fchar(2)=進貨日期 fname(2)=rq ftype(2)=D fchar(3)=進貨單位 fname(3)=dw ftype(3)=C fchar(4)=品名 fname(4)=mc ftype(4)=C fchar(5)=單價 fname(5)=dj ftype