Delphi 使用表达式进行数据库查询操作范例.rar

Delphi 使用表达式进行数据库查询操作范例，通过TADO为查询初始查询字段结构并将结构保存在StringGrid2中.测试用数据库在database目录中，是SQLSERVER2003格式的数据库文件。下面是摘录的一些代码片段： 　　 Com_y : integer;//Commond控件的Top调整. 默认35 　　 CRect : TRect; //光标位置 　　 {1}procedure SelectText(Sender: Tobject); //返回在Combobox控件中选择的信息. 　　 {2}Function GetState(bt: String): STring; //返回指定字段的提取类型 　　 Function GetLookADOName(bt: String): String;//返回lookup控件名称 　　 Function GetLookKeyField(bt: STring): STring;//返回lookup中的KeyField名 　　 Function GetLookReslult(bt: String): String; //返回lookup中的Resul名 　　 {3}Function Fx(F: String):String; //返回指定表达试. 　　 {4}Function LJ(F: String):String; //返回指定逻辑关系。 　　 {5}Function Field(bt: String):String;//返回对应字段的真实名称。 　　 {6}Function Filter: String; //生成过滤公式。 　　 　　s=s 字段 表达试 '查询值' 逻辑关系。 　　第一步：检查公式是否完整可用{字段 表达式 值 及逻辑关系}。 　　第二步：通过Field函数将对应的字段名称返回。 　　第三步：通过Fx函数返回对应表达式信息。如：相似之：Like 　　第四步：通过LJ函数返回逻辑表达式信息。如：或者：or 并且：and