【正文】 =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) () endif 存儲命令代碼： if tableupdate(.F.)=.F. =messagebox(數(shù)據(jù)保存不成功 ,48,信息提示 ) else =.F. =.F. 43 endif 打印命令代碼： SELECT JH1 THISREC=RECNO() REPO FORM JH3 FOR RECNO()=THISREC PREVIEW 進(jìn)貨收款表單設(shè)計： 收款確認(rèn)命令代碼： ??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 jhysl=jhysl+ = =2 select fk1 delete for no= and no1= endif 42 select jh1 修改命令代碼： (enabled,.T.,textbox) (enabled,.T.,bobox) =.T. =.T. =3 取消命令代碼： if messagebox(是否放棄當(dāng)前操作 ?, 48+4,信息提示 )=6 amp。為本次進(jìn)貨記錄的余額 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 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 40 =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() go bottom endif =reo() (enabled,.F.,textbox) (enabled,.F.,bobox) 最后一個命令代碼： go bottom 41 =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 if testcond=1 =messagebox(設(shè)置的查詢條件不正確 ,48,信息提示 ) return endif go top 重置命令代碼： = 33 = = = = = =.F. =.F. =.F. =0 =.F. 取消命令代碼： 進(jìn)貨查詢表單設(shè)計：該表單只能用于查找，不能輸入、修改和刪除進(jìn)貨單 查找進(jìn)貨表單命 令代碼： public fchar(11),fname(11),ftype(11) fchar(1)=進(jìn)貨編號 fname(1)=no ftype(1)=C fchar(2)=進(jìn)貨日期 fname(2)=rq ftype(2)=D fchar(3)=進(jìn)貨單位 fname(3)=dw ftype(3)=C fchar(4)=品名 fname(4)=mc ftype(4)=C fchar(5)=單價 fname(5)=dj ftype(5)=N fchar(6)=數(shù)量 34 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)=進(jìn)貨編號 fname(1)=no ftype(1)=C fchar(2)=進(jìn)貨日期 fname(2)=rq ftype(2)=D fchar(3)=進(jìn)貨單位 fname(3)=dw ftype(3)=C fchar(4)=品名 35 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 排序確認(rèn)命令代碼： SELECT JH SEL= DO CASE CASE SEL=1 INDEX ON NO TO TEMPIDX 36 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 返回命令代碼： close data 商品銷售管理表單設(shè)計： 確實銷售本產(chǎn)品命令代碼： if empty() =messagebox(沒有指定入庫商品 ,不能銷售 ,48,信息提示 ) else public jhno,jhmc,jhxh,jhpz,jhysl jhysl= jhno= jhmc= jhxh= jhpz= do form jh31 =jhysl endif 第一個命令代碼： 37 SELECT JH GO TOP 上一個命令代碼： SELECT JH SKIP 1 IF BOF() GO TOP WAIT WINDOW 第一筆 ... NOWAIT ENDIF 下一個命令代碼： SELECT JH SKIP IF EOF() GO BOTTOM WAIT WINDOW 最后一筆 ... NOWAIT ENDIF 最后一個命令代碼： SELECT JH GO BOTTOM 查詢命令代碼： PUBLIC fchar(11),fname(11),ftype(11) fchar(1)=進(jìn)貨編號 fname(1)=no ftype(1)=C fchar(2)=進(jìn)貨日期 fname(2)=rq ftype(2)=D 38 fchar(3)=進(jìn)貨單位 fname(3)=dw 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 商品銷售管理表單設(shè)計：（為上一個服務(wù)） 39 收款命令代碼： ??CHR(7) if =0 =messagebox(本次進(jìn)貨余款已全部付清 ,不能選擇本按鈕 ,48,信息提示 ) else public byr select jh1 byr=yr amp。amp。 (,) do case case = 0 lcOperand = case = 1 cond=cond+ AND case = 2 cond=cond+ OR endcase if 0 cond=cond+fname()+。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。 系統(tǒng)結(jié)構(gòu)圖如下：