精編餐飲管理系統(tǒng)設(shè)計

課程設(shè)計報告課程名稱： PowerBuilder10.5程序設(shè)計基礎(chǔ)設(shè)計題目： 酒店餐飲管理系統(tǒng) 專業(yè)：信息與計算科學(xué)班級: 姓名： XXXX學(xué)號：XXXXXXXX指導(dǎo)教師：XXX XXX學(xué)院數(shù)理系XXXX年XX月課程設(shè)計題目（問題）描述隨著人們生活的富裕，人們出入酒店也越來越多，隨之而來，酒店管理人員管理酒店的事情越來越多，為了幫助酒店管理人員更好的管理酒店，我們設(shè)計了這個酒店管理系統(tǒng)。它實現(xiàn)了對值班人員的調(diào)配與管理和對菜單的變更，以及對訂餐，訂餐的修改、取消、查詢及在收費時的立賬，打折設(shè)定的等方面的功能。本組成員情況姓名學(xué)號承擔(dān)的任務(wù)成績杜雅笛2012314201登陸界面、系統(tǒng)維護、打印、幫助模塊的代碼編寫及系統(tǒng)的調(diào)試郭曉麗2012314206登陸界面、訂餐管理、收費管理模塊的代碼編寫及系統(tǒng)的調(diào)試莫鵬飛20123142資料查詢、登陸界面、代碼編寫及系統(tǒng)的調(diào)試20教師評語簽名：注：本設(shè)計報告中各個部分如果頁數(shù)不夠，請大家自行擴頁，原則是一定要把報告寫詳細，能說明本組設(shè)計的成果和特色，能夠反應(yīng)小組中每個人的工作。報告中應(yīng)該敘述設(shè)計中的每個模塊。設(shè)計報告將是評定每個人成績的一個重要組成部分。一、本組設(shè)計的功能描述（含所有實現(xiàn)的模塊的功能）登錄界面的功能：在登陸界面正確輸入用戶名與口令就可以登陸主界面，如用戶名與口令不匹配則有提醒,點開免費注冊界面，可以錄入新的管理人員的信息，退出注冊界面輸入剛注冊的用戶名和口令就可登陸主界面。系統(tǒng)主界面的功能：?系統(tǒng)維護：☆值班員信息維護：實現(xiàn)對值班員的添加、刪除功能☆菜譜信息維護：實現(xiàn)對已有菜單的查詢、添加和刪除☆修改口令：實現(xiàn)對用戶口令的更改。?訂單管理：☆訂餐：實現(xiàn)對訂餐信息的添加☆訂餐修改：實現(xiàn)對已經(jīng)訂餐的信息的修改☆訂餐取消：實現(xiàn)對已經(jīng)訂餐的信息的取消☆訂餐查詢：實現(xiàn)對訂餐訂單按桌號、菜譜號、菜名的查詢?收費管理：☆折扣設(shè)定：實現(xiàn)了對用餐人員的折扣設(shè)定☆客戶信息：顯示客戶信息?打印：☆打印客戶消費賬單二、本組設(shè)計的主要特色主要特色有如下：1、 登陸界面可以注冊新用戶2、 在登陸主界面是彈出交班管理制度的界面3、 可對值班人員、菜譜信息進行添加，刪除4、 可對訂餐情況進行添加、刪除、查詢等功能5、 對客戶的費用進行打折，打印客戶消費單、系統(tǒng)分析與設(shè)計2.1數(shù)據(jù)庫的設(shè)計與連接（1）在SQLSEVER2005開發(fā)環(huán)境下打開對象資源管理器，依據(jù)創(chuàng)建數(shù)據(jù)庫的步驟，創(chuàng)建物理數(shù)據(jù)庫XSCJ,在PowerBuilder開發(fā)環(huán)境下打開數(shù)據(jù)庫畫板，依次定義 ODBC數(shù)據(jù)源,定義DBProfile，連接數(shù)據(jù)庫。根據(jù)功能需求，在數(shù)據(jù)庫中先創(chuàng)建5個表列名數(shù)據(jù)類型可否為空說明DC_DESKChar(20)Notnull桌號（主鍵）CP_NOChar(10)Notnull菜譜號CP_NAMEChar(20)null菜名DC_NUMBERChar(3)null數(shù)量DC_DATEdatetimeNull訂餐日期表1訂餐信息表DC列名數(shù)據(jù)類型可否為空說明CP_NOCHAR(10)NOTNULL菜譜號（主鍵）CP_NAMECHAR(20)NULL菜名CP_KINDCHAR(20)NULL種類CP_PRICENUMBER(10)NULL價格CP_DETAILCHAR(50)NULL備注表2菜譜信息表CP

