powerbuilder實訓(xùn)報告-文庫吧資料
2025-06-04 22:47本頁面
【正文】 se 3 return 1 end choose end if（2）在datawindow的itemfocuschuanged事件寫入代碼：long editrow //存放當(dāng)前記錄行的行號if then //若為編輯狀態(tài)，見f_setstatus函數(shù) editrow=long()//獲得當(dāng)前正在編輯的記錄行號 if editrowrow then//判斷是否是當(dāng)前行號 (editrow)//不是則修改當(dāng)前行號 (editrow)//讓當(dāng)前行可顯示 end if end if（3）重載按鈕的clicked事件代碼：()（4）查找按鈕的clicked事件代碼：open(w_find)（5）添加按鈕的clicked事件代碼：long newrownewrow=(0)//插入新行到最后(newrow)//將新行設(shè)為當(dāng)前行f_setstatus(false) //調(diào)用f_setstatus函數(shù)將窗口設(shè)為編輯狀態(tài)（6）刪除按鈕的clicked事件代碼：string msg=是否刪除當(dāng)前記錄？請確定...((),true)//加亮顯示要刪除的行if messagebox(提示,msg,Question!,YesNo!,2)=1 then (0)//刪除當(dāng)前行else ((),false)//取消行的加亮顯示end if（7）編輯按鈕的clicked事件代碼：if =編輯 then f_setstatus(false) else f_setstatus(true) f_resetitem()end if（8）保存按鈕的clicked事件代碼：if =編輯 then f_setstatus(false)else f_setstatus(true) f_resetitem()//恢復(fù)原始數(shù)據(jù)值end if（9）關(guān)閉按鈕的clicked事件代碼： close(parent)（10）定義函數(shù)（a）定義f_checkempty函數(shù)，類型如下：寫入代碼，如下：string msg(col_name)if ()= then msg=[+col_title+]值不能為空！請修改... messagebox(提示,msg,exclamation!) return 1 else return 1 end if（b）定義f_resetitem函數(shù)，如下圖：寫入代碼：//該函數(shù)將當(dāng)前行中數(shù)據(jù)恢復(fù)到編輯之前的值，對應(yīng)“取消”按鈕string org_valueinteger i,cols//i為計數(shù)變量，col存放列總數(shù)long currow//記錄當(dāng)前行currow=()//獲得當(dāng)前行的行號//分析當(dāng)前行的編輯狀態(tài)choose case (currow,0,primary!)//返回指定//緩沖區(qū)中指定行列的數(shù)據(jù)項的編輯狀態(tài) case new!,newmodified!//new表示新插入行，還沒設(shè)任何值 //newmodified表示新插入的行某些列已設(shè)置值 (0)//直接刪除該行 case datamodified!//如果數(shù)據(jù)被修改過則進行恢復(fù) cols=integer()//使用數(shù)據(jù)窗口屬性表達式讀取數(shù)據(jù)窗口對象的總列數(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。在“登錄”按鈕的clicked事件中輸入代碼：if =a then if =123 then open(w_main) close(w_password)else messagebox(提示,密碼錯誤，請重新輸入！) setfocus(sle_2)end ifelse messagebox(提示,您不是合法用戶，請重新輸入用戶名！) setfocus(sle_1)end if 建立w_main窗口新建窗口，添加一個圖片框，在picture name導(dǎo)入圖片，右擊，選擇“sent to ba
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1