【正文】 在這里我要衷心的謝謝你們，謝謝你們?cè)诋厴I(yè)設(shè)計(jì)中對(duì)我的幫助和關(guān)懷。尤其是在實(shí)際設(shè)計(jì)階段， 林老師多次解答了我的問(wèn)題和疑惑之處，并在資料上給予我最大的幫助，如果沒(méi)有林 老師的指導(dǎo)，我想我的設(shè)計(jì)是不會(huì)那么順利完成的。幸好，有許多老師、同學(xué)的幫助，我才得以調(diào)試成功，一次次的改進(jìn)自己的程序，實(shí)現(xiàn)各種功能。系統(tǒng)外部環(huán)境與內(nèi)部因素的變化，不斷影響系統(tǒng)的運(yùn)行，這時(shí)就需要不斷的完善系統(tǒng) ，以提高系統(tǒng)運(yùn)行的效率與服務(wù)水平，這就需要從始至終地進(jìn)行系統(tǒng)的維護(hù)工作。 餐飲管理系統(tǒng) 雖然已經(jīng)完整的開(kāi)發(fā)出來(lái) ，但自身攜 帶的數(shù)據(jù)庫(kù)內(nèi)存不夠大，如果遇到數(shù)據(jù)庫(kù)龐大的體系會(huì)容易奔潰，導(dǎo)致給餐飲管理者帶來(lái)不必要的麻煩，因此我考慮以后會(huì)用 SQL 或者 ORACLE 作為數(shù)據(jù)庫(kù)。究其原因，主要是因?yàn)椴淮_定因素太多，無(wú)法在需求分析時(shí)面面俱到，因?yàn)樯鐣?huì)在發(fā)展，時(shí)代在進(jìn)步 ，人們的需求也在不斷地發(fā)生變化，任何已編寫(xiě)好的軟件都會(huì)面臨無(wú)法適應(yīng)社會(huì)發(fā)展的窘?jīng)r，所以軟件開(kāi)發(fā)必須追隨時(shí)代的腳步。 “字段”至報(bào)表 。 SELECT 菜譜 set filter to 菜名 =alltrim() GO top 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 28 報(bào)表輸出 打印結(jié)帳單 圖 313 打印結(jié)帳單界面 【 查詢 】按鈕代碼如下： PUBLIC je,l l=0 SELECT 帳單 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 29 set filter to ALLTRIM(帳單 .單號(hào) )==ALLTRIM() LOCATE FOR ALLTRIM()=alltrim(帳單 .單號(hào) ) DO WHILE NOT EOF() je=帳單 .金額 l=je+l CONTINUE ENDDO =l SELECT 就餐 set filter to alltrim(就餐 .單號(hào) )==ALLTRIM() LOCATE FOR ALLTRIM()=alltrim(就餐 .單號(hào) ) =ALLTRIM(就餐 .單號(hào) ) =就餐 .日期 =就餐 .桌號(hào) =就餐 .人數(shù) =ALLTRIM(就餐 .收銀員 ) GO top 【 打印 】按鈕代碼如下： report form 結(jié)帳單 .frx。 “預(yù)訂單”。 INTO CURSOR bb =bb 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 20 【 查詢 】按鈕代碼： SELECT 菜譜 set filter to 菜名 =alltrim() GO top 注意： 設(shè)置“菜編號(hào)”的 controlsource=菜譜 .菜編號(hào)， 其他文本框類(lèi)似。釋放當(dāng)前表單 quit 計(jì)時(shí)器控件 timer1 用來(lái)控制“歡迎使用”字幕自右至左移動(dòng)，其 timer 代碼為： if =+20 = else = endif 主菜單 主菜單如圖 32所示： 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 13 圖 32 系統(tǒng)主菜單 主菜單在菜單設(shè)計(jì)器中的制作如圖 33所示： 圖 33 系統(tǒng)主菜單的制作 就餐管理 就餐管理菜單項(xiàng)有 點(diǎn)菜、預(yù)定等下一級(jí)菜單，下面進(jìn)行逐個(gè)介紹： 點(diǎn)菜 設(shè)計(jì)思路： “點(diǎn)菜標(biāo)志”邏輯項(xiàng)，選中為 .t.,取消為 .f. .， 以便對(duì)帳頁(yè)面調(diào)用 “就餐”，及表“帳單” 表單 init 事件代碼： CLOSE DATABASES OPEN DATABASE 餐飲數(shù)據(jù) USE 菜譜 replace ALL 菜譜 .點(diǎn)菜標(biāo)志 WITH .f. “ 單號(hào) ” text1的 lostfocus事件代碼 : PUBLIC C OPEN DATABASE 餐飲數(shù)據(jù) USE 就餐 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 14 SELECT 就餐 GO top GO bottom c=RECNO() =c+1 use 【 日期 】 text2的 lostfocus事件代碼 : =DATE() 【 桌號(hào) 】 bo1的 init事件代碼 : =請(qǐng)選擇 并在 bo1屬性設(shè)置 Rowsource=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 RowsourceType=1值 界面如圖 34所示： 圖 34就餐管理界面 “ Combo4” 的 InteractiveChange 代碼： 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 15 SET TALK OFF SET SAFETY OFF USE 菜譜 =SELECT 菜譜 .菜名 from 菜譜 WHERE 菜譜 .類(lèi)別 ==ALLTRIM() into cursor dd 【 確認(rèn) 】按鈕代碼： (()) () SELECT 菜譜 GO top LOCATE FOR ALLTRIM(菜譜 .菜名 )=ALLTRIM() replace 菜譜 .點(diǎn)菜標(biāo)志 WITH .t. CONTINUE IF EOF() GO top ENDIF 【 取消 】按鈕代碼： SELECT 菜譜 GO top LOCATE FOR ALLTRIM(菜譜 .菜名 )=ALLTRIM() replace 菜譜 .點(diǎn)菜標(biāo)志 WITH .f. CONTINUE IF EOF() GO top ENDIF () 【 清空 】按鈕代碼： USE 菜譜 replace ALL 菜譜 .點(diǎn)菜標(biāo)志 WITH .f. 【 提交 】按鈕代碼： USE 點(diǎn)菜 DELETE all 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 16 PACK USE 菜譜 IF NOT EOF() COPY to diancai FIELDS 菜編號(hào) ,菜名 ,單價(jià) FOR 點(diǎn)菜標(biāo)志 =.t. ENDIF USE USE 點(diǎn)菜 APPEND FROM diancai FIELDS 菜編號(hào) ,菜名 ,單價(jià) replace ALL 點(diǎn)菜 .數(shù)量 WITH 1 replace ALL 點(diǎn)菜 .金額 WITH 點(diǎn)菜 .單價(jià) *點(diǎn)菜 .數(shù)量 replace ALL 點(diǎn)菜 .單號(hào) WITH ALLTRIM(str()) USE USE 帳單 APPEND FROM 點(diǎn)菜 FIELDS 單號(hào) ,菜編號(hào) ,菜名 ,單價(jià) ,數(shù)量 ,金額 USE USE 就餐 APPEND BLANK replace 就餐 .單號(hào) WITH ALLTRIM(str()) replace 就餐 .日期 WITH replace 就餐 .桌號(hào) with replace 就餐 .人數(shù) with val() replace 就餐 .收銀員 with use ERASE USE 菜譜 replace ALL 菜譜 .點(diǎn)菜標(biāo)志 WITH .f. USE MESSAGEBOX(提交成功！ ,48+0+0,信息提示 ) 【 返回 】按鈕代碼： “客戶清單”表單界面如如圖 35所示： 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 17 圖 35 對(duì)帳界面 該 表單的“合計(jì)金額” text1 的 Init事件代碼為： PUBLIC je,l,i l=0 GO top SELECT 菜譜 LOCATE FOR 菜譜 .點(diǎn)菜標(biāo)志 =.t. DO WHILE NOT EOF() je=菜譜 .單價(jià) l=je+l CONTINUE ENDDO =l 預(yù)訂 預(yù)訂表單設(shè)計(jì)如圖 36所示 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 18 圖 36 預(yù)訂表單 該表單的【 確認(rèn)提交 】代碼為： APPEND BLANK replace 預(yù)定單號(hào) WITH replace 姓名 WITH replace 電話 WITH replace 定餐標(biāo)準(zhǔn) WITH replace 人數(shù) WITH replace 時(shí)段 WITH rq=CTOD() replace 日期 WITH rq replace 辦理人 WITH USE MESSAGEBOX(提交成功！ ,48+0+0,警告 ) 【 重寫(xiě) 】按鈕代碼： = = = 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 19 bo 控件代碼參考表單“點(diǎn)菜”頁(yè)面，“桌號(hào)”的設(shè)置。 啟動(dòng)事件處理 注意：如果程序缺少 read events 和 close events,程序再連編后執(zhí)行時(shí)，系統(tǒng)各界面會(huì)一閃而過(guò)，不等待用戶操作的現(xiàn)象。去掉主窗口控制按鈕 do form 開(kāi)始 .scx amp。窗口背景顏色 MODIFY WINDOW SCREEN TITLE 餐飲管理系統(tǒng) ver 今天是： +str(year(date()),4)+年 +str(month(date()),2)+月+str(day(date()),2)+日 +cdow(date())+ 制作：沈西 endif ZOOM WINDOW SCREEN MAX amp。窗口背景顏色 MODIFY WINDOW SCREEN TITLE 餐飲管理系統(tǒng) ver 今天是： +str(year(date()),4)+年 +str(month(date()),2)+月+str(day(date()),2)+日 +cdow(date())+ 制作：沈西 else amp。關(guān)閉常用工具欄 if mod(day(date()),2)=0 amp。不處理已刪除的記錄 *set cent on *set date to ansi amp。關(guān)閉狀態(tài)欄 set safe off