引言: Ehlib3.0版本以上虽然支持排序功能,但不支持带有Order By的SQL语句,而且排序很慢;我写的这个排序函数,利用ADO的sort方法,排序很快,几万条数据也是很快。
摘要:authorware的外部消息接口 对于开发authorware的ucd来说,最困难的就是如何截取authorware在运行过程中对我们有用的消息,c++程序员可能会毫不犹豫的说:使用钩子函数吧,把消息一一勾出;dephi程序员可能会说:使用dephi的消息触发器吧;vb程序员说:使用窗口回调函数吧;c++bulider程序员会说:dephi兄弟怎么说我就怎么做;vfp程序员会说:????????......
摘要:vcl的辉煌(一) 一个巨大的宝藏被发掘了!什么宝藏?-v—c—l!vcl元件是dephi的精华,是最能体现dephi美感的东西(我个人认为),能把vcl元件 用于authorware那是多么令人兴奋的事啊!现在就让在下带大家实现这一梦想吧,呵呵。 我想为了说清楚详细一些,还是举一个比较实用的例程来加以阐述。 我们的目的是:在authorware中加入一个多媒体播放控件,使......
一个很实用的Ehlib排序函数,适合ADO
ehlib3.0版本以上虽然支持排序功能,但不支持带有order by的sql语句,而且排序很慢;我写的这个排序函数,利用ado的sort方法,排序很快,几万条数据也是很快.该函数支持lookup字段排序,不支持计算字段排序,因为计算字段值在内存里高速运算.排序分为:升序.降序与默认三种,支持排序图标.
【程序编程相关:
Delphi 7 中使用RAVE报表(四】 【推荐阅读:
Delphi 7 中使用RAVE报表(四】procedure sortdbgrideh(sender: tobject; acol: integer; 【扩展信息:
[PB+Delphi]主应用程序用的是P】 column: tcolumneh); var fieldname, sortstr: string; begin screen.cursor := crsqlwait; try if (sender is tdbgrideh) and ((sender as tdbgrideh).datasource.dataset <> nil) then begin if not ((sender as tdbgrideh).datasource.dataset is tcustomadodataset) then exit;
if not (sender as tdbgrideh).datasource.dataset.active then
exit;
fieldname := column.fieldname;
...
下一页 摘要:开 发 篇 简单的开发过程。 其实用dephi实现这个功能太简单了,只需调用它自带的pascal函数inputbox就行,但这里还有一个问题:authorware 取得字符串型返回值的方式是取得分配给这个字符串的的内存的句柄,所以我们必须在单元文件中声明一个handle型变量,用于存储该字符串返回值的句柄,而且这个返回值变量必须是一个全局变量而不是局部变量,切记!1!下面是这个函数的具体实现方法:......