如何扩展ADSI的属性

2002-09-18 03:06:45 86 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

浮点数加法器设计一.设计内容及其要求内容根据浮点数的运算规则和IEEE754标准，实现浮点数的加法运算器。要求：浮点数格式：符号位1位，阶码8位，尾数23位要求该实验能完整的体现浮点数的运算的五个步骤：对阶、尾数求和、规格化、舍入（要求使用对偶舍入）、溢出判断。二.基本要素浮点数浮点数即实数，实数是所有有理数和无理数的集合。它之所以被称作浮点数，是因为小数点在数中的位置并不是固定的。一个浮点数值分为两部分存储：数值以及小数点在数值中的位置。计算机中的浮点运算的计算结果一般是不确定的，一块芯片的浮点运算阅读详情

我现在要扩展类user 的一个属性; 假设为：extendionID，请给各位高手任何用程序实现。谢谢！

...全文

基于近场动力学的二维疲劳裂纹扩展模型_近场动力学数值模拟的程序实现（1）——引言... 参考书目W. H. Gerstle. 2015. Introduction to Practical Peridynamic: Computational Solid Mechanics Without Stress and Strain.E.Madenci, A.Barut, M.Dorduncu. Peridynamic Differential Operator for Numerical ... 阅读详情

kyc

消息协作 536 成员 39,094 内容

+ 关注 + 加入社区

切换为时间正序

徐春华 2002-09-19

打赏
举报

可以参考ADSI2.5SDK中的schema 扩展部分，一般来说对ADSI中的Schema的扩展是较为困难的，只有VC的接口。
另一办法是ADSI对象中有一些保留的扩展，如extensionName等，是可由用户自由支配的。

foobarren 2002-09-18

打赏
举报

小柯，试试这个

Sub AddProgerty
DefineProperty "SchemaPath","user","extendionID","string", False, , True
end Sub

Function DefineProperty( _
ByVal AppSchemaFld As String, _
ByVal Namespace As String, _
ByVal PropertyName As String, _
Optional DataType As String = "string", _
Optional IsMultiValued As Boolean = False, _
Optional Default As String = "", _
Optional IsIndexed As Boolean = False)

' This function creates a property definition
' in an application schema folder. The default
' is to create a single-valued, string property
' that has no default value and is not indexed.

' If you are using VBScript, use this With:
' With CreateObject("ADODB.Record")
With New ADODB.Record
' Create the new property record
.Open AppSchemaFld & Replace(Namespace, ":", "-") & PropertyName _
, _
, adModeReadWrite _
, adCreateNonCollection + adCreateOverwrite
' Define the property
.Fields _
("DAV:contentclass") _
= "urn:content-classes:propertydef"
.Fields _
("urn:schemas-microsoft-com:xml-data#name") _
= Namespace & PropertyName
.Fields _
("urn:schemas-microsoft-com:datatypes#type") _
= DataType
.Fields _
("urn:schemas-microsoft-com:exch-data:ismultivalued") _
= IsMultiValued
.Fields _
("urn:schemas-microsoft-com:exch-data:defaultvalue") _
= Default
.Fields _
("urn:schemas-microsoft-com:exch-data:isindexed") _
= IsIndexed
' Save the changes
.Fields.Update
.Close
End With
End Function

如何扩展ADSI的属性

相关推荐