设为首页 加入收藏 广告服务 [关闭广告] 
 上传源码  文档中心  源码交易  
Delphi源码 | VB源码 | VC源码 | Java源码 | PB源码 | .Net源码 | Python源码 | Android源码 | iOS源码 | ASP源码 | PHP源码 | JSP源码 | JavaScript
 首页 > Delphi源码 > 数据库 > Delphi数据库批量查询数据控件

 热门Delphi源码

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

  • 资源等级:
  • 上传会员:
  • lhp4235576
  • 资源类别:
  • Delphi源码¦数据库
  • 文件大小:
  • 50KB
  • 原创作者:
  • -
  • 发布时间:
  • 2019-01-05 03:59:26
  • 网友评分:
  • 0.0分 / 0次
  • 下载次数:
  • 8


    Delphi批量查询数据,采用控件来查询,在安装此控件前,先安装raiz3.10控件。
      FTerm:SQL 语句,FShowTerm:Show给User的组合条件
      StrdateField_E按日期分段查询的日期字段英文名
      查询过程中,把单引号转换成两个单引号/检验是否为数值型,并考虑到了日期时间型和布尔型数据,批量查询较准确。
      //从注册表中读出ConnectionString
      Reg01.RootKey := HKEY_CURRENT_USER;
      if Reg01.OpenKey(SoftwareLdcErpAccQueryDemo, 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(SoftwareLdcErpAccQueryDemo, False)) = False then
       reg01.CreateKey(SoftwareLdcErpAccQueryDemo);
       //将ConnectionString写到注册表中
       Reg01.OpenKey(SoftwareLdcErpAccQueryDemo, True);
       Reg01.WriteString(Connection, strConnection);
       ADOConnection1.Open;
       end
       else
       Application.Terminate;
      end;

     

      网友评论(共有0条)
    网友评分           1.0
      暂时还没有评论
      → 发表我的评论:

    *字数限制500个字符(一个汉字占三个字符)



    广告服务 -- 关于本站 -- 付款方法 -- 会员指南 -- 联系方法
    E-mail:  
    QQ技术交流群:编程乐园 11807356(VB交流群) 3326898(Delphi交流群) 14230528(VC交流群)
    版权所有 © 2003-2017 源码天空 保留所有权力