訂單管理信息系統(tǒng)設(shè)計(jì)

第1章系統(tǒng)分析TOC\o"1-5"\h\z\o"CurrentDocument"系統(tǒng)建設(shè)的目標(biāo) 1可行性分析 1需求分析 2系統(tǒng)組織結(jié)構(gòu)圖 2系統(tǒng)總體數(shù)據(jù)流程 3管理業(yè)務(wù)流程圖 錯(cuò)誤！未定義書(shū)簽。數(shù)據(jù)流程 5系統(tǒng)數(shù)據(jù)字典 11第2章系統(tǒng)設(shè)計(jì)\o"CurrentDocument"系統(tǒng)設(shè)計(jì)的原則 11系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì) 12代碼設(shè)計(jì) 14用戶(hù)界面設(shè)計(jì) 15\o"CurrentDocument"第3章系統(tǒng)實(shí)施 1.\o"CurrentDocument"登陸連接代碼 17銷(xiāo)售窗口代碼 18系統(tǒng)使用說(shuō)明書(shū) 20參考文獻(xiàn)錯(cuò).誤.！.未.定.義.書(shū).簽.。參考文獻(xiàn)遼寧工業(yè)大學(xué)課程設(shè)計(jì)說(shuō)明書(shū)（論 文）遼寧工業(yè)大學(xué)課程設(shè)計(jì)說(shuō)明書(shū)（論 文）#5客3戶(hù)信息瀏覽界面設(shè)置55訂4單信息管理界面設(shè)置:JForsl[3回區(qū)- : : : :_:單價(jià)…Itxt產(chǎn)品單價(jià) ］一增加下單,日期「xtT單日或.:JForsl[3回區(qū)- : : : :_:單價(jià)…Itxt產(chǎn)品單價(jià) ］一增加下單,日期「xtT單日或.數(shù)量…|txt產(chǎn)品數(shù)量,；…；…訂單總額…「xt訂單總額；編號(hào)|txt客戶(hù)編停7名.稱(chēng)...Itxt客戶(hù)名稱(chēng)屈母|txt郵編張址…|txt送貨施址.[txt/2-品名稱(chēng)聯(lián)系人.」txt聯(lián)系人:…備注…Itxt備注[J- ■ {-I訂單編號(hào)…『xt訂單編號(hào)一；產(chǎn)品編號(hào)…|txt產(chǎn)品編耳一Q（■-.I.]F[I：nr^!lffin-i—r-r-r-I-VIr「el」、L二關(guān)系.電話(huà).…Itxt聯(lián)系電話(huà)首記錄上一個(gè)下一個(gè)末記錄?第3章系統(tǒng)實(shí)施3.登1陸連接代碼1）“確定”按鈕的 Click事件代碼：SETEXACTONTHISFORM.i=THISFORM.i+1IFEMPTY（ALLTRIM（賬號(hào)））MESSAGEBOX（“請(qǐng)輸入賬號(hào)名稱(chēng)"，48,"□□□□□□ ”）THISFORM.txt賬號(hào).SetFocusELSESELECTUserInfoLOCATEFORALLTRIM（賬號(hào)）=ALLTRIM（THISFORM.txt賬號(hào).VALUE）IFFOUND（）.AND.ALLTRIM（密碼） 二ALLTRIM（THISFORM.txt密碼.VALUE）CUser二賬號(hào)IsAdmin=管理THISFORM.RELEASE（）DOFORMLOGOELSEIFTHISRORM.i<3MESSAGEBOX（"賬號(hào)或密碼錯(cuò)誤，請(qǐng)重新輸入 ",48,"□□□□□□ ”）THISFORM.txt賬號(hào).VALUE=""THISFORM.txt密碼.VALUE二〃〃THISFORM.txt賬號(hào).SetFocusELSEMESSAGEBOX（"密碼錯(cuò)誤3次,□□□□□□ ",48,"□□□□□□ ”）THISFORM.RELEASECLEAREVENTSQUITENDIFENDIFENDIFSETEXACTOFF2)“取消”按鈕的 Click事件代碼LOCALYNYN二MESSAGEBOX(〃確定退出 ",4+32,"□□□□□□ ”)IFYN=6THISFORM.RELEASECLEAREVENTSQUITENDIF產(chǎn)品信息窗口代碼(1)Unload□□□□□□：IFTHISFORM.FormMode="cSelect"ReturnTHISFORM.SelectedproENDIF(2)DblClick事件代碼如下：IFTHISFORM.FormMode="cSelect"THISFORM.SelectedPro=ALLTRIM(THIS.VALUE)THISFORM.ReleaseENDIF□3)Cmdser按鈕的Click□□□□□□ :SelTJ=".T."IF.NOT.EMPTY(ALLTRIM(THISFORM.txt產(chǎn)品編號(hào).Value))SelTJ=SelTJ+"AND'"+ALLTRIM(THISFORM.txt產(chǎn)品編號(hào).Value)+"'$編ENDIFIF.NOT.EMPTY(ALLTRIM(THISFORM.txt產(chǎn)品名稱(chēng).VALUE))SelTJ=SelTJ+"AND'"+ALLTRIM(THISFORM.txt產(chǎn)品名稱(chēng).Value)+"'$品名"ENDIFSELECTProductInfoSETFILTERTOSETFILTERTO&SelTJTHISFORM.Refresh(4)“退出”代碼如下：YN二MESSAGEBOX("確定退出 "，4+32,“訂單管理系統(tǒng)")IFYN=6IFTHISFORM.FormMode="cSelect"THISFORM.SelectedPro="0000000000"ENDIFTHISFORM.ReleaseENDIF客戶(hù)信息瀏覽窗口代碼□□□□□□□ Click事件代碼：SelTJ=".T."IF.NOT.EMPTY(ALLTRIM(THISFORM.txt編號(hào).Value))SelTJ=SelTJ+"AND'"+ALLTRIM(THISFORM.txt編號(hào).Value)+"'$編號(hào)"ENDIFIF.NOT.EMPTY(ALLTRIM(THISFORM.txt名稱(chēng).VALUE))SelTJ=SelTJ+"AND'"+ALLTRIM(THISFORM.txt名稱(chēng).Value)+"'$名稱(chēng)"ENDIFIF.NOT.EMPTY(ALLTRIM(THISFORM.txt聯(lián)系人.VALUE))SelTJ=SelTJ+"AND'"+ALLTRIM(THISFORM.txt聯(lián)系人.Value)+"'$聯(lián)系人ENDIFSELECTClientInfoSETFILTERTOSETFILTERTO&SelTJTHISFORM.Refresh□2)“打印”按鈕的 Click事件代碼：REPORTFORMClientInfoPreviewFOR&SelTJ3.4訂單信息管理界面設(shè)置⑴“增加”按鈕的 Click事件代碼：SELECTOrderInfoTHISFORM.OldRecord=RECNO()APPENDBLANKTHISFORM.txt下單日期 .VALUE=DATE()THISFORM.txt訂單總額 .VALUE=0THISFORM.bModify=.T.THISFORM.bBrowse=.T.THISFORM.ModeControlTHISFORM.Refresh(2)“修改”按鈕的 Click事件代碼：SELECTOrderInfoTHISFORM.OldRecord=RECNO()THISFORM.bModify=.T.THISFORM.bBrowse=.T.THISFORM.ModeControlTHISFORM.ReFresh□□□□□□ Click事件代碼：LOCALYNYN=Messagebox(“確定刪除 “，4+32,“訂單管理系統(tǒng) ”)IFYN=6

