分享
 
 
 

MIDAS中动态强制约束编程

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

引言

一个用来区分 MIDAS 与其他分布式数据库解决方案的特征就是,MIDAS 支持动态数据约束(constraints

)功能。这些动态约束可以控制由 AppServer 到瘦客户端的分布式数据的外观、业务确认规则、是否显示等等

功能。作者(John Kaster)认为这是分布式数据库需具备的一个非常重要的特征。

MIDAS 数据包(Data Packets)概述

先介绍一下MIDAS 数据包(Data Packets)格式的详细特征,MIDAS 数据包(Data Packets)是一个独立

于语言和中立传输(transport-neutral)的二进制流格式数据,他包括元数据(metadata), 约束(

constraints), 数据(data), 和deltas。

元数据是用来描述按照 APPSERVER 来分布的数据集。 MIDAS 2,3 支持嵌套数据集,因此单个数据包能够

包含一个乃至于多个数据集的信息。约束是用来校验和显示数据集中的每个栏位的相关业务规则。Data 是数据

集的实际数据栏位和记录数。Deltas 记录客户端的数据修改的 Log ,且是属于自动维护和传送到 AppServer

中的。

MIDAS 数据栏位约束

数据栏位约束是在 AppServer 与客户程序之间传播,可以快速修改业务规则,非常简便的发布新的客户程

序,基于服务器端的业务规则,可以自动强制应用于客户程序,从而增强了分布式应用系统的生存周期以及系

统的可维护性。

如果没有充分的理由,应在客户端强迫执行基于服务器端的业务规则,这样将会提供应用系统的可靠性和

数据的准确性,因为有问题的数据包会立即被客户程序检测到,所以应该培养正确的使用数据值和减少无效数

据的网络回路的习惯。简单一点说,数据约束能让你快速构建分布式系统,及时响应相关修改要求和提高系统

的可靠性

MIDAS 2、3 数据包能够自动的由 AppServer 到客户端传递以下数据栏位属性:

Constraint Property Description

----------------------------------------------------------------------------------------------

ConstraintErrorMessage Message to display if data for the field if not valid.

Example: CustNo cannot be blank

CustomConstraint Constraints to place on the validation of the field. Expressions

can be used for this constraint.

Example: CustNo IS NOT NULL

DisplayFormat Controls formatting of the field for display

DisplayLabel Used as the data field's default column heading.

Example: Customer #

EditMask Used for customizing data entry for the field.

Example: 0000

MaxValue The maximum value of a numeric field

MinValue The minimum value of a numeric field

Visible A boolean value indicating whether the field should be visible in

a grid by default

实现约束编辑服务器(Constraint Editor Server)

只要客户连接到 MIDAS Server ,相关RDM(remote data module)就会自动创建并提供给客户来访问Server

约束编辑服务器(ConstraintSvr.exe)在第一次使用这些RDM时会去获取 provider 的列表和包含在这些

provider 中栏位约束。ConstraintSvr 也同样为编辑每个provider中的栏位约束提供一个用户接口和为每个应

用实例保存更改结果。

在更改结果保存后(在系统运行期),客户程序只需要简单的重新连接的 AppServer,获取一个新的数据

包,此包中包含新的业务约束。

变量角色(A Cast of Variants)

开始建立一个能够提供运行期编辑数据约束的应用程序,只需要做一点点代码定制。Screen 对象有一个属

性可以列出一个应用程序中的所有数据模块(data modules),同样我们能通过检查此属性来建立包含在数据

模块中的Provider 的列表。此 Provider 名列表是通过一个变量类型从数据模块中输出,同样也需要通过适当

的Delphi 类型来接收数据模块的 Provider 命名。代码如下:

{ Copyright (c) 1999 - 2000 by John Kaster, Dan Miser and Louis Kleiman }

procedure GetProviderList( ProviderList : TStrings );

var

ProviderNames : OLEVariant;

I : Integer;

DataSet : TDataSet;

GenObject : TComponent;

begin

if (Screen.DataModuleCount = 0) then

Raise Exception.Create( 'No data modules are active.' );

ProviderList.Clear;

{ Get the list of all providers for the first data module.

All instances of the data module are probably the same. }

ProviderNames := IConstraints(TConstraints(Screen.DataModules[0])).

AS_GetProviderNames;

for I := VarArrayLowBound(ProviderNames, 1) to

VarArrayHighBound(ProviderNames, 1) do

begin

{ Retrieve the component matching the provider name }

GenObject := Screen.DataModules[0].FindComponent(ProviderNames[I]);

if (GenObject is TDataSetProvider) then

DataSet := TDataSetProvider(Screen.DataModules[0].

FindComponent(ProviderNames[I])).DataSet

else if (GenObject is TDBDataSet) then

DataSet := TDataSet(Screen.DataModules[0].

FindComponent(ProviderNames[I]))

else

DataSet := nil;

{ Add it to the list of providers, attaching the Dataset if assigned }

ProviderList.AddObject(ProviderNames[I], DataSet);

end; { for }

end; { GetProviderList() }

接收约束内容

现在从RDM的实例获取 provider 列表,其他的都是一些传统的 Delphi 代码。通过一个列表框元件来显示

Provider ,通过另一个列表框元件来显示每个提供者的栏位约束值。 Provider列表框元件命名为lbProviders

。代码如下:

procedure TFormConstraintsEditor.lbProvidersClick(Sender: TObject);

var

DataSet : TDataSet;

I : Integer;

SaveActive : Boolean;

begin

lbFields.Clear;

DataSet := TDataSet(lbProviders.Items.Objects[lbProviders.ItemIndex]);

if Assigned(DataSet) then

begin

SaveActive := DataSet.Active;

DataSet.Open;

try

for I := 0 to DataSet.FieldCount - 1 do

lbFields.Items.AddObject(DataSet.Fields[I].FieldName,

DataSet.Fields[I]);

finally

DataSet.Active := SaveActive;

end; { try...finally }

end; { if }

end;

编辑约束内容值

现在使用编辑元件来为所选的栏位赋值。拖放这些控件到表单上,然后在下面的click 事件中将相应的选

取的栏位的约束属性值赋值给编辑元件。 字段栏位列表框元件命名为lbFields 。代码如下:

procedure TFormConstraintsEditor.lbFieldsClick(Sender: TObject);

var

Field : TField;

begin

Field := TField(lbFields.Items.Objects[lbFields.ItemIndex]);

if Assigned(Field) then

begin

edErrorMessage.Text := Field.ConstraintErrorMessage;

edCustomConstraint.Text := Field.CustomConstraint;

edDisplayLabel.Text := Field.DisplayLabel;

edEditMask.Text := Field.EditMask;

edDisplayFormat.Text := '';

edMinValue.Text := '';

edMaxValue.Text := '';

cbVisible.Checked := Field.Visible;

if Field is TNumericField then

begin

with Field as TNumericField do

edDisplayFormat.Text := DisplayFormat;

if Field is TFloatField then

with Field as TFloatField do

begin

edMinValue.Text := FloatToStr( MinValue );

edMaxValue.Text := FloatToStr( MaxValue );

end

else if Field is TBCDField then

with Field as TBCDField do

begin

edMinValue.Text := FloatToStr( MinValue );

edMaxValue.Text := FloatToStr( MaxValue );

end

else if Field is TIntegerField then

with Field as TIntegerField do

begin

edMinValue.Text := IntToStr( MinValue );

edMaxValue.Text := IntToStr( MaxValue );

end

else if Field is TLargeIntField then

with Field as TLargeIntField do

begin

edMinValue.Text := IntToStr( MinValue );

edMaxValue.Text := IntToStr( MaxValue );

end;

end

else if Field is TDateTimeField then

with Field as TDateTimeField do

edDisplayFormat.Text := DisplayFormat;

end; { if }

end;

提交已编辑的约束值

在给字段栏位约束赋给了相应的值后,需提交应用这些约束值。代码如下:

procedure TFormConstraintsEditor.actApplyExecute(Sender: TObject);

var

Field : TField;

begin

Field := TField(lbFields.Items.Objects[lbFields.ItemIndex]);

if Assigned(Field) then

begin

Field.ConstraintErrorMessage := edErrorMessage.Text;

Field.CustomConstraint := edCustomConstraint.Text;

Field.DisplayLabel := edDisplayLabel.Text;

Field.EditMask := edEditMask.Text;

Field.Visible := cbVisible.Checked;

if Field is TNumericField then

begin

with Field as TNumericField do

DisplayFormat := edDisplayFormat.Text;

if Field is TFloatField then

with Field as TFloatField do

begin

MinValue := StrToInt( edMinValue.Text );

MaxValue := StrToInt( edMaxValue.Text );

end

else if Field is TBCDField then

with Field as TBCDField do

begin

MinValue := StrToInt( edMinValue.Text );

MaxValue := StrToInt( edMaxValue.Text );

end

else if Field is TIntegerField then

with Field as TIntegerField do

begin

MinValue := StrToInt( edMinValue.Text );

MaxValue := StrToInt( edMaxValue.Text );

end

else if Field is TLargeIntField then

with Field as TLargeIntField do

begin

MinValue := StrToInt( edMinValue.Text );

MaxValue := StrToInt( edMaxValue.Text );

end;

end

else if Field is TDateTimeField then

with Field as TDateTimeField do

DisplayFormat := edDisplayFormat.Text;

end; { if }

end;

现已创建了 ConstraintSvr 的主要代码,详细代码可以下载。

创建强制约束的客户程序

客户程序比创建服务器程序简单多拉,因为他只需要简单的接收一个修改后的数据包,而无须有编写

Server 的知识。这是一个非常完美和强劲的动态约束程序示例:我们只需要在服务器端修改相关业务而无须修

改客户程序,也无须发布新的客户程序。

通过以下步骤建立客户端程序:

拖一个 DCOMConnection 元件

设置: RemoteServer=ConstraintSvr.Constraints

拖一个 ClientDataset 元件

设置: RemoteServer=DCOMConnection1

设置: ProviderName=prvCustomer

拖一个 DataSource

设置: DataSet=ClientDataset1

拖一个 DBNavigator

设置: DataSource=DataSource1

拖一个 Button

设置: Name=btnOpen

双击 button 建立 click 事件,btnOpenClick 事件代码如下:

procedure TFormConstraintClient.BtnOpenClick(Sender: TObject);

begin

if ClientDataSet1.Active then

ClientDataSet1.Close;

ClientDataSet1.Open; { Refresh the dataset }

BtnOpen.Caption := '&Reopen';

end;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有