【正文】 成“1”表示機房不在使用，下面是不在使用時候的效果圖 4－6。圖 46 不在使用時候的效果圖我又把數(shù)據(jù)庫里的 use_flag 值都寫成“0”表示機房正在使用，下面是正在不在使用時候的效果圖 4－7。圖 47 正在不在使用時候的效果圖這里的最終顯示效果正是預(yù)期想得到的，而且又在數(shù)據(jù)庫里修改了幾組 use_flag 值，結(jié)果顯示都正確。結(jié) 論整個設(shè)計基本上達到了最初的設(shè)計目標(biāo)，最終的測試結(jié)果也比較滿意。唯一的缺陷是沒有真正在大型的機房進行測試，最后只能在自己的電腦里測試，而且機器性能不太好，只顯示了6 臺機器的情況。這次設(shè)計最難的地方是顯示情況的狀態(tài)圖和數(shù)據(jù)庫中的信息相對應(yīng)的調(diào)試，其次是界面的設(shè)計和各種彈出窗口腳本的編寫，查了很多資料，自己也想了很多。通過這次畢業(yè)設(shè)計使我掌握了 PB 的是具體使用，也初步了解了 Oracle 數(shù)據(jù)庫（設(shè)計的重點不在數(shù)據(jù)庫方面，只在里面建立了幾個表進行簡單的連接）。體會到設(shè)計軟件不是一件容易的事情，要查閱相當(dāng)多的資料，進行無數(shù)次的上機操作和調(diào)試。致 謝衷心感謝袁文菊老師在我做畢設(shè)期間給予的悉心指導(dǎo)。老師開闊敏銳的思維、嚴(yán)謹(jǐn)治學(xué)的作風(fēng)及認(rèn)真工作的態(tài)度使我在論文研究中獲益頗多；老師以人為本，寬厚真誠，濃厚的人文精神使我在人生旅途中受益非淺。衷心感謝清華大學(xué)孫天澤老師，在我畢設(shè)期間無論何時都想辦法抽出時間耐心地指導(dǎo)我。孫老師淵博的知識、敏銳的學(xué)術(shù)洞察能力以及嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度將使我受益終生。 衷心感謝鄧明教授，在我做畢設(shè)課題過程也進行了指點和幫助。衷心感謝張良，黃杉，謝飛在我做畢設(shè)過程中對我的熱心幫助，以及所有幫助和關(guān)心我的同學(xué)們！他們在忙于自己畢業(yè)設(shè)計的同時，對我各方面無微不至的關(guān)懷和支持衷心感謝大學(xué)四年期間所有老師我對對我的培養(yǎng)、教育、關(guān)心和愛護。無法用言語感激我的父母和親戚寄予我的深切厚望和支持。最后，衷心感謝在百忙之中抽出時間審閱本論文的專家教授。參考文獻[1] 鄭阿奇. PowerBuilder 實用教程. 北京：電子工業(yè)出版社，2022，102－103.[2] 東方華人. Oracle 9i 入門與提高 . 北京：清華大學(xué)出版社， 2022，96－97.[3] 焦虹. PowerBuilder 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)教程 . 北京：清華大學(xué)出版社，2022，134－135.[4] 王蓉. PowerBuilder 應(yīng)用開發(fā)技術(shù)詳解. 北京：電子工業(yè)出版社，2022，75－76.[5] 張振坤. PowerBuilder 精彩編程 200 例. 北京：機械工業(yè)出版社，2022，105－106.[6] 崔巍. PowerBuilder 數(shù)據(jù)庫開發(fā)入門. 北京：清華大學(xué)出版社，2022，39－40.[7] 魯焱. PowerBuilder 程序設(shè)計. 北京：中國鐵道出版社，2022，66－67.[8] 達通電腦科技. [9] 中國 PB 程序員俱樂部. [10] Rajesh Palani. Linux Porting Guide. Embedded Systems Design，2022.[11] 張見青. 數(shù)據(jù)庫開發(fā)指南. 北京：科技出版社，2022 年.[12] 楊愛林. PowerBuilder 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)教程. 北京：清華大學(xué)出版社，2022，34.[13] 范永開. Linux 應(yīng)用開發(fā). 北京：人民郵電出版社，2022，139－140.[14] 孟慶昌. Linux 教程. 北京：電子工業(yè)出版社，2022，74－75.[15] 吳建. PowerBuilder 數(shù)據(jù)庫應(yīng)用. 北京：清華大學(xué)出版社，2022，56－57.附 錄屏幕大小識別environment lenv_system getenvironment(lenv_system) newheight= //取當(dāng)前屏幕分辨率的高度 newwidth= //取當(dāng)前屏幕分辨率的寬度 oldheight=768 //假設(shè)程序員屏幕分辨率為 1024*768 oldwidth=1024 =*newheight/oldheight \\然后有多少個控件就寫多少 =*newwidth/oldwidth =*newwidth/ oldwidth =*newheight/oldheight =*newheight/oldheight =*newwidth/oldwidth =* newwidth/oldwidth =* newheight/oldheight =*newheight/oldheight 在不同分辨率下自動調(diào)整程序界面f_windowscreen(this,1024,768)global type f_windowscreen from function_objectend typeforward prototypesglobal function integer f_windowscreen (readonly window arwin, integer arx, integer ary)end prototypesglobal function integer f_windowscreen (readonly window arwin, integer arx, integer ary)。environment envint ii_Screenwidth,ii_Screenheightdouble WRadio,HRadio,Radioint ii_WinBolderwidth,ii_WinBolderheightgetenvironment(env)ii_WinBolderwidth= ()//取得窗體邊框的寬度ii_WinBolderheight= ()ii_Screenwidth=ii_Screenheight=WRadio=ii_Screenwidth/arx //標(biāo)準(zhǔn)認(rèn)為屏幕分辨率為 arx*aryHRadio=ii_Screenheight/ary//計算出屏幕相對 arx*ary 分辨率的變化Radio=min(WRadio,HRadio)if Radio= then //如果分辨率是 arx*aryreturn 0end ifif (=MDIHelp!) or (=MDI!) then (()*Radio,()*Radio)return 0else()=( ii_WinBolderwidth)*Radio + ii_WinBolderwidth=( ii_WinBolderheight)*Radio + ii_WinBolderheightint idragobject temp//用于取各種控件windowobject song[]song[]=[]for i=1 to upperbound(song)temp=[i]//調(diào)整控件大小和位置=*Radio=*Radio=*Radio=*Radiochoose case typeof(temp) case tab! tab mtab mtab=temp =*Radio//設(shè)置字體大小 case mandbutton! mandbutton cb cb=temp =*Radio case singlelineedit! singlelineedit sle sle=temp =*Radio case editmask! editmask em em=temp =*Radio case statictext! statictext st st=temp =*Radio case datawindow!//get datawindow zoomen datawindow dw dw=temp =string(int(Radio*100))//注意 datawindow 和其他控件的不同。 case picturebutton! picturebutton pb pb=temp =*Radio case checkbox! checkbox cbx cbx=temp =*Radio case dropdownlistbox! dropdownlistbox ddlb ddlb=temp =*Radio case groupbox! groupbox gb gb=temp =*Radio case listbox! listbox lb lb=temp =*Radio case multilineedit! multilineedit mle mle=temp =*Radio case radiobutton! radiobutton rb rb=temp =*Radioend choosenext()return 0end ifend function