pb代码

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