Gecko [ www.utparral.edu.mx ]

Name	Size	Permission
acConstants.xba	14.11 KB	-rw-r--r--
Application.xba	74.03 KB	-rw-r--r--
Collect.xba	15.02 KB	-rw-r--r--
CommandBarControl.xba	14.3 KB	-rw-r--r--
CommandBar.xba	14.93 KB	-rw-r--r--
Control.xba	117.95 KB	-rw-r--r--
Database.xba	78.09 KB	-rw-r--r--
DataDef.xba	23.76 KB	-rw-r--r--
Dialog.xba	32.42 KB	-rw-r--r--
dialog.xlb	398 B	-rw-r--r--
dlgFormat.xdl	1.64 KB	-rw-r--r--
dlgTrace.xdl	3.77 KB	-rw-r--r--
DoCmd.xba	115.65 KB	-rw-r--r--
Event.xba	21.71 KB	-rw-r--r--
Field.xba	38.54 KB	-rw-r--r--
Form.xba	48.02 KB	-rw-r--r--
L10N.xba	51.39 KB	-rw-r--r--
_License.xba	1.48 KB	-rw-r--r--
Methods.xba	11.58 KB	-rw-r--r--
Module.xba	29.72 KB	-rw-r--r--
OptionGroup.xba	12.76 KB	-rw-r--r--
PropertiesGet.xba	64.05 KB	-rw-r--r--
PropertiesSet.xba	36.19 KB	-rw-r--r--
Property.xba	6.63 KB	-rw-r--r--
Python.xba	27.26 KB	-rw-r--r--
Recordset.xba	44.9 KB	-rw-r--r--
Root_.xba	12.55 KB	-rw-r--r--
script.xlb	1.58 KB	-rw-r--r--
SubForm.xba	33.2 KB	-rw-r--r--
TempVar.xba	8.19 KB	-rw-r--r--
Test.xba	406 B	-rw-r--r--
Trace.xba	17.6 KB	-rw-r--r--
UtilProperty.xba	14.66 KB	-rw-r--r--
Utils.xba	53.9 KB	-rw-r--r--

Code Editor : Property.xba

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Property" script:language="StarBasic">
REM =======================================================================================================================
REM ===					The Access2Base library is a part of the LibreOffice project.									===
REM ===					Full documentation is available on http://www.access2base.com									===
REM =======================================================================================================================

Option Compatible
Option ClassModule

Option Explicit

REM -----------------------------------------------------------------------------------------------------------------------
REM --- CLASS ROOT FIELDS 								        														---
REM -----------------------------------------------------------------------------------------------------------------------

Private _Type			As String		&apos;	Must be PROPERTY
Private _This			As Object		&apos;	Workaround for absence of This builtin function
Private _Parent			As Object
Private _Name			As String
Private _Value			As Variant
Private _ParentDatabase	As Object

REM -----------------------------------------------------------------------------------------------------------------------
REM --- CONSTRUCTORS / DESTRUCTORS						        														---
REM -----------------------------------------------------------------------------------------------------------------------
Private Sub Class_Initialize()
	_Type = OBJPROPERTY
	Set _This = Nothing
	Set _Parent = Nothing
	_Name = &quot;&quot;
	_Value = Null
End Sub		&apos;	Constructor

REM -----------------------------------------------------------------------------------------------------------------------
Private Sub Class_Terminate()
	On Local Error Resume Next
	Call Class_Initialize()
End Sub		&apos;	Destructor

REM -----------------------------------------------------------------------------------------------------------------------
Public Sub Dispose()
	Call Class_Terminate()
End Sub		&apos;	Explicit destructor

REM -----------------------------------------------------------------------------------------------------------------------
REM --- CLASS GET/LET/SET PROPERTIES					        														---
REM -----------------------------------------------------------------------------------------------------------------------

Property Get Name() As String
	Name = _PropertyGet(&quot;Name&quot;)
