引言: 使用Delphi可以方便而又快速地建立强大的数据库应用程序,Delphi的数据库应用程序开发,无论是客户/服务器数据库还是本地数据库,必须用到组件(组件的英文为Component,有叫控件、元件、构件的,本文称组件)TDataSource和Ttable,其中Ttable组件中有多种过滤记录的方...
摘要:unit mapicontrol;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs;
type
{ introducing a new type of event to get the errorcode }
tmapierrevent = proced......
摘要:作者: 潘汉杰
资源也是数据,它相当于我们熟悉的只读数据。在应用程序的可执行代码中,它是单独存储的,当其被调用时才载入程序,在程序执行完后又退出。delphi中的资源有很多类型,适用于不同的地方,大致有以下几类:
●图标资源:是一种小型位图,用户常常用不同的图标代替不同的应用程序。
●光标资源:也是小型的位图,不过它适用的颜色不多。delphi已经给光标指定了一个光标图案集,就是我们操作......
数据过滤技术在Delphi中的使用 使用delphi可以方便而又快速地建立强大的数据库应用程序,delphi的数据库应用程序开发,无论是客户/服务器数据库还是本地数据库,必须用到组件(组件的英文为component,有叫控件.元件.构件的,本文称组件)tdatasource与ttable,其中ttable组件中有多种过滤记录的方法,现用最简单例子分别说明.
---- 1.给字段设置限制值,过滤记录 【程序编程相关:
星期、干支、二十八宿计算公式】 【推荐阅读:
关于控制CAPS LOCK按键】
【扩展信息:
程序调用控制面板设置】
---- 下面是delphi4帮助中的一个例子,设置了数据表table1中的"city"字段检索范围,即上限值与下限值.范围一旦被设定,在整个应用程序执行过程中都是有效的.也可以调用cancelrange方法暂时使范围失效,以后需要范围生效时,可直接调用applyrange方法,而不需要再次设定范围的上下限.另外,可以调用editrangestart与editrangeend的方法来改变范围的上下限.
with table1 do
begin
setrangestart; { set the beginning key }
fieldbyname(city).asstring := felton;
setrangeend; { set the ending key }
fieldbyname(city).asstring := scotts valley;
applyrange; { tell the dataset to establish the range }
end;
---- 需要特别说明的是,如果table1是paradox表或是dbase表,在调用setrangestart,setrangeend,applyrange,cancelrange等方法时,只能为table1表中的索引字段或定义的索引指定相应的字段值,以设定检索范围,也就是说"city"字段必须是索引字段.另外要说明的是,keyexclusive属性值为true时不包括边界值,为false时包括边界值,缺省为false.
---- 2.在onfilterrecord事件中过滤记录
---- 例如要对某数据表(table)的degree字段进行"工程师"与"高级工程师"的数据过滤(或称筛选数据),可以通过下面的程序具体实现.
unit unit1;
interface
uses ...
下一页 摘要:type
tform1 = class(tform)
button1: tbutton;
combobox1: tcombobox;
procedure button1click(sender: tobject);
procedure formcreate(sender: tobject);
private
{ private declarations }
publ......