一、背景 为什么要做这个三合一数据集组件呢？以前我们公司用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; 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; end; end; |
五、展望
很多进行数据换的中间件（如各种MQ）都可以封装成易用的组件，使开发员生活更美好。
控件地址：https://sourceforge.net/projects/hstxqueryfordelphi/
京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有 