畢業(yè)論文-基于關(guān)系數(shù)據(jù)庫(kù)的餐飲管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)(已改無(wú)錯(cuò)字)
2023-02-12 12:12:53 本頁(yè)面
【正文】 今天是： +str(year(date()),4)+年 +str(month(date()),2)+月+str(day(date()),2)+日 +cdow(date())+ 制作：沈西 else amp。amp。奇數(shù)日期 =rgb(80,150,180) amp。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。amp。主窗口最大化 *=.t. amp。amp。去掉主窗口控制按鈕 do form 開(kāi)始 .scx amp。amp。裝入系統(tǒng)初始表單 read events amp。amp。 啟動(dòng)事件處理 注意：如果程序缺少 read events 和 close events,程序再連編后執(zhí)行時(shí)，系統(tǒng)各界面會(huì)一閃而過(guò)，不等待用戶操作的現(xiàn)象。 開(kāi)始界面（開(kāi)始 .scx）的制作 主程序執(zhí)行后，在程序中執(zhí)行系統(tǒng)初始化表單 （開(kāi)始 .scx），系統(tǒng)進(jìn)入如圖 31所示的界面。 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 12 圖 31 系統(tǒng)開(kāi)始界面 【 繼續(xù) 】按鈕代碼如下： clear DO 主菜單 .mpr 【 退出 】按鈕代碼如下： amp。amp。釋放當(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 菜譜 .類別 ==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è)置。 查詢信息 菜譜查詢 瀏覽菜譜主界面如圖 37所示： 圖 37 瀏覽菜譜主界面 【 bo1】的 click事件代碼： SELECT 菜譜 .菜名 。 from 菜譜 。 WHERE 菜譜 .類別 ==。 INTO CURSOR bb =bb 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 20 【 查詢 】按鈕代碼： SELECT 菜譜 set filter to 菜名 =alltrim() GO top 注意： 設(shè)置“菜編號(hào)”的 controlsource=菜譜 .菜編號(hào)， 其他文本框類似。 按日期查詢銷售情況 設(shè)置表單的“數(shù)據(jù)環(huán)境”，添加表“就餐”“帳單”“查詢 1” 按日期查詢銷售情況表單的制作如圖 38 所示： 圖 38 按日期查詢就餐人數(shù)界面 【 查詢 】按鈕代碼為： PUBLIC x,y,z,a,m,n,dh 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 21 m=0 x=ALLTRIM() y=ALLTRIM() z=ALLTRIM() a=y+/+z+/+x SELECT 就餐 set filter to 日期 =ctod(a) LOCATE FOR 就餐 .日期 =ctod(a) DO WHILE NOT EOF() n=就餐 .人數(shù) dh=就餐 .單號(hào) m=m+n CONTINUE ENDDO =m SET SAFETY OFF DO 查詢 sele 查詢 1 public u,v,l l=0 locat for CTOD(a)=日期 do while not eof() k=金額 l=k+l continu enddo set talk off =l SELECT 帳單 SET filter TO 帳單 .單號(hào) =就餐 .單號(hào) GO top 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 22 查詢器“查詢 ”制作方 法 1. 新建 查詢。 2．添加表如圖 39所示： “查詢?nèi)ハ颉睘?table,文件名為：查詢 1。 圖 39 查詢器設(shè)計(jì)界面 按日期查詢預(yù)訂情況 表單如圖 310 所示： 三江學(xué)院 2022 屆本科生畢業(yè)設(shè)計(jì)（論文） 23 圖 310 按日期及午晚
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1