列名數(shù)據(jù)類型可否為空說明KH_NOCHAR(20)NOTNULL客戶號（主鍵）DC_DESKCHAR(20)NULL桌號JS_DZCHAR(3)NULL打折情況TOTALCHAR(5)NULL總計JS_DATEDATETIMENULL日期表3結(jié)算信息表JS列名數(shù)據(jù)類型可否為空說明KH_NOCHAR(10)NOTNULL客戶號（主鍵）KH_NAMECHAR(20)NULL姓名KH_SEXCHAR(2)NULL性別KH_AGECHAR(3)NULL年齡KH_JOBCHAR(20)NULL職務(wù)KH_TELCHAR(20)NULL聯(lián)系電話KH_COMPANYCHAR(20)NULL工作電話表4榮譽客戶信息表KH列名數(shù)據(jù)類型可否為空說明ZBY_NAMECHAR(20)NOTNULL值班員名(主鍵)ZBY_PAWDCHAR(10)NUTNULL口令表5值班員表ZBY實體和實體之間的關(guān)系E-R圖系統(tǒng)詳細設(shè)計單擊菜單“File|New”，選擇應(yīng)用程序?qū)ο竽０瀹嫲?，單擊?K”按鈕在出現(xiàn)的對話框中完成應(yīng)用程序?qū)ο竺?、庫文件名的設(shè)置 ?單擊“Finish”按鈕，進入應(yīng)用程序?qū)ο笤O(shè)計畫面。1、 在應(yīng)用程序?qū)ο蟮腛pen事件中輸入如下的程序代碼//ProfilejiudianSQLCA.DBMS="ODBC"SQLCA.AutoCommit=FalseSQLCA.DBParm="ConnectString='DSN=jiudian;UID=;PWD=”'connect;open(w_open)sleep(1)close(w_open)open(w_login)該語句就是打開w_open窗口的語句?！皻g迎登陸餐飲管理系統(tǒng)”如圖：2、 登錄窗口的設(shè)計。登錄窗口如圖⑴在W_login窗口的Open事件中輸入如下的程序代碼Environmentl_envintl_ScrWidth,l_ScrHeightsetRedraw(false)GetEnvironment(l_env)//取得屏幕的高度和寬度l_ScrWidth=PixelsToUnits(l_env.ScreenWidth,XpixelsToUnits!)l_ScrHeight=PixelsToUnits(l_env.ScreenHeight,YpixelsToUnits!)Move((l_scrwidth-this.width)/2,(l_scrheight-this.height)/2)//移動窗口到屏幕中間setredraw(true)//打開窗口刷新⑵按鈕控件cb_1(確定)的Click事件中的程序代碼如下:stringl」d,l_passwardstringl_passwardOintil_id=trim(sle_1.text)l_passward=trim(sle_2.text)ifl_id=""thenmessagebox("提示"，”請輸入用戶名r‘)returnendifsle_1.setfocus()ifl_passward=""thenmessagebox("提示","請輸入密碼r‘)returnendifsle_2.setfocus()selectcount(*)into:ifromzbywherertrim(zby_name)=:l_idusingsqlca;ifi<1thenmessagebox("提示"，”該用戶不存在!")sle_1.text=""sle_2.text=""sle_1.setfocus()returnendifselectzby_pawdinto:LpasswardOfromzbywherertrim(zby_name)=:l_idusingsqlca;iftrim(l_passwardO)=l_passwardthenopen(w_main)close(parent)integerli_FileNumstringls_Emp_InputIongll_FLengthll_FLength=FileLength("D:\MicrosoftSQLServer\1.txt")li_FileNum=FileOpen("D:\MicrosoftSQLServer\1.txt",StreamMode!,read!,shared!)IFll_FLength<32767THENFileRead(li_FileNum,ls_Emp_Input)filewrite(li_FileNum,ls_Emp_Input)messagebox("",ls_Emp_Input,None!)returnENDIF//顯示交班管理制度elsemessagebox("警告","密碼錯誤，請重新輸入法!")sle_2.text=""sle_2.setfocus()endif按鈕控件cb_2(取消)的Click事件中的程序代碼如下:Halt用于終止應(yīng)用程序的執(zhí)行⑷按鈕控件cb_3(免費注冊)的Click事件中的程序代碼如下：open(w_zhuche)用來打開注冊窗口.交班管理制度顯示的制作。(5)在該系統(tǒng)文件目錄下新建一個” 1.txt”在里面輸入相應(yīng)的內(nèi)容在登錄窗口的cb_1(確定)下的代碼integerli_FileNumstringls_Emp_InputIongll_FLengthll_FLength=FileLength("D:\MicrosoftSQLServer\1.txt")li_FileNum=FileOpen("D:\MicrosoftSQLServer\1.txt",StreamMode!,read!,shared!)IFll_FLength<32767THENFileRead(li_FileNum,ls_Emp_Input)filewrite(li_FileNum,ls_Emp_Input)messagebox("",ls_Emp_Input,None!)returnENDIF這段代碼就是在進入系統(tǒng)時顯示該信息，如下圖，注冊窗口的設(shè)計在”檢測用戶名”按扭控件的click事件中輸入如下代碼：stringl_userl_user=sle_1.textifl_user=""thenmessagebox("警告","請輸入用戶名!",Exclamation!)sle_1.setfocus()returnlendifintiselectcount(*)into:ifromZBYwhereZBY_NAME=:l_user;ifi>0thenmessagebox("警告","用戶名已存在，請重試!",Exclamation!)sle_1.text=""sle_1.setfocus()returnelsemessagebox("","恭喜你，該用戶名可以使用!")returnendif在”提交”按扭控件的click事件中輸入如下代碼stringl_userl_user=sle_1.text

