The GetRegistryValue method returns a value from the Windows Registry. Since Stonefield Query stores its user settings in the Registry, and any additional options you define in an Options.Settings or Setup.Settings script may be stored there, this method is useful if you need to determine the value of a setting.
Syntax
GetRegistryValue(ValueName as String, DefaultValue as String,
Node as String) as String
Parameters
ValueName
The name of the value in the Registry.
DefaultValue
The value to return if the name isn't found in the Registry. Optional: if this parameter isn't specified, a blank string is returned.
Node
The name of the node in the Registry that the value can be found in. If this parameter isn't passed, the value is looked for in HKEY_CURRENT_USER\Software\CompanyName\ApplicationName\Options (where CompanyName and ApplicationName are the values of the Company Name and Application Name configuration settings). If a value is passed and it doesn't contain a backslash (\), that node is used instead of Options. For example, specifying "Data" means that HKEY_CURRENT_USER\Software\CompanyName\ApplicationName\Data is used. If it does contain a backslash, then it must be a complete path to any place in the Registry, such as HKEY_LOCAL_MACHINE\Software\Whatever\SomeNode.
Return Value
The value in the Registry if it was found or DefaultValue if not.
Example
Here's an example that uses some custom options settings defined in an Options.Settings script. If the "Report on AR data" option is No, all AR tables are marked as not reportable. If the option is Yes, then the "Location of AR data" setting is used as the location for the AR tables. This code goes into the DataEngine.GetCustomMetaData script.
Visual FoxPro
lparameters toApplication as SQApplication
local lcValue, lcLocation, lnI, loTable as Table
lcValue = toApplication.GetRegistryValue('AR Data')
lcLocation = toApplication.GetRegistryValue('AR Location')
for lnI = 1 to toApplication.DataEngine.Tables.Count
loTable = toApplication.DataEngine.Tables.Item(lnI)
do case
case left(loTable.Alias, 2) <> 'AR'
case lcValue = 'Y'
loTable.Location = lcLocation
otherwise
loTable.Reportable = .F.
endcase
next
VBScript
function Main(Application)
dim Table
Value = Application.GetRegistryValue("AR Data")
Location = Application.GetRegistryValue("AR Location")
for I = 1 to Application.DataEngine.Tables.Count
set Table = Application.DataEngine.Tables.Item(I)
if left(Table.Alias, 2) = "AR" then
if Value = "Y" then
Table.Location = Location
else
Table.Reportable = False
end if
end if
next
end function
JavaScript
function Main(Application) {
var Value, Location, I, Table ;
Value = Application.GetRegistryValue('AR Data') ;
Location = Application.GetRegistryValue('AR Location') ;
for (I = 1; I <= Application.DataEngine.Tables.Count; I++) {
Table = Application.DataEngine.Tables.Item(I) ;
if (left(Table.Alias, 2) = 'AR') {
if (Value = 'Y') {
Table.Location = Location ;
}
else {
Table.Reportable = false ;
}
}
}
}
C#
public static bool DataEngine_GetCustomMetaData(SFQApplication sfqApplication)
{
string value = sfqApplication.GetRegistryValue("AR Data");
string location = sfqApplication.GetRegistryValue("AR Location");
foreach(Table table in sfqApplication.DataEngine.Tables)
{
if (table.Alias.Substring(0, 2) == "AR")
{
if (value == "Y")
{
table.Location = location;
}
else
{
table.Reportable = false;
}
}
}
return true;
}
VB.NET
public shared function DataEngine_GetCustomMetaData(sfqApplication as SFQApplication) as Boolean
Dim location As String = sfqApplication.GetRegistryValue("AR Location")
Dim value As String = sfqApplication.GetRegistryValue("AR Data")
For Each table As Table In sfqApplication.DataEngine.Tables
If table.Alias.Substring(0, 2) = "AR" Then
If value = "Y" Then
table.Location = location
Else
table.Reportable = False
End If
End If
Next
Return True
End Function
See also
Application Object | SetINIValue | SetRegistryValue© Stonefield Software Inc., 2024 • Updated: 06/06/16
Comment or report problem with topic