MIDAS中动态强制约束编程
来源:互联网 发布:php中截取字符串函数 编辑:程序博客网 时间:2024/06/05 21:17
引言 一个用来区分 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; |
- MIDAS中动态强制约束编程
- 摘要:MIDAS 中动态强制约束编程
- MIDAS中动态强制约束编程,一个用来区分 MIDAS 与其他分布式数据库解决方案的特征
- Delphi分布式系统(MIDAS)中动态调用存储过程
- Delphi分布式系统(MIDAS)中动态调用存储过程
- Delphi分布式系统(MIDAS)中动态调用存储过程
- DataSnap(MIDAS)三层架构编程中,DataSetProvider的Option属性
- delphi MIDAS编程
- Delphi中MIDAS是什么(MIDAS之一)
- Delphi5.5的MIDAS编程
- Borland DataSnap(MIDAS)三层架构编程中,DataSetProvider的Option属性
- Borland DataSnap(MIDAS)三层架构编程中,主细表的处理方式
- Borland DataSnap(MIDAS)三层架构编程中,DataSetProvider的Option属性
- Borland DataSnap(MIDAS)三层架构编程中,DataSetProvider的Option属性 .
- Delphi中创建MIDAS服务器并注册(MIDAS之二)
- Delphi中MIDAS线程模型种类(MIDAS之四)
- Delphi中MIDAS如何控制前台权限(MIDAS之六)
- Delphi5.5的MIDAS编程(客户端)
- 用Delphi实现BP机、手机短讯
- COM与DCOM的区别与联系
- 如何在Delphi中实现ASP编程
- 使用COM+参数化对象结构编程技术
- 如何编写SMTP邮件服务器
- MIDAS中动态强制约束编程
- 在DELPHI程序中使用ADO对象存取ODBC数据库
- Delphi4的Winsocket编程
- 用Delphi编写CGI程序(一)
- 用Delphi编写CGI程序(二)
- 用Delphi编写CGI程序(三)
- 用Delphi编写CGI程序(四)
- 用Delphi编写CGI程序(五)
- 用Delphi编写CGI程序(六)