進(jìn)銷存管理系統(tǒng)設(shè)計(jì)及源代碼

#2l2lDOFORMCXJM.scx(3)控件Command2(取消)：ClickEvent事件：THISFORM.RELEASE8．按日期查詢界面：(1)表單Forml:InitEvent事件：請(qǐng)輸入查詢的:(2)控件Commandl(確定)：ClickEvent事件:CXNR=ALLTRIM(STR(YEAR(THISFORM.TEXT1.VALUE)))+'-'+ALLTRIM(STR(MONT(THISFORM.TEXT1.VALUE)))+'-'+ALLTRIM(STR(DAY(THISFORM.TEXT1.VALUE)))THISFORM.RELEASEDOCX.QPRDOFORMCXJM.scx(3)控件Commandl(取消)：THISFORM.RELEASE9．查詢文件:SETSAFETYOFFDOCASECASE品名OR單據(jù)編號(hào)OR進(jìn)貨商OR客戶SELECT*;FROM進(jìn)銷售!&CXLS;WHERE&CXLS..&CXSRNR=ALL;(SELECT&CXSRNR;FROM&CXLS;INTOTABLE_TABLE進(jìn)貨日期SELECT*;FROM進(jìn)銷售!&CXLS;WHERE&CXLS..進(jìn)貨日期=ALL;（SELECT進(jìn)貨日期;FROM&CXLS;WHERE&CXLS..進(jìn)貨日期=｛人&CXNR｝）;INTOTABLE_TABLE銷售日期SELECT*;FROM進(jìn)銷售!&CXLS;WHERE&CXLS..銷售日期=ALL;（SELECT銷售日期;FROM&CXLS;WHERE&CXLS..銷售日期=｛人&CXNR｝）;INTOTABLE_TABLEENDCASESETSAFETYON10．查詢顯示界面：（1）表單Forml:InitEvent事件：DOCASE進(jìn)貨查詢庫(kù)存查詢銷售查詢ENDCASE符合查詢條件的:（2）控件Commandl（打?。篊lickEvent事件:DOCASECASETHISFORM.OPTIONGROUP1.OPTION1.VALUE=1DOCASE進(jìn)貨查詢REPORTFORMCX_JH.FRXPREVIEW庫(kù)存查詢REPORTFORMCX_KC.FRXPREVIEW銷售查詢REPORTFORMCX_XS.FRXPREVIEWENDCASECASETHISFORM.OPTIONGROUP1.OPTION2.VALUE=1DOCASE進(jìn)貨查詢REPORTFORMCX_JH.FRXTOPRINTERPROMPT庫(kù)存查詢REPORTFORMCX_KC.FRXTOPRINTERPROMPT銷售查詢REPORTFORMCX_XS.FRXTOPRINTERPROMPTENDCASEENDCASE(3)控件Command2(退出)：ClickEvent事件：USETHISFORM.RELEASE11．系統(tǒng)維護(hù)界面：控件Commandl(數(shù)據(jù)備份)：ClickEvent事件：確定要備份數(shù)據(jù)嗎？提示IFX=6setsafetyoffcopyFILEJHDJ.DBFTO_JHDJ.DBFCOPYFILEKC.DBFTO_KC.DBFCOPYFILEXSDJ.DBFTO_XSDJ.DBF數(shù)據(jù)已成功備份！提示ENDIF控件Command2(數(shù)據(jù)恢復(fù))：ClickEvent事件：確定要恢復(fù)數(shù)據(jù)嗎？提示IFX=6setsafetyoffcopyFILE_JHDJ.DBFTOJHDJ.DBFCOPYFILE_KC.DBFTOKC.DBFCOPYFILE_XSDJ.DBFTOXSDJ.DBF數(shù)據(jù)已成功恢復(fù)！提示ENDIF(3)控件Command2(期終轉(zhuǎn)結(jié))：ClickEvent事件：確定要期終清空所有數(shù)據(jù)嗎？請(qǐng)注意先備份數(shù)據(jù)庫(kù)提示IFX=6setsafetyoffcopyFILEJHDJ