当前位置: 开发笔记 > 数据库 > 正文

Delphi（Tuxedo,BDE,ADO）三合一数据集组件HsTxQuery-mysql教程

作者：Edwin | 来源：互联网 | 2017-05-12 15:28

一、背景为什么要做这个三合一数据集组件呢？以前我们公司用delphi开发的系统大多以ADO，BDE方式来连接数据库，这两套组件使用十分方便和灵活，对成本控制也十分友好，从以前十多年间使用情况来看问题都不大，用户也没有三层架构的要求。但在今年投标大公司

一、背景

为什么要做这个三合一数据集组件呢？以前我们公司用delphi开发的系统大多以ADO，BDE方式来连接数据库，这两套组件使用十分方便和灵活，对成本控制也十分友好，从以前十多年间使用情况来看问题都不大，用户也没有三层架构的要求。但在今年投标大公司的项目时，往往会被技术要求阻拦，为什么呢？甲方的标书上写着要三层架构，这令我们十分头疼，目前我们公司是使用Tuxedo来做中间层，如果改造，那么成本预计是一年的时间，二个版本的维护成本也是十分高昂。面对这种情况，我提出三合一的思路，即构建新数据集组件。新组件兼容以前Query的全部属性和方法，只需使用UE编辑器替换以前Query类就可以了，并可以在Tuxedo,BDE,ADO三种连接方式间进行切换，系统也不用另外维护一个版本。思疏才浅，希望大家多多指教，感激不尽。

二、组件结构图

从结构图中可以看到使用了装饰模式，HsTxQuery将用户的访问对象放在了自己的身后，根据连接方式转发给不同对象。它访问Tuxedo是通过HsTxQuery.dll访问，中间有一层转换，而BDE、ADO是直接连接。

三、设计类

四、例子

1、打开

procedure TForm1.Button7Click(Sender: TObject);

begin

HsQuery2.close;

HsQuery2.SQL.Text := &＃39;select * from users&＃39;;

HsQuery2.Open;

end;

2、执行

procedure TForm1.Button7Click(Sender: TObject);

begin

HsQuery2.close;

HsQuery2.SQL.Text := &＃39;insert test value(1,2,3)&＃39;;

HsQuery2. ExecSQL;

end;

3、插入记录

procedure TForm1.Button9Click(Sender: TObject);

var

ms : TMemoryStream;

begin

ms := TMemoryStream.Create;

Image2.Picture.Graphic.SaveToStream(ms);

with HsQuery2 do

begin

database.StartTransaction;

Append;

HsQuery2.FieldByName(&＃39;f1&＃39;).AsString := FormatDateTime(&＃39;YYYYMMDDHHMMSS&＃39;,now);

HsQuery2.FieldByName(&＃39;f2&＃39;).AsString := FormatDateTime(&＃39;YYYYMMDD&＃39;,now);

HsQuery2.FieldByName(&＃39;f3&＃39;).AsString := FormatDateTime(&＃39;HHMMSS&＃39;,now);

HsQuery2.FieldByName(&＃39;f4&＃39;).AsString := &＃39;潇洒哥&＃39;;

HsQuery2.FieldByName(&＃39;f5&＃39;).AsString := &＃39;1&＃39;;

HsQuery2.FieldByName(&＃39;f6&＃39;).AsString := &＃39;330102199001164317&＃39;;

HsQuery2.FieldByName(&＃39;f7&＃39;).AsString := &＃39;1&＃39;;

HsQuery2.SetBlobStream(HsQuery2.FieldByName(&＃39;fPHOTO&＃39;),ms);

Post;

ApplyUpdates;

CommitUpdates;

database.Commit;

end;

ms.Free;

end;

4、更新记录

procedure TForm1.Button10Click(Sender:TObject);

var

ms: TMemoryStream;

begin

ms:= TMemoryStream.Create;

Image2.Picture.Graphic.SaveToStream(ms);

HsQuery2.Edit;

