Cuando se llama a DelCurrentUser comprobar que realmente hay un usuario registrado.

git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.UserControl@11 970f2627-a9d2-4748-b3d4-b5283c4fe7db
2007-10-21 17:34:08 +00:00 · 2007-10-21 17:34:08 +00:00 · 15b54fbb28
commit 15b54fbb28
parent 73e399ada7
76 changed files with 37 additions and 166 deletions
--- a/internal/2.20/1/Lib/D11/CadPerfil_U.dcu
+++ b/internal/2.20/1/Lib/D11/CadPerfil_U.dcu
--- a/internal/2.20/1/Lib/D11/CadUser_U.dcu
+++ b/internal/2.20/1/Lib/D11/CadUser_U.dcu
--- a/internal/2.20/1/Lib/D11/EnvMsgForm_U.dcu
+++ b/internal/2.20/1/Lib/D11/EnvMsgForm_U.dcu
--- a/internal/2.20/1/Lib/D11/IncPerfil_U.dcu
+++ b/internal/2.20/1/Lib/D11/IncPerfil_U.dcu
--- a/internal/2.20/1/Lib/D11/IncUser_U.dcu
+++ b/internal/2.20/1/Lib/D11/IncUser_U.dcu
--- a/internal/2.20/1/Lib/D11/LoginWindow_U.dcu
+++ b/internal/2.20/1/Lib/D11/LoginWindow_U.dcu
--- a/internal/2.20/1/Lib/D11/MsgRecForm_U.dcu
+++ b/internal/2.20/1/Lib/D11/MsgRecForm_U.dcu
--- a/internal/2.20/1/Lib/D11/MsgsForm_U.dcu
+++ b/internal/2.20/1/Lib/D11/MsgsForm_U.dcu
--- a/internal/2.20/1/Lib/D11/SenhaForm_U.dcu
+++ b/internal/2.20/1/Lib/D11/SenhaForm_U.dcu
--- a/internal/2.20/1/Lib/D11/TrocaSenha_U.dcu
+++ b/internal/2.20/1/Lib/D11/TrocaSenha_U.dcu
--- a/internal/2.20/1/Lib/D11/UCADOConn.dcu
+++ b/internal/2.20/1/Lib/D11/UCADOConn.dcu
--- a/internal/2.20/1/Lib/D11/UCADOConnReg.dcu
+++ b/internal/2.20/1/Lib/D11/UCADOConnReg.dcu
--- a/internal/2.20/1/Lib/D11/UCAbout.dcu
+++ b/internal/2.20/1/Lib/D11/UCAbout.dcu
--- a/internal/2.20/1/Lib/D11/UCBDEConn.dcu
+++ b/internal/2.20/1/Lib/D11/UCBDEConn.dcu
--- a/internal/2.20/1/Lib/D11/UCBDEConnReg.dcu
+++ b/internal/2.20/1/Lib/D11/UCBDEConnReg.dcu
--- a/internal/2.20/1/Lib/D11/UCBase.dcu
+++ b/internal/2.20/1/Lib/D11/UCBase.dcu
--- a/internal/2.20/1/Lib/D11/UCDBXConn.dcu
+++ b/internal/2.20/1/Lib/D11/UCDBXConn.dcu
--- a/internal/2.20/1/Lib/D11/UCDBXConnReg.dcu
+++ b/internal/2.20/1/Lib/D11/UCDBXConnReg.dcu
--- a/internal/2.20/1/Lib/D11/UCDataConnector.dcu
+++ b/internal/2.20/1/Lib/D11/UCDataConnector.dcu
--- a/internal/2.20/1/Lib/D11/UCDataInfo.dcu
+++ b/internal/2.20/1/Lib/D11/UCDataInfo.dcu
--- a/internal/2.20/1/Lib/D11/UCEMailForm_U.dcu
+++ b/internal/2.20/1/Lib/D11/UCEMailForm_U.dcu
--- a/internal/2.20/1/Lib/D11/UCEditorForm_U.dcu
+++ b/internal/2.20/1/Lib/D11/UCEditorForm_U.dcu
--- a/internal/2.20/1/Lib/D11/UCHist_Form.dcu
+++ b/internal/2.20/1/Lib/D11/UCHist_Form.dcu
--- a/internal/2.20/1/Lib/D11/UCIBXConn.dcu
+++ b/internal/2.20/1/Lib/D11/UCIBXConn.dcu
--- a/internal/2.20/1/Lib/D11/UCIBXConnReg.dcu
+++ b/internal/2.20/1/Lib/D11/UCIBXConnReg.dcu
--- a/internal/2.20/1/Lib/D11/UCIdle.dcu
+++ b/internal/2.20/1/Lib/D11/UCIdle.dcu
--- a/internal/2.20/1/Lib/D11/UCMail.dcu
+++ b/internal/2.20/1/Lib/D11/UCMail.dcu
--- a/internal/2.20/1/Lib/D11/UCMessages.dcu
+++ b/internal/2.20/1/Lib/D11/UCMessages.dcu
--- a/internal/2.20/1/Lib/D11/UCMidasConn.dcu
+++ b/internal/2.20/1/Lib/D11/UCMidasConn.dcu
--- a/internal/2.20/1/Lib/D11/UCMidasConnReg.dcu
+++ b/internal/2.20/1/Lib/D11/UCMidasConnReg.dcu
--- a/internal/2.20/1/Lib/D11/UCObjSel_U.dcu
+++ b/internal/2.20/1/Lib/D11/UCObjSel_U.dcu
--- a/internal/2.20/1/Lib/D11/UCReg.dcu
+++ b/internal/2.20/1/Lib/D11/UCReg.dcu
--- a/internal/2.20/1/Lib/D11/UCSettings.dcu
+++ b/internal/2.20/1/Lib/D11/UCSettings.dcu
--- a/internal/2.20/1/Lib/D11/UcConsts_Language.dcu
+++ b/internal/2.20/1/Lib/D11/UcConsts_Language.dcu
--- a/internal/2.20/1/Lib/D11/UserPermis_U.dcu
+++ b/internal/2.20/1/Lib/D11/UserPermis_U.dcu
--- a/internal/2.20/1/Lib/D11/UsersLogged_U.dcu
+++ b/internal/2.20/1/Lib/D11/UsersLogged_U.dcu
--- a/internal/2.20/1/Lib/D11/ViewLog_U.dcu
+++ b/internal/2.20/1/Lib/D11/ViewLog_U.dcu
--- a/internal/2.20/1/Lib/D11/md5.dcu
+++ b/internal/2.20/1/Lib/D11/md5.dcu
--- a/internal/2.20/1/Lib/D11/pckMD5.bpl
+++ b/internal/2.20/1/Lib/D11/pckMD5.bpl
--- a/internal/2.20/1/Lib/D11/pckMD5.dcp
+++ b/internal/2.20/1/Lib/D11/pckMD5.dcp
--- a/internal/2.20/1/Lib/D11/pckMD5.dcu
+++ b/internal/2.20/1/Lib/D11/pckMD5.dcu
--- a/internal/2.20/1/Lib/D11/pckUCADOConn.bpl
+++ b/internal/2.20/1/Lib/D11/pckUCADOConn.bpl
--- a/internal/2.20/1/Lib/D11/pckUCADOConn.dcp
+++ b/internal/2.20/1/Lib/D11/pckUCADOConn.dcp
--- a/internal/2.20/1/Lib/D11/pckUCADOConn.dcu
+++ b/internal/2.20/1/Lib/D11/pckUCADOConn.dcu
--- a/internal/2.20/1/Lib/D11/pckUCBDEConn.bpl
+++ b/internal/2.20/1/Lib/D11/pckUCBDEConn.bpl
--- a/internal/2.20/1/Lib/D11/pckUCBDEConn.dcp
+++ b/internal/2.20/1/Lib/D11/pckUCBDEConn.dcp
--- a/internal/2.20/1/Lib/D11/pckUCBDEConn.dcu
+++ b/internal/2.20/1/Lib/D11/pckUCBDEConn.dcu
--- a/internal/2.20/1/Lib/D11/pckUCDBXConn.bpl
+++ b/internal/2.20/1/Lib/D11/pckUCDBXConn.bpl
--- a/internal/2.20/1/Lib/D11/pckUCDBXConn.dcp
+++ b/internal/2.20/1/Lib/D11/pckUCDBXConn.dcp
--- a/internal/2.20/1/Lib/D11/pckUCDBXConn.dcu
+++ b/internal/2.20/1/Lib/D11/pckUCDBXConn.dcu
--- a/internal/2.20/1/Lib/D11/pckUCDataConnector.bpl
+++ b/internal/2.20/1/Lib/D11/pckUCDataConnector.bpl
--- a/internal/2.20/1/Lib/D11/pckUCDataConnector.dcp
+++ b/internal/2.20/1/Lib/D11/pckUCDataConnector.dcp
--- a/internal/2.20/1/Lib/D11/pckUCDataConnector.dcu
+++ b/internal/2.20/1/Lib/D11/pckUCDataConnector.dcu
--- a/internal/2.20/1/Lib/D11/pckUCIBXConn.bpl
+++ b/internal/2.20/1/Lib/D11/pckUCIBXConn.bpl
--- a/internal/2.20/1/Lib/D11/pckUCIBXConn.dcp
+++ b/internal/2.20/1/Lib/D11/pckUCIBXConn.dcp
--- a/internal/2.20/1/Lib/D11/pckUCIBXConn.dcu
+++ b/internal/2.20/1/Lib/D11/pckUCIBXConn.dcu
--- a/internal/2.20/1/Lib/D11/pckUCMidasConn.bpl
+++ b/internal/2.20/1/Lib/D11/pckUCMidasConn.bpl
--- a/internal/2.20/1/Lib/D11/pckUCMidasConn.dcp
+++ b/internal/2.20/1/Lib/D11/pckUCMidasConn.dcp
--- a/internal/2.20/1/Lib/D11/pckUCMidasConn.dcu
+++ b/internal/2.20/1/Lib/D11/pckUCMidasConn.dcu
--- a/internal/2.20/1/Lib/D11/pckUserControl_DT.bpl
+++ b/internal/2.20/1/Lib/D11/pckUserControl_DT.bpl
--- a/internal/2.20/1/Lib/D11/pckUserControl_DT.dcp
+++ b/internal/2.20/1/Lib/D11/pckUserControl_DT.dcp
--- a/internal/2.20/1/Lib/D11/pckUserControl_DT.dcu
+++ b/internal/2.20/1/Lib/D11/pckUserControl_DT.dcu
--- a/internal/2.20/1/Lib/D11/pckUserControl_RT.bpl
+++ b/internal/2.20/1/Lib/D11/pckUserControl_RT.bpl
--- a/internal/2.20/1/Lib/D11/pckUserControl_RT.dcp
+++ b/internal/2.20/1/Lib/D11/pckUserControl_RT.dcp
--- a/internal/2.20/1/Lib/D11/pckUserControl_RT.dcu
+++ b/internal/2.20/1/Lib/D11/pckUserControl_RT.dcu
--- a/internal/2.20/1/Packages/Connectors/UCADOConn/pckUCADOConn.drc
+++ b/internal/2.20/1/Packages/Connectors/UCADOConn/pckUCADOConn.drc
@ -1,5 +1,5 @@
-/* VER180
-  Generated by the Borland Delphi Pascal Compiler
+/* VER185
+  Generated by the CodeGear Delphi Pascal Compiler
  because -GD or --drc was supplied to the compiler.

  This file contains compiler-generated resources that
@ -12,3 +12,5 @@ STRINGTABLE
 BEGIN
 END

+/* C:\UserControl\Packages\Connectors\UCADOConn\pckUCADOConn.res */
+/* C:\UserControl\Packages\Connectors\UCADOConn\pckUCADOConn.drf */
--- a/internal/2.20/1/Packages/Connectors/UCBDEConn/pckUCBDEConn.dpk
+++ b/internal/2.20/1/Packages/Connectors/UCBDEConn/pckUCBDEConn.dpk
@ -4,7 +4,7 @@ package pckUCBDEConn;
 {$ALIGN 8}
 {$ASSERTIONS ON}
 {$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
+{$DEBUGINFO ON}
 {$EXTENDEDSYNTAX ON}
 {$IMPORTEDDATA ON}
 {$IOCHECKS ON}
--- a/internal/2.20/1/Packages/Connectors/UCBDEConn/pckUCBDEConn.dproj
+++ b/internal/2.20/1/Packages/Connectors/UCBDEConn/pckUCBDEConn.dproj
@ -9,7 +9,6 @@
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
    <Version>7.0</Version>
-    <DCC_DebugInformation>False</DCC_DebugInformation>
    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
    <DCC_MapFile>3</DCC_MapFile>
@ -42,65 +41,19 @@
    <Borland.Personality>Delphi.Personality</Borland.Personality>
    <Borland.ProjectType>Package</Borland.ProjectType>
    <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="PackageDescription">User Control BDE Connector</Package_Options>
-      <Package_Options Name="ImplicitBuild">True</Package_Options>
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
-    </Package_Options>
-    <Language>
-      <Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1046</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">pckUCBDEConn.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">User Control BDE Connector</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">pckUCBDEConn.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
  </ProjectExtensions>
-  <ItemGroup />
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
  <ItemGroup>
    <DelphiCompile Include="pckUCBDEConn.dpk">
      <MainSource>MainSource</MainSource>
    </DelphiCompile>
-    <DCCReference Include="..\bdertl.dcp" />
-    <DCCReference Include="..\pckUCDataConnector.dcp" />
+    <DCCReference Include="bdertl.dcp" />
+    <DCCReference Include="pckUCDataConnector.dcp" />
    <DCCReference Include="UCBDEConn.pas" />
    <DCCReference Include="UCBDEConnReg.pas" />
  </ItemGroup>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
--- a/internal/2.20/1/Packages/Connectors/UCBDEConn/pckUCBDEConn.drc
+++ b/internal/2.20/1/Packages/Connectors/UCBDEConn/pckUCBDEConn.drc
@ -1,5 +1,5 @@
-/* VER180
-  Generated by the Borland Delphi Pascal Compiler
+/* VER185
+  Generated by the CodeGear Delphi Pascal Compiler
  because -GD or --drc was supplied to the compiler.

  This file contains compiler-generated resources that
@ -12,3 +12,5 @@ STRINGTABLE
 BEGIN
 END

+/* C:\UserControl\Packages\Connectors\UCBDEConn\pckUCBDEConn.res */
+/* C:\UserControl\Packages\Connectors\UCBDEConn\pckUCBDEConn.drf */
--- a/internal/2.20/1/Packages/Connectors/UCDBXConn/pckUCDBXConn.dpk
+++ b/internal/2.20/1/Packages/Connectors/UCDBXConn/pckUCDBXConn.dpk
@ -4,7 +4,7 @@ package pckUCDBXConn;
 {$ALIGN 8}
 {$ASSERTIONS ON}
 {$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
+{$DEBUGINFO ON}
 {$EXTENDEDSYNTAX ON}
 {$IMPORTEDDATA ON}
 {$IOCHECKS ON}
--- a/internal/2.20/1/Packages/Connectors/UCDBXConn/pckUCDBXConn.dproj
+++ b/internal/2.20/1/Packages/Connectors/UCDBXConn/pckUCDBXConn.dproj
@ -9,7 +9,6 @@
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
    <Version>7.0</Version>
-    <DCC_DebugInformation>False</DCC_DebugInformation>
    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
    <DCC_MapFile>3</DCC_MapFile>
@ -42,67 +41,21 @@
    <Borland.Personality>Delphi.Personality</Borland.Personality>
    <Borland.ProjectType>Package</Borland.ProjectType>
    <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="PackageDescription">User Control DBX Connectors</Package_Options>
-      <Package_Options Name="ImplicitBuild">False</Package_Options>
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
-    </Package_Options>
-    <Language>
-      <Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1046</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">pckUCDBXConn.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">User Control DBX Connectors</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">pckUCDBXConn.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
  </ProjectExtensions>
-  <ItemGroup />
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
  <ItemGroup>
    <DelphiCompile Include="pckUCDBXConn.dpk">
      <MainSource>MainSource</MainSource>
    </DelphiCompile>
-    <DCCReference Include="..\dbexpress.dcp" />
-    <DCCReference Include="..\dbxcds.dcp" />
-    <DCCReference Include="..\dsnap.dcp" />
-    <DCCReference Include="..\pckUCDataConnector.dcp" />
+    <DCCReference Include="dbexpress.dcp" />
+    <DCCReference Include="dbxcds.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="pckUCDataConnector.dcp" />
    <DCCReference Include="UCDBXConn.pas" />
    <DCCReference Include="UCDBXConnReg.pas" />
  </ItemGroup>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
--- a/internal/2.20/1/Packages/Connectors/UCDBXConn/pckUCDBXConn.drc
+++ b/internal/2.20/1/Packages/Connectors/UCDBXConn/pckUCDBXConn.drc
@ -1,5 +1,5 @@
-/* VER180
-  Generated by the Borland Delphi Pascal Compiler
+/* VER185
+  Generated by the CodeGear Delphi Pascal Compiler
  because -GD or --drc was supplied to the compiler.

  This file contains compiler-generated resources that
@ -12,3 +12,5 @@ STRINGTABLE
 BEGIN
 END

+/* C:\UserControl\Packages\Connectors\UCDBXConn\pckUCDBXConn.res */
+/* C:\UserControl\Packages\Connectors\UCDBXConn\pckUCDBXConn.drf */
--- a/internal/2.20/1/Packages/Connectors/UCIBXConn/pckUCIBXConn.dpk
+++ b/internal/2.20/1/Packages/Connectors/UCIBXConn/pckUCIBXConn.dpk
@ -4,7 +4,7 @@ package pckUCIBXConn;
 {$ALIGN 8}
 {$ASSERTIONS ON}
 {$BOOLEVAL OFF}
-{$DEBUGINFO OFF}
+{$DEBUGINFO ON}
 {$EXTENDEDSYNTAX ON}
 {$IMPORTEDDATA ON}
 {$IOCHECKS ON}
--- a/internal/2.20/1/Packages/Connectors/UCIBXConn/pckUCIBXConn.dproj
+++ b/internal/2.20/1/Packages/Connectors/UCIBXConn/pckUCIBXConn.dproj
@ -9,7 +9,6 @@
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
    <Version>7.0</Version>
-    <DCC_DebugInformation>False</DCC_DebugInformation>
    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
    <DCC_MapFile>3</DCC_MapFile>
@ -42,65 +41,19 @@
    <Borland.Personality>Delphi.Personality</Borland.Personality>
    <Borland.ProjectType>Package</Borland.ProjectType>
    <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="PackageDescription">User Control IBX Connector</Package_Options>
-      <Package_Options Name="ImplicitBuild">True</Package_Options>
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
-    </Package_Options>
-    <Language>
-      <Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
-    </Language>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</VersionInfo>
-      <VersionInfo Name="Build">0</VersionInfo>
-      <VersionInfo Name="Debug">False</VersionInfo>
-      <VersionInfo Name="PreRelease">False</VersionInfo>
-      <VersionInfo Name="Special">False</VersionInfo>
-      <VersionInfo Name="Private">False</VersionInfo>
-      <VersionInfo Name="DLL">False</VersionInfo>
-      <VersionInfo Name="Locale">1046</VersionInfo>
-      <VersionInfo Name="CodePage">1252</VersionInfo>
-    </VersionInfo>
-    <VersionInfoKeys>
-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">pckUCIBXConn.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">User Control IBX Connector</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">pckUCIBXConn.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
  </ProjectExtensions>
-  <ItemGroup />
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
  <ItemGroup>
    <DelphiCompile Include="pckUCIBXConn.dpk">
      <MainSource>MainSource</MainSource>
    </DelphiCompile>
-    <DCCReference Include="..\ibxpress.dcp" />
-    <DCCReference Include="..\pckUCDataConnector.dcp" />
+    <DCCReference Include="ibxpress.dcp" />
+    <DCCReference Include="pckUCDataConnector.dcp" />
    <DCCReference Include="UCIBXConn.pas" />
    <DCCReference Include="UCIBXConnReg.pas" />
  </ItemGroup>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
--- a/internal/2.20/1/Packages/Connectors/UCIBXConn/pckUCIBXConn.drc
+++ b/internal/2.20/1/Packages/Connectors/UCIBXConn/pckUCIBXConn.drc
@ -1,5 +1,5 @@
-/* VER180
-  Generated by the Borland Delphi Pascal Compiler
+/* VER185
+  Generated by the CodeGear Delphi Pascal Compiler
  because -GD or --drc was supplied to the compiler.

  This file contains compiler-generated resources that
@ -12,3 +12,5 @@ STRINGTABLE
 BEGIN
 END

+/* C:\UserControl\Packages\Connectors\UCIBXConn\pckUCIBXConn.res */
+/* C:\UserControl\Packages\Connectors\UCIBXConn\pckUCIBXConn.drf */
--- a/internal/2.20/1/Source/UCBase.pas
+++ b/internal/2.20/1/Source/UCBase.pas
@ -4523,6 +4523,10 @@ begin
  if Assigned(FUserControl.DataConnector) = False then
    Exit;

+  // Rodax Software
+  if (FUserControl.CurrentUser.UserID = 0) then
+    Exit;
+
  with FUserControl do
  begin
    SQLStmt := Format('DELETE FROM %s WHERE %s = %s',