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

#2l2lDOFORMCXJM.scx(3)控件Command2(取消)：ClickEvent事件：THISFORM.RELEASE8．按日期查詢(xún)界面：(1)表單Forml:InitEvent事件：請(qǐng)輸入查詢(xún)的:(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．查詢(xún)文件:SETSAFETYOFFDOCASECASE品名OR單據(jù)編號(hào)OR進(jìn)貨商O(píng)R客戶SELECT*;FROM進(jìn)銷(xiāo)售!&CXLS;WHERE&CXLS..&CXSRNR=ALL;(SELECT&CXSRNR;FROM&CXLS;INTOTABLE_TABLE進(jìn)貨日期SELECT*;FROM進(jìn)銷(xiāo)售!&CXLS;WHERE&CXLS..進(jìn)貨日期=ALL;（SELECT進(jìn)貨日期;FROM&CXLS;WHERE&CXLS..進(jìn)貨日期=｛人&CXNR｝）;INTOTABLE_TABLE銷(xiāo)售日期SELECT*;FROM進(jìn)銷(xiāo)售!&CXLS;WHERE&CXLS..銷(xiāo)售日期=ALL;（SELECT銷(xiāo)售日期;FROM&CXLS;WHERE&CXLS..銷(xiāo)售日期=｛人&CXNR｝）;INTOTABLE_TABLEENDCASESETSAFETYON10．查詢(xún)顯示界面：（1）表單Forml:InitEvent事件：DOCASE進(jìn)貨查詢(xún)庫(kù)存查詢(xún)銷(xiāo)售查詢(xún)ENDCASE符合查詢(xún)條件的:（2）控件Commandl（打印）：ClickEvent事件:DOCASECASETHISFORM.OPTIONGROUP1.OPTION1.VALUE=1DOCASE進(jìn)貨查詢(xún)REPORTFORMCX_JH.FRXPREVIEW庫(kù)存查詢(xún)REPORTFORMCX_KC.FRXPREVIEW銷(xiāo)售查詢(xún)REPORTFORMCX_XS.FRXPREVIEWENDCASECASETHISFORM.OPTIONGROUP1.OPTION2.VALUE=1DOCASE進(jìn)貨查詢(xún)REPORTFORMCX_JH.FRXTOPRINTERPROMPT庫(kù)存查詢(xún)REPORTFORMCX_KC.FRXTOPRINTERPROMPT銷(xiāo)售查詢(xún)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