SELECTOrderInfoDELETEPACKIfEof().AND.BOF()ORRECCOUNT()=0THISFORM.INITELSEIFBOF()SkipElseIfEof()SKip-1EndIFEndIFENDIFENDIFTHISFORM.Refresh□□□□□□ Click事件代碼：REPORTFORMOrderInfoPreviewFORALLTRIM(訂單編號(hào))=ALLTRIM(THISFORM.txt訂單編號(hào).Value)□□□□□□ Click事件代碼：LOCALOK,YNOK=.T.DOCASECASEEMPTY(ALLTRIM(THISFORM.txt訂單編號(hào).Value))MESSAGEBOX("訂單編號(hào)不能為空 “，48,“訂單管理系統(tǒng)”)THISFORM.txt訂單編號(hào).SetFocusOK=.F.CASEEMPTY(ALLTRIM(THISFORM.txt產(chǎn)品編號(hào).Value))MESSAGEBOX(“產(chǎn)品編號(hào)不能為空 “，48,“訂單管理系統(tǒng)”)THISFORM.txt產(chǎn)品編號(hào).SetFocusOK=.F.CASETHISFORM.txt產(chǎn)品數(shù)量.Value=0TOC\o"1-5"\h\zMESSAGEBOX（“產(chǎn)品數(shù)量不能為空 “，48,“訂單管理系統(tǒng) ”）THISFORM.txt產(chǎn)品數(shù)量.SetFocusOK=.F.CASEEMPTY（ALLTRIM（THISFORM.txt客戶(hù)編號(hào) .Value））MESSAGEBOX（“客戶(hù)編號(hào)不能為空 “，48,“訂單管理系統(tǒng) ”）THISFORM.txt客戶(hù)編號(hào).SetFocusOK=.F.CASEEMPTY（ALLTRIM（THISFORM.txt聯(lián)系人.Value））MESSAGEBOX（"聯(lián)系人不能為空 ”,48,“訂單管理系統(tǒng) ”）THISFORM.txt聯(lián)系人.SetFocusOK=.F.CASEEMPTY（ALLTRIM（THISFORM.txt聯(lián)系電話(huà).Value））MESSAGEBOX（"聯(lián)系電話(huà)不能為空 "，48,“訂單管理系統(tǒng) "）THISFORM.txt聯(lián)系電話(huà).SetFocusOK=.F.EndCaseIFOK=.T.YN二MESSAGEBOX（“確定保存記錄 “，4+32,“訂單管理系統(tǒng) "）IFYN=6SELECTOrderInfoIFTABLEUPDATE（.F.）=.F.MESSAGEBOX（“訂單編號(hào)錯(cuò)誤“，48,“訂單管理系統(tǒng)“）THISFORM.txt訂單編號(hào).SetFocusElseTHISFORM.bModify=.F.THISFORM.bBrowse=.F.THISFORM.ModeControlEndIfEndIfTHISFORM.MonthView.Visible=.F.THISFORM.RefreshENDIF□□□□□□□ Click事件代碼：LocalOKYN二MESSAGEBOX("確定取消 "，4+32,"訂單管理系統(tǒng)")IFYN=6SELECTOrderInfoTABLEREVERT(.F.)IFBOF().AND.EOF()ORRECCOUNT()=0THISFORM.INITELSEGOTHISFORM.OldRecordTHISFORM.bModify=.F.THISFORM.bBrowse=.F.THISFORM.ModeControlENDIFTHISFORM.MonthView.Visibl