【文章內(nèi)容簡介】 數(shù)據(jù)類型 可否為空 說明Kh_no Varchar Not null 客戶號Dc_desk Varchar Not null 桌號Js_dz Numberic Null 打折情況Total Numberic Null 總計Js_date Date Null 結(jié)算日期第三章 管理信息系統(tǒng)具體程序?qū)崿F(xiàn) 登陸窗口的實現(xiàn) (1)登陸窗口所完成的功能 在“用戶名”和“口令”中輸入操作員的用戶名和口令，若與數(shù)據(jù)庫操作員表中的數(shù)據(jù)相符，則進入主窗口。登陸前操作員可以修改口令，單擊“修改口令”按鈕進入修改口令窗口。 (2)創(chuàng)建 w_login 登陸窗口 進入“確定”按鈕 cb_1 的 clicked 事件： STRING CORRECT_PSWD //用于保存正確的口令G_INPUT_TIME =G_INPUT_TIME+1 //輸入次數(shù)加 1G_CZY_NAME = //取得輸入的用戶名和口令G_CZY_PSWD =//取出數(shù)據(jù)庫用戶口令表格中對應(yīng)用戶的口令SELECT password INTO :CORRECT_PSWD FROM czy WHERE NAME=:G_CZY_NAME。//將數(shù)據(jù)庫中保存的口令和用戶輸入的口令作比較if g_CZY_name=39。39。or g_CZY_pswd=39。39。 thenmessagebox(,用戶名或口令不能為空!)returnend ifIF G_CZY_PSWD=CORRECT_PSWD THENOPEN(W_MAIN) //輸入正確，打開主窗口15 / 33CLOSE(W_LOGIN)ELSE//不正確，在 3 次以內(nèi)可重新輸入，超過 3 次結(jié)束程序IF G_INPUT_TIME 3 THENMESSAGEBOX(警告,輸入用戶口令的次數(shù)太多！)CLOSE(W_LOGIN)ELSEMESSAGEBOX(警告,輸入的用戶口令有誤，請重新輸入)END IFEND IF(3)創(chuàng)建修改口令窗口32 修改口令界面進入“確定”按鈕 cb_1 的 clicked 事件： STRING CORRECT_PSWD //用于保存數(shù)據(jù)庫保存的口令G_CZY_name = G_CZY_PSWD =//驗證文本框中值是否為空if g_CZY_name=39。39。or g_CZY_pswd=39。39。 or =39。39。 or =39。39。thenmessagebox(,用戶名或口令不能為空!)returnend if//驗證兩次輸入的口令是否一致if thenMESSAGEBOX(警告,兩次輸入的新口令不一致，請重新輸入)else//從操作員表中查找用戶名與輸入用戶名相同的用戶口令SELECT CZY_PSWD INTO :CORRECT_PSWD FROM CZYWHERE CZY_name=:G_CZY_name。IF G_CZY_PSWD=CORRECT_PSWD THEN16 / 33UPDATE CZY SET CZY_PSWD = //修改數(shù)據(jù)庫中的該用戶的口令WHERE CZY_name=G_CZY_USER。 MESSAGEBOX(注意,你的口令已經(jīng)修改，請牢記) COMMIT。 //提交修改，關(guān)閉口令修改窗口CLOSE(W_change_pswd)ELSEMESSAGEBOX(警告,輸入原用戶口令不正確)END IFEND IFopen(w_login) 主窗口功能實現(xiàn) (1) 登陸窗口所完成的功能 不同部門的操作員進入主窗口后顯示不同部門。如：客房部操作員進入主窗口中不能對關(guān)于餐飲部門的項目進行管理操作。 主窗口中包括客房部、餐飲部的基礎(chǔ)信息，客房前臺信息，客房查詢，客房結(jié)帳，訂餐管理，訂餐結(jié)算，系統(tǒng)管理維護等。33 主窗口界面 客房前臺信息功能實現(xiàn) (1)客房前臺信息包括：客房預(yù)定、住宿登記、退宿結(jié)帳的查詢、修改與保存?？梢栽O(shè)置保存客房及客戶的相關(guān)信息。 (2)客房預(yù)定功能的實現(xiàn) 點擊進入客房預(yù)定窗口后，在增加新信息之前每個文本框變灰，不能對其進行操作。17 / 33點擊“添加”按鈕添加新的預(yù)定信息，添加完畢后單擊“保存”退出。34 客房預(yù)定窗口①open()事件來控制各個按鈕及文本框：//初始各個控件，分別把不同的房間類型和價格添加到組合框 ddlb_2 和 ddlb_3 中 =false=false=false=false=false=false=false=false=false=false=falsestring kflb//聲明游標(biāo)變量，把不同的房間類型添加到組合框 ddlb_2 中declare cursor1 cursor for select distinct room_type from kfxxlx。open cursor1。fetch cursor1 into :kflb。do while =0 (kflb) fetch cursor1 into :kflb。 loopclose cursor1。string jg//同樣，聲明游標(biāo)變量，把不同的價格添加到組合框 ddlb_3 中18 / 33declare cursor2 cursor for select distinct price from kfxxlx。open cursor2。fetch cursor2 into :jg。do while =0 (jg) fetch cursor2 into :jg。 loopclose cursor2。②“添加”按鈕中 clicked()事件的代碼實現(xiàn)初始化控件的功能③“保存”按鈕中 clicked()事件的代碼，保存新添加的數(shù)據(jù)信息string xm,zj,zjh,lxdh,gzdw,kflx,kfjg,yzrq,yfje //聲明變量xm=trim() //將輸入的值賦給變量zj=trim()zjh=trim()lxdh=trim()gzdw=trim()kflx=trim()kfjg=trim()yzrq=trim()yfje=trim()//將修改后的數(shù)據(jù)保存到數(shù)據(jù)庫預(yù)定客房表中insert into kfyd (name,zjlx,zjno,tel,pany,kflx,price,ydrq,yztime,yfje) values(:xm,:zj,:zjh,:lxdh,:gzdw,:kflx,:kfjg,:yzrq,:yfje)。messagebox(,保存成功!)=false=false=false=false=false=false=false=false=false=false=false④“取消”按鈕取消添加信息。 住宿登記窗口功能的實現(xiàn)(1) 客戶登記住宿信息：包括姓名、登記的證件類型和號碼、客房號碼、房間類型、房間價格、登記時間等。19 / 3335 住宿登記界面(2)住宿登記窗口功能的實現(xiàn) ①open()事件初始化控件//初始化控件，并把不同的房間號添加到組合框 ddlb_3 中string fjhdeclare cursor1 cursor for select room_no from kfxxlx。 //把不同的房間號添加到組合框 ddlb_3 中open cursor1。fetch cursor1 into :fjh。do while =0 (fjh) fetch cursor1 into :fjh。loop close cursor1。//得到當(dāng)前系統(tǒng)的日期=string(today())=false=false=false=false=false=false=false=false=false=false=false②單擊“登記”按鈕自動生成序號20 / 33clicked 事件自動生成序號的代碼如下：string zxno,zxno1,zxno2int zxno3//選擇數(shù)據(jù)select zxno into :zxno from zxdj。if zxno= then =00000001else //自動生成 declare cursor1 cursor for select zxno from zxdj。 //聲明游標(biāo)變量 open cursor1。 fetch cursor1 into :zxno1。 zxno2=00000001 do while =0 if zxno1zxno2 then zxno2=zxno1 else zxno2=zxno2 end if fetch cursor1 into :zxno1。 loop close cursor1。 zxno3=integer(zxno2) + 1 zxno2=string(zxno3) =zxno2end if③“確定”按鈕 clicked()事件，保存數(shù)據(jù)信息clicked 事件中的代碼如下：//聲明變量string fjhm1,zxno,xm,zj,zjh,dwordz,fjhm,kfjg,zxrq,zxts,zqxf,sjxf,txrq,bz,isorzxno=trim() //將各個從文本框中的值賦給變量xm=trim()zj=trim()zjh=trim()dwordz=trim()fjhm=trim()kfjg=trim()zxrq=trim()zxts=trim()sjxf=trim()txrq=trim()bz=trim()isor=T//將獲得的數(shù)據(jù)保存到住宿登記表中21 / 33insert into zxdj (zxno,name,zjlx,zjno,pany,fjhm,price,zxrq,zxts,sjxf,txrq,detail,isor) values(:zxno,:xm,:zj,:zjh,:dwordz,:fjhm,:kfjg,:zxrq,:zxts,:sjxf,:txrq,:bz,:isor)。messagebox(,保存成功!)string fjh,ftft=入住 fjh=trim()//修改數(shù)據(jù)update kfxxlx set roon_state=:ft where room_no=:fjh。=============true=false 退宿結(jié)算功能的實現(xiàn)(1) 退宿結(jié)算功能所能實現(xiàn)的功能