【導(dǎo)讀】了以往繁雜的人工勞動，提高了工作效率。類客戶信息數(shù)據(jù)，就可以極大地提高企業(yè)的工作效率。信息化工作的順利進行。速、準確、智能的強大功能。但由于本人軟件設(shè)計方面的經(jīng)驗不。的資料，并參考了別人的程序，才最終完成了本系統(tǒng)的設(shè)計。較快，對計算機的硬件環(huán)境要求不高。能夠完成公司進銷存管理。分析不全面、詳細，對軟件工程的認識不足，也缺乏設(shè)計經(jīng)驗，所以曾出現(xiàn)過一些問題和錯誤，但是經(jīng)過本人查詢相關(guān)的資料，題后來基本上得到了解決，使用單位也比較滿意。如今，世界已進入在。隨著WTO的加入和我國工業(yè)的迅猛。程序，加強管理的信息化手段，提高工作效率，增加單位效益。中也已經(jīng)達到了相當高的水平。種挑戰(zhàn)，長時間得出的結(jié)果不一定是最全面、最適合的，且延誤商機。作效率低落，企業(yè)內(nèi)部溝通不良等等問題很難克服。市，還有數(shù)十家軟件企業(yè)紛紛翹首盼望；資本從.COM撤回，瞄準軟件產(chǎn)業(yè)，

　　

【正文】 ar(1)=進貨編號 fname(1)=no 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(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 45 ftype(10)=C fchar(11)=發(fā)貨人 fname(11)=fhr ftype(11)=C DO FORM JH12 商品銷售管理表單設(shè) 計：（為上一個服務(wù)） 收款命令代碼： ??CHR(7) if =0 =messagebox(本次進貨余款已全部付清 ,不能選擇本按鈕 ,48,信息提示 ) else public byr select jh1 byr=yr amp。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。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(是否放棄當前操作 ?, 48+4,信息提示 )=6 amp。amp?；卮?是 =tablerevert(.F.) amp。amp。將數(shù)據(jù)恢復(fù) =.F. =.F. if =1 amp。amp。添加操作 = if 0 amp。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。amp。為本次收款金額 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。COND COUNT TO REC IF REC=0 =MESSAGEBOX(沒有選擇任何要打印的銷貨記錄 ,不能打印 !,48,信息提示 ) 52 ELSE REPORT FORM JH1 PREVIEW ENDIF SET FILTER TO amp。COND GO RECBH ENDIF 全部選定命令代碼： SELECT JH1 RECBH=RECNO() COUNT TO REC IF REC=0 =MESSAGEBOX(沒 有 選 擇 的 進 貨 記 錄 !,48,信息提示 ) ELSE REPL TAG WITH 39。√ 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?！?39。 53 REPL TAG WITH SPACE(2) ELSE REPL TAG WITH 39?！?39。 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。COND COUNT TO REC IF REC=0 =MESSAGEBOX(沒有選擇任何要打印的商品記錄 ,不能打印 !,48,信息提示 ) ELSE 55 REPORT FORM JH2 PREVIEW ENDIF SET FILTER TO amp。COND GO RECBH ENDIF 1系統(tǒng)維護表單 增加命令代碼： SELECT JBRB APPEND BLANK 刪除命令代碼： if messagebox(記錄一旦刪除 ,便不能恢復(fù) ,真的