網(wǎng)站規(guī)劃與建設(shè)綜合實(shí)驗(yàn)課程設(shè)計(jì)報(bào)告-資料下載頁(yè)
2025-04-11 22:31本頁(yè)面
【正文】 )+real()+real()+real())*real()/100)=string(real()real())查詢統(tǒng)計(jì)管理（包括客房、預(yù)訂房、住宿、退宿、掛賬信息查詢） （由于結(jié)構(gòu)相似，在此以預(yù)訂房查詢?yōu)槔M(jìn)行解說(shuō)。） 單擊主菜單“查詢統(tǒng)計(jì)管理”下的“預(yù)訂房查詢”子菜單，進(jìn)入預(yù)訂房查詢窗體。在此窗口可以對(duì)預(yù)訂信息進(jìn)行查詢以及刪除。窗口open事件的代碼如下：//窗口ydfcx_win的open()事件，連接數(shù)據(jù)庫(kù)，檢索數(shù)據(jù)，把不同的姓名添加到組合框ddlb_1中string xm//把不同的姓名添加到組合框ddlb_1中declare cursor1 cursor for select distinct xm from kfyd_tab。open cursor1。fetch cursor1 into :xm。do while =0 (xm) fetch cursor1 into :xm。 loopclose cursor1。//連接數(shù)據(jù)庫(kù)(sqlca)//檢索數(shù)據(jù)() 掛賬結(jié)賬 單擊主菜單“掛賬管理”下的“掛賬結(jié)賬”子菜單，進(jìn)入掛賬結(jié)賬窗體。在下拉菜單“掛賬單位或地址”處進(jìn)行對(duì)象選擇，系統(tǒng)在數(shù)據(jù)庫(kù)中搜索相應(yīng)數(shù)據(jù)后數(shù)據(jù)窗口中會(huì)出現(xiàn)該單位的掛賬信息。結(jié)款方式有多種選擇。在命令按鈕“確定”cb_1的代碼如下：//窗口khjz_win的“確定”按鈕的clicked()事件，保存客人結(jié)帳信息 ……//選擇數(shù)據(jù)select thje,dzfs into :thje,:dzfs from txjz1_tab where xxdz=:gzdw and isor=:isor。thje2=real(thje)if thje20 then thje3=string(thje2 thje1)elseif thje20 then thje3=string(thje2 + thje1) end ifif trim(thje)= then messagebox(,您已經(jīng)結(jié)完款了!) else if trim(dzfs)=dzfs1 and real(thje)0 then//保存數(shù)據(jù)信息 insert into krjk_tab(gzdw,jkfs,hkje,jkr,czy) values(:gzdw,:jkfs,:hkje,:jkr,:czy)。 string pzhm,……//選擇數(shù)據(jù) select pzhm,……into :pzhm,……from txjz1_tab where xxdz=:gzdw and isor=:isor。//修改數(shù)據(jù) update txjz1_tab set isor=:isor1 where xxdz=:gzdw and dzfs=:dzfs1 and isor=:isor。//保存數(shù)據(jù) insert into txjz1_tab (pzhm,……)values(:pzhm,……)。 elseif trim(dzfs)=dzfs1 and real(thje)=0 then//修改數(shù)據(jù) update txjz1_tab set isor=:isor1 where xxdz=:gzdw and dzfs=:dzfs1。 messagebox(,您已經(jīng)結(jié)完款了!) end ifend ifstring xxdz1xxdz1=trim()(sqlca)string sqlsql=select pzhm,…… from txjz1_tab where xxdz=39。+xxdz1+39。//檢索數(shù)據(jù)(sql)()int totaltotal=()(total)系統(tǒng)初始設(shè)計(jì)（本單位定義、業(yè)務(wù)部門定義） （界面以及功能實(shí)現(xiàn)與基礎(chǔ)信息設(shè)置類似。）系統(tǒng)初始化 單擊主菜單“系統(tǒng)維護(hù)”下的“系統(tǒng)初始化”子菜單，進(jìn)入系統(tǒng)初始化窗體。本窗口功能為高級(jí)管理員初始化系統(tǒng)數(shù)據(jù)。點(diǎn)擊“清除所有數(shù)據(jù)”，所有基本表的數(shù)據(jù)將被刪除。點(diǎn)選“開始”后可選擇相應(yīng)數(shù)據(jù)，再點(diǎn)擊“建立新賬”，點(diǎn)選的功能所對(duì)應(yīng)的基本表數(shù)據(jù)將被刪除。命令按鈕“建立新賬”cb_3的關(guān)鍵代碼如下：//窗口xtcsh_win的clicked()事件，刪除選定的數(shù)據(jù) ……if then//刪除數(shù)據(jù)delete kfyd_tab。end ifif then delete zxdj_tab。end ifif thendelete txjz_tab。 delete txjz1_tab。end ifif then delete kfxxlx_tab。end ifif then delete gzdwxx_tab。 end if操作員管理 單擊主菜單“系統(tǒng)維護(hù)”下的“操作員管理”子菜單，進(jìn)入操作員管理窗體。 在下拉菜單處選擇操作員后，輸入密碼點(diǎn)擊“密碼確認(rèn)”。系統(tǒng)將單行編輯框中的密碼和數(shù)據(jù)庫(kù)中對(duì)應(yīng)的數(shù)據(jù)比對(duì)后判斷是否擁有權(quán)限。如果沒有則提示錯(cuò)誤信息，如果具備權(quán)限則將“新增用戶”更改為可操作。“密碼確認(rèn)”按鈕cb_3的代碼如下：//窗口czygl_win的“密碼確認(rèn)”按鈕的clicked()事件，判斷密碼正誤string czy,pwd,pwd1czy=trim()pwd=trim()//選擇數(shù)據(jù)庫(kù)select pwd into :pwd1 from czy_tab where czy=:czy。if czy= then messagebox(,請(qǐng)選擇操作員!)else if pwd=trim(pwd1) then string czyjb55//選擇數(shù)據(jù) select czyjb into :czyjb55 from czy_tab where czy=:czy。 if trim(czyjb55)=string(1) then =true =true =true =true =true = else messagebox(,對(duì)不起，您不是系統(tǒng)管理員!)//菜單項(xiàng)“權(quán)限設(shè)置”不可用 =false =true = =true =true end if else messagebox(,密碼有誤) end ifend if通過(guò)驗(yàn)證后“新增用戶”按鈕屬性變?yōu)榭捎?，點(diǎn)擊“新增用戶”按鈕，進(jìn)入系統(tǒng)操作員管理界面，可對(duì)操作員進(jìn)行增刪以及密碼的改動(dòng)。權(quán)限設(shè)置 單擊主菜單“系統(tǒng)維護(hù)”下的“權(quán)限設(shè)置”子菜單，進(jìn)入權(quán)限設(shè)置窗體。在本窗口可以完成對(duì)操作員權(quán)限的級(jí)別設(shè)定，以及能夠使用的具體功能。命令按鈕“確定”cb_1的部分代碼如下：//窗口qxgl_win的“確定”按鈕的clicked()事件，設(shè)置各菜單項(xiàng)的使用權(quán)限int qxjb89qxjb89=integer()if qxjb890 then if qxjb89=2 then//使如下菜單項(xiàng)可用 if then =true end if if then =true end if ......else messagebox(,請(qǐng)選擇操作員!)end if25
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1