計算機(jī)本科-VFP賓館管理系統(tǒng)畢業(yè)論文.doc

目 錄1.諸論21.1 VISUAL FOXPRO6.0概述22. 系統(tǒng)調(diào)研及可行性分析32.1系統(tǒng)調(diào)研32.2可行性分析33.系統(tǒng)的實施33.1系統(tǒng)功能分析33.2系統(tǒng)功能圖43.3數(shù)據(jù)庫設(shè)計43.4系統(tǒng)結(jié)構(gòu)設(shè)計104.系統(tǒng)維護(hù)335. 總結(jié)34致 謝35參考文獻(xiàn)36附錄：部分源程序代碼：371. 諸論1.1 VISUAL FOXPRO6.0概述 Visual FoxPro 是為數(shù)據(jù)庫結(jié)構(gòu)和應(yīng)用程序開發(fā)而設(shè)計的功能強(qiáng)大的面向?qū)ο蟮沫h(huán)境。無論是組織信息、運(yùn)行查詢、創(chuàng)建集成的關(guān)系型數(shù)據(jù)庫系統(tǒng)，還是為最終用戶編寫功能全面的數(shù)據(jù)管理應(yīng)用程序，Visual FoxPro 都可以提供管理數(shù)據(jù)所需的工具,可以在應(yīng)用程序或數(shù)據(jù)庫開發(fā)的任何一個領(lǐng)域中提供幫助。Visual FoxPro 所具有的速度、能力和靈活性，是普通數(shù)據(jù)庫管理系統(tǒng)無法比擬的，它把我們帶入一個 Xbase 新時代.1)VISUAL FOXPRO6.0具有可視化的開發(fā)環(huán)境,用戶可以不用了解WINDOWS和C編程技術(shù),通過圖形化的交互操作,就可以設(shè)計實現(xiàn)應(yīng)用 系統(tǒng),開發(fā)出美觀、簡潔的圖形化界面來.2)VISUAL FOXPRO6.0具有強(qiáng)大的數(shù)據(jù)提取能力,它提供了功能強(qiáng)勁的數(shù)據(jù)窗口控制.數(shù)據(jù)窗口對象可以用于聯(lián)接數(shù)據(jù)庫,獲得記錄,以各種風(fēng)格顯示數(shù)據(jù)和更新數(shù)據(jù)庫。經(jīng)過五個版本的改進(jìn),數(shù)據(jù)窗口具有很靈活的能力,通過VFP函數(shù),編程者可以在程序中動態(tài)地改變數(shù)據(jù)窗口的結(jié)構(gòu)和顯示模式。3)VISUAL FOXPRO6.0是基于客戶機(jī)/服務(wù)器(Client/Sever)的體系結(jié)構(gòu),這種體系結(jié)構(gòu)可以減少硬件平臺的投資,并能完成大型主機(jī)的功能,而且可以集中數(shù)據(jù)的存儲和管理,實現(xiàn)資源的共享,降低維護(hù)的難度,還能集中實施院校規(guī)則,實現(xiàn)教育信息的標(biāo)準(zhǔn)化。4)VISUAL FOXPRO6.0是一種面向?qū)ο蟮膽?yīng)用程序開發(fā)方法, 對象(OBJECT),是包含相關(guān)的數(shù)據(jù)(以變量的形式)以及用于操作這些數(shù)據(jù)的方法(子程序)的軟件包。一個對象是一個類的具體表現(xiàn),在功能上它與其它程序保持獨(dú)立,一個定義良好的對象具有封裝的數(shù)據(jù)和功能。5)VISUAL FOXPRO6.0是一種開放式數(shù)據(jù)庫聯(lián)接ODBC環(huán)境, 這種體系結(jié)構(gòu)能更好地滿足賓館,旅店的實際需要,有利于應(yīng)用系統(tǒng)的移植和擴(kuò)充。目前 ,市場上流行的各種數(shù)據(jù)庫系統(tǒng)軟件,如Oracle,Informix等,各行其道 ,使用戶無所適從。然而Visual FoxPro為這些數(shù)據(jù)庫提供了公共的前端工具,提供了開放式數(shù)據(jù)庫連接ODBC,不僅適用于各種數(shù)據(jù)庫管理系統(tǒng),具有很好的兼容性,而 且還能給已有的數(shù)據(jù)資源帶來全新的圖形界面。6)VISUAL FOXPRO6.0提供了大量的諸如“數(shù)據(jù)庫設(shè)計器”、“表單設(shè)計器”、“菜單設(shè)計器”、“報表設(shè)計器”等開發(fā)設(shè)計工具和向?qū)Чぞ撸╓izard）,使以往費(fèi)時費(fèi)力的開發(fā)工作變得輕松自如。這些可視化的設(shè)計工具免除了開發(fā)者編寫大量程序代碼的工作。2. 系統(tǒng)調(diào)研及可行性分析2.1系統(tǒng)調(diào)研（1）明確用戶的要求，以根據(jù)調(diào)查結(jié)果進(jìn)行可行性分析，確認(rèn)系統(tǒng)的開發(fā)是否可行。 （2）提出新系統(tǒng)的人員并不都是系統(tǒng)研究人員，有些人對于的功能和處理數(shù)據(jù)的方法沒有明確的認(rèn)識。它們只是根據(jù)自己業(yè)務(wù)工作的需要提出了要求，系統(tǒng)開發(fā)人員要對此進(jìn)行詳細(xì)的調(diào)查和分析，確認(rèn)用戶的要求可以通過現(xiàn)有的計算機(jī)技術(shù)實現(xiàn)，保證開發(fā)的管理信息系統(tǒng)的功能與用戶提出的要求相吻合。（3）要詳細(xì)地調(diào)查現(xiàn)行系統(tǒng)中信息處理的具體情況，系統(tǒng)內(nèi)部功能結(jié)構(gòu)，以便設(shè)計出一個合理的、好的新系統(tǒng)邏輯模型，為新系統(tǒng)的設(shè)計工作打好基礎(chǔ)，保證整個系統(tǒng)開發(fā)的質(zhì)量。2.2可行性分析(1) 操作可行性本系統(tǒng)運(yùn)行在通用的Windows 98/2000/ME操作系統(tǒng)上，具有與Windows相似的操作界面，簡單易學(xué)，使用方便，具有一些人性化的功能，工作人員不需經(jīng)過專門的培訓(xùn)即可使用.(2) 開發(fā)方案的選擇性研究Visual FoxPro6.0 是一種易學(xué)易用的面向?qū)ο蟮木幊陶Z言工具,它比Visual Basic6.0更易于掌握，易于使用，便于維護(hù)。由此，我選用Visual FoxPro6.0作為此次應(yīng)用軟件的開發(fā)工具。3.系統(tǒng)的實施3.1系統(tǒng)功能分析本系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動化。主要完成功能： 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視機(jī)、電話以及單獨(dú)衛(wèi)生間等。 客房標(biāo)準(zhǔn)信息的修改、查詢等。 客房基本信息的輸入，包括客房編號、客房類型、客房位置、客房單價、備注等。 客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價、備注等。 剩余客房信息的查詢等。 訂房信息的輸入，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。 訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。結(jié)算信息的輸入，包括客房編號、客房種類、位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)算日期、備注信息等。 結(jié)算信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)日期、備注信息等。3.2系統(tǒng)功能圖按結(jié)構(gòu)化程序設(shè)計思想，分析得出如下系統(tǒng)功能圖前臺管理客房管理查詢統(tǒng)計掛帳管理基礎(chǔ)信息設(shè) 置系統(tǒng)初始化客房預(yù)定(KFYD.S CX)客房查詢(KFQUERY.SCX)預(yù)定房查詢(KFYDQUERY.SCX)掛帳查詢(GZQUERY.SCX)客房信息(KFMANAGE.SCX)本單位定義(BDWDY.SCX)住宿登記(ZSDJ.S CX)房態(tài)查看(FANGTAIQUERY.SCX)住宿查詢(ZSQUERY.SCX)客人結(jié)帳(KERENJZ.SCX)客房類型信息(KFLXMANAGE.SCX)業(yè)務(wù)部門定義(BMDY.SCX)調(diào)房登記(TIAOFANGDJ.SCX)退宿查詢(TSQUERY.SCX)員工信息(YGMANAGE.SCX)操作員管理(MODIFYPASSWORD.SCX)追加押金(ZJYJ.S CX)宿費(fèi)提醒(SFTX.SCX)掛帳單位信息(GZDWMANAG.SCX)權(quán)限設(shè)置(FPURVIEW.SCX)退宿結(jié)帳(TSJZ.SCX)退出(QUIT)圖3.1系統(tǒng)的頂層圖是用來表示整個系統(tǒng)的功能結(jié)構(gòu)。隨著需求分析活動的逐漸深入，較高抽象級別上的復(fù)雜轉(zhuǎn)換可以進(jìn)化為一系列的相互關(guān)聯(lián)的數(shù)據(jù)流和子轉(zhuǎn)換。在數(shù)據(jù)流方法中，對數(shù)據(jù)（數(shù)據(jù)流）的進(jìn)化是伴隨著對轉(zhuǎn)換的進(jìn)化而同步進(jìn)行的。3.3數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計步驟： 數(shù)據(jù)庫需求分析 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(1)數(shù)據(jù)庫需求分析分析調(diào)查有關(guān)客房管理信息需求的基礎(chǔ)上得本系統(tǒng)所處理的數(shù)據(jù)流程客房標(biāo)準(zhǔn)設(shè)置基本信息輸入客房登記基本信息錄入客房信息管理顧客登記訂房信息管理訂房信息管理結(jié)算信息輸入結(jié)算信息管理客房信息返回圖3.2針對一般客房管理信息系統(tǒng)的需求，通過對客房管理過程的內(nèi)容和流程分析，設(shè)計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)： 客房標(biāo)準(zhǔn)信息，包括的數(shù)據(jù)項有：標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價、是否有空調(diào)、電視、電話等。 客房信息，包括的數(shù)據(jù)項有：客房編號、客房種類、客房位置、客房單價、備注等。 訂房信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、備注等。 結(jié)算信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、結(jié)算時間、備注等。(2)數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 本系統(tǒng)根據(jù)以上的設(shè)計規(guī)劃出的實體有：客房標(biāo)準(zhǔn)信息實體、客房信息實體、訂房信息實體、結(jié)算信息實體。各個實體具體的描述-圖如下：客房標(biāo)準(zhǔn)信息實體標(biāo)準(zhǔn)編號標(biāo)準(zhǔn)名稱床位數(shù)量客房單價客房標(biāo)準(zhǔn)信息實體-圖客房信息實體客房標(biāo)準(zhǔn)客房編號客房位置客房單價客房信息實體-圖訂房信息實體客房信息顧客信息折 扣入住時間訂房信息實體-圖結(jié)算信息實體客房信息顧客信息結(jié)算時間結(jié)算金額結(jié)算信息實體-圖客房標(biāo)準(zhǔn)信息客房登記客房信息管理訂 房訂房信息管理結(jié)算信息管理客房結(jié)算實體之間關(guān)系-圖(3)數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計主要表結(jié)構(gòu)如下:客房登記表:字段名類型寬度小數(shù)位數(shù)憑證號碼字符型20姓名字符型20證件名稱字符型20證件號碼字符型20詳細(xì)地址字符型50住宿原由字符型50房間號字符型20客房類型字符型10聯(lián)系電話字符型20工作單位字符型50房間價格貨幣型8住宿日期日期型8住宿時間字符型8預(yù)住天數(shù)數(shù)值型80時間宿費(fèi)貨幣型8折扣數(shù)值型80應(yīng)收宿費(fèi)貨幣型8預(yù)付金額貨幣型8提醒日期日期型8退宿日期日期型8備注字符型50是否結(jié)帳邏輯型1日期日期型8時間字符型8結(jié)款方式字符型10退宿時間字符型8提醒時間字符型8操作員字符型10客房類型:字段名類型寬度類型編號字符型10客房類型字符型10價格貨幣型8備注字符型50客房信息:字段名類型寬度房間號字符型10房間類型字符型10價格貨幣型8房態(tài)字符型50配置字符型50使用設(shè)置字符型10營業(yè)時間日期時間型8備注字符型50客房預(yù)定表:字段名類型寬度姓名字符型20證件名稱字符型20證件號碼字符型20聯(lián)系電話字符型20詳細(xì)地址字符型50工作單位字符型50客房類型字符型10房間價格貨幣型8預(yù)住日期日期型8預(yù)住天數(shù)數(shù)值型8預(yù)付金額貨幣型8備注字符型50日期日期型8操作員字符型10時間字符型8結(jié)帳信息表字段名類型寬度憑證號碼字符型20姓名字符型20證件名稱字符型20證件號碼字符型20詳細(xì)地址字符型50工作單位字符型50住宿原由字符型50房間號字符型10客房類型字符型10客房價格貨幣型8住宿日期日期型8住宿時間字符型8住宿天數(shù)雙精度型8實際宿費(fèi)貨幣型8結(jié)款方式字符型16折扣雙精度型8應(yīng)收宿費(fèi)貨幣型8雜費(fèi)貨幣型8電話費(fèi)貨幣型8會議費(fèi)貨幣型8存車費(fèi)貨幣型8賠償費(fèi)貨幣型8金額總計貨幣型8預(yù)收宿費(fèi)貨幣型8退還宿費(fèi)貨幣型8退還日期日期型8退還時間字符型8備注字符型50聯(lián)系電話字符型20操作員字符型103.4系統(tǒng)結(jié)構(gòu)設(shè)計（一） 進(jìn)入系統(tǒng)啟動本系統(tǒng)時，將出現(xiàn)如圖所示的登錄界面，本系統(tǒng)是通過一個叫主程序文件進(jìn)入的。用戶可以直接雙擊主程序圖標(biāo)，首先出現(xiàn)的是一個用戶登錄的窗口，填好密碼，再單擊確定就能進(jìn)入系統(tǒng)的主界面，也就是主要的操作控制窗口，這里主要是通過系統(tǒng)菜單進(jìn)行操作的。管理員是整個系統(tǒng)擁有全部的控制權(quán).1） 登錄界面：確定按鈕的CLICK代碼：public manager &定義全局變量manager=alltrim(bo1.value)use databasetabpurview &打開數(shù)據(jù)表*獲得輸入信息cname=alltrim(thisform.Combo1.value)ppassword=alltrim(thisform.text1.value)set order to 操作員姓名 &指定操作員姓名為控制索引if empty(操作員姓名) thisform.resize &執(zhí)行表單的Resize事件 manager=alltrim(bo1.displayvalue) store .t.to pqtgl,pkfgl,pcxtj,pgzgl,pjcinfo,psyscsh,psyswh thisform.releaseelse seek cname &快速查詢 set exact on &設(shè)置字符精確比較*判斷操作員是否正確 if alltrim(tabpurview.操作員姓名)!=cname &判斷輸入的操作員姓名是否存在 cn=cn+1 cMessagetitle=系統(tǒng)登錄 cMessagetext=操作員錯誤，請重新輸入！ nDialogtype=4+32 nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 &選擇“是”時的操作 bo1.value= bo1.setfocus case nanswer=7 &選擇“否”時的操作 messagebox(不要亂來！,48,系統(tǒng)登錄) thisform.release &釋放表單 endcase if cn=3 thisform.release endif else*判斷密碼是否正確 if alltrim(tabpurview.密碼)!=ppassword cn=cn+1 cmessagetitle=系統(tǒng)登錄 cmessagetext=密碼錯誤，請重新輸入！ ndialogtype=4+32 nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 thisform.text1.value= thisform.text1.setfocus case nanswer=7 messagebox(不要亂來！,48,系統(tǒng)登錄) thisform.release endcase if cn=3 thisform.release endif else thisform.resize &執(zhí)行表單的Resize事件 manager=alltrim(bo1.displayvalue) thisform.release endif endif endifset exact off &設(shè)置字符非精確比較（二） 主菜單：此模塊提供菜單選擇功能，供用戶選擇各模塊；1） 主菜單界面：2) 前臺管理:A.客房預(yù)定:登記按鈕的CLICK代碼：*設(shè)置控件有效bo1.enabled=.bo2.enabled=.t.thisform.text2.enabled=.t.thisform.text3.enabled=.t.thisform.text6.enabled=.t.thisform.text7.enabled=.t.thisform.text9.enabled=.t.thisform.text10.enabled=.t.thisform.text11.enabled=.t.thisform.text12.enabled=.t.thisform.text13.enabled=.t.thisform.text1.value=date()thisform.text2.value=thisform.text3.value=thisform.text4.value=time()thisform.text5.value=managerthisform.text6.value=thisform.text7.value=thisform.text8.value=0thisform.text9.value=/thisform.text10.value=0thisform.text11.value=0thisform.text12.value=thisform.text13.value=bo1.value=bo2.value=thisform.text2.setfocus &Text2獲得焦點(diǎn)thisform.refresh &刷新表單mandgroup1.cadd.enabled=.mandgroup1.csave.enabled=.mandgroup1.ccancel.enabled=.mandgroup1.cexit.enabled=.f.B.住宿登記:保存按鈕的CLICK代碼：*獲得輸入信息cdate=thisform.text1.valuepznumber=alltrim(thisform.text14.value)cname=alltrim(thisform.text2.value)zjnumber=alltrim(thisform.text3.value)ctime=alltrim(thisform.text4.value)manager=alltrim(thisform.text5.value)zsyy=alltrim(thisform.text6.value)area=alltrim(thisform.text7.value)price=thisform.text8.valuezsdate=thisform.text9.valueyzday=thisform.text10.valuezstime=alltrim(thisform.text11.value)tel=alltrim(thisform.text12.value)cmemo=alltrim(thisform.text13.value)kflx=alltrim(bo2.displayvalue)zjname=alltrim(bo1.displayvalue)jkfs=alltrim(bo3.displayvalue)fjno=alltrim(thisform.text15.value)sjmoney=thisform.text16.valuezk=thisform.text17.valueysmoney=thisform.text18.valueyfmoney=thisform.text19.valuetxdate=thisform.text20.valuetxtime=alltrim(thisform.text21.value)tsdate=thisform.text22.valuetstime=alltrim(thisform.text23.value)workdw=alltrim(thisform.text24.value)sfjz=.f.cmessagetitle=住宿登記cmessagetext=確定要保存嗎？ndialogtype=4+32nAnswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)do case case nAnswer=6 if empty(cname) or empty(fjno) &判斷名稱和證件號碼是否為空 messagebox(名稱和房間號不能為空,48,操作失??！) thisform.text2.setfocus else select tabdjb set order to 憑證號碼 &指定控制索引文件 seek pznumber &快速查詢*追加新記錄 insert into tabdjb values(pznumber,cname,zjname,zjnumber,area,zsyy,fjno,kflx,tel,workdw,price,zsdate,zstime,yzday,sjmoney,zk,ysmoney,yfmoney,txdate,tsdate,cmemo,sfjz,cdate,ctime,jkfs,tstime,txtime,manager) &將輸入的掛帳單位信息存入表tabdjb update tabkfinfo set 房態(tài)=入住 where 房間號=fjno &更新數(shù)據(jù)表 messagebox(數(shù)據(jù)保存完畢,48,操作成功！) thisform.refresh &刷新表單 l=.f. thisform.Resize &執(zhí)行表單的Resize事件 mandgroup1.cexit.enabled=.t. mandgroup1.ccancel.enabled=.f. mandgroup1.csave.enabled=.f. mandgroup1.cadd.enabled=.t. endif case nanswer=7 endcaseC.調(diào)房登記:取消按鈕的CLICK代碼：store .f. to bo1.enabled,bo2.enabled &設(shè)置控件無效mandgroup1.cexit.enabled=.mandgroup1.ccancel.enabled=.mandgroup1.csave.enabled=.mandgroup1.cadd.enabled=.t.D.追加押金:取消按鈕的CLICK代碼：thisform.releaseE.退宿結(jié)帳:結(jié)帳按鈕的CLICK代碼：store .t. to bo3.enabled,bo4.enabled,bo5.enabled,; bo6.enabled,thisform.text9.enabled,thisform.text11.enabled,; thisform.text13.enabled,thisform.text17.enabled,thisform.text22.enabledstore date() to thisform.text1.value,thisform.text9.valuestore time() to thisform.text4.value,thisform.text11.valuethisform.text5.value=managerstore 0 to thisform.text8.value,thisform.text10.value,thisform.text16.value,; thisform.text18.value,thisform.text19.value,thisform.text20.value,; thisform.text22.value,thisform.text23.valuethisform.text17.value=100store to thisform.text2.value,thisform.text3.value,thisform.text6.value,; thisform.text7.value,thisform.text12.value,thisform.text13.value,thisform.text14.value,; thisform.text15.displayvalue,thisform.text21.value,bo1.displayvalue,; bo2.displayvalue,bo3.displayvalue,; bo4.displayvalue,bo5.displayvalueselect *;from roommanage!tabdjb;where 是否結(jié)帳=.f.;order by tabdjb.憑證號碼;into cursor bo5.rowsource=lin.憑證號碼 &賦數(shù)據(jù)源bo5.setfocus &Combo5獲得焦點(diǎn)thisform.refresh &刷新表單mandgroup1.cadd.enabled=.mandgroup1.csave.enabled=.mandgroup1.ccancel.enabled=.mandgroup1.cexit.enabled=.f.3) 客房管理:A.客房查詢查詢按鈕的CLICK代碼：cx=0set exact off &字符非精確比較cif=alltrim(bo1.displayvalue)ccif=alltrim(bo2.displayvalue)ctext=alltrim(thisform.text1.value)if empty(ccif) messagebox(請輸入查詢條件！,48,操作失敗！) bo2.setfocuselse if empty(ctext) if ccif!=All messagebox(請輸入查詢條件！,48,操作失?。? thisform.text1.setfocus else select *; &選擇所有字段 from roommanage!tabkfinfo; &指定查詢的數(shù)據(jù)庫文件 order by tabkfinfo.房間號; &查詢結(jié)果升序排序 into cursor lindeping thisform.grid1.recordsource=lindeping &賦數(shù)據(jù)源 thisform.refresh endif else if bo2.displayvalue=like MySQL=cif+ +ccif+ +%+ctext+% else MySQL=cif+ +ccif+ +alltrim(thisform.text1.value)+ endif select * from roommanage!tabkfinfo where &MySQL.into cursor lindeping go top if eof() go bottom messagebox(客房不存在,48,信息窗口) thisform.grid1.recordsource=lindeping cx=1 else thisform.grid1.recordsource=lindeping thisform.refresh endif endifendifB.房態(tài)查看退出按鈕的CLICK代碼：thisform.visible=.f. &隱藏表單4) 查詢統(tǒng)計A.客房預(yù)定查詢按鈕組中”第一個” 按鈕的CLICK代碼：if cx=1 go top &記錄指針定位到第一條記錄 mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. mandgroup1.cmodify.enabled=.f. mandgroup1.cdel.enabled=.f.else go top mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.t. mand4.enabled=.t.endifthisform.resize &執(zhí)行表單的Resize事件thisform.refresh &刷新表單按鈕組中”上一個” 按鈕的CLICK代碼：if cx=1 messagebox(已是第一個記錄,48,信息窗口) mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. mandgroup1.cmodify.enabled=.f. mandgroup1.cdel.enabled=.f. thisform.resize &執(zhí)行表單的Resize事件else skip-1 &記錄指針向上移一條記錄 thisform.resize &執(zhí)行表單的Resize事件 if bof() messagebox(已是第一個記錄,48,信息窗口) mand1.enabled=.f. mand2.enabled=.f. thisform.resize &執(zhí)行表單的Resize事件 else mand1.enabled=.t. mand2.enabled=.t. endif mand3.enabled=.t. mand4.enabled=.t.endifthisform.refresh按鈕組中”下一個” 按鈕的CLICK代碼：if eof() messagebox(已經(jīng)是最后一條記錄,48,管理窗口) skip-1 &記錄指針向上移動一條記錄 thisform.resize &執(zhí)行表單的Resize事件 mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. mandgroup1.cmodify.enabled=.f. mandgroup1.cdel.enabled=.f.else skip &記錄指針向下移一條記錄 thisform.resize &執(zhí)行表單的Resize事件 if eof() messagebox(已經(jīng)是最后一條記錄,48,管理窗口) skip-1 &記錄指針向上移動一條記錄 thisform.resize &執(zhí)行表單的Resize事件 mand3.enabled=.f. mand4.enabled=.f. else mand3.enabled=.t. mand4.enabled=.t. endif mand1.enabled=.t. mand2.enabled=.t.endifthisform.refresh按鈕組中”最后一個” 按鈕的CLICK代碼：go bottom &記錄指針移動到最后一條記錄if cx=1 mand3.enabled=.f. mand4.enabled=.f. mand1.enabled=.f. mand2.enabled=.f. mandgroup1.cmodify.enabled=.f. mandgroup1.cdel.enabled=.f.else mand3.enabled=.f. mand4.enabled=.f. mand1.enabled=.t. mand2.enabled=.t.endifthisform.resize &執(zhí)行表單的Resize事件thisform.refreshB.住宿查詢:查詢按鈕的CLICK代碼：do case case thisform.optiongroup1.option1.value=1 select *; from roommanage!tabdjb; where 是否結(jié)帳=.t.; order by tabdjb.憑證號碼; into cursor lindeping thisform.grid1.recordsource=lindeping &賦數(shù)據(jù)源 if reccount()=0 messagebox(無符合條件的記錄！,48,操作失敗) endif case thisform.optiongroup1.option2.value=1 select *; from roommanage!tabdjb; where 是否結(jié)帳=.f.; order by tabdjb.憑證號碼; into cursor lindeping thisform.grid1.recordsource=lindeping if reccount()=0 messagebox(無符合條件的記錄！,48,操作失敗) endif case thisform.optiongroup1.option3.value=1 select tabdjb select *; from databaseroommanage!tabdjb; order by tabd