ifsle_1.text=""thenmessagebox("提示"，”請輸入用戶名r‘)returnlendifstringaa,bbaa=sle_2.textbb=sle_3.textifaa=""then請重新輸入!")messagebox("提示"，”密碼不能為空r‘)請重新輸入!")messagebox("提示","輸入的密碼不一致~n~rsle_2.text=""sle_3.text=""sle_2.setfocus()returnendifinsertINTOzby(zby_name,zby_pawd)VALUES(:l_user,:aa)usingsqlca;ifsqlca.sqlcode=Othenmessagebox("提示","注冊成功，請牢記~r~n用戶名"+sle_1.text+"~r~n 密碼"+sle_2.text)close(parent)elsemessagebox("提示"，”注冊失敗!")returnendif⑶在”取消”按扭控件的click事件中輸入如下代碼:close(parent)主菜單的設(shè)計“系統(tǒng)維護”菜單下“退出”子菜單的 Click事件程序代碼：halt其功能是關(guān)閉主窗口w_main，退出應(yīng)用程序?！跋到y(tǒng)維護”菜單下“值班員信息維護”子菜單的 Click事件程序代碼：open(w_zby)“系統(tǒng)維護”菜單下“菜譜信息維護”子菜單的 Click事件程序代碼：open(w_choose_receive)“系統(tǒng)維護”菜單下“修改口令”子菜單的 Click事件程序代碼：open(w_changekl)“訂餐管理”菜單下“訂餐”子菜單的 Click事件程序代碼：open(w_dc)“訂餐管理”菜單下“訂餐修改”子菜單的 Click事件程序代碼：open(w_ujttyyytt)“訂餐管理”菜單下“訂餐取消”子菜單的open(w_dc_qc)“訂餐管理”菜單下“訂餐查詢”子菜單的open(w_dc_search)“訂餐管理”菜單下“訂餐取消”子菜單的open(w_dc_qc)“訂餐管理”菜單下“訂餐查詢”子菜單的open(w_dc_search)“收款管理”菜單的“折扣設(shè)定”子菜單的Click事件程序代碼:Click事件程序代碼:Click事件程序代碼:open(w_zksd)“收款管理”菜單下的“客戶信息”子菜單的 CLICK事件程序代碼：open(w_kh)“打印”菜單的“打印帳單”子菜單的 Click事件程序代碼：open(w_print)“幫助”菜單的”版本信息”子菜單的Click事件程序代碼：open(w_help)快捷鍵及工具欄如圖所示。還要建個w_main窗口用來掛上菜單。該窗口類型為mdihelp!。Title為酒店餐飲管理系統(tǒng)1.0。另外在窗口上布置一個圖片控件，用來做為系統(tǒng)的背景。在登錄窗口的“確定”按扭的click事件中有句open(main)的代碼，即為打開此窗口。值班員信息維護窗口w_zby的設(shè)計該窗口上的控件好上圖所示，其顯示部分是一個數(shù)據(jù)窗口。數(shù)據(jù)窗口對象zby在編輯狀態(tài)下如下圖，dw_1.deleterow(dw_1.getrow())dw_1.deleterow(dw_1.getrow())〃 刪除當(dāng)前行"■■.IMi,I(fi IK!Ut^LJtngimil1)Vrii'lh.Vlnd*v該數(shù)據(jù)窗口對象所鏈接的數(shù)據(jù)庫表格為ZBY,其數(shù)據(jù)源表示如下:SELECT"zby"."zby_name","zby"."zby_pawd"FROM"zby"(1)open事件代碼：dw_1.settransobject(sqlca)dw_1.retrieve()（2）窗口的closequery 事件代碼：inti_countIongbbi_count=dw_1.modifiedcount()+dw_1.deletedcount()ifi_count>Othenbb=messagebox(" 提示","是否保存未保存的數(shù)據(jù) ",question!,yesnocancel!,1)choosecasebbcase1ifdw_1.update()=1thencommitusingsqlca;return。elserollbackusingsqlca;messagebox("提示"，”數(shù)據(jù)保存失敗r‘)endifcase2returnOcase3returnlendchooseendif(3)增加按鈕代碼：dw_1.scrolltorow(dw_1.insertrow(O))dw_1.setcolumn(0)dw_1.setfocus()(4)刪除按鈕代碼：longnetnet=messagebox("","你確定要刪除嗎",question!,yesno!,1)//提示是否要刪除choosecasenetcase1case2returnlendchoose(5)保存按鈕代碼：inti_counti_count=dw_1.modifiedcount()+dw_1.deletedcount()〃 判斷改變和刪除的數(shù)目。ifi_count>Othenifdw_1.update()=1thencommitusingsqlca;messagebox("提示","已成功保存"+string(i_count)+" 紀(jì)錄")elserollbackusingsqlca;messagebox("提示"，”保存失敗")endifendif菜譜信息維護窗口w_choose_receive設(shè)計ddlb_1、ddlb_2屬性相同，其Items屬性頁如下圖所示。ddlb_3、ddlb_4屬性也相同，其Items屬性頁如下圖所示。General FontOtherItemddlb_5的Items屬性頁如下圖所示其他的控件如窗口上所示。所鏈接的數(shù)據(jù)窗口對象在編輯狀態(tài)下，如圖下所示*IIIhbfedR4rv （tfi lifkVlUBFHiT44ftiiiLaydmr,<*^1?*IIIhbfedR4rv （tfi lifkVlUBFHiT44ftiiiLaydmr,<*^1?-?■laV^MMP"■MH?！筂t L池r * yr*■W衲F"該數(shù)據(jù)窗口對象所鏈接的數(shù)據(jù)庫表格為CP,其數(shù)據(jù)源表示如下:SELECT"cp"."cp_no","cp"."cp_name"."cp"."cp_kind","cp"."cp_price","cp"."cp_detail"FROM"cp"（1） Open事件:dw_1.settransobject（sqlca）ddlb_1.text="菜譜號”ddlb_4.text="="ddlb_5.text="and"（2）查詢代碼intistringlookforcondition〃 定義參數(shù)：查詢條件綜合結(jié)果定義參數(shù)：要查詢的列定義參數(shù)：要查詢的內(nèi)容定義參數(shù)：查詢的符號定義參數(shù)：不同查詢條件組合操作符號stringlookforitem1,lookforitem2,lookforitem3〃stringlookforwhat1,lookforwhat2,lookforwhat3〃stringlookforhow1,lookforhow2,lookforhow3〃stringlookforoperator1,lookforoperator2〃定義參數(shù)：要查詢的列定義參數(shù)：要查詢的內(nèi)容定義參數(shù)：查詢的符號定義參數(shù)：不同查詢條件組合操作符號ifddlb_5.text="與"thenlookforoperator1="and"elseifddlb_5.text=" 或"thenlookforoperator仁"or"elseifddlb_5.text=" 非"thenlookforoperator仁"not"endififddlb_1.text="菜譜號"thenlookforitem1="cp_no"lookforwhat仁""'+sle_1.text+""'elseifddlb_1.text="菜名"thenlookforitem1="cp_name"lookforwhat仁""'+sle_1.text+""'elseifddlb_1.text="種類"thenlookforitem1="cp_kind"lookforwhat仁""'+sle_1.text+""'elseifddlb1.text="價格"thenlookforitem仁"cp_price"lookforwhat1=sle_1.textelseifddlb1.text="備注"thenlookforitem1="cp_detail"lookforwhat1=""'+sle_1.text+""'endififddlb_2.text="菜譜號"thenlookforitem2="cp_no"lookforwhat2="”'+sle_2.text+"”'elseifddlb2.text="菜名"thenlookforitem2="cp_name"lookforwhat仁"”'+sle_2.text+"”'elseifddlb2.text="種類"thenlookforitem2="cp_kind"lookforwhat2="”'+sle_2.text+"”'elseifddlb2.text="價格"thenlookforitem2="cp_price"lookforwhat2="”'+sle_2.text+"”'elseifddlb2.text="備注"thenlookforitem2="cp_detail"Iookforwhat2="”'+sle_2.text+"”'endififddlb_2.text=""orddlb_4.text=""thenlookforcondition=lookforiteml+lookforhowl+lookforwhatlelselookforcondition=lookforitem1+lookforhow1+lookforwhat1+""+lookforoperator1+""+lookforitem2+lookforhow2+lookforwhat2endifdw_1.setfilter(lookforcondition)filter(dw_1)i=dw_1.retrieve()ifi<1thenmessagebox("提示","沒有相關(guān)記錄!",Exclamation!)sle_1.text=""sle_2.text=""returnendif增加代碼：dw_1.scrolltorow(dw_1.insertrow(O))dw_1.setcolumn(0)dw_1.setfocus()“刪除”按鈕控件的Click事件用于刪除一個菜譜，程序代碼與上述的“刪除”按鈕相同.“保存”按鈕控件的Click事件將用于保存用戶所做的修改，程序代碼與上述“保存”按鈕相同.⑹“退出”按鈕控件的Click事件將用于退出該程序窗口。修改口令w_changek 設(shè)計(1)修改按鈕代碼：stringcorrect_pswd,ls_user,ls_pswdls_user=trim(sle_1.text)ls_pswd=trim(sle_2.text)ifls_user=""thenmessagebox("","用戶名不能為空r‘)returnendififls_pswd=""thenmessagebox("","請輸入原口令!")returnendififsle_4.text<>sle_3.textthenmessagebox("警告","兩次輸入的口令不一致，請重新輸入")sle_3.text=""sle_4.text=""sle_3.setfocus()elseselectrtrim(zby_pawd)into:correct_pswdfromzbywherertrim(zby_name)=:ls_user;ifcorrect_pswd<>ls_pswdthenmessagebox("警告"，”原口令不正確r‘)elseupdatezbysetzby_pawd=:sle_3.textwherertrim(zby_name)=:ls_user;commitusingsqlca;close(parent)messagebox("注意"，”你的口令已經(jīng)修改，請牢記!")endifendif(2)“取消”按扭用來退出該窗口。8、訂餐w_dc窗口設(shè)計所鏈接的的數(shù)據(jù)窗口對象在編輯狀態(tài)如圖該數(shù)據(jù)窗口對象所鏈接的數(shù)據(jù)庫表格為 DC,其數(shù)據(jù)源表示如下:SELECT"dc"."dc_desk","dc"."cp_no","dc"."cp_name","dc"."dc_num","dc"."dc_data"FROM"dc"open事件intg_rownumberg_rownumber=dw_1.insertrow(O)dw_1.settransobject(sqlca)dw_1.setfocus()dateg_dc_dateg_dc_date=today()//在數(shù)據(jù)窗口的日期這列顯示當(dāng)前日期dw_1.scrolltorow(g_rownumber)dw_1.setcolumn(0)下一道菜intg_rownumberg_rownumber=dw_1.insertrow(O)dateg_dc_dateg_dc_date=today()dw_1.setfocus()dw_1.scrolltorow(g_rownumber)dw_1.setcolumn(1)“刪除”按鈕控件的Click事件用于刪除一個菜譜，程序代碼與上述的“刪除”按鈕控件相同.“保存”按鈕控件的Click事件將用于保存用戶所做的修改，程序代碼與上述的“保存”按鈕相同。“退出”按鈕控件的Click事件將關(guān)閉該窗口。9、訂餐修改窗口w_ujttyyytt設(shè)計Ddlb_1和ddlb_2兩個控件的屬性一樣，其item屬性如下圖，所鏈接的數(shù)據(jù)窗口對象 dc（1） open事件//設(shè)置事務(wù)對象dw_1.settransobject（sqlca）ddlb_1.text="="ddlb_2.text="="（2） 顯示訂單intistringlookforconditionstringlookforitem1,lookforitem2stringlookforwhat1,lookforwhat2stringlookforhow1,lookforhow2lookforhow仁ddlb_1.textIookforhow2=ddlb_2.textlookforitem1="dc_desk"lookforwhat仁""'+sle_1.text+""'Iookforitem2="dc_date"Iookforwhat2="datetime(”'+sle_2.text+"00:00:00')"ifsle_2.text=""thenlookforcondition=lookforitem1+lookforhow1+lookforwhat1elselookforcondition=lookforitem2+lookforhow2+lookforwhat2//lookforitem1+lookforhow1+lookforwhat1+""+"and"+""+endifdw_1.setfilter(lookforcondition)filter(dw_1)i=dw_1.retrieve()ifi<1thenmessagebox("提示","沒有相關(guān)記錄!",Exclamation!)returnendif增加intg_rownumberg_rownumber=dw_1.insertrow(O)dateg_dc_dateg_dc_date=today()//為數(shù)據(jù)窗口的日期列顯示當(dāng)前日期messagebox（""," messagebox（""," 請選擇要退餐的桌號!"）messagebox（""," messagebox（""," 請選擇要退餐的桌號!"）dw_1.setfocus()dw_1.scrolltorow(g_rownumber)dw_1.setcolumn(1)“刪除”按鈕控件的Click事件用于刪除一個值班員，程序代碼與上面所述的“刪除”按鈕控件相同.“保存”按鈕控件的Click事件將用于保存用戶所做的修改，程序代碼與上面所述的“保存”按鈕控件相同.⑹“退出”按鈕控件的Click事件將用于退出該程序窗口。10、訂餐取消w_dc_qc設(shè)計，控件如圖所示，所連接的數(shù)據(jù)窗口為dc.ddlb_1與ddlb_2的屬性相同.ddlb_1的item屬性圖a,ddlb_2的item屬性圖bGererelI怕俗FontOtherItem圖a圖b（1） open:dw_1.settransobject（sqlca）（2） 確定intiifddlb_1.text=""thenreturnret=messagebox(""," ret=messagebox(""," 你確定要退定"+string(l_dc_num1)+" 份ret=messagebox(""," ret=messagebox(""," 你確定要退定"+string(l_dc_num1)+" 份endifstringl_dc_deskl_dc_desk="dc_desk="'+ddlb_1.text+""'dw_1.setfilter(l_dc_desk)filter(dw_1)i=dw_1.retrieve()ifi<1thenmessagebox(""," 此桌無消費記錄!")ddlb_1.text=""elsemessagebox(""," 請選擇要退定的菜r‘)returnendif退訂的菜doublel_dc_num1,l_dc_num2stringl_cp_namel_dc_num仁double(ddlb_2.text)l_cp_name=dw_1.getitemstring(dw_1.getrow(),"cp_name")l_dc_num2=Long(dw_1.getitemstring(dw_1.getrow(),"dc_number"))intret"+l_cp_name,question!,yesnocancel!,2)choosecasereteaselifddlb_2.text="all"thendw_1.deleterow(0)ifdw_1.update()=1thenmessagebox("","退定成功!")close(parent)elsemessagebox(""," 退定失敗，請重試!")returnendifelseifl_dc_num1>l_dc_num2thenmessagebox("警告"，”退定出錯，請查看數(shù)量!")return1endifUPDATEdcSETdc_number=:l_dc_num2-:l_dc_num1;ifdw_1.update()=1thenmessagebox("","退定成功!")close(parent)returnmessagebox（"messagebox（"提示"，”請輸入要查詢的桌號!"）messagebox（"messagebox（"提示"，”請輸入要查詢的桌號!"）endifreturnendifcase2return。case3returnlendchoose11、訂餐查詢w_dc_search設(shè)計控件如上圖所示?其中有一個選項卡，卡上有三頁，三頁的數(shù)據(jù)窗口控件所連接的數(shù)據(jù)窗口都是dc,界面如下圖，該數(shù)據(jù)窗口對象所鏈接的數(shù)據(jù)庫表格為 CP和DCopen:tab_1.tabpage_1.dw_1.settransobject(sqlca)tab_1.tabpage_2.dw_2.settransobject(sqlca)tab_1.tabpage_3.dw_3.settransobject(sqlca)按桌號查詢intistringl_desk,conditionl_desk=sle_1.textifl_desk=""thenmessagebox（"","messagebox（"","無相關(guān)記錄，請重新輸入!"）returnendifcondition="dc_desk="'+sle_1.text+""'dw_1.setfilter(condition)filter(dw_1)i=dw_1.retrieve()ifi<1thenmessagebox(""," 無相關(guān)記錄，請重新輸入r‘)sle_1.text=""sle_1.setfocus()returnendif按菜譜號查詢：intistringl_cp_no,conditionl_cp_no=sle_2.textifl_cp_no=""thenmessagebox("提示"，”請輸入要查詢的菜譜號 !")returnendifcondition="cp_no="'+sle_2.text+""'dw_2.setfilter(condition)filter(dw_2)i=dw_2.retrieve()ifi<1thenmessagebox(""," 無相關(guān)記錄，請重新輸入r‘)sle_2.text=""sle_2.setfocus()returnendif按菜名查詢intistringl_cp_name,conditionl_cp_name=sle_3.textifl_cp_name=""thenmessagebox("提示"，”請輸入要查詢的菜名!")returnendifcondition="cp_namelike'%"+sle_3.text+"%"'dw_3.setfilter(condition)dw_3.filter()i=dw_3.retrieve()ifi<1then其數(shù)據(jù)源表示如下:!")其數(shù)據(jù)源表示如下:!")sle_3.text=""sle_3.setfocus()returnendif(5)”退出”按扭用于退出該窗口.12、折扣設(shè)定W_zjsd窗口設(shè)計該數(shù)據(jù)窗口對象所鏈接的數(shù)據(jù)庫表格為 jsSELECT"js"."kh_no","js"."dc_desk","js"."js_dz","js"."total","js"."js_date"FROM"js"Open:dw_1.settransobject(sqlca)確定intiifddlb_1.text=""thenmessagebox(""," 請選擇要計算折扣的桌號ddlb_1.setfocus()returnendifstringl_desk,conditionmessagebox（"","messagebox（"","總金額大于500但小于1000~r~n 給予7扣優(yōu)惠"）messagebox（"","messagebox（"","總金額大于500但小于1000~r~n 給予7扣優(yōu)惠"）I_desk=ddlb_1.textcondition="dc_desk="'+l_desk+""'dw_1.setfilter(condition)filter(dw_1)i=dw_1.retrieve()ifi<1thenmessagebox(""," 該桌無消費記錄r‘)returnendif開始計算doublel_totall_total=Iong(dw_1.getitemstring(dw_1.getrow(),"total"))ifl_total<200thenmessagebox("","總金額不足200~r~n 無折扣優(yōu)惠")returnendififl_total>200andl_total<500thenmessagebox("","總金額大于200但小于500~r~n給予8.5扣優(yōu)惠")returnendififl_total>500andl_total<1000thenreturnendififl_total>1000andl_total<5000thenmessagebox（"","總金額大于1000但小于5000~r~n 給予6扣優(yōu)惠"）returnendififl_total>5000thenmessagebox（"","總金額大于5000~r~n給予8.5扣優(yōu)惠"）returnendif客戶信息w_kh設(shè)計該數(shù)據(jù)窗口對象所鏈接的數(shù)據(jù)庫表格為 kh，其數(shù)據(jù)源表示如下：SELECT"ky"."kh_no","ky"."kh_name","ky"."kh_sex","ky"."kh_age","ky"."kh_job","ky"."kh_tel","ky"."kh_company"FROM"ky"14、 打印