最新訂單管理信息系統(tǒng)設(shè)計免費下載-資料下載頁
2025-04-07 23:13本頁面
【正文】 訂單管理系統(tǒng)) CLEAR EVENTS QUIT ENDIFENDIFENDIFSET EXACT OFF（2）“取消”按鈕的Click事件代碼LOCAL YNYN= MESSAGEBOX(確定退出 ,4+32, 訂單管理系統(tǒng))IF YN=6 CLEAR EVENTS QUITENDIF 產(chǎn)品信息窗口代碼(1)Unload事件代碼如下： IF =cSelectReturn ENDIF (2)DblClick事件代碼如下：IF =cSelect =ALLTRIM() ENDIF （3）Cmdser按鈕的Click事件代碼如下:SelTJ=.T.IF .NOT. EMPTY(ALLTRIM()) SelTJ=SelTJ + AND 39。 + ALLTRIM() + 39。 $ 編號ENDIFIF .NOT. EMPTY(ALLTRIM()) SelTJ=SelTJ + AND 39。 + ALLTRIM()+ 39。 $ 品名ENDIFSELECT ProductInfoSET FILTER TOSET FILTER TO amp。SelTJ (4)“退出”代碼如下：YN=MESSAGEBOX(確定退出,4+32,訂單管理系統(tǒng))IF YN=6 IF =cSelect =0000000000 ENDIF“查詢”按鈕的Click事件代碼：SelTJ=.T.IF .NOT. EMPTY(ALLTRIM()) SelTJ=SelTJ + AND 39。 + ALLTRIM() + 39。 $ 編號ENDIFIF .NOT. EMPTY(ALLTRIM()) SelTJ=SelTJ + AND 39。 + ALLTRIM()+ 39。 $ 名稱ENDIFIF .NOT. EMPTY(ALLTRIM()) SelTJ=SelTJ + AND 39。 + ALLTRIM()+ 39。 $ 聯(lián)系人ENDIFSELECT ClientInfoSET FILTER TOSET FILTER TO amp。SelTJ（2） “打印”按鈕的Click事件代碼：REPORT FORM ClientInfo Preview FOR amp。SelTJ(1)“增加”按鈕的Click事件代碼：SELECT OrderInfo=RECNO()APPEND BLANK=DATE()=0=.T.=.T.(2)“修改”按鈕的Click事件代碼：SELECT OrderInfo=RECNO()=.T.=.T.“刪除”按鈕的Click事件代碼：LOCAL YNYN=Messagebox(確定刪除,4+32,訂單管理系統(tǒng))IF YN=6SELECT OrderInfoDELETEPACKIf Eof() .AND. BOF() OR RECCOUNT()=0ELSEIF BOF()SkipElseIf Eof()SKip1EndIFEndIFENDIFENDIF“打印”按鈕的Click事件代碼：REPORT FORM OrderInfo Preview FOR ALLTRIM(訂單編號)=ALLTRIM()“保存”按鈕的Click事件代碼：LOCAL OK,YNOK=.T.DO CASECASE EMPTY(ALLTRIM())MESSAGEBOX(訂單編號不能為空,48,訂單管理系統(tǒng))OK=.F.CASE EMPTY(ALLTRIM())MESSAGEBOX(產(chǎn)品編號不能為空,48,訂單管理系統(tǒng))OK=.F.CASE =0MESSAGEBOX(產(chǎn)品數(shù)量不能為空,48,訂單管理系統(tǒng))OK=.F.CASE EMPTY(ALLTRIM())MESSAGEBOX(客戶編號不能為空,48,訂單管理系統(tǒng))OK=.F.CASE EMPTY(ALLTRIM())MESSAGEBOX(聯(lián)系人不能為空,48,訂單管理系統(tǒng))OK=.F.CASE EMPTY(ALLTRIM())MESSAGEBOX(聯(lián)系電話不能為空,48,訂單管理系統(tǒng))OK=.F. EndCaseIF OK=.T.YN=MESSAGEBOX(確定保存記錄,4+32,訂單管理系統(tǒng))IF YN=6SELECT OrderInfoIF TABLEUPDATE(.F.)=.F.MESSAGEBOX(訂單編號錯誤,48,訂單管理系統(tǒng))Else=.F.=.F.EndIfEndIf=.F.ENDIF“取消”按鈕的Click事件代碼：Local OKYN=MESSAGEBOX(確定取消,4+32,訂單管理系統(tǒng))IF YN=6SELECT OrderInfoTABLEREVERT(.F.)IF BOF() .AND. EOF() OR RECCOUNT()=0ELSEGO =.F.=.F.ENDIF=.F.EndIf使用本系統(tǒng)時，進入登錄界面，初始用戶名為 “admin”，密碼為：“admin”點擊“我要登陸”，進入主控界面窗口。點擊“退出”菜單可退出系統(tǒng)。參考文獻[1]《Visual FoxPro數(shù)據(jù)庫應(yīng)用實例完全解析》 賈鳳波 楊樹青 楊玉順 編著 人民郵電出版社 2006年8月第1版[2]《數(shù)據(jù)庫應(yīng)用基礎(chǔ) Visual 》 秦衛(wèi)平 耿植林 方嬌莉 鄭陵瀟 編著 重慶大學(xué)出版社24
公司管理相關(guān)推薦
鄂ICP備17016276號-1