Delphi MIDAS 的重大BUG ---DelphiBBS

http://blog.sina.com.cn/s/blog_49023c6b0100036p.html

Delphi MIDAS 的重大BUG ---DelphiBBS (2006-04-17 13:17:52)

目的：
三层结构中客户端取数一般是采用
TClientDataSet =====> TDataSetProvider + TDataSet
有些人使用TDataSetProvider + TTable，然后在设计期间设置TTable的属性
缺点很明显：
1、不能使用SQL实现复杂的查询
2、TTable的属性在设计期间完全确定了，也就只能只能打开固定的一个表，
要使用多个表怎么办？只好在RemoteDataModule中放无数的TDataSetProvider和TTable这种做法不能满足我们的要求，我们需要的是：
1、在Client端使用SQL语句打开数据集
2、Provider应该能访问任意数据，
最好做到多个ClientDataSet同时使用一个Provider访问不同的数据Delphi的帮助里没有例子，不过我们还是很容易就找到了实现方法：
Server端：TDataSetProvider + TQuery
Client端：TClientDataSet

     // for Delphi 5:
TDataSetProvider.Options属性中应该包括poAllowCommandText，
允许ClientDataSet使用SQL命令
     Client端程序：
with ClientDataSet do
begin
Close;
CommandText := 'Select xxx ......';
Open;
end;
     // for Delphi 4:
手头找不到D4了，因此不知道D4是否支持TClientDataSet.CommandText，
我们以前是这样做的：
     Client端程序：
with ClientDataSet do
begin
Close;
DataRequest('Select xxx ......');
Open;
end;
Server端程序：
TDataSetProvider.OnDataRequest(Sender: TObject; Input: OleVariant): OleVariant;
begin
// 这里的Input就是客户端的ClientDataSet调用DataRequest方法时传递的参数
// 将它赋值给Query.SQL.Text就可以了
Query.SQL.Text := Input;
end;
     好了，用上面的方法我们在Client端使用SQL了，也使得Provider与数据集无关，
Server端只需要公布一个Provider就可以供Client端的多个ClientDataSet使用了，看起来真不错，问题似乎得到了完美的解决 :))
---------------------------------------------------------------------
发现了BUG： :<<<
按上面的方法，Server端使用一个DataSetProvider
Client端使用两个TClientDataSet，都使用Server端的同一个Provider，分别打开两个表，如下：
with ClientDataSet1 do
begin
Close;
CommandText := 'Select * from Table1';
Open;
end;
with ClientDataSet2 do
begin
Close;
CommandText := 'Select * from Table2';
Open;
end;

上面的代码中ClientDataSet与数据库表的对应关系如下：
ClientDataSet1 =====> "Table1"
ClientDataSet2 =====> "Table2"

注意顺序为先打开表1，再打开表2
然后我们修改ClientDataSet1中的数据，再调用
ClientDataSet1.ApplyUpdates(-1)方法提交数据，却发现无论如何都成功不了，奇怪！
同样的数据直接在两层C/S结构的程序中可以成功地写入表中，可以肯定数据没问题
程序绝对正确，同样的程序早就调试通过了，现在却突然不能提交数据了，而且，奇怪的是，错误很稳定，100%提交失败，系统重起N次也没影响
---------------------------------------------------------------------
调试：
程序和数据都没问题，实在想不出错在哪里，只好用最低级的方式了，
打开M$ SQL Trace，睁大眼睛看提交到SQL Server上的所有SQL语句,然后，在三层结构下提交数据、在两层C/S结构下提交数据，比较SQL语句有什么不同,这下更奇怪了，程序中Insert一条记录，ApplyUpdates后看到的SQL语句是
insert into xxxx(xx,xx,...) values(xx,xx,...)
拿出来执行，返回的错误信息居然是'invalid column name xxxxxx'，字段不存在？？？？
Select * from xxxx 看到字段明明在那里嘛！
难道SQL有毛病？？删掉表，重建，再来一遍错误一模一样，奇怪！
重复N遍之后，终于发现，Insert语句中操作的表居然是Table2！！！
但是程序中打开的是Table1，这么说来，MIDAS在提交数据时操作的目标表错了，跟本就不是Client端实际使用的表！
---------------------------------------------------------------------
分析：
打开Delphi 源代码 provider.pas ，搜索ApplyUpdates之类的东西，看究竟是如何实现的，最后看到了根源，如下：
// Delphi 源代码 provider.pas
procedure TDataSetResolver.DoUpdate(Tree: TUpdateTree);
begin
with Tree do
begin
...
Source.Edit;
...
end;
end;

procedure TDataSetResolver.DoDelete(Tree: TUpdateTree);
begin
with Tree do
begin
...
Source.Delete
...
end;
end;

procedure TDataSetResolver.DoInsert(Tree: TUpdateTree);
begin
Tree.Source.Append;
...
end;

其中TUpdateTree.Source定义为
TUpdateTree = class(TObject)
...
property Source: TDataSet read FSourceDS;
...
end;

水平有限，具体如何没看完，不过根据前面调试的结果，和上面的源代码结合起来，
估计这个Source: TDataSet最终就等于TDataSetProvider.DataSet
这样一来，如果我们用同一个Provider同时打开多个表，只有最后打开的ClientDataSet可以保证Server端的TDataSetProvider.DataSet和它对应着相同的数据集二前面打开的ClientDataSet就根本不能提交了，这样一来，我们前面提出的方案就彻底崩溃了，根本原因就在于：
TDataSetProvider的根本就是为单个客户端设计的，完全没有考虑到同时访问多个数据集的问题,实际运行中永远只有最后打开的一个数据集能够保持存在，因而也就只有最后打开的一个ClientDatSet能提交数据成功
---------------------------------------------------------------------
结论：
要解决应该很简单，TDataSetProvider应做以下修改：
1、建立一个内部的DataSet队列
2、ClientDataSet打开数据集时，创建一个新的DataSet，加入到DataSet队列中
3、ClientDataSet关闭时，从DataSet队列中删除对应的DataSet
4、创建新DataSet时，可以根据TDataSetProvider.DataSet属性来确定使用的实际DataSet类
也就是说，如果DataSet指定为一个TQuery，那么就创建一个TQuery；
如果是一个TTable，那么就创建一个TQuery
这点很容易实现
5、创建新DataSet后，应该将TDataSetProvider.DataSet对应的TDataSet的全部属性赋值给新DataSet
6、定义一套规范，将ClientDataSet与DataSet队列中的TDataSet一一对应
7、取数、传递数据包、提交数据的代码都不需要变动，只需要根据ClientDataSet
在DataSet队列中找到对应的TDataSet，其余的工作完全一样
说起来简单，这种事情我们做不了，恐怕应该由Borland自己来干了！
写到最后，得出的结论基本上是悲剧性的：
1、最初提出的方案基本可行
2、但是绝对不能让多个ClientDataSet同时使用同一个Provider访问数据
否则将只有最后打开的ClientDataSet能提交数据成功
3、如果有多个ClientDataSet都需要修改数据集并提交的话，那么就不能只用一个Provider了，只好在RemoteServer中公布几个Provider
4、注意，错误只出在"同时"访问数据时，因此轮流使用还是可以的

唉！！真是悲哀啊！！！