HsQuery2.Fields.Fields[0].AsString := &＃39;6&＃39;;

HsQuery2.Fields.Fields[1].AsInteger := 198;

HsQuery2.Fields.Fields[2].AsString := &＃39;&＃39;;

HsQuery2.Fields.Fields[3].AsString := &＃39;Roy&＃39;;

HsQuery2.Fields.Fields[4].AsString := &＃39;1&＃39;;

HsQuery2.Fields.Fields[5].AsString := &＃39;2&＃39;;

HsQuery2.SetBlobStream(HsQuery2.Fields.Fields[6],ms);

HsQuery2.Post;

HsQuery2.ApplyUpdates;

HsQuery2.CommitUpdates;

ms.Free;

end;

5、删除记录

HsQuery2.Delete;

6、存/取Blob数据

存，查看插入例子。

procedure TForm1.Button8Click(Sender: TObject);

var

Stream:TMemoryStream;

Jpg:TjpegImage;

begin

Stream:=HsQuery2.GetBlobStream(HsQuery2.FieldByName(&＃39;DATA&＃39;)) ;

Jpg:=TjpegImage.Create ;

Stream.Position :=0;

jpg.LoadFromStream(Stream); // 加载图片

image2.Picture.Assign(Jpg);

end;

7、获取字段值

procedure TForm1.Button15Click(Sender: TObject);

begin

ShowMessage(hsQuery2.FieldByName(&＃39;userid&＃39;).AsString);

ShowMessage(hsQuery2.Fields.Fields[0].AsString);

end;

8、过滤

//下面是过滤

hsQuery2.Filter := &＃39;userid=102&＃39;;

hsQuery2.Filtered := true;

//下面是反过滤

hsQuery2.Filter := &＃39;&＃39;;

hsQuery2.Filtered := true;

9、参数

procedure TForm1.Button16Click(Sender: TObject);

begin

with hsquery2 do

begin

close;

sql.clear;

sql.Text := &＃39;Select * From users where USERID = :id&＃39;;

ParamByName(&＃39;id&＃39;).value := 106;

open;

end;

10、 Tuxedo、BDE和ADO模式动态切换

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

case combobox1.ItemIndex of

0 :

begin

hsQuery2.DatasetType := dtTuxedo;

hsQuery2.ConnectionString := &＃39;//192.168.1.121:8887&＃39;;

end;

1 :

begin

hsQuery2.DatasetType := dtBDE;

hsQuery2.ConnectionString := &＃39;orcl&＃39;;

hsQuery2.Connection := Database1;

end;

2 :

begin

hsQuery2.DatasetType := dtADO;

hsQuery2.ConnectionString := &＃39;Provider=OraOLEDB.Oracle.1;Password=gf;Persist Security Info=True;User ID=gf;Data Source=orcl;Extended Properties=""&＃39;;

hsQuery2.Connection := ADOConnection1;

end;

五、展望

很多进行数据换的中间件（如各种MQ）都可以封装成易用的组件，使开发员生活更美好。

控件地址：https://sourceforge.net/projects/hstxqueryfordelphi/

推荐阅读

sql
如何从python读取sql[mysql基础教程]

从python读取sql的方法：1、利用python内置的open函数读入sql文件；2、利用第三方库pymysql中的connect函数连接mysql服务器；3、利用第三方库pa ... [详细]

蜡笔小新 2024-12-19 15:06:29
redis
Java SpringMVC SSM 实现多模块集成：操作日志、文件管理、头像编辑、权限控制及缓存优化

本文介绍了一个基于 Java SpringMVC 和 SSM 框架的综合系统，涵盖了操作日志记录、文件管理、头像编辑、权限控制、以及多种技术集成如 Shiro、Redis 等，旨在提供一个高效且功能丰富的开发平台。 ... [详细]

蜡笔小新 2024-12-20 19:17:47
sql
在Fedora 31上部署PostgreSQL 12

