商品銷售管理系統畢業論文[001](編輯修改稿)

　

【文章內容簡介】 設計：=2=進銷存管理系統=.F.=.F.=.F.close allclear allcleaset sysmenu offset sysmenu toset talk offset date ansiset delete onset exact offset safety offset status bar offdo form pass to numif num do form main read eventendifset sysmenu to defaultset sysmenu onset status bar onuse jhpackuse jh1packuse fkpackuse fk1packuse mcbpackuse jbrbpackuse dwbpackclose allclear allreturn pass表單設計：確認命令代碼：IF (N2) =MESSAGEBOX(口令三次輸入錯誤,不能使用本系統,48,信息提示) =.F. ELSE IF ALLTRIM()==ALLTRIM() =.T. ELSE =MESSAGEBOX(口 令 不 正 確, 重 新 輸 入,48,信息提示) =SPACE(10) N=N+1 ENDIFENDIF 進貨管理表單設計：進貨管理表單不僅包括添加、刪除、修改、存儲、取消、上一個、第一個、下一個、最后一個等命令，還包括查找進銷單、付款、打印付款等命令。查找進銷單命令代碼：public fchar(11),fname(11),ftype(11)fchar(1)=進貨編號fname(1)=noftype(1)=Cfchar(2)=進貨日期fname(2)=rqftype(2)=Dfchar(3)=進貨單位fname(3)=dwftype(3)=Cfchar(4)=品名fname(4)=mcftype(4)=Cfchar(5)=單價fname(5)=djftype(5)=Nfchar(6)=數量fname(6)=slftype(6)=Nfchar(7)=金額fname(7)=jrftype(7)=Nfchar(8)=剩余數量fname(8)=yslftype(8)=Nfchar(9)=經辦人fname(9)=jbrftype(9)=Cfchar(10)=保管人fname(10)=bgrftype(10)=Cfchar(11)=發貨人fname(11)=fhrftype(11)=Cdo form jh12付款命令代碼：??CHR(7)IF =0 =MESSAGEBOX(本次進貨余款已全部付清,不能選擇本按鈕,48,信息提示)ELSE PUBLIC BYR SELECT JH BYR=YR amp。amp。為本次進貨記錄的余額 SELECT FK SET FILTER TO NO= COUNT TO BH DO FORM JH11 WITH BH SELECT JH REPL YF WITH YF+BYR,YR WITH YRBYR ENDIF第一個命令代碼：??CHR(7)IF =0 =MESSAGEBOX(本次進貨余款已全部付清,不能選擇本按鈕,48,信息提示)ELSE PUBLIC BYR SELECT JH BYR=YR amp。amp。為本次進貨記錄的余額 SELECT FK SET FILTER TO NO= COUNT TO BH DO FORM JH11 WITH BH SELECT JH REPL YF WITH YF+BYR,YR WITH YRBYR ENDIF上一個命令代碼：skip 1if bof() go topendif=reo()(enabled,.F.,textbox)(enabled,.F.,bobox)下一個命令代碼：skipif eof() go bottomendif=reo()(enabled,.F.,textbox)(enabled,.F.,bobox)最后一個命令代碼：go bottom=reo()(enabled,.F.,textbox)(enabled,.F.,bobox)添加命令代碼：append blank=+1(enabled,.T.,textbox)(enabled,.T.,bobox)=.T.=.T.=1 amp。amp。指定操作模式刪除命令代碼：if messagebox(記錄一旦刪除便不能恢復,而且涉及很多相關數據刪除,真的要刪除嗎?,48+4,信息提示)=6 amp。amp。回答是 delete = =2 amp。amp。指定操作模式 select fk delete for no= select jh1 delete for no= select fk1 delete for no= endifselect jh修改命令代碼：(enabled,.T.,textbox)(enabled,.T.,bobox)=.T.=.T.=3 amp。amp。指定操作模式取消命令代碼：if messagebox(是否放棄當前操作?, 48+4,信息提示)=6 amp。amp?；卮鹗?=tablerevert(.F.) amp。amp。將數據恢復 =.F. =.F. if =1 amp。amp。添加操作 = if 0 amp。amp。若存在記錄,則轉向取消操作前的記錄 go endif endif (enabled,.F.,textbox) (enabled,.F.,bobox) ()endif存儲命令代碼：if tableupdate(.F.)=.F. =messagebox(數據保存不成功,48,信息提示)else =.F. =.F.endif打印命令代碼：SELECT JHTHISREC=RECNO()REPO FORM JH3 FOR RECNO()=THISREC PREVIEW 進貨付款表單：付款確認命令代碼：??CHR(7)IF MESSAGEBOX(輸入的付款正確嗎[一旦付款,不能再改動]?,4+32,提示信息)=6 SELECT FK APPEND BLANK REPL NO WITH REPL NO1 WITH REPL RQ WITH REPL JR WITH REPL JBR WITH REPL YR WITH REPL BZ WITH BYR= amp。amp。為本次付款金額ENDIF 查詢進貨單表單：確定命令代碼：if =0 if messagebox(沒有設置任何條件,查詢所有的記錄,48+1,信息提示)=1 set filter to .t. endif returnelse if 0 and =0 =messagebox(設置的查詢條件2不完整,48,信息提示) return endifendifcond=fname()++ 。 (,)do case case = 0 lcOperand = case = 1 cond=cond+ AND case = 2 cond=cond+ OR endcaseif 0 cond=cond+fname()+。 +(,)endiftestcond=0on error testcond=1 amp。amp。當過濾語句不正確時,執行testcond=1set filter to amp。condif testcond=1 =messagebox(設置的查詢條件不正確,48,信息提示) returnendifgo top重置命令代碼： = = = = ===.F.=.F.=.F.=0=.F.取消命令代碼： 進貨查詢表單設計：該表單只能用于查找，不能輸入、修改和刪除進貨單查找進貨表單命令代碼：public fchar(11),fname(11),ftype(11)fchar(1)=進貨編號fname(1)=noftype(1)=Cfchar(2)=進貨日期fname(2)=rqftype(2)=Dfchar(3)=進貨單位fname(3)=dwftype(3)=Cfchar(4)=品名fname(4)=mcftype(4)=Cfchar(5)=單價fname(5)=djftype(5)=Nfchar(6)=數量fname(6)=slftype(6)=Nfchar(7)=金額fname(7)=jrftype(7)=Nfchar(8)=剩余數量fname(8)=yslftype(8)=Nfchar(9)=經辦人fname(9)=jbrftype(9)=Cfchar(10)=保管人fname(10)=bgrftype(10)=Cfchar(11)=發貨人fname(11)=fhrftype(11)=Cdo form jh12打印資金表命令代碼：public fchar(11),fname(11),ftype(11)fchar(1)=進貨編號fname(1)=noftype(1)=Cfchar(2)=進貨日期fname(2)=rqftype(2)=Dfchar(3)=進貨單位fname(3)=dwftype(3)=Cfchar(4)=品名fname(4)=mcftype(4)=Cfchar(5)=單價fname(5)=djftype(5)=Nfchar(6)=數量fname(6)=slftype(6)=Nfchar(7)=金額fname(7)=jrftype(7)=Nfchar(8)=剩余數量fname(8)=yslftype(8)=Nfchar(9)=經辦人fname(9)=jbrftype(9)=Cfchar(10)=保管人fname(10)=bgrftype(10)=Cfchar(11)=發貨人fname(11)=fhrftype(11)=Cdo form jh12排序確認命令代碼：SELECT JHSEL=DO CASE CASE SEL=1 INDEX ON NO TO TEMPIDX CASE SEL=2