powerbuilder實(shí)訓(xùn)報(bào)告(存儲(chǔ)版)
【正文】 cols=integer()//使用數(shù)據(jù)窗口屬性表達(dá)式讀取數(shù)據(jù)窗口對(duì)象的總列數(shù) for i=1 to cols//采用循環(huán)方式恢復(fù)所有數(shù)據(jù)列的值 //先檢查列數(shù)據(jù)是否被修改 if (currow,i,primary!)=datamodified! then org_value=(currow,i,primary!,true) (currow,i,org_value) //如果被修改，則讀取其原始值修復(fù) //getitemstring函數(shù)得到數(shù)據(jù)窗口空間中指定行列的字符串值 end if next end choose（c）定義f_setstatus函數(shù)，如下圖：long currowf_setstart()=viewmode=viewmode=viewmode=viewmode=viewmode=viewmodeif viewmode then =編輯 =保存 = else =取消 =確定 currow=() =string(currow) (currow) (currow,false) () (1) (1,len(())) end iff_setend() 建立w_book窗口右擊w_base窗口，選擇“Inherit from”，添加圖片框，在picture name導(dǎo)入圖片，右擊，選擇“sent to back”,將DataWindow control的Data Object設(shè)為“db_book”, 將窗口的Title改為“圖書信息”，保存窗口，名稱為w_book。+string(long(),000)+39。 long()long() then msg=【記錄行】的范圍是1 + + !請(qǐng)修改... 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。10022839。七、設(shè)計(jì)體會(huì)與建議 通過本次實(shí)訓(xùn)項(xiàng)目，進(jìn)一步了解PowerBuilder的應(yīng)用程序的開發(fā)過程以及它的一些環(huán)境變量。能干的人，不在情緒上計(jì)較，只在做事上認(rèn)真；無能的人！不在做事上認(rèn)真，只在情緒上計(jì)較。在w_about的close事件下寫入代碼：=true 應(yīng)用程序的發(fā)布單擊“File”,選擇“New”，選擇“Project”下的Application控件，單擊“OK”按鈕，在出現(xiàn)的界面中，在Excutable file name后查找到桌面上的圖書管理程序，選中Machine code選項(xiàng)，如圖：保存為p_tsgl. exe，關(guān)閉所有窗口,單擊,。yymmdd39。（1）ddlb_1的item寫入內(nèi)容:選擇行 *row（2）ddlb_1的selectchanged事件寫入代碼：if index=1 then//若指定按記錄行查找 (1)//查找關(guān)系默認(rèn)為“=” =false//禁止選擇查找關(guān)系 =falseelse//按其他方式查找 =trueend if()（3）ddlb_2的item寫入內(nèi)容，如下圖：（4）查找按鈕的clicked事件的代碼：//根據(jù)用戶設(shè)置生成查詢條件文本串，并進(jìn)行相應(yīng)的查找操作string msg=,fstr=//fstr用于存放查詢條件文本串integer nbitlong frow //存放查找到的記錄行的行號(hào)(0,false)//取消之前所有行的加亮顯示if = then msg=查詢目標(biāo)不能為空！請(qǐng)輸入... messagebox(提示,msg,exclamation!) () return end ifnbit=pos(,*)//找到“*”fstr=mid(,nbit+1)//獲得某字符串中從指定位置開始的指定長度的子串。（1）打開db_query_log表，單擊Data Source控件，在where的選項(xiàng)卡中輸入如下信息：然后單擊“design”菜單下的Specify Retrievel Aguments,輸入信息然后單擊“ok”按鈕，然后再保存名為q_user。在“登錄”按鈕的clicked事件中輸入代碼：if =a then if =123 then open(w_main) close(w_password)else messagebox(提示,密碼錯(cuò)誤，請(qǐng)重新輸入！) setfocus(sle_2)end ifelse messagebox(提示,您不是合法用戶，請(qǐng)重新輸入用戶名！) setfocus(sle_1)end if 建立w_main窗口新建窗口，添加一個(gè)圖片框，在picture name導(dǎo)入圖片，右擊，選擇“sent to back”,添加一個(gè)groupbox控件，Text為“系統(tǒng)控制臺(tái)”，添加七個(gè)按鈕，Text屬性分別設(shè)置為圖書類型
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1