End Property		&apos;	Name (get)

Public Function pName() As String		&apos;	For compatibility with &lt; V0.9.0
	pName = _PropertyGet(&quot;Name&quot;)
End Function		&apos;	pName (get)

REM -----------------------------------------------------------------------------------------------------------------------
Property Get ObjectType() As String
	ObjectType = _PropertyGet(&quot;ObjectType&quot;)
End Property		&apos;	ObjectType (get)

REM -----------------------------------------------------------------------------------------------------------------------
Public Function Properties(ByVal Optional pvIndex As Variant) As Variant
&apos;	Return
&apos;		a Collection object if pvIndex absent
&apos;		a Property object otherwise

Dim vProperty As Variant, vPropertiesList() As Variant, sObject As String
	vPropertiesList = _PropertiesList()
	sObject = Utils._PCase(_Type)
	If IsMissing(pvIndex) Then
		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList)
	Else
		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex)
		vProperty._Value = _PropertyGet(vPropertiesList(pvIndex))
	End If
	
Exit_Function:
	Set Properties = vProperty
	Exit Function
End Function	&apos;	Properties

REM -----------------------------------------------------------------------------------------------------------------------
Property Get Value() As Variant
	Value = _PropertyGet(&quot;Value&quot;)
End Property		&apos;	Value (get)

REM -----------------------------------------------------------------------------------------------------------------------
REM --- CLASS METHODS	 								        														---
REM -----------------------------------------------------------------------------------------------------------------------

Public Function getProperty(Optional ByVal pvProperty As Variant) As Variant
&apos;	Return property value of psProperty property name

Utils._SetCalledSub(&quot;Property.getProperty&quot;)
	If IsMissing(pvProperty) Then Call _TraceArguments()
	getProperty = _PropertyGet(pvProperty)
	Utils._ResetCalledSub(&quot;Property.getProperty&quot;)
	
End Function		&apos;	getProperty

REM -----------------------------------------------------------------------------------------------------------------------
Public Function hasProperty(ByVal Optional pvProperty As Variant) As Boolean
&apos;	Return True if object has a valid property called pvProperty (case-insensitive comparison !)

If IsMissing(pvProperty) Then hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList()) Else hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList(), pvProperty)
	Exit Function
	
End Function	&apos;	hasProperty

REM -----------------------------------------------------------------------------------------------------------------------
REM --- PRIVATE FUNCTIONS 								        														---
REM -----------------------------------------------------------------------------------------------------------------------
Private Function _PropertiesList() As Variant
	 _PropertiesList = Array(&quot;Name&quot;, &quot;ObjectType&quot;, &quot;Value&quot;)
End Function	&apos;	_PropertiesList

REM -----------------------------------------------------------------------------------------------------------------------
Private Function _PropertyGet(ByVal psProperty As String) As Variant
&apos;	Return property value of the psProperty property name

If _ErrorHandler() Then On Local Error Goto Error_Function
	Utils._SetCalledSub(&quot;Property.get&quot; &amp; psProperty)
	_PropertyGet = Nothing
	
	Select Case UCase(psProperty)
		Case UCase(&quot;Name&quot;)
			_PropertyGet = _Name
		Case UCase(&quot;ObjectType&quot;)
			_PropertyGet = _Type
		Case UCase(&quot;Value&quot;)
			_PropertyGet = _Value
		Case Else
			Goto Trace_Error
	End Select
	
Exit_Function:
	Utils._ResetCalledSub(&quot;Property.get&quot; &amp; psProperty)
	Exit Function
Trace_Error:
	TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
	_PropertyGet = Nothing
	Goto Exit_Function
Error_Function:
	TraceError(TRACEABORT, Err, &quot;Property._PropertyGet&quot;, Erl)
	_PropertyGet = Nothing
	GoTo Exit_Function
End Function		&apos;	_PropertyGet

</script:module>

${this.title}

Code Editor : Property.xba