delphi xe -芒果数据库(FDConnection,DataSource,FDMongoQuery,FDMongoDataSet)连接,查询(展示数据),这里有mongodb为例子
一、连接
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为例子的更多相关文章
- DELPHI XE MYSQL数据库操作类 MYSQLHELPER
注: 无需odbc配置 {* * MySQL Helper v1.0 * 2015.6.19 * 说明: * 这是一个操作MySQL的类,该类必须和libmysql.dll,dbxmys.dll两个文 ...
- 三十二:数据库之SQLAlchemy.query函数可查询的数据和聚合函数
准备工作 from sqlalchemy import create_engine, Column, Integer, String, Floatfrom sqlalchemy.ext.declara ...
- Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决(对三层的例子配置有帮助)
Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection.TSQLDataSet.TSQLQuery.TSQLSto ...
- Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决
Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection.TSQLDataSet.TSQLQuery.TSQLSto ...
- Delphi XE 10 跨平台三层数据库应用教程
Delphi XE 10 跨平台三层数据库应用教程 前言: Delphi XE 开始越来越庞大,比经典的Delphi7难用,但依然是目前所有跨平台开发工具中开发效率最高.最容易上手的,其快速设计RAD ...
- delphi 2010与delphi XE破解版的冲突
在系统中同时安装了Dephi 2010LITE版与Delphi XE lite后,总是会有一个有问题 是因为两者都是读取C:\ProgramData\Embarcadero目录下的license文件, ...
- [转载]: delphi中XLSReadWrite控件的使用(2)---delphi XE下安装
一.下载 官方下载网址: http://www.axolot.com/components/download.htm 从这里可以下载到从Delphi5到DelphiXE全部支持的版本. 二.软件安装 ...
- delphi XE Berlin ReadProcessMemory WriteProcessMemory
delphi XE,Berlin [dcc32 Error] Unit9.pas(93): E2033 Types of actual and formal var parameters must ...
- FastReport for delphi xe 安装步骤
FastReport for delphi xe 安装步骤 1.先关闭DELPHI:2.下载后解压到一个目录,比如:D:FR:3.打开D:FR,运行recompile.exe ->点击" ...
随机推荐
- CentOS源码编译安装Nginx
安装编译用到的软件: yum install glib2-devel openssl-devel pcre-devel bzip2-devel gzip-devel 现在到http://nginx.o ...
- shared-service.ts
shared-service.ts import { Observable } from 'rxjs/Observable'; import { Injectable } from '@angular ...
- void *指针的加减运算
1.手工写了一个程序验证void *指针加减运算移动几个字节: //本程序验证空类型指针减1移动几个字节 #include <stdio.h> int main(int argc, cha ...
- Atitit.增强系统稳定性----虚拟内存的设置
Atitit.增强系统稳定性----虚拟内存的设置 1.1. 读取虚拟内存配置1 1.2. 禁止虚拟内存1 1.3. 默认所有驱动器虚拟内存1 1.4. 设置c d盘虚拟内存为系统管理1 1.5. 设 ...
- Vivado的helloword程序:软件工程部分
建立工程 Export结束后,会自动启动SDK.界面如下.可以看到工程浏览器Project Explorer中已经有一个硬件平台hw_platform_0,里面有一系列配置和初始化文件.不要修改这些文 ...
- 如何卸载Mysql
mysql安装的时候会出现各种问题,尤其对新手,卸载不干净,重新安装会受到影响.也不能有点问题就重装系统吧!现在提供一种通过删除注册表的方式卸载mysql! 运行regedit打开注册表,搜索mysq ...
- Yii2中对数据库的查询方法如下
User::find()->all(); 此方法返回所有数据: User::findOne($id); 此方法返回 主键 id=1 的一条数据(举个例子): User::find()->w ...
- struts解决form提交的中文参数乱码问题
根据struts的工作原理,原文摘自<Java Web 开发实战经典> 在运行一个JSP页面前,会调用指定的ActionForm中的reset()方法,进行表单元素的初始化 因此,在相应的 ...
- php调用C代码的方法详解和zend_parse_parameters函数详解
php调用C代码的方法详解 在php程序中需要用到C代码,应该是下面两种情况: 1 已有C代码,在php程序中想直接用 2 由于php的性能问题,需要用C来实现部分功能 针对第一种情况,最合适的方 ...
- android viewpager嵌套使用photoview异常问题
最近,做项目时,遇到一个需求,需要像淘宝评论那样,一组图点开,然后可以双指滑动放大,并左右切换换图的功能.自然就想到了使用viewpager+photoview来实现这一功能,但是在实现后,却发现一个 ...