发新话题
打印

PowerBuilder实用技巧八则

PowerBuilder实用技巧八则

本文介绍的方法和技巧都是笔者在实践中的一点积累,在此拿出来与大家一起分享。希望在阅读本文后会对您有所帮助或启发。文中如有任何不足之处还望同行们给予指教。在此,我先道声谢。
  一、实现运行窗口居中

  众所周知,PowerBuilder 7.0在以前的版本中提供了图形化的预览工具,可以很方便的在设计阶段实现窗口居中。但是,到了7.0似乎该项工具被取消了,也没有什么属性来设置,至少我没有找到。每当我们需要将窗口居中的时候只有一点一点地调整它的X,Y值,这一点十分让人头痛。出于无奈,只好通过编程实现。我们只在每个需要居中的窗口的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,

TOP

三、数据窗口中的条码显示

  在数据窗口中显示条码是不是很神秘?这对于没有接触过条码的人来说也许是这样。其实,它简单的不能再简单了。别忘了我们在写文稿时是如何使文稿看上去更有艺术化。没错我们会给它用上各种字体。问题不就解决了吗?条码也是种字体,只不过我们看不懂罢了。我们只要将需要用条码显示的字段的字体换上相应的条码字体就行了,比如,常用的3 of 9条码字库等。这些字体大多数是免费的,可以到网上去下载,然后安装就行了。
  四、数据窗口的自动刷新技术

  在我们编写诸如像库存,销售等应用系统时,总希望程序能动态的自动刷新库存量或销售量,比如说每隔1秒刷新一次。要实现这样的功能只要我们利用数据窗口的时间间隔属性(Timer Interval),当该值为0时数据窗口不进行刷新,如果要使数据窗口以每一秒钟的频率刷新的话,只要将该值设为1000,即1000毫秒。
  我们还可以为应用程序添加闪烁报警的功能。就拿库存量来说吧,最常用的是当某货物的库存量达到一个最低库存量时程序应能自动判别,并用警告色显示,通常是红色。此时,我们只要在运用了上述的方法后再在需要闪烁的字段上,比如,库存量,在它的颜色属性中写上相应的语句。下面这段代码实现“当某一物品的库存量小于20的时候,程序以红色闪烁显示警告”
  if ( Store_Num < 20,

TOP

七、实现数据窗口的动态排序

  在用到Windows的资源管理器的时候,当我们需要按照文件的类型或名称排序的时候只要用鼠标点击一下相应的标题栏,系统会按照升序或降序交替排序,这完全取决于用户鼠标点击的奇偶数。如此方便的操作何不用到我们的数据窗口中——实现按某列的动态排序。
  为了实现上述功能,程序首先需要用到一个全局变量(相对于PB来说可以用窗体变量),用它来控制连续两次点击之间的排序方向。因为字段的排序方向只有升序和降序两种,所以我们可以用一个Boolean型。本例中是Boolean ib_flag。接着在数据窗口控件的Clicked事件中写上如下代码
  /*****************************程序代码******************************/
  String ls_column, ls_sort
  ls_column = this.GetObjectAtPointer() // 得到鼠标按下位置的对象名
  ls_column = left(ls_column, len(ls_column) - 2) // 得到列标题名字
  if not Lower(right(ls_column, 2)) = "_t" then return
  // 如果不是缺省的列标题,即以“_t”结尾或鼠标根本没有点在列标题上则退出
  ls_column = left(ls_column, len(ls_column) - 2) // 去掉列标题末尾的“_t”,得到有效的列标题名
  // 进行升序和降序的切换
  if ib_flag then
   ls_sort = ls_column   " A" // 升序
  else
   ls_sort = ls_column   " D" // 降序
  end if
  ib_flag = not ib_flag // 为下一次排序准备
  ls_sort = ls_sort
  this.setsort(ls_sort)
  this.sort()
  /*****************************结束******************************/

  注:这里所叙述的数据窗口中列的动态排序是以系统默认的列标题名为前提,即在标题栏中列标题名字是以“_t”结尾。
  八、设置系统时间

  在开发具有数据服务器的应用软件时,有时为了使所有计算机的时间都保持相同,或者接近相同,主要是为了避免数据录入时出现的时间差异,通常我们会在客户机每次使用应用软件前将本地时间设置成跟服务器相同。从而确保输入的数据在时间上具有较高的正确性。即,要实现系统时间的设置。下面就讲述一下实现的过程。
  本程序是通过调用外部函数SetSystemTime()实现系统时间的设置,该函数返回布尔型。查阅一下有关参考手册就会发现该函数需要一个表示系统时间结构(Struct)的数据类型作为参数。此结构的定义如下:
  struct _SYSTEMTIME {
    INT iYear;
    INT iMonth;
    INT iDayOfWeek;
    INT iDay;
    INT iHour;
    INT iMinute;
    INT iSecond;
    INT iMilliseconds; // 毫秒
  } str_SystemTime;

  要在程序中使用外部函数首先需要要进行外部函数声明,可以根据函数的使用范围放在全局外部函数声明区或局部外部函数区声明。具体声明如下:
  Function Boolean SetSystemTime(str_SystemTime str_MyTime) Library "Kernel32.dll"
  声明之后就可以使用了。下面代码实现将系统日期设置成“2000年8月10日”
  /*****************************程序代码******************************/
  str_SystemTime str_MyTime
  // 给结构赋值
  str_MyTime.iYear = 2000 // 2000年
  str_MyTime.imonth = 8 / /8月
  str_MyTime.iDay = 10 // 10日
  // 设置系统日期
  if SetSystemTime(ref str_MyTime)then
   Beep(1)
   MessageBox("提示","系统日期设置成功!")
  else
   Beep(1)
   MessageBox("提示","系统日期设置失败!")
  end if
  /*****************************结束******************************/

  注意,如果只有日期没有时间的话系统会将时间设置成默认的上午8点整。设置系统的时间方法和设置日期类似,只要将结构中的时、分、秒分别设置成想要的就行了。具体实现请读者自己完成。
  至此,本文所讲述的八个技巧到此结束。

TOP

发新话题