00001 {*********************************************************}
00002 { }
00003 { Zeos Database Objects }
00004 { Database Components Registration }
00005 { }
00006 { Originally written by Sergey Seroukhov }
00007 { }
00008 {*********************************************************}
00009
00010 {@********************************************************}
00011 { Copyright (c) 1999-2006 Zeos Development Group }
00012 { }
00013 { License Agreement: }
00014 { }
00015 { This library is distributed in the hope that it will be }
00016 { useful, but WITHOUT ANY WARRANTY; without even the }
00017 { implied warranty of MERCHANTABILITY or FITNESS FOR }
00018 { A PARTICULAR PURPOSE. See the GNU Lesser General }
00019 { Public License for more details. }
00020 { }
00021 { The source code of the ZEOS Libraries and packages are }
00022 { distributed under the Library GNU General Public }
00023 { License (see the file COPYING / COPYING.ZEOS) }
00024 { with the following modification: }
00025 { As a special exception, the copyright holders of this }
00026 { library give you permission to link this library with }
00027 { independent modules to produce an executable, }
00028 { regardless of the license terms of these independent }
00029 { modules, and to copy and distribute the resulting }
00030 { executable under terms of your choice, provided that }
00031 { you also meet, for each linked independent module, }
00032 { the terms and conditions of the license of that module. }
00033 { An independent module is a module which is not derived }
00034 { from or based on this library. If you modify this }
00035 { library, you may extend this exception to your version }
00036 { of the library, but you are not obligated to do so. }
00037 { If you do not wish to do so, delete this exception }
00038 { statement from your version. }
00039 { }
00040 { }
00041 { The project web site is located on: }
00042 { http:
00043 { http:
00044 { svn:
00045 { }
00046 { http:
00047 { http:
00048 { }
00049 { }
00050 { }
00051 { Zeos Development Group. }
00052 {********************************************************@}
00053
00054 unit ZComponentReg;
00055
00056 interface
00057
00058 {$I ZComponent.inc}
00059
00060 { Zeos palette names }
00061 const
00062 ZEOS_DB_PALETTE = 'Zeos Access';
00063
00064 procedure Register;
00065
00066 implementation
00067
00068 uses
00069 {$IFDEF WITH_PROPERTY_EDITOR}
00070 ZPropertyEditor,
00071 {$IFDEF FPC}
00072 PropEdits,
00073 ZUpdateSqlEditor,
00074 ComponentEditors,
00075 LResources,
00076 {$ELSE}
00077 {$IFNDEF VER130BELOW}
00078 {$IFNDEF UNIX}
00079 {$IFNDEF FPC}
00080 ZUpdateSqlEditor,
00081 {$ENDIF}
00082 {$ENDIF}
00083 DesignIntf,
00084 {$ELSE}
00085 DsgnIntf,
00086 {$ENDIF}
00087 {$ENDIF}
00088 {$ENDIF}
00089 Classes, ZConnection, ZDataset, ZSqlUpdate, ZSqlProcessor, ZStoredProcedure,
00090 ZSqlMonitor, ZSqlMetadata, ZSequence{$IFDEF ENABLE_INTERBASE}, ZIBEventAlerter {$ENDIF};
00091
00092 {**
00093 Registers components in a component palette.
00094 }
00095 procedure Register;
00096 begin
00097 RegisterComponents(ZEOS_DB_PALETTE, [
00098 TZConnection, TZReadOnlyQuery, TZQuery, TZTable, TZUpdateSQL,
00099 TZStoredProc, TZSQLMetadata, TZSQLProcessor, TZSQLMonitor, TZSequence {$IFDEF ENABLE_INTERBASE}, TZIBEventAlerter {$ENDIF}]);
00100
00101 {$IFDEF WITH_PROPERTY_EDITOR}
00102 RegisterPropertyEditor(TypeInfo(string), TZConnection, 'Protocol',
00103 TZProtocolPropertyEditor);
00104 RegisterPropertyEditor(TypeInfo(string), TZConnection, 'Database',
00105 TZDatabasePropertyEditor);
00106 RegisterPropertyEditor(TypeInfo(string), TZConnection, 'Catalog',
00107 TZCatalogPropertyEditor);
00108
00109 RegisterPropertyEditor(TypeInfo(string), TZQuery, 'LinkedFields',
00110 TZDataFieldPropertyEditor); {renamed by bangfauzan}
00111 RegisterPropertyEditor(TypeInfo(string), TZQuery, 'MasterFields',
00112 TZMasterFieldPropertyEditor);
00113 RegisterPropertyEditor(TypeInfo(string), TZQuery, 'SortedFields',
00114 TZDataFieldPropertyEditor);
00115 RegisterPropertyEditor(TypeInfo(string), TZQuery, 'SequenceField',
00116 TZDataFieldPropertyEditor);
00117
00118 RegisterPropertyEditor(TypeInfo(string), TZReadOnlyQuery, 'LinkedFields',
00119 TZDataFieldPropertyEditor); {renamed by bangfauzan}
00120 RegisterPropertyEditor(TypeInfo(string), TZReadOnlyQuery, 'MasterFields',
00121 TZMasterFieldPropertyEditor);
00122 RegisterPropertyEditor(TypeInfo(string), TZReadOnlyQuery, 'SortedFields',
00123 TZDataFieldPropertyEditor);
00124
00125 RegisterPropertyEditor(TypeInfo(string), TZTable, 'TableName',
00126 TZTableNamePropertyEditor);
00127 RegisterPropertyEditor(TypeInfo(string), TZTable, 'LinkedFields',
00128 TZDataFieldPropertyEditor); {renamed by bangfauzan}
00129 RegisterPropertyEditor(TypeInfo(string), TZTable, 'MasterFields',
00130 TZMasterFieldPropertyEditor);
00131 RegisterPropertyEditor(TypeInfo(string), TZTable, 'SortedFields',
00132 TZDataFieldPropertyEditor);
00133 RegisterPropertyEditor(TypeInfo(string), TZTable, 'SequenceField',
00134 TZDataFieldPropertyEditor);
00135
00136 RegisterPropertyEditor(TypeInfo(string), TZStoredProc, 'StoredProcName',
00137 TZProcedureNamePropertyEditor);
00138 RegisterPropertyEditor(TypeInfo(string), TZStoredProc, 'SortedFields',
00139 TZDataFieldPropertyEditor);
00140
00141 RegisterPropertyEditor(TypeInfo(string), TZSequence, 'SequenceName',
00142 TZSequenceNamePropertyEditor);
00143
00144 {$IFDEF USE_METADATA}
00145 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'Catalog',
00146 TZCatalogProperty);
00147 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'ColumnName',
00148 TZColumnNamePropertyEditor);
00149 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'ForeignCatalog',
00150 TZCatalogProperty);
00151 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'ForeignSchema',
00152 TZSchemaPropertyEditor);
00153 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'ForeignTableName',
00154 TZTableNamePropertyEditor);
00155 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'LinkedFields',
00156 TZDataFieldPropertyEditor); {renamed by bangfauzan}
00157 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'MasterFields',
00158 TZMasterFieldPropertyEditor);
00159 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'ProcedureName',
00160 TZProcedureNamePropertyEditor);
00161 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'Schema',
00162 TZSchemaPropertyEditor);
00163 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'SequenceName',
00164 TZSequenceNamePropertyEditor);
00165 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'SortedFields',
00166 TZDataFieldPropertyEditor);
00167 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'TableName',
00168 TZTableNamePropertyEditor);
00169 RegisterPropertyEditor(TypeInfo(string), TZSQLMetadata, 'TypeName',
00170 TZTypeNamePropertyEditor);
00171 {$ENDIF}
00172 {$IFDEF FPC}
00173 RegisterComponentEditor(TZUpdateSQL, TZUpdateSQLEditor);
00174 {$ELSE}
00175 {$IFNDEF VER130BELOW}
00176 {$IFNDEF UNIX}
00177 RegisterComponentEditor(TZUpdateSQL, TZUpdateSQLEditor);
00178 {$ENDIF}
00179 {$ENDIF}
00180 {$ENDIF}
00181 {$ENDIF}
00182 end;
00183
00184 {$IFDEF FPC}
00185 initialization
00186 {$I ZComponentReg.lrs}
00187 {$ENDIF}
00188
00189 end.
00190