本文详细介绍如何在Fedora 31操作系统上安装和配置PostgreSQL 12数据库。包括环境准备、安装步骤、配置优化以及安全设置，确保数据库能够稳定运行并提供高效的性能。 ... [详细]

蜡笔小新 2024-12-21 15:37:13
redis
优化Flask应用的并发处理：解决Mysql连接过多问题

本文探讨了在Flask应用中通过优化后端架构来应对高并发请求，特别是针对Mysql 'too many connections' 错误的解决方案。我们将介绍如何利用Redis缓存、Gunicorn多进程和Celery异步任务队列来提升系统的性能和稳定性。 ... [详细]

蜡笔小新 2024-12-21 09:21:49
oracle
主调|大侠_重温C++

主调|大侠_重温C++ ... [详细]

蜡笔小新 2024-12-20 20:43:56
oracle
使用正则表达式去除字符串中单词间的空格

本文探讨了如何在Hive（基于Hadoop）环境中编写类似SQL的语句，以去除字段中的空格。特别是在处理邮政编码等数据时，去除特定位置的空格是常见的需求。 ... [详细]

蜡笔小新 2024-12-20 19:08:43
sql
配置PHPStudy环境并使用DVWA进行Web安全测试

本文详细介绍了如何在PHPStudy环境下配置DVWA（ Damn Vulnerable Web Application ），并利用该平台进行SQL注入和XSS攻击的练习。通过此过程，读者可以熟悉常见的Web漏洞及其利用方法。 ... [详细]

蜡笔小新 2024-12-20 18:22:20
elasticsearch
docker镜像重启_docker怎么启动镜像

docker镜像重启_docker怎么启动镜像dock ... [详细]

蜡笔小新 2024-12-20 16:34:52
sql
软件工程课堂测试2

要做一个简单的保存网页界面，首先用jsp写出保存界面，本次界面比较简单，首先是三个提示语，后面是三个输入框，然 ... [详细]

蜡笔小新 2024-12-20 15:00:51
json
当unique验证运到图片上传时

2019独角兽企业重金招聘Python工程师标准model：public$imageFile;publicfunctionrules(){return[[[na ... [详细]

蜡笔小新 2024-12-20 10:19:12
json
VS Code 中的 Jupyter Notebook 插件

本文介绍如何在 Visual Studio Code 中使用 Jupyter Notebook 插件，包括创建、编辑和运行笔记本的基本操作。 ... [详细]

蜡笔小新 2024-12-19 19:59:43
sql
MySQL Debug 模式的实现与应用

本文详细介绍了如何启用和使用 MySQL 的调试模式，包括编译选项、环境变量配置以及调试信息的解析。通过实际案例展示了如何利用调试模式解决客户端无法连接服务器的问题。 ... [详细]

蜡笔小新 2024-12-19 19:17:32
sql
解决MacOS Catalina升级后VMware Fusion黑屏问题的详细指南

本文深入探讨了如何在MacOS Catalina升级后解决VMware Fusion黑屏的问题。通过详细的步骤和代码示例，帮助用户快速恢复虚拟机的正常运行，并提供了额外的安全建议。适用于希望提升工作效率或学习新技术的读者。 ... [详细]

蜡笔小新 2024-12-19 18:00:48
sql
如何在SQL Server 2008中通过Profiler跟踪特定数据库及获取客户端信息

本文介绍如何利用SQL Server Profiler工具来监控特定数据库的操作，并获取执行这些操作的客户端计算机名和账户名。步骤包括创建新的跟踪、配置跟踪属性以及设置列筛选器以精确过滤数据。 ... [详细]

蜡笔小新 2024-12-19 16:28:55
sql
探索Cocos Creator游戏引擎

本文将带您了解Cocos家族的不同版本和分支，特别是Cocos Creator的发展历程及其核心特性，帮助初学者快速入门。 ... [详细]

蜡笔小新 2024-12-19 16:18:20

Edwin

这个家伙很懒，什么也没留下！

Tags | 热门标签

RankList | 热门文章