【控件功能】我来做练习-第52课-采用RealThinClient+UniDAC实现三层框架演示

原创

已于 2024-05-08 13:16:04 修改 · 1k 阅读

14 ·

CC 4.0 BY-SA版权

文章标签：

#DELPHI #数据库 #笔记 #unidac

于 2024-05-08 13:15:47 首次发布

该博客介绍了如何采用RealThinClient+UniDAC组件在DELPHI中实现一个三层架构的演示。内容包括客户端的SubmitDataChange和SELECT操作，以及服务器端的RtcFuncSelectExecute和RtcFunSubmitExecute处理过程，展示了数据提交和查询的实现方式。

文章目录

- 采用RealThinClient+UniDAC实现三层框架演示

采用RealThinClient+UniDAC实现三层框架演示

提示：Client
var
ClientTest: TClientTest;

implementation

{$R *.dfm}

procedure TClientTest.SubmitDataChange(Sender: TObject);
var
Result: TRtcValue;
begin
FTimeUsed := GetTickCount;
with RtcClientModule1 do begin
Prepare(‘SUBMIT’);
Param.asText[‘TableName’] := FTableName;
Param.asText[‘KeyFields’] := FKeyFields;
Param.asObject[‘Delta’] := RtcMemDataSet1.ExtractChanges;
if chkAsync.Checked then
Call(RtcResult1)
else begin
Result := Execute(False);
Label1.Caption := IntToStr(GetTickCount - FTimeUsed) + ‘毫秒’;
end;
end;
end;

procedure TClientTest.Button1Click(Sender: TObject);
begin
RtcHttpClient1.ServerAddr := Edit1.Text;
RtcHttpClient1.ServerPort := Edit2.Text;
RtcHttpClient1.Connect();
Button2.Click;
// make the call non-blocking, result will be received in “RtcResult1” component events
end;

procedure TClientTest.Button2Click(Sender: TObject);
var
Result: TRtcValue;
begin
FTimeUsed := GetTickCount;
with RtcClientModule1 do begin
FTableName := ‘_个税2008年01月’;
FKeyFields := ‘编号’;
Prepare(‘SELECT’);
Param.asText[‘TableName’] := FTableName;
Param.asText[‘KeyFields’] := FKeyFields;
if chkAsync.Checked then
Call(RtcResult1)
else begin
Result := E