在PB程序中制作添加状态栏

用过Power Builder编程的人都会有这种感觉：PB在操作数据库数据方面提供了简捷、独特的方法，是同类开发工具所无法比拟的。但是在程序界面设计方面却美中不足。一个好的程序员总是想方设计美化自己的程序，不但要求自己的程序能解决用户的需求和提供简便的操作，而且希望用户在使用界面优秀的程序的过程中充分体现美的感受。下面我就向大家介绍一种制作状态栏的方法。
1．建立一个数据窗口d _bar
点击数据窗口图标，新建一个数据窗口，在建立该数据窗口时，应选择的数据源是外部数据源（即External）,表现风格为自由格式（即Freeform）(如图一)。



当数据窗口对象中的数据并非来自数据库，而是来自ODBC接口或者Powersoft提供的数据库接口是，则必须为数据窗口对象定义External数据源。在定义了External数据源之后，还必须为数据源定义列及其类型，以便PB为其生成一个恰当的数据窗口对象，这些列实际构成了结果集。
在点击确定以后，屏幕上会出现Result Set Description （结果集描述对话框）对话框，输入每列的名称、类型及宽度(如图二)。



点击OK即进入DataWindow窗口。进入数据窗口后，增加一个静态文本控件（st_unitname）。其中st_unitname显示系统名称；user列用来显示操作员名称，riqi列用来显示当前日期，xingqi列用来显示星期几。将user,riqi,xingqi三列的显示属性，设置为Display Only。调整将窗口中的控件调整为状态栏的形式(如图三)。其中的凹陷效果是添加了一些线性控件实现的，需手工完成。



2．在窗口中调用数据窗口
打开需要该数据窗口的窗口，将其窗口的属性设置为MDI Frame类型，在窗口中首先增加一个数据窗口控件dw_1，在数据窗口控件属性的DataWindow objest name中选择d_bar，点击确定。并在该窗口的open事件中写下如下代码:
dw_1.insertrow(0)
dw_1.modify('st_unitname.text="'+'欢迎使用电子大学财务管理软件'+'"')
dw_1.setitem(1,'user',"操作员:"+ls_czy)//ls_czy为操作员名称，是个全局变量，在成功登陆系统后得到。
dw_1.setitem(1,'riqi',string(today(),'yyyy年mm月dd日'))
if daynumber(today())=1 then
dw_1.setitem(1,'xingqi',string('星期日'))
end if
if daynumber(today())=2 then
dw_1.setitem(1,'xingqi',string('星期一'))
end if
if daynumber(today())=31 then
dw_1.setitem(1,'xingqi',string('星期二'))
end if
if daynumber(today())=4 then
dw_1.setitem(1,'xingqi',string('星期三'))
end if
if daynumber(today())=5 then
dw_1.setitem(1,'xingqi',string('星期四'))
end if
if daynumber(today())=6 then
dw_1.setitem(1,'xingqi',string('星期五'))
end if
if daynumber(today())=7 then
dw_1.setitem(1,'xingqi',string('星期六'))
end if
好了，状态栏这就做完了，希望本文能起到抛砖引玉的作用，让广大读者做出更美观的状态栏。
注：开发工具为pb6.5
09