红鱼儿

实现用一个QueryService支持多数据库访问

上图,是在服务端定义多个数据库,准备在客户端通过“联接名称”及“客户端服务名称”访问这些数据库。

基于实现的MultiDBQueryService,将其注册为一个指定客户端服务名称的服务,如下图:

这里,只要设置客户端服务名称及服务类名称即可。其他项不用设置,客户端服务名称设置为djwkQueryService,服务类名称设置为TMultiDBQueryServicve

客户端通过kbmMWClientQuery查询指定的数据库:

procedure TTestForm.Button1Click(Sender: TObject);
begin
  kbmMWClientQuery1.QueryService:='djwkQueryService';//在服务端定义的客户端服务名称
  kbmMWClientQuery1.QueryServiceVersion:='1.0';
  kbmMWClientQuery1.Query.Text:='Select * from sys_versioninfo';
  kbmMWClientQuery1.ActiveClient.Data:='djexam';//在服务端定义的数据库联接名称
  kbmMWClientQuery1.Open;
end;

上面代码,通过kbmMWClientQuery.ActiveClient.Data属性设置为服务端定义的数据库联接名称,这样,就可以查询指定的数据库了!

另外,在MultiDBQueryService中还实现了一个方法,用来取得服务端所有可用的数据库联接列表,参数表式返回内容的格式,支持两种:有逗号分隔的字符中和Json格式。

procedure TTestForm.Button2Click(Sender: TObject);
begin
       Label1.Caption:=c.Request('djwkQueryService','1.0','GetConnectionNameList',['string']);
end;

上面的调用,返回结果用逗号分隔,如:hblexam, djexam, djwkexam, zhjg, djet, lsWeb, TestInfo, xmyt, test, dmjh

把返回的结果再分解,加入一个Combox中,如下图:

下面是分解的代码:

procedure TTestForm.Button2Click(Sender: TObject);
var
  s:string;
  sa:TArray<string>;
  I: Integer;
begin
     s:=c.Request('djwkQueryService','1.0','GetConnectionNameList',['string']);
     sa:=s.Split([',']);
     for I := Low(sa) to High(sa) do
     begin
          ComboBox1.Items.Add(sa[i]);
     end;
ComboBox1.ItemIndex:=0;
end;

下面是调用GetConnectionNameList,返回Json字符串,并解析到ComboBox1中:

 

procedure TTestForm.Button2Click(Sender: TObject);
var
  s:string;
  I: Integer;
  jo:TJSONObject;
begin

  s:=c.Request('djwkQueryService','1.0','GetConnectionNameList',['json']);//返回json格式
  jo := TJSONObject.ParseJSONValue(s) as TJSONObject;
  for i := 0 to jo.GetValue<TJSONArray>('data').Count - 1 do
  begin
       ComboBox1.Items.Add(jo.GetValue<String>('data[' + i.ToString + '].SessionName'));
  end;
  jo.Free;

end;

 

这个方法返回json格式的string,如:'{"data":[{"SessionName":"hblexam","Description":""},{"SessionName":"djexam","Description":""}]}'

 

现在,kbmMW通用服务器KinglandSoftServer更灵活的实现了两种方式来支持多数据库的功能实现!

下图演示了具体的效果:

 

上图,显示通过GetConnectionNameList按钮取得服务端的所有数据库联接,放入一个ComboBox中供选择不同的数据库联接,Query按钮,按选择的数据库联接,查询数据。

 

posted on 2019-04-30 11:09  红鱼儿  阅读(962)  评论(0编辑  收藏  举报