374 lines
18 KiB
ObjectPascal
374 lines
18 KiB
ObjectPascal
{******************************************************************************}
|
||
{ UNIFIED INTERBASE (UIB) }
|
||
{ }
|
||
{ Project JEDI Code Library (JCL) }
|
||
{ }
|
||
{ The contents of this file are subject to the Mozilla Public License Version }
|
||
{ 1.1 (the "License"); you may not use this file except in compliance with the }
|
||
{ License. You may obtain a copy of the License at http://www.mozilla.org/MPL/ }
|
||
{ }
|
||
{ Software distributed under the License is distributed on an "AS IS" basis, }
|
||
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
|
||
{ the specific language governing rights and limitations under the License. }
|
||
{ }
|
||
{ The Initial Developer of the Original Code is documented in the accompanying }
|
||
{ help file JCL.chm. Portions created by these individuals are Copyright (C) }
|
||
{ 2003 of these individuals. }
|
||
{ }
|
||
{ UIB Constants }
|
||
{ }
|
||
{ Unit owner: Henri Gourvest }
|
||
{ Last modified: September 21, 2003 }
|
||
{ }
|
||
{******************************************************************************}
|
||
|
||
{$I jvcl.inc}
|
||
{$I JvUIB.inc}
|
||
|
||
unit JvUIBConst;
|
||
|
||
interface
|
||
|
||
{$IFDEF USEJVCL}
|
||
{$IFDEF UNITVERSIONING}
|
||
uses
|
||
JclUnitVersioning;
|
||
{$ENDIF UNITVERSIONING}
|
||
{$ENDIF USEJVCL}
|
||
|
||
{$IFNDEF DELPHI6_UP}
|
||
{$IFNDEF BCB}
|
||
const
|
||
S_OK = $00000000;
|
||
S_FALSE = $00000001;
|
||
{$ENDIF !BCB}
|
||
{$ENDIF !DELPHI6_UP}
|
||
|
||
type
|
||
// JvUIB Server Commands
|
||
TServerCommand = (scGetClassObject, scInvokeMethod);
|
||
|
||
// Metadata Object Identifiers
|
||
TOIDDatabase = (OIDDomain, OIDTable, OIDView, OIDProcedure, OIDGenerator,
|
||
OIDException, OIDUDF, OIDRole);
|
||
TOIDDatabases = set of TOIDDatabase;
|
||
|
||
TOIDTable = (OIDTableField, OIDPrimary, OIDForeign, OIDTableTrigger,
|
||
OIDUnique,OIDIndex, OIDCheck);
|
||
TOIDTables = set of TOIDTable;
|
||
|
||
TOIDView = (OIDViewFields, OIDViewTrigers);
|
||
TOIDViews = set of TOIDView;
|
||
|
||
TOIDProcedure = (OIDProcFieldIn, OIDProcFieldOut);
|
||
TOIDProcedures = set of TOIDProcedure;
|
||
|
||
TOIDUDF = (OIDUDFField);
|
||
TOIDUDFs = set of TOIDUDF;
|
||
|
||
const
|
||
ALLOBjects = [OIDDomain, OIDTable, OIDView, OIDProcedure, OIDGenerator,
|
||
OIDException, OIDUDF, OIDRole];
|
||
ALLTables = [OIDTableField, OIDPrimary, OIDForeign, OIDTableTrigger,
|
||
OIDUnique,OIDIndex, OIDCheck];
|
||
ALLViews = [OIDViewFields, OIDViewTrigers];
|
||
ALLProcedures = [OIDProcFieldIn, OIDProcFieldOut];
|
||
ALLUDFs = [OIDUDFField];
|
||
{$IFDEF LINUX}
|
||
BreakLine = #10;
|
||
{$ELSE}
|
||
BreakLine = #13;
|
||
{$ENDIF LINUX}
|
||
NewLine = BreakLine + BreakLine;
|
||
|
||
resourcestring
|
||
{$IFDEF UIBLANG_EN}
|
||
sUIBTrue = 'True';
|
||
sUIBFalse = 'False';
|
||
|
||
// UIB Errors
|
||
EUIB_INVALIDEIBVERSION = 'Incorrect Database Server version, check compiler options.';
|
||
EUIB_CANTLOADLIB = 'Can''t load library: %s.';
|
||
EUIB_DBHANDLEALLREADYSET = 'Database handle already assigned, first disconnect database.';
|
||
EUIB_TRANSACTIONNOTDEF = 'Transaction not assigned.';
|
||
EUIB_DATABASENOTDEF = 'Database not assigned.';
|
||
EUIB_QUERYNOTOPEN = 'Query not open.';
|
||
EUIB_CASTERROR = 'Cast error.';
|
||
EUIB_UNEXPECTEDERROR = 'Unexpected error.';
|
||
EUIB_FIELDNUMNOTFOUND = 'Field num: %d not found.';
|
||
EUIB_FIELDSTRNOTFOUND = 'Field "%s" not found.';
|
||
EUIB_PARAMSTRNOTFOUND = 'Parameter "%s" not found.';
|
||
EUIB_BLOBFIELDNOTFOUND = 'Blob field num: %d not found.';
|
||
EUIB_FETCHBLOBNOTSET = 'FetchBlob property must be set to use this method.';
|
||
EUIB_INDEXERROR = 'Index out of bound (%d)';
|
||
EUIB_SIZENAME = 'Size name too big (%s)';
|
||
EUIB_MUSTBEPREPARED = 'The query must be prepared first.';
|
||
EUIB_MUSTBEOPEN = 'The query must be opened first.';
|
||
EUIB_EXPLICITTRANS = 'Transaction must be started explicitly.';
|
||
EUIB_EXCEPTIONNOTFOUND = 'Exception name %s, not found.';
|
||
EUIB_EXPTIONREGISTERED = 'Exception: %d already registered';
|
||
EUIB_NOAUTOSTOP = 'Transaction must be closed explicitly.';
|
||
EUIB_NOGENERATOR = 'Generator %s not found.';
|
||
EUIB_NOFIELD = 'Field not found.';
|
||
EUIB_TABLESTRNOTFOUND = 'Table "%s" not found.';
|
||
EUIB_DOMAINSTRNOTFOUND = 'Domain %s not found.';
|
||
EUIB_PROCSTRNOTFOUND = 'Procedure %s not found.';
|
||
EUIB_CACHEDFETCHNOTSET = 'CachedFetch property not set to True.';
|
||
EUIB_PARSESQLDIALECT = 'Parse error: SET SQL DIALECT';
|
||
EUIB_PARSESETNAMES = 'Parse error: SET NAMES';
|
||
EUIB_BADAUTODLL = '"SET AUTODDL" must be "ON" or "OFF"';
|
||
EUIB_CHARSETNOTFOUND = 'CharacterSet %s not found.';
|
||
EUIB_UNEXPECTEDCASTERROR = 'Unexpected cast error.';
|
||
|
||
// ORB Errors
|
||
EJvUIB_CantConnect = 'Can''t connect to server.';
|
||
EJvUIB_ClassNotFound = 'Class not found.';
|
||
EJvUIB_DataType = 'Data type error.';
|
||
{$ENDIF UIBLANG_EN}
|
||
|
||
{$IFDEF UIBLANG_FR}
|
||
sUIBTrue = 'Vrai';
|
||
sUIBFalse = 'Faux';
|
||
|
||
// UIB Errors
|
||
EUIB_INVALIDEIBVERSION = 'Version de base de donn<6E>es incorrecte, v<>rifiez les options de compilation.';
|
||
EUIB_CANTLOADLIB = 'Impossible de charger la DLL: %s.';
|
||
EUIB_DBHANDLEALLREADYSET = 'Le handle de la base de donn<6E>es est d<>j<EFBFBD> d<>fini, d<>connectez d''abord la base de donn<6E>es.';
|
||
EUIB_TRANSACTIONNOTDEF = 'La transaction n''est pas d<>finie';
|
||
EUIB_DATABASENOTDEF = 'La base de donn<6E>es n''est pas d<>finie.';
|
||
EUIB_QUERYNOTOPEN = 'La requ<71>te n''est pas encore ouverte.';
|
||
EUIB_CASTERROR = 'Transtypage incorrect.';
|
||
EUIB_UNEXPECTEDERROR = 'Erreur innatendue.';
|
||
EUIB_FIELDNUMNOTFOUND = 'Le champ num<75>ro: %d ''esxiste pas.';
|
||
EUIB_FIELDSTRNOTFOUND = 'Le champ "%s" n''existe pas.';
|
||
EUIB_PARAMSTRNOTFOUND = 'Le Parametre "%s" n''existe pas.';
|
||
EUIB_BLOBFIELDNOTFOUND = 'Le champ Blob num<75>ro: %d n''existe pas.';
|
||
EUIB_FETCHBLOBNOTSET = 'La propri<72>t<EFBFBD> FetchBlob doit <20>tre activ<69>e pour utiliser cette m<>thode.';
|
||
EUIB_INDEXERROR = 'Indice de liste hors limites (%d)';
|
||
EUIB_SIZENAME = 'La taille du nom est trop grande (%s)';
|
||
EUIB_MUSTBEPREPARED = 'La requ<71>te doit d''abord <20>tre pr<70>par<61>e.';
|
||
EUIB_MUSTBEOPEN = 'La requ<71>te doit d''abord <20>tre ouverte.';
|
||
EUIB_EXPLICITTRANS = 'La transaction doit <20>tre d<>marr<72>e explicitement.';
|
||
EUIB_EXCEPTIONNOTFOUND = 'L''exception %s, n''existe pas.';
|
||
EUIB_EXPTIONREGISTERED = 'L''exception %d a d<>j<EFBFBD> <20>t<EFBFBD> enregistr<74>e.';
|
||
EUIB_NOAUTOSTOP = 'La transaction doit <20>tre ferm<72>e explicitement.';
|
||
EUIB_NOGENERATOR = 'Generator %s not found.';
|
||
EUIB_NOFIELD = 'Field not found.';
|
||
EUIB_TABLESTRNOTFOUND = 'Table "%s" not found.';
|
||
EUIB_DOMAINSTRNOTFOUND = 'Domain %s not found.';
|
||
EUIB_PROCSTRNOTFOUND = 'Procedure %s not found.';
|
||
EUIB_CACHEDFETCHNOTSET = 'CachedFetch property not set to True.';
|
||
EUIB_PARSESQLDIALECT = 'Parse error: SET SQL DIALECT';
|
||
EUIB_PARSESETNAMES = 'Parse error: SET NAMES';
|
||
EUIB_BADAUTODLL = '"SET AUTODDL" must be "ON" or "OFF"';
|
||
EUIB_CHARSETNOTFOUND = 'CharacterSet %s not found.';
|
||
EUIB_UNEXPECTEDCASTERROR = 'Unexpected cast error.';
|
||
|
||
// ORB Errors
|
||
EJvUIB_CantConnect = 'Impossible de se connecter au serveur.';
|
||
EJvUIB_ClassNotFound = 'La Classe n''a pas <20>t<EFBFBD> trouv<75>e.';
|
||
EJvUIB_DataType = 'Erreur de type de donn<6E>e.';
|
||
{$ENDIF UIBLANG_FR}
|
||
|
||
{$IFDEF UIBLANG_CZ}
|
||
sUIBTrue = 'Ano';
|
||
sUIBFalse = 'Ne';
|
||
|
||
// UIB Errors
|
||
EUIB_INVALIDEIBVERSION = 'Nekorektn<74> verze datab<61>zov<6F>ho serveru, zkontrolujte nastaven<65> kompileru.';
|
||
EUIB_CANTLOADLIB = 'Nelze na<6E><61>st knihovnu: %s.';
|
||
EUIB_DBHANDLEALLREADYSET = 'Kan<61>l datab<61>ze je ji<6A> p<>ipraven, nejd<6A><64>ve odpojte datab<61>zi.';
|
||
EUIB_TRANSACTIONNOTDEF = 'Transakce nen<65> p<>i<EFBFBD>azena.';
|
||
EUIB_DATABASENOTDEF = 'Datab<61>ze nen<65> p<>i<EFBFBD>azena.';
|
||
EUIB_QUERYNOTOPEN = 'Dotaz nen<65> otev<65>en.';
|
||
EUIB_CASTERROR = 'Chyba bsazen<65>.';
|
||
EUIB_UNEXPECTEDERROR = 'Nezn<7A>m<EFBFBD> chyba.';
|
||
EUIB_FIELDNUMNOTFOUND = 'Polo<6C>ka <20><>slo: %d neexistuje.';
|
||
EUIB_FIELDSTRNOTFOUND = 'Polo<6C>ka "%s" neexistuje.';
|
||
EUIB_PARAMSTRNOTFOUND = 'Parametr "%s" neexistuje.';
|
||
EUIB_BLOBFIELDNOTFOUND = 'Blob z<>znam <20><>slo: %d neexistuje.';
|
||
EUIB_FETCHBLOBNOTSET = 'Vlastnost FetchBlob mus<75> b<>t nastavena pro pou<6F>it<69> t<>to metody.';
|
||
EUIB_INDEXERROR = 'Index je mimo rozsah (%d)';
|
||
EUIB_SIZENAME = 'Velikost n<>zvu je p<><70>li<6C> velk<6C> (%s)';
|
||
EUIB_MUSTBEPREPARED = 'Dotaz mus<75> b<>t nejd<6A><64>ve p<>ipraven (prepared).';
|
||
EUIB_MUSTBEOPEN = 'The query must be opened first.';
|
||
EUIB_EXPLICITTRANS = 'Transaction must be started explicitly.';
|
||
EUIB_EXCEPTIONNOTFOUND = 'Exception name %s, not found.';
|
||
EUIB_EXPTIONREGISTERED = 'Exception: %d already registered';
|
||
EUIB_NOAUTOSTOP = 'Transaction must be closed explicitly.';
|
||
EUIB_NOGENERATOR = 'Generator %s not found.';
|
||
EUIB_NOFIELD = 'Field not found.';
|
||
EUIB_TABLESTRNOTFOUND = 'Table "%s" not found.';
|
||
EUIB_DOMAINSTRNOTFOUND = 'Domain %s not found.';
|
||
EUIB_PROCSTRNOTFOUND = 'Procedure %s not found.';
|
||
EUIB_CACHEDFETCHNOTSET = 'CachedFetch property not set to True.';
|
||
EUIB_PARSESQLDIALECT = 'Parse error: SET SQL DIALECT';
|
||
EUIB_PARSESETNAMES = 'Parse error: SET NAMES';
|
||
EUIB_BADAUTODLL = '"SET AUTODDL" must be "ON" or "OFF"';
|
||
EUIB_CHARSETNOTFOUND = 'CharacterSet %s not found.';
|
||
EUIB_UNEXPECTEDCASTERROR = 'Unexpected cast error.';
|
||
|
||
// ORB Errors
|
||
EJvUIB_CantConnect = 'Nelze p<>ipojit server.';
|
||
EJvUIB_ClassNotFound = 'T<><54>da neexistuje.';
|
||
EJvUIB_DataType = 'Chybn<62> typ dat.';
|
||
{$ENDIF UIBLANG_CZ}
|
||
|
||
{$IFDEF UIBLANG_DE}
|
||
sUIBTrue = 'Wahr';
|
||
sUIBFalse = 'Falsch';
|
||
|
||
// UIB Errors
|
||
EUIB_INVALIDEIBVERSION = 'Falsche Version des Datenbankservers. Bitte ueberpr<70>fen sie die Compileroptionen.';
|
||
EUIB_CANTLOADLIB = 'Kann Bibliothek %s nicht laden.';
|
||
EUIB_DBHANDLEALLREADYSET = 'Datenbank-Handle bereits zugewiesen. Bitte erst Verbindung zur Datenbank trennen.';
|
||
EUIB_TRANSACTIONNOTDEF = 'Transaktion nicht zugewiesen.';
|
||
EUIB_DATABASENOTDEF = 'Datenbank nicht zugewiesen.';
|
||
EUIB_QUERYNOTOPEN = 'Abfrage nicht ge<67>ffnet.';
|
||
EUIB_CASTERROR = 'Fehler bei Typumwandlung.';
|
||
EUIB_UNEXPECTEDERROR = 'Unerwarteter Fehler.';
|
||
EUIB_FIELDNUMNOTFOUND = 'Feld Nummer %d nicht gefunden.';
|
||
EUIB_FIELDSTRNOTFOUND = 'Feld "%s" nicht gefunden.';
|
||
EUIB_PARAMSTRNOTFOUND = 'Parameter "%s" nicht gefunden.';
|
||
EUIB_BLOBFIELDNOTFOUND = 'Blob-Feld Nummer: %d nicht gefunden.';
|
||
EUIB_FETCHBLOBNOTSET = 'Die Eigenschaft FetchBlob muss gesetzt sein um diese Methode zu nutzen.';
|
||
EUIB_INDEXERROR = 'Index ausserhalb des g<>ltigen Bereichs (%d).';
|
||
EUIB_SIZENAME = 'Name ist zu lang (%s).';
|
||
EUIB_MUSTBEPREPARED = 'Die Abfrage muss erst vorbereitet werden.';
|
||
EUIB_MUSTBEOPEN = 'Die Abfrage muss erst ge<67>ffnet werden.';
|
||
EUIB_EXPLICITTRANS = 'Die Transaktion muss explizit gestartet werden.';
|
||
EUIB_EXCEPTIONNOTFOUND = 'Ausnahme "%s" nicht gefunden.';
|
||
EUIB_EXPTIONREGISTERED = 'Ausnahme %d bereits registriert.';
|
||
EUIB_NOAUTOSTOP = 'Die Transaktion muss explizit beendet werden.';
|
||
EUIB_NOGENERATOR = 'Generator %s nicht gefunden.';
|
||
EUIB_NOFIELD = 'Feld nicht gefunden.';
|
||
EUIB_TABLESTRNOTFOUND = 'Tabelle "%s" nicht gefunden.';
|
||
EUIB_DOMAINSTRNOTFOUND = 'Dom<6F>ne %s nicht gefunden.';
|
||
EUIB_PROCSTRNOTFOUND = 'Prozedur %s nicht gefunden.';
|
||
EUIB_CACHEDFETCHNOTSET = 'CachedFetch property not set to True.';
|
||
EUIB_PARSESQLDIALECT = 'Parse error: SET SQL DIALECT';
|
||
EUIB_PARSESETNAMES = 'Parse error: SET NAMES';
|
||
EUIB_BADAUTODLL = '"SET AUTODDL" must be "ON" or "OFF"';
|
||
EUIB_CHARSETNOTFOUND = 'CharacterSet %s not found.';
|
||
EUIB_UNEXPECTEDCASTERROR = 'Unexpected cast error.';
|
||
|
||
// ORB Errors
|
||
EJvUIB_CantConnect = 'Verbindung zum Server kann nicht aufgebaut werden.';
|
||
EJvUIB_ClassNotFound = 'Klasse nicht gefunden.';
|
||
EJvUIB_DataType = 'Datentypfehler.';
|
||
{$ENDIF UIBLANG_DE}
|
||
|
||
{$IFDEF UIBLANG_RU}
|
||
sUIBTrue = '<27><>';
|
||
sUIBFalse = '<27><><EFBFBD>';
|
||
|
||
// UIB Errors
|
||
EUIB_INVALIDEIBVERSION = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_CANTLOADLIB = '<27><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> DLL: %s.';
|
||
EUIB_DBHANDLEALLREADYSET = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_TRANSACTIONNOTDEF = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Transaction <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_DATABASENOTDEF = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Database <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_QUERYNOTOPEN = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_CASTERROR = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>.';
|
||
EUIB_UNEXPECTEDERROR = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_FIELDNUMNOTFOUND = '<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>: %d <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_FIELDSTRNOTFOUND = '<27><><EFBFBD><EFBFBD> "%s" <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_PARAMSTRNOTFOUND = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "%s" <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_BLOBFIELDNOTFOUND = 'Blob <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>: %d <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_FETCHBLOBNOTSET = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> FetchBlob <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_INDEXERROR = 'Index <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (%d)';
|
||
EUIB_SIZENAME = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (%s)';
|
||
EUIB_MUSTBEPREPARED = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (prepare) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_MUSTBEOPEN = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_EXPLICITTRANS = '<27><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_EXCEPTIONNOTFOUND = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> %s <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EUIB_EXPTIONREGISTERED = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: %d <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
EUIB_NOAUTOSTOP = 'Transaction must be closed explicitly.';
|
||
EUIB_NOGENERATOR = 'Generator %s not found.';
|
||
EUIB_NOFIELD = 'Field not found.';
|
||
EUIB_TABLESTRNOTFOUND = 'Table "%s" not found.';
|
||
EUIB_DOMAINSTRNOTFOUND = 'Domain %s not found.';
|
||
EUIB_PROCSTRNOTFOUND = 'Procedure %s not found.';
|
||
EUIB_CACHEDFETCHNOTSET = 'CachedFetch property not set to True.';
|
||
EUIB_PARSESQLDIALECT = 'Parse error: SET SQL DIALECT';
|
||
EUIB_PARSESETNAMES = 'Parse error: SET NAMES';
|
||
EUIB_BADAUTODLL = '"SET AUTODDL" must be "ON" or "OFF"';
|
||
EUIB_CHARSETNOTFOUND = 'CharacterSet %s not found.';
|
||
EUIB_UNEXPECTEDCASTERROR = 'Unexpected cast error.';
|
||
|
||
// ORB Errors
|
||
EJvUIB_CantConnect = '<27><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EJvUIB_ClassNotFound = '<27><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
EJvUIB_DataType = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.';
|
||
{$ENDIF UIBLANG_RU}
|
||
|
||
{$IFDEF UIBLANG_ES}
|
||
sUIBTrue = 'Si';
|
||
sUIBFalse = 'No';
|
||
|
||
// UIB Errors
|
||
EUIB_INVALIDEIBVERSION = 'Versi<73>n incorrecta del Servidor de Base de Datos, verifica las opciones del compilador.';
|
||
EUIB_CANTLOADLIB = 'Imposible cargar la DLL: %s.';
|
||
EUIB_DBHANDLEALLREADYSET = 'El handle de la base de datos est<73> asignado, primero desconecte la base de datos.';
|
||
EUIB_TRANSACTIONNOTDEF = 'La transacci<63>n no est<73> asignada.';
|
||
EUIB_DATABASENOTDEF = 'La Base de Datos no est<73> asignada.';
|
||
EUIB_QUERYNOTOPEN = 'El query est<73> cerrado.';
|
||
EUIB_CASTERROR = 'Error en conversi<73>n.';
|
||
EUIB_UNEXPECTEDERROR = 'Error inesperado.';
|
||
EUIB_FIELDNUMNOTFOUND = 'Campo n<>mero: %d no encontrado.';
|
||
EUIB_FIELDSTRNOTFOUND = 'Campo "%s" no encontrado.';
|
||
EUIB_PARAMSTRNOTFOUND = 'Parametro "%s" no encontrado.';
|
||
EUIB_BLOBFIELDNOTFOUND = 'Campo Blob n<>mero: %d no encontrado.';
|
||
EUIB_FETCHBLOBNOTSET = 'La propiedad FetchBlob debe habilitarse para usar est<73> m<>todo';
|
||
EUIB_INDEXERROR = '<27>ndice fuera de l<>mite (%d)';
|
||
EUIB_SIZENAME = 'Nombre demasiado largo (%s)';
|
||
EUIB_MUSTBEPREPARED = 'El query debe prepararse primero.';
|
||
EUIB_MUSTBEOPEN = 'El query debe ser abierto primero.';
|
||
EUIB_EXPLICITTRANS = 'La transaccisn debe ser iniciada explmcitamente.';
|
||
EUIB_EXCEPTIONNOTFOUND = 'Excepcion con nombre %s, no fue encontrada.';
|
||
EUIB_EXPTIONREGISTERED = 'Excepcion: %d ya esta registrada.';
|
||
EUIB_NOAUTOSTOP = 'La transaccisn debe ser cerrada explmcitamente.';
|
||
EUIB_NOGENERATOR = 'Generator %s not found.';
|
||
EUIB_NOFIELD = 'Field not found.';
|
||
EUIB_TABLESTRNOTFOUND = 'Table "%s" not found.';
|
||
EUIB_DOMAINSTRNOTFOUND = 'Domain %s not found.';
|
||
EUIB_PROCSTRNOTFOUND = 'Procedure %s not found.';
|
||
EUIB_CACHEDFETCHNOTSET = 'CachedFetch property not set to True.';
|
||
EUIB_PARSESQLDIALECT = 'Parse error: SET SQL DIALECT';
|
||
EUIB_PARSESETNAMES = 'Parse error: SET NAMES';
|
||
EUIB_BADAUTODLL = '"SET AUTODDL" must be "ON" or "OFF"';
|
||
EUIB_CHARSETNOTFOUND = 'CharacterSet %s not found.';
|
||
EUIB_UNEXPECTEDCASTERROR = 'Unexpected cast error.';
|
||
|
||
// ORB Errors
|
||
EJvUIB_CantConnect = 'Imposible conectar con el servidor.';
|
||
EJvUIB_ClassNotFound = 'Clase no encontrada.';
|
||
EJvUIB_DataType = 'Error de tipo de dato.';
|
||
{$ENDIF UIBLANG_ES}
|
||
|
||
{$IFDEF USEJVCL}
|
||
{$IFDEF UNITVERSIONING}
|
||
const
|
||
UnitVersioning: TUnitVersionInfo = (
|
||
RCSfile: '$URL: https://jvcl.svn.sourceforge.net/svnroot/jvcl/tags/JVCL3_32/run/JvUIBConst.pas $';
|
||
Revision: '$Revision: 10612 $';
|
||
Date: '$Date: 2006-05-19 21:04:09 +0200 (ven., 19 mai 2006) $';
|
||
LogPath: 'JVCL\run'
|
||
);
|
||
{$ENDIF UNITVERSIONING}
|
||
{$ENDIF USEJVCL}
|
||
|
||
implementation
|
||
|
||
{$IFDEF USEJVCL}
|
||
{$IFDEF UNITVERSIONING}
|
||
initialization
|
||
RegisterUnitVersion(HInstance, UnitVersioning);
|
||
|
||
finalization
|
||
UnregisterUnitVersion(HInstance);
|
||
{$ENDIF UNITVERSIONING}
|
||
{$ENDIF USEJVCL}
|
||
|
||
end.
|