powerbuilder實訓(xùn)報告-資料下載頁
2025-05-29 22:47本頁面
【正文】 號(0,false)//取消之前所有行的加亮顯示if = then msg=查詢目標不能為空！請輸入... messagebox(提示,msg,exclamation!) () return end ifnbit=pos(,*)//找到“*”fstr=mid(,nbit+1)//獲得某字符串中從指定位置開始的指定長度的子串。 //格式Mid ( string, start {, length } ) //此處長度缺省，+1開始的所有字符choose case fstr case row//若指定記錄行（則不需執(zhí)行cb_next按鈕的clicked代碼） if not isnumber() or =0 or amp。 long()long() then msg=【記錄行】的范圍是1 + + !請修改... messagebox(提示,msg,exclamation!) () return end if //在數(shù)據(jù)窗口中顯示該記錄行 frow=long() (frow) (frow,true) //將w_find窗口縮小，以便用戶觀看查找結(jié)果 =300 =200 ()//以便按enter鍵關(guān)閉w_find窗口 return//不再執(zhí)行后續(xù)代碼 case borrow,return//查找日期型數(shù)據(jù) fstr=string(+fstr+,amp。 39。yymmdd39。)++39。++39。 //如fstr=string(borrow,39。yymmdd39。)=39。10022839。 case else//按其他方式查找（查找字符串型數(shù)據(jù)） fstr+=++39。++39。 //如fstr=name=39。CYQ39。 end choose =fstr// =1//設(shè)置查詢起始行 clicked()（5）下一條按鈕的clicked事件的代碼：string fstr,msglong srow,erow,frowfstr=srow=long()//獲得查找的起始行（見cb_find的clicked事件代碼）erow=long()//獲得查找的結(jié)束行（見w_find窗口的open事件）frow=(fstr,srow,erow)//進行查找，結(jié)果賦給frowif frow=0 then msg=沒找到滿足條件的記錄！請重新設(shè)置條件... messagebox(提示,msg,exclamation!) =// =1//設(shè)置查詢起始行 =false () (1,len()) else//如果找到 (frow)//滾屏 (frow,true)//在數(shù)據(jù)窗口控件中加亮顯示查找到的記錄行 =string(frow+1)//修改查找起始行，為下一次查找做準備 =true //將查找窗口縮小 =300 =100 () end if（6）關(guān)閉按鈕的clicked事件的代碼：close(parent) 建立w_about窗口新建窗口，添加一個靜態(tài)文本框，text為歡迎使用圖書管理系統(tǒng)，添加圖片框，置于底層，導(dǎo)入圖片，保存窗口，名稱為w_about。在w_about的close事件下寫入代碼：=true 應(yīng)用程序的發(fā)布單擊“File”,選擇“New”，選擇“Project”下的Application控件，單擊“OK”按鈕，在出現(xiàn)的界面中，在Excutable file name后查找到桌面上的圖書管理程序，選中Machine code選項，如圖：保存為p_tsgl. exe，關(guān)閉所有窗口,單擊,。六、設(shè)計結(jié)果與分析 運行時界面（1）登錄窗口： (2)w_main窗口(3)圖書類型窗口（5）圖書信息窗口：（6）用戶信息窗口：（7）借書記錄窗口：（8）記錄查詢窗口：69 分析在圖書管理系統(tǒng)中，實現(xiàn)圖書類型信息的查詢和編輯，圖書信息的查詢和編輯，用戶信息的查詢和編輯，借還書記錄的生成和查詢，指定用戶借還書記錄的查詢，界面清晰、大方、美觀。七、設(shè)計體會與建議 通過本次實訓(xùn)項目，進一步了解PowerBuilder的應(yīng)用程序的開發(fā)過程以及它的一些環(huán)境變量。在設(shè)計中，由于知識結(jié)構(gòu)的不成熟，遇到了諸多的問題，但在同學(xué)以及老師的下最終完成了本次項目。八、附錄項 目 名 小型圖書管理系統(tǒng)的開發(fā)學(xué) 號 09032488聯(lián)系方式 13720171468完成方式 自行設(shè)計，同學(xué)輔助班 級 信管09301班黃宣寧可累死在路上，也不能閑死在家里！寧可去碰壁，也不能面壁。是狼就要練好牙，是羊就要練好腿。什么是奮斗？奮斗就是每天很難，可一年一年卻越來越容易。不奮斗就是每天都很容易，可一年一年越來越難。能干的人，不在情緒上計較，只在做事上認真；無能的人！不在做事上認真，只在情緒上計較。拼一個春夏秋冬！贏一個無悔人生！早安！—————獻給所有努力的人. 學(xué)習(xí)好幫手
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1