一、连接

1、FDConnection:创建一个临时连接定义

资料:http://www.cnblogs.com/zhenfei/p/4105515.html

连接芒果数据库:选则Mongo(芒果),服务器地址。

2、FDMongoQuery:与数据库、表关联,并与上面的Connection连接。

直接选择连接

  代码连接

FDMongoQuery1.Close;
FDMongoQuery1.FieldDefs.Clear;

// Setup new connection
FDMongoQuery1.DatabaseName := EditDatabase.Text;
FDMongoQuery1.CollectionName := EditCollection.Text;
FDMongoQuery1.QMatch := EditMatch.Text;//查询条件
FDMongoQuery1.QSort := EditSort.Text;//排序
FDMongoQuery1.QProject := EditProjection.Text;//显示字段(0不显示,1显示)
dsQuery.DataSet := FDMongoQuery1;
FDMongoQuery1.Open;

FDMongoQuery1.FieldDefs.Count;//最外层字段个数

FDMongoQuery1.FindField("grades") != NULL//找到某字段

FDMongoGQ_devch.QProject:='{"name":1}';//要显示的字段

FDMongoGQ_devch.QProject:='{"vdev.channels.2":0,"vdev.channels.32dplqsx":0}';//不要显示整个内嵌

FDMongoGQ_devch.FindField('_id').Visible:=False;//隐藏不需要显示的字段

例子:

procedure TFrm_0201_dev.ds_CHSDataChange(Sender: TObject; Field: TField);
var
  sdev,sch,styep:string;
begin
  if(dbgrd_ch.DataSource.DataSet.FieldByName('_id').Value<>null) then
  begin
    sdev:=dbgrd_ch.DataSource.DataSet.FieldByName('dev').Value;
    sch:=dbgrd_ch.DataSource.DataSet.FieldByName('ch').Value;
    styep:=dbgrd_dev.DataSource.DataSet.FieldByName('type').Value;
    if(styep='VIRTUAL')then
    begin
      FDMongoGQ_devch.Close;
      FDMongoGQ_devch.Query.Options.Explain := False;
      FDMongoGQ_devch.FieldDefs.Clear;

      FDMongoGQ_devch.QMatch:='{"dev":'''+sdev+'''}';
      FDMongoGQ_devch.QProject:='{"vdev.channels.'+sch+'.inputs" :1,"vdev.channels.'+sch+'.unit":1}';
      ds_devch.DataSet := FDMongoGQ_devch;
      FDMongoGQ_devch.Open;
      FDMongoGQ_devch.FindField('_id').Visible:=False;
      FDMongoGQ_devch.FindField('vdev').Visible:=False;
      FDMongoGQ_devch.FindField('vdev.channels').Visible:=False;
      FDMongoGQ_devch.FindField('vdev.channels.'+sch+'').Visible:=False;
    end;

  end

  else Exit;
end;

二、批量修改,最后统一保存

cachedUpdates :true;//试过可以

3、DataSource:数据源控件用于数据集控件和数据显示控件的链接作用,比如grid 等一些数据显示控件都有 datasource 属性。

4、将grid与datasource连接就可以了。

5、为空时:if(FDMongoGQ_phdev.IsEmpty and (FDMongoGQ_phdev.FieldDefList.Count = 1)) then exit;

二、查询

1、一个grid查询

procedure TFrm_0201_dev.Act_QueryExecute(Sender: TObject);
var
q:TMongoWireQuery;
d:IJSONDocument;
i:Integer;
begin
  BuildQuery;
  FDMongoQuery1.Open;

end;

procedure TFrm_0201_dev.BuildQuery;
var
scondition :string;
begin
  if(Trim(edt_dev.Text)<>'') then
   scondition:=' {"dev" :{$regex:'+''''+edt_dev.Text+''''+'}}'//正则表达式:进行模糊查询
  FDMongoQuery1.Close;
  FDMongoQuery1.Query.Options.Explain := False;
  FDMongoQuery1.FieldDefs.Clear;

  FDMongoQuery1.QMatch := scondition;
end;

2、两个grid联动

procedure TFrm_0201_dev.DataSourceDataChange(Sender: TObject; Field: TField);
var
DataSetField: TDataSetField;
begin
  BuildQuery1;
  FDMongoQuery2.Open;

  if(FDMongoQuery2.FindField('tags') <>nil) then
  begin
    DataSetField :=FDMongoQuery2.FieldByName('tags') as TDataSetField;//这个是数据集,后面会讲到,用来展示数组
    ds_tags.DataSet := DataSetField.NestedDataSet;
  end;
end;

procedure TFrm_0201_dev.BuildQuery1;
var
scondition:string;
begin
  sID:= DBGrid1.DataSource.DataSet.FieldByName('_id').Value ;
  FDMongoQuery2.Close;
  FDMongoQuery2.Query.Options.Explain := False;
  FDMongoQuery2.FieldDefs.Clear;

  FDMongoQuery2.QMatch:='{"dev":'''+sID+'''}';//查询条件
  DataSource1.DataSet := FDMongoQuery2;
end;

3、芒果数据库里,数组的展示,用到TDataSetField

网上的图

自己的例子,如tags数组

procedure TFrm_0201_dev.DataSourceDataChange(Sender: TObject; Field: TField);
var
DataSetField: TDataSetField;
begin
BuildQuery1;
FDMongoQuery2.Open;

  if(FDMongoQuery2.FindField('tags') <>nil) then
  begin
    DataSetField :=FDMongoQuery2.FieldByName('tags') as TDataSetField;
    ds_tags.DataSet := DataSetField.NestedDataSet;
  end;
end;

delphi xe -芒果数据库(FDConnection,DataSource,FDMongoQuery,FDMongoDataSet)连接,查询(展示数据),这里有mongodb为例子的更多相关文章

  1. DELPHI XE MYSQL数据库操作类 MYSQLHELPER

    注: 无需odbc配置 {* * MySQL Helper v1.0 * 2015.6.19 * 说明: * 这是一个操作MySQL的类,该类必须和libmysql.dll,dbxmys.dll两个文 ...

  2. 三十二:数据库之SQLAlchemy.query函数可查询的数据和聚合函数

    准备工作 from sqlalchemy import create_engine, Column, Integer, String, Floatfrom sqlalchemy.ext.declara ...

  3. Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决(对三层的例子配置有帮助)

    Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection.TSQLDataSet.TSQLQuery.TSQLSto ...

  4. Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决

    Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection.TSQLDataSet.TSQLQuery.TSQLSto ...

  5. Delphi XE 10 跨平台三层数据库应用教程

    Delphi XE 10 跨平台三层数据库应用教程 前言: Delphi XE 开始越来越庞大,比经典的Delphi7难用,但依然是目前所有跨平台开发工具中开发效率最高.最容易上手的,其快速设计RAD ...

  6. delphi 2010与delphi XE破解版的冲突

    在系统中同时安装了Dephi 2010LITE版与Delphi XE lite后,总是会有一个有问题 是因为两者都是读取C:\ProgramData\Embarcadero目录下的license文件, ...

  7. [转载]: delphi中XLSReadWrite控件的使用(2)---delphi XE下安装

    一.下载 官方下载网址: http://www.axolot.com/components/download.htm 从这里可以下载到从Delphi5到DelphiXE全部支持的版本. 二.软件安装 ...

  8. delphi XE Berlin ReadProcessMemory WriteProcessMemory

    delphi  XE,Berlin [dcc32 Error] Unit9.pas(93): E2033 Types of actual and formal var parameters must ...

  9. FastReport for delphi xe 安装步骤

    FastReport for delphi xe 安装步骤 1.先关闭DELPHI:2.下载后解压到一个目录,比如:D:FR:3.打开D:FR,运行recompile.exe ->点击" ...

随机推荐

  1. Thinkphp+AJAX动态验证用户输入是否合法

    遇到用户注冊等情况时.假设等用户输入全部信息,点击注冊button提交后.再验证输入是否正确,体验非常不好,并且非常浪费用户的时间,添加注冊成本,这里提供一个样例,演示了怎么使用ajax进行单步验证, ...

  2. .NET面试题(三)

    第1讲:面试前期准备 1.了解相关技术职务需要的技术人才                              2.准备一份出色的个人简历 第2讲:面试前期准备                   ...

  3. Vue 中的生命周期和钩子函数

    生命周期: beforeCreate:el 和 data 并未初始化 (此方法不常用) created:完成了 data 数据的初始化,el的初始化未完成.用来发送ajax beforeMount:( ...

  4. VPS性能测试

    1 cpu硬件参数 cat /proc/cpuinfo 我们可以看到CPU的型号.物理CPU个数(显示0)表示只有1个只有1个物理处理器.CPU核心数(cpu cores)等参数,至少我们需要比较商家 ...

  5. SCUT个人整理的常见问题

    1.刚打开redis和服务端,测试时发现明显延时 刚开始会同步数据比较卡,需要进行一次操作才会同步.这个问题暂时没去研究 2.Server failed to start error:The mode ...

  6. jdk8 Function

    例子 1: // 定义function Function<String, String> fun = parm -> { // 这里是定function中的逻辑 return Str ...

  7. ORACLE 中 TRANSLATE的用法

    --TRANSLATE(string,from_str,to_str) --to_str和from_str中的字符一一对应 --如果string里有,from_str字符集里没有的字符,将保留 --如 ...

  8. c3p0 APPARENT DEADLOCK!!! Creating emergency threads for unassigned pending tasks

    2018-01-04 15:02:03,319 ---com.mchange.v2.async.ThreadPoolAsynchronousRunner: com.mchange.v2.async.T ...

  9. openssl之BIO系列之18---接受(accept)类型BIO

    接受(accept)类型BIO ---依据openssl doc\crypto\bio_s_accept.pod翻译和自己的理解写成 (作者:DragonKing, Mail: wzhah@263.n ...

  10. 交叉编译移植openssl

    交叉编译openssl静态库步骤: 1.解压源码 tar xf openssl-1.1.1a.tar.gz 2.进入到解压后的源码目录 cd openssl-1.1.1a/ 3.配置Makefile ...