/*****************************程序代码******************************/

　　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（）

　　/*****************************结束******************************/

　　struct _SYSTEMTIME {

　　　　INT iYear;

　　　　INT iMonth;

　　　　INT iDayOfWeek;

　　　　INT iDay;

　　　　INT iHour;

　　　　INT iMinute;

　　　　INT iSecond;

　　　　INT iMilliseconds; // 毫秒

　　} str_SystemTime;

　　/*****************************程序代码******************************/

　　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

　　/*****************************结束******************************/