七、实现数据窗口的动态排序
在用到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点整。设置系统的时间方法和设置日期类似,只要将结构中的时、分、秒分别设置成想要的就行了。具体实现请读者自己完成。
至此,本文所讲述的八个技巧到此结束。