Delphi数据库批量查询数据控件.rar

Delphi批量查询数据，采用控件来查询，在安装此控件前,先安装raiz3.10控件。 　　FTerm:SQL 语句,FShowTerm:Show给User的组合条件 　　StrdateField_E按日期分段查询的日期字段英文名 　　查询过程中，把单引号转换成两个单引号/检验是否为数值型，并考虑到了日期时间型和布尔型数据，批量查询较准确。 　　//从注册表中读出ConnectionString 　　Reg01.RootKey := HKEY_CURRENT_USER; 　　if Reg01.OpenKey('\Software\LdcErpAcc\QueryDemo', True) then 　　 strConnection := Reg01.ReadString('Connection'); 　　ADOConnection1.ConnectionString := strConnection; 　　try 　　 ADOConnection1.open; 　　except 　　 ADOConnection1.Close; 　　 strConnection := PromptDataSource(0, ADOConnection1.ConnectionString); 　　 if strConnection <> '' then 　　 begin 　　 ADOConnection1.ConnectionString := strConnection; 　　 //如果注册表中没有信息则创建信息 　　 if (Reg01.OpenKey('\Software\LdcErpAcc\QueryDemo', False)) = False then 　　 reg01.CreateKey('\Software\LdcErpAcc\QueryDemo'); 　　 //将ConnectionString写到注册表中 　　 Reg01.OpenKey('\Software\LdcErpAcc\QueryDemo', True); 　　 Reg01.WriteString('Connection', strConnection); 　　 ADOConnection1.Open; 　　 end 　　 else 　　 Application.Terminate; 　　end;