【正文】 e amp。amp。順序查詢 do case case crand=39。239。 update tabpurview set 權(quán)限級(jí)別=crand,前臺(tái)管理=.t.,客房管理=.t.,查詢統(tǒng)計(jì)=.t.,掛帳管理=.t.,基礎(chǔ)信息設(shè)置=.t.,系統(tǒng)初始化=.f.,系統(tǒng)維護(hù)=.f. where 操作員姓名=czyname amp。amp。更新數(shù)據(jù)表 case crand=39。339。 update tabpurview set 權(quán)限級(jí)別=crand,前臺(tái)管理=.t.,客房管理=.t.,查詢統(tǒng)計(jì)=.t.,掛帳管理=.t.,基礎(chǔ)信息設(shè)置=.f.,系統(tǒng)初始化=.f.,系統(tǒng)維護(hù)=.f. where 操作員姓名=czyname amp。amp。更新數(shù)據(jù)表 case crand=39。439。 update tabpurview set 權(quán)限級(jí)別=crand,前臺(tái)管理=qtgl,客房管理=kfgl,查詢統(tǒng)計(jì)=cxtj,掛帳管理=gzgl,基礎(chǔ)信息設(shè)置=jcinfo,系統(tǒng)初始化=syscsh,系統(tǒng)維護(hù)=syswh where 操作員姓名=czyname amp。amp。更新數(shù)據(jù)表 endcase messagebox(39。數(shù)據(jù)保存完畢39。,48,39。操作成功！39。) locate for 操作員姓名=czyname amp。amp。順序查詢 amp。amp。執(zhí)行表單的Resize事件 =.f. =.f. endif程序維護(hù)包括程序交付使用之后對(duì)程序所作的所有改動(dòng)。有時(shí)，維護(hù)工作就是改正測(cè)試時(shí)沒發(fā)現(xiàn)的錯(cuò)誤。而有時(shí)是由于用戶的新的信息要求而需要修改程序。你也許會(huì)感到奇怪，現(xiàn)在絕大多數(shù)的商業(yè)編程工作都是對(duì)已有程序的維護(hù)，而不是編寫新的程序。由于在程序維護(hù)上要花如此多的時(shí)間，所以也應(yīng)該遵循與設(shè)計(jì)一個(gè)新程序時(shí)一樣的規(guī)則和步驟，如設(shè)計(jì)、測(cè)試、編寫資料等。不幸的是，在進(jìn)行程序維護(hù)時(shí)，通常很難做到這一點(diǎn)。結(jié)果是經(jīng)過(guò)多次修改后，和原來(lái)的程序相比，修改后的程序已變得面目全非了。以高標(biāo)準(zhǔn)對(duì)程序進(jìn)行維護(hù)不僅可以降低總的編程成本，而且可以延長(zhǎng)程序的使用壽命。5. 總結(jié) 開發(fā)一個(gè)VFP應(yīng)用系統(tǒng)一般要經(jīng)歷以下5步,既需求分析—數(shù)據(jù)庫(kù)設(shè)計(jì)—應(yīng)用程序設(shè)計(jì)—軟件測(cè)試—,這和早期的DBASE,.,充分體現(xiàn)了面向程序語(yǔ)言的特點(diǎn),而FOXPRO以前的語(yǔ)言都是面向過(guò)程的結(jié)構(gòu)化的語(yǔ)言,FOXPRO則是介于二者之間的一種過(guò)渡性語(yǔ)言.,界面友好的項(xiàng)目管理器,文檔,類庫(kù)和代碼,而且能快捷地調(diào)用VFP提供的各種設(shè)計(jì)器與生成器,使系統(tǒng)的開發(fā)與維護(hù)都可在項(xiàng)目管理器的集成環(huán)境中實(shí)施.,能支持用戶為所開發(fā)的項(xiàng)目創(chuàng)建一套”安裝磁盤”,為軟件商品化創(chuàng)造了條件.在做畢業(yè)設(shè)計(jì)以前，我對(duì)客房管理信息系統(tǒng)開發(fā)的理解只停留在理論知識(shí)的水平上，缺乏實(shí)際的軟件開發(fā)實(shí)踐。這次通過(guò)畢業(yè)設(shè)計(jì)，我主要完成了其中一些模塊的功能。在整個(gè)開發(fā)工程中遇到了很多問(wèn)題，但最終都被一一的解決了，對(duì)其中比較主要的幾點(diǎn)體會(huì)總結(jié)如下：第一，在系統(tǒng)開發(fā)之初，我對(duì)客房管理的信息一無(wú)所知，后來(lái)經(jīng)過(guò)多方面和查找，終于完成了系統(tǒng)的分析工作。第二，對(duì)工具的不熟悉。對(duì)于Foxpro，盡管曾經(jīng)學(xué)習(xí)過(guò)、使用過(guò)，但在使用Foxpro獨(dú)自設(shè)計(jì)一個(gè)應(yīng)用程序時(shí)，仍然遇到了不少困難。經(jīng)過(guò)了一個(gè)多月的學(xué)習(xí)以及不斷地向同學(xué)請(qǐng)教后，才逐步熟悉了開發(fā)工具。第三，在寫畢業(yè)論文時(shí)，開始想把每一個(gè)細(xì)節(jié)都具體在論文上體現(xiàn)出來(lái)，結(jié)果不但工作量大，而且畢業(yè)論文的質(zhì)量也不高。經(jīng)過(guò)指導(dǎo)老師的指點(diǎn)和自己的思考后，才確定了論文的主題內(nèi)容，即體現(xiàn)我在整個(gè)設(shè)計(jì)中所學(xué)到知識(shí)和所作的事情。在整個(gè)畢業(yè)設(shè)計(jì)的過(guò)程中，我不僅熟悉了Foxpro，而且了解了一個(gè)信息系統(tǒng)開發(fā)的整個(gè)過(guò)程，達(dá)到了鍛煉自己的目的，同時(shí)也進(jìn)一步加深了對(duì)軟件開發(fā)工作的理解和認(rèn)識(shí)。使自己的計(jì)算機(jī)專業(yè)水平有了很大的提高 致 謝 經(jīng)過(guò)近一個(gè)多月的努力，在本課題老師(付老師)的悉心指導(dǎo)幫助下，我終于完成了該論文。在此 ，我要深感謝意。感謝計(jì)算機(jī)組的全體教師、和所有幫助、支持過(guò)我的老師、同學(xué)們。參考文獻(xiàn)《Visual Foxpro及其應(yīng)用系統(tǒng)開發(fā)》 清華大學(xué)出版社 史濟(jì)民編著《數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用》 中央廣播電視大學(xué)出版社 徐孝凱等編附錄：部分源程序代碼：確定按鈕的CLICK代碼：public manager amp。amp。定義全局變量manager=alltrim()use database\tabpurview amp。amp。打開數(shù)據(jù)表*獲得輸入信息ame=alltrim()ppassword=alltrim()set order to 操作員姓名 amp。amp。指定操作員姓名為控制索引if empty(操作員姓名) amp。amp。執(zhí)行表單的Resize事件 manager=alltrim() store . pqtgl,pkfgl,pcxtj,pgzgl,pjcinfo,psyscsh,psyswh else seek ame amp。amp?？焖俨樵? set exact on amp。amp。設(shè)置字符精確比較*判斷操作員是否正確 if alltrim()!=ame amp。amp。判斷輸入的操作員姓名是否存在 =+1 cMessagetitle=39。系統(tǒng)登錄39。 cMessagetext=39。操作員錯(cuò)誤，請(qǐng)重新輸入！39。 nDialogtype=4+32 nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 amp。amp。選擇“是”時(shí)的操作 =39。39。 case nanswer=7 amp。amp。選擇“否”時(shí)的操作 messagebox(39。不要亂來(lái)！39。,48,39。系統(tǒng)登錄39。) amp。amp。釋放表單 endcase if =3 endif else*判斷密碼是否正確 if alltrim()!=ppassword =+1 cmessagetitle=39。系統(tǒng)登錄39。 cmessagetext=39。密碼錯(cuò)誤，請(qǐng)重新輸入！39。 ndialogtype=4+32 nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle) do case case nanswer=6 =39。39。 case nanswer=7 messagebox(39。不要亂來(lái)！39。,48,39。系統(tǒng)登錄39。) endcase if =3 endif else amp。amp。執(zhí)行表單的Resize事件 manager=alltrim() endif endif endifset exact off amp。amp。設(shè)置字符非精確比較結(jié)帳按鈕的CLICK代碼：store .t. to ,。 ,。 ,store date() to ,store time() to ,=managerstore 0 to ,。 ,。 ,=100store 39。39。 to ,。 ,。 ,。 ,。 ,select *。from roommanage!tabdjb。where 是否結(jié)帳=.f.。order by 。into cursor lin=39。39。 amp。amp。賦數(shù)據(jù)源 amp。amp。Combo5獲得焦點(diǎn) amp。amp。刷新表單=.f.=.t.=.t.=.f.結(jié)帳按鈕的CLICK代碼：store .t. to ,。 ,。 ,store date() to ,store time() to ,=managerstore 0 to ,。 ,。 ,=100store 39。39。 to ,。 ,。 ,。 ,。 ,select *。from roommanage!tabdjb。where 是否結(jié)帳=.f.。order by 。into cursor lin=39。39。 amp。amp。賦數(shù)據(jù)源 amp。amp。Combo5獲得焦點(diǎn) amp。amp。刷新表單=.f.=.t.=.t.=.f.