使用delphi 开发多层应用(八)客户端更新数据到kbmMW服务器

  1. 云栖社区>
  2. 博客>
  3. 正文

使用delphi 开发多层应用(八)客户端更新数据到kbmMW服务器

xalion 2012-02-09 22:32:00 浏览764
展开阅读全文

   上次写了从kbmMW服务器给客户端返回数据,我们实现了数据的查询功能,但是当客户端对数据进行了增加、更新、删除的操作,

我们必须把这些操作返回到服务器端,并对后台数据库进行更新。kbmMW 可以很方便的实现这一功能,今天就做一个更新数据到

服务器的例子。

   还是在昨天的基础上,我们要把客户端的信息更新到服务器上,首先需要在服务器端的Tkbmqueryservice 设置允许客户端更新

的权限,如图

即把allowclient 开头的几个属性都设为True;

同时为了保证客户端可以插入数据,要设一下TkbmMWIBDACResolver的insertkeyfields 为 True.

这样服务器端就可以了,现在编译并运行。

在客户端,我们放置一个TDBNavigator 和一个按钮。如图

通过TDBNavigator 可以把对数据更改保存的客户端,再通过"更新到后台" 按钮把数据写到服务端。

同时,由于我们使用的是直接sql 语句读取数据的,因此,为了能够在服务器端更新数据,必须提供两个

参数,一个是tablename, 一个是keyfeilds. 所以我们更改一下读取数据的过程:

procedure TForm2.Button1Click(Sender: TObject);
begin
kbmMWClientQuery1.close;
kbmMWClientQuery1.Query.Clear;
kbmMWClientQuery1.Query.Add('select * from RSSJ');
kbmMWClientQuery1.KeyFields:='XH'; // 设置主键
kbmMWClientQuery1.TableName:='RSSJ'; // 设置表名
kbmMWClientQuery1.Open;

end;


这样,我们就可以先读取数据,然后编辑数据,使用TDBNavigator 确认更改,最后再更新到后台服务器及数据库服务器,

kbmMW 会根据更改的delta  自动生成更新的sql 语句,然后写入数据库。把客户端的数据变化更新到后台非常简单,代码

如下:

procedure TForm2.Button3Click(Sender: TObject);
begin

kbmMWClientQuery1.Resolve();
end;

下图为运行结果

为了更好的说明这个问题,我们再客户端分别作增加,更新,删除三个操作,然后更新到后台,

同时在服务器端使用devart 的dbmonitor 来检测一下,看看服务器是怎么生成sql 语句的。

通过这个检测,我们很清楚的可以看到各个操作的sql  都成功生成,并且顺利执行了。

今天我们完成了单表的更新操作,但是在实际开发中,经常遇见的是多表同时更新的事务操作,多个表要要么同时更新成功,要么全部滚回。

今天太晚了,我们下次再讲事务操作吧。



 

 

网友评论

登录后评论
0/500
评论
xalion
+ 关注