1]基本设置FDQuery1.Connection
2]执行查询SQL语句
3]执行 非查询SQL语句
4]返回所有数据 和所有 列名

1]基本设置FDQuery1.Connection

一定要 放一个  FDPhysSQLiteDriverLink1到ServerModule上

// uses FireDAC.Phys.SQLite 之后, 可不用添加 TFDPhysSQLiteDriverLink           //访问SQLite  文件数据库
  FDQuery1.Connection := UniMainModule.FDConnection1;

  UniMainModule.FDConnection1.LoginPrompt := false; // 取消登录提示框

  UniMainModule.FDConnection1.Open('DriverID=SQLite;Database=test1.Sqlite3');

2]执行查询SQL语句

FDQuery1.Open('select id,name,info from atb');

3]执行 非查询SQL语句

FDQuery1.ExecSQL('INSERT INTO atb VALUES( (select max(id)+1 from atb),''aName'',''aInfo'')');

4]返回所有数据 和所有 列名, 生成网页格式，方便导出数据

   procedure UniDBGridToHTML(aFDquery :TFDQuery;aHTMLFileName:string);

var

  aHTMLtext: TstringList;

   j: integer;

begin

  aHTMLtext := TstringList.Create;

  aHTMLtext.Add

    ('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">  ' +

    '<html>   <head>    <title></title>   </head>  ' +

    '  <body>  <table border=".5pt solid windowtext;"; > ' +

    ' <col width=72 span=3 style='' width:54pt''>');

  aHTMLtext.Add(' <tr > ');

    for j :=  to aFDquery.FieldCount do

    begin

      aHTMLtext.Add('<td>');

      aHTMLtext.Add(aFDquery.Fields.FieldByNumber(j).FieldName);   //  列 名

      aHTMLtext.Add('</td>');

    end;

  aHTMLtext.Add(' </tr> ');

  aFDquery.First;

  while not(aFDquery.Eof) do

  begin

    aHTMLtext.Add(' <tr  > ');

    for j :=  to aFDquery.FieldCount do

    begin

      aHTMLtext.Add('<td>');

      aHTMLtext.Add(aFDquery.Fields.FieldByNumber(j).AsString);   //  所有 值

      aHTMLtext.Add('</td>');

    end;

    aHTMLtext.Add(' </tr> ');

    aFDquery.Next;

  end;

  aHTMLtext.Add('</table>  </body>  </html> ');

  aHTMLtext.SaveToFile(aHTMLFileName);

  aHTMLtext.Free;

end;
procedure TMainForm.UniButton1Click(Sender: TObject);

begin

  UniDBGridToHTML(FDquery1,'aa.html');//调用

end;

uniGUI之FDQuery(28)的更多相关文章

  1. uniGUI学习汇总

    UniGUI之UniLabel(31) uniGUI之自定义JS事件动作ClientEvents(30) uniGUI之文件下载(29) uniGUI之FDQuery(28) uniGUI之UniPo ...

  2. [控件]unigui移动端下Unidatepicker时间显示解决方案

    [控件]unigui移动端下Unidatepicker时间显示解决方案 http://tz10000.com/kong-jian-unigui-yi-dong-duan-xia-unidatepick ...

  3. Elevate Web Builder for Web Developers（类似于unigui的东西）

    推荐一款pascal 语言的web 开发工具 这几天仔细研究了一款使用Pascal 语言开发web 的工具 具体介绍可以参照这里. 先上几张他开发的页面照.

  4. 28个你必须知道的HTML5的新特性,技巧以及技术

    崭新新的页面布局 传统的: HTML5: 1. 新的Doctype 尽管使用<!DOCTYPE html>,即使浏览器不懂这句话也会按照标准模式去渲染 2. Figure元素 用<f ...

  5. CSharpGL(28)得到高精度可定制字形贴图的极简方法

    CSharpGL(28)得到高精度可定制字形贴图的极简方法 回顾 以前我用SharpFont实现了解析TTF文件从而获取字形贴图的功能,并最终实现了用OpenGL渲染文字. 使用SharpFont,美 ...

  6. 来，一起让我们越来越懒，面向CSS、JS未来编程。(9.28已更新)

    2016.10.29更新 本文存在大量的错误,仅供参考. 不知不觉在前端领域马上一个年头就要过去了,然而再看看自己的代码,果然够烂,那么为什么代码一直没有用面向对象的思维去写CSS呢?首先有两点:一点 ...

  7. MySQL报错：Got error 28 from storage engine

    今天碰到数据库出错: Got error 28 from storage engine 查了一下,数据库文件所在的盘应该没事,应该是数据库用的临时目录空间不够 问题原因: 磁盘临时空间不够导致. 解决 ...

  8. [.net 面向对象程序设计进阶] (28) 结束语——告别2015

    [.net 面向对象程序设计进阶] (28) 结束语——告别2015 <.net面向对象程序设计进阶>这一系列文章写了太长的时间了,大概有半年没写,在年底又一口气写了好几篇.在整个过程中目 ...

  9. 背水一战 Windows 10 (28) - 控件（文本类）: TextBox, PasswordBox

    [源码下载] 背水一战 Windows 10 (28) - 控件(文本类): TextBox, PasswordBox 作者:webabcd 介绍背水一战 Windows 10 之 控件(文本类) T ...

随机推荐

  1. Codeforces Round #602 (Div. 2, based on Technocup 2020 Elimination Round 3) B Box

    #include<bits/stdc++.h> using namespace std; ]; ]; int main() { int total; cin>>total; w ...

  2. 《深入理解Java虚拟机》读书笔记五

    第六章 类文件结构 1.无关性的基石 各种不同平台的虚拟机与所有平台都统一使用程序存储格式——字节码是构成平台无关的基石. 实现语言无关性的基础仍然是虚拟机和字节码存储格式,Java虚拟机不和包括Ja ...

  3. tkinter页面卡死

    tkinter界面卡死的解决办法   1.如果点击按钮,运行了一个比较耗时的操作,那么界面会卡死 import tkinter as tk import time def onclick(text, ...

  4. FactoryBean的作用

    Spring 中有两种类型的Bean,一种是普通Bean,另一种是工厂Bean 即 FactoryBean.FactoryBean跟普通Bean不同,其返回的对象不是指定类的一个实例,而是该Facto ...

  5. Dimension reduction

    materials: 1. Dimension Reduction - IsoMap

  6. Leetcode 面试题 01.01. 判定字符是否唯一

    实现一个算法,确定一个字符串 s 的所有字符是否全都不同. 示例 1: 输入: s = "leetcode"输出: false 示例 2: 输入: s = "abc&qu ...

  7. resize2fs: 报错

    报错如下 [root@localhost ~]# resize2fs /dev/mapper/centos-root resize2fs (-Dec-) resize2fs: Bad magic nu ...

  8. selenium的元素定位方法-By

    如果在定位元素属性中包含了如ID等元素属性,那么在一个测试中,定位方法具体有哪几种,可以参考by模块中的By类,By的代码如下: class By(object): """ ...

  9. stm32f103中freertos的tasks基本使用案例及备忘

    基本实例   freetos的在stm32中使用踩了一些坑,事情做完了,就 做个备忘,希望能给后面的人一些借鉴. 先给出一个实际的例子吧. 启动代码 void task_create(void) { ...

  10. Service Worker,Web Worker,WebSocket的对比

    Service Worker 处理网络请求的后台服务.适用于离线和后台同步数据或推送信息.不能直接和dom交互.通过postMessage方法交互. Web Worker 模拟多线程,允许复杂计算功能 ...