1. 求PowerBuilder程序代碼代碼

任意輸入一個年份，判斷它是否為閏年。判斷閏年的條件是：能被4整除但不能被100整除的是閏年（如1992）；能被4整除又能被400整除的也是閏年（如2000）；其它為非閏年（如1900、1998、2002）。
我們建立一個文件夾「閏年」。在當前打開的工作空間中，創建一個對象庫leapyear.pbl、一個目標leapyear.pbt和一個應用程序對象leapyear。
在主工具欄上單擊New按鈕，在彈出New對話框中選擇PB Object選項卡,在其中選擇Window，單擊OK按鈕，打開窗口畫板。
在窗口畫板中，設計一個窗口對象，命名為w_main，窗口的標題設置為「判斷閏年」，窗口類型為「main!」。窗口上放置一個單行編輯框sle_1和一個命令按鈕。
命令按鈕的「text」屬性設置為「判斷」，選中其「Default」復選框，對它的「clicked」屬性編寫如下代碼：
integer year
year=integer(sle_1.text
if mod(year,4)=0 and mod(year,100)<>0 or mod(year,400)=0
then
MessageBox("測試結果", sle_1.text+"是閏年。")
else
MessageBox("測試結果", sle_1.text+"不是閏年。")
end if
這段代碼是整個應用程序的核心，它首先從單行編輯框sle_1中取出用戶輸入的年份，用integer()函數將其轉換為整型數據，然後用If語句判斷該年份是否滿足閏年的條件，若滿足輸出「是閏年」，否則輸出「不是閏年」。輸出用的是MessageBox()函數，它會彈出一個對話框，標題為「測試結果」，第二個參數是顯示的信息。
最後，在應用程序對象xdx的「open」事件中編寫一行代碼：open(w_main)
用以打開窗口w_main。

2. PB源代碼如何運行

新建一個workspace,然後添加一個Existing Application,在下步中選擇你那pbl中的應用（帶有應用的pbl會顯示+，打開它在下級文件中），再下一步點窗口旁邊的3個點的按鈕，添加所以的pbl文件，再一步步確定下去就可以了。
上面方法適合pb8.0及以上版本
PB有版本兼容的問題，低版本的軟體不能打開高版本的文件，用高版本的軟體打開低版本的文件就會升級到高版本，但不是一定會升級，有時也會提示錯誤，這個要慢慢了解了，
希望我的回答對你有幫助！

3. PB 按鈕的快捷鍵代碼怎麼寫,求具體代碼，謝謝！

1.按鈕可以設置成點擊回車鍵觸發，只要選中按鈕的default屬性即可。不過一個窗口中的按鈕，只有一個按鈕可以這么設置。
2.如果設置按鈕的快捷鍵，也可以在窗口的key事件，這個事件是點擊鍵盤觸發。然後對應不同的key，觸發不同按鈕的點擊事件即可。例如想要點擊ctrl_f，觸發cb_search按鈕的點擊事件：
if key = KeyF! then //如果點擊的是F按鈕
if keydown(KeyControl!) then //如果ctrl按鈕也同時點擊
cb_search.triggerevent(clicked!) //觸發按鈕事件
end if
end if

以上代碼寫在窗口的key事件中就可以了。

4. pb怎麼看代碼

你直接雙擊想要看的那個控制項就可以了！

5. 解釋pb代碼

if len(string(day(today())))=1 then //判斷當天日期是否為1位數 如果是
dayString = "0"+string(day(today())) //當天日期為 0 加上string(day(today()))
else //否則
dayString = string(day(today())) //直接顯示string(day(today()))
end if //結束
todayString = string(year(today()))+monthString+dayString; //todayString 等於年+月+日
string maxNo //定義字元型變數 maxNo
select max(danjuhao) into :maxNo from checkout2 where danjuhao like :todayString+'%'using sqlca;
//從表checkout2 中查找符合todayString的最大的danjuhao 放到 maxNo
if isnull(maxNo) then //如果maxNo 為空 則
st_11.text=todayString+"01" //st_11顯示的內容為：todayString+"01"
else //否則
if len(string(integer(mid(maxNo,9,2)) + 1)) = 1 then //從maxNo的第9位開始取取2位，如果取值加1等於1 則
st_11.text=todayString + "0" + string(integer(mid(maxNo,9,2)) + 1) //st_11顯示為 todayString 加上「0」加上string(integer(mid(maxNo,9,2)) + 1)
else 否則
st_11.text=todayString + string(integer(mid(maxNo,9,2)) + 1) //st_11顯示為 todayString 加上string(integer(mid(maxNo,9,2)) + 1)

end if //結束
end if //結束

6. PB上這代碼什麼意思

您好，你沒有說明該代碼寫在什麼事件或函數中
猜你可能是dw 的chicked or doublechicked 事件中
那麼含義就是：
如果點擊的是bookcode 列 ，那麼把當前行 bookcode列的值賦給 booknum
然後打開 窗口 qs

7. pb的一個簡單代碼

flag是個標志 其實是個變數參數.當flag = 1時則表示按下的數字是前面數字的一部分（譬如按下1 怎在sle_1單行編輯框上顯示數字『1』，然後再點3 則le_1單行編輯框上顯示數字『13』以此類推），flag =0 表示按下的數字是一個新數字的開始.（譬如按下5 怎在sle_1單行編輯框上只顯示數字『5』）

這段代碼的意思就是 先做一個if ...end if判斷語句 當flag = 0時（為真，就是這是新的數字，點擊完在sle_1單行編輯框中顯示這個數字）最後 不管是以上哪兩種情況的輸入 最後在sle_1單行編輯框控制項上都顯示出數字. 這是高校計算機教材 一上來的案例，如還有不懂的 可以截圖給我 我幫你分析

8. pb代碼。。

D、E是數據窗口對象中數據？
假定，CLASS、CODE為字元，則：
STRING LS_CLASS,LS_CODE
LS_CODE = DW_1.GETITEMSTRING(x,'CLASS')
LS_class = DW_1.GETITEMSTRING(x,'CLASS') //x為你取的DW_1的行。

//D和E即為你定議的類別取值。
if D = LS_CLASS AND E = LS_CODE THEN
RETURN
END IF