如何编写排序菜单sort

在要排序的块上建立whenmouseclick trigger代码

:globalmouserecord := :systemmouse_record;

:globalmouseitem := :systemmouse_item;

建立排序弹出菜单

正排序代码sort_asc(substr(:globalmouseiteminstr(:globalmouseitem))); 括号内的是鼠标所在的块名

反排序代码sort_desc(substr(:globalmouseiteminstr(:globalmouseitem)));

不排序代码sort_no(substr(:globalmouseiteminstr(:globalmouseitem)));

建立三个排序程序单元

PROCEDURE sort_asc(blockname varchar) IS

BEGIN

set_block_property(blocknameorder_bysubstr(:globalmouseiteminstr(:globalmouseitem)+));

go_block(blockname);

execute_query;

go_record(:globalmouserecord);

go_item(:globalmouseitem);

END;

PROCEDURE sort_desc(blockname varchar) IS

BEGIN

set_block_property(blocknameorder_bysubstr(:globalmouseiteminstr(:globalmouseitem)+)|| desc);

go_block(blockname);

execute_query;

go_record(:globalmouserecord);

go_item(:globalmouseitem);

END;

PROCEDURE sort_no(blockname varchar) IS

BEGIN

set_block_property(blocknameorder_by);

go_block(blockname);

execute_query;

go_record(:globalmouserecord);

go_item(:globalmouseitem);

END;

在字段上指定弹出菜单的名称

上一篇：如何允许root用户远程登录？

下一篇：简单在线备份 script