思路方法和窍门技巧都是笔者在实战中
点积累
在此拿出来和大家起分享
希望在阅读本文后会对您有所帮助或启发文中如有任何不足的处还望同行们给予指教在此我先道声谢 、实现运行窗口居中众所周知
PowerBuilder 7.0在以前版本中提供了图形化预览工具可以很方便在设计阶段实现窗口居中但是到了7.0似乎该项工具被取消了也没有什么属性来设置至少我没有找到每当我们需要将窗口居中时候只有点点地调整它XY值这点十分让人头痛出于无奈只好通过编程实现我们只在每个需要居中窗口Open事件中写上这些代码就会实现窗口自动居中要实现窗口
自动居中我们可以用
Move()来实现但是由于我们开发出来应用
往往会在区别设置环境中运行虽然般情况下是由我们为用户配置好但我们总不能保证用户显示器设置模式不会改变所幸是PB为我们提供了环境对象Environment,该对象其实是个系统结构其中保存了PB应用运行平台信息例如代码集CPU类型等其中当然会有我们需要屏幕宽和高为了得到该结构我们可以用GetEnvironment()该作用是得到有关操作系统处理器和屏幕系统信息具体使用方法如下:Environment my_system
Integer li_ScreenWidth, li_ScreenHeight
GetEnvironment(my_system)
// 得到屏幕总宽度和长度
li_ScreenWidth = PixelsToUnits(my_system.ScreenWidth, XPixelsToUnits!)
li_ScreenHeight = PixelsToUnits(my_system.ScreenHeight, XPixelsToUnits!)
// PixelsToUnits()作用是将屏幕像数转换成PowerBuilder使用单位
像数通常不用于方形中具体使用方法请参见手册 然后就可以用Move()来实现窗口居中This.Move((li_ScreenWidth - this.Width)/2, &
(li_ScreenHeight - this.Height)/2 )
2、数据窗口中实现字段
组合你有没有碰到这样
情况我们输入了客户详细地址资料包括省份城市地址邮编当我们要给客户们邮寄信函时需要将他们省份城市地址邮编连成在起打印出来然而这些信息是分开存储即存在区别字段这时我们就可以利用PowerBuiler提供在数据窗口添加计算域(Compute Field)来实现
字段组合显示现在假设客户
省份城市地址邮编分别存放在区别字段中它们是ProvinceCityAddressPC我们要得到“邮编+省份+城市+地址”格式如:“(214001)江苏省无锡市人民路1号"具体实现如下:1、在需要显示
位置添加个计算域(Compute Field)2、在它
表达式栏中写上“ '(' + PC + ' )' + Province + City + Address ”3、单击确定完成
很容易是不是
需要提醒大家是计算域只能用来显示不能对它进行修改它没有TAB属性不能得到焦点3、数据窗口中
条码显示在数据窗口中显示条码是不是很神秘？这对于没有接触过条码
人来说也许是这样其实它简单不能再简单了别忘了我们在写文稿时是如何使文稿看上去更有艺术化没错我们会给它用上各种字体问题不就解决了吗？条码也是种字体只不过我们看不懂罢了我们只要将需要用条码显示字段字体换上相应条码字体就行了比如常用3 of 9条码字库等这些字体大多数是免费可以到网上去下载然后安装就行了4、数据窗口
自动刷新技术在我们编写诸如像库存
销售等应用系统时总希望能动态自动刷新库存量或销售量比如说每隔1秒刷新次要实现这样功能只要我们利用数据窗口时间间隔属性(Timer Interval)当该值为0时数据窗口不进行刷新如果要使数据窗口以每秒钟频率刷新话只要将该值设为1000即1000毫秒我们还可以为应用
添加闪烁报警功能就拿库存量来说吧最常用是当某货物库存量达到个最低库存量时应能自动判别并用警告色显示通常是红色此时我们只要在运用了上述思路方法后再在需要闪烁字段上比如库存量在它颜色属性中写上相应语句下面这段代码实现“当某物品库存量小于20时候以红色闪烁显示警告”
( Store_Num < 20, &
mod( Second(Now()), 2) <> 0, & // 每秒次偶数显示红色奇数显示白色即底色
RGB(255, 255, 255), RGB(255, 0, 0) )有时为了界面
考虑需要将些长字段折行显示但又不能确保在所有情况下都会出现长字段比如我们要求当客户地址超过50个时将它分两行显示对于没满50个客户仍然按照正常格式显示具体如下:
1、在数据窗口中选择要自动折行
列Address2、选择位置属性(Position)并选中Autosize Height选项
3、 选择编辑属性(Edit)并去掉Auto Horz Scroll选项
4、选择数据窗口中细目带
属性Autosize Height选项注意是当你拖动细目栏时出现属性设置完毕后在左下角预览窗口中将显示图例
结果在进行列自动折行显示
时候还要注意点系统判断自动折行断点是以空格或标点符号为依据如果我们输入长串且中间没有任何标点符号或空隔话即使该串再长也无济于事因此我们定要提醒用户在录入时适当加入些空格或回车6、数据窗口中记录颜色
隔层显示相信你
定见过这样显示第行记录背景色是浅黄色第 2行记录背景色是白色第 3行又是浅黄色第 4行又是白色……依次类推要想让显示
数据达到上述效果我们首先要知道是这些数据存放在数据窗口中什么地方很显然数据窗口中所有数据是在细目带中列出因此只要在细目带中设置些数据属性就会影响到这个细目带中所有内容具体实现如下:1、打开数据窗口
单击细目带(Detail)注意是点击有“Detail”字栏不是它存放数据地方点击它鼠标会出现上下小箭头2、选择常规属性
单击颜色属性(Color)旁边个带有红色图标小按钮3、在表达式
栏中输入 ( Mod( GetRow(), 2) = 0, RGB(255, 255, 200), RGB(255, 255, 255))// RGB(255, 255, 200)
浅黄色OK
预栏下效果不错大功告成7、实现数据窗口
动态排序在用到Windows
资源管理器时候当我们需要按照文件类型或名称排序时候只要用鼠标点击下相应标题栏系统会按照升序或降序交替排序这完全取决于用户鼠标点击奇偶数如此方便操作何不用到我们数据窗口中——实现按某列动态排序为了实现上述功能
首先需要用到个全局变量(相对于PB来说可以用窗体变量)用它来控制连续两次点击的间排序方向字段排序方向只有升序和降序两种所以我们可以用个Boolean型本例中是Boolean ib_flag接着在数据窗口Control控件Clicked事件中写上如下代码/*****************************代码******************************/
String ls_column, ls_sort
ls_column = this.GetObjectAtPo
er() // 得到鼠标按下位置对象名
ls_column = left(ls_column, len(ls_column) - 2) // 得到列标题名字
not Lower(right(ls_column, 2)) = "_t" then 
// 如果不是缺省列标题即以“_t”结尾或鼠标根本没有点在列标题上则退出
ls_column = left(ls_column, len(ls_column) - 2) // 去掉列标题末尾“_t”得到有效列标题名
// 进行升序和降序切换
ib_flag then
ls_sort = ls_column + " A" // 升序
ls_sort = ls_column + " D" // 降序
end
ib_flag = not ib_flag // 为下次排序准备
ls_sort = ls_sort
this.
sort(ls_sort)
this.sort()
/*****************************结束******************************/ 注:这里所叙述数据窗口中列动态排序是以系统默认列标题名为前提即在标题栏中列标题名字是以“_t”结尾8、设置系统时间
在开发具有数据服务器
应用软件Software时有时为了使所有计算机时间都保持相同或者接近相同主要是为了避免数据录入时出现时间差异通常我们会在客户机每次使用应用软件Software前将本地时间设置成跟服务器相同从而确保输入数据在时间上具有较高正确性即要实现系统时间设置下面就讲述下实现过程本
是通过
外部Set
Time()实现系统时间设置,该返回布尔型查阅下有关参考手册就会发现该需要个表示系统时间结构(Struct)数据类型作为参数此结构定义如下:struct _SYSTEMTIME {
INT iYear;
INT iMonth;
INT iDayOfWeek;
INT iDay;
INT iHour;
INT iMinute;
INT iSecond;
INT iMilliseconds; // 毫秒
} str_Time; 要在中使用外部首先需要要进行外部声明可以根据使用范围放在全局外部声明区或局部外部区声明具体声明如下:Function Boolean Set
Time(str_Time str_MyTime) Library "Kernel32.dll"声明的后就可以使用了
下面代码实现将系统日期设置成“2000年8月10日”/*****************************代码******************************/
str_Time str_MyTime
// 给结构赋值
str_MyTime.iYear = 2000 // 2000年
str_MyTime.imonth = 8 / /8月
str_MyTime.iDay = 10 // 10日
// 设置系统日期
SetTime(ref str_MyTime)then
Beep(1)
MessageBox("提示","系统日期设置成功！")
Beep(1)
MessageBox("提示","系统日期设置失败！")
end
/*****************************结束******************************/ 注意如果只有日期没有时间话系统会将时间设置成默认上午8点整设置系统时间思路方法和设置日期类似只要将结构中时、分、秒分别设置成想要就行了具体实现请读者自己完成至此
本文所讲述 8个窍门技巧到此结束
最新评论