ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/journaling/design/IBDBReg.pas
Revision: 17
Committed: Sat Dec 28 19:22:24 2013 UTC (10 years, 3 months ago) by tony
Content type: text/x-pascal
Original Path: ibx/trunk/design/IBDBReg.pas
File size: 28129 byte(s)
Log Message:
Committing updates for Release R1-0-5

File Contents

# Content
1 {************************************************************************}
2 { }
3 { Borland Delphi Visual Component Library }
4 { InterBase Express core components }
5 { }
6 { Copyright (c) 1998-2000 Inprise Corporation }
7 { }
8 { InterBase Express is based in part on the product }
9 { Free IB Components, written by Gregory H. Deatz for }
10 { Hoagland, Longo, Moran, Dunst & Doukas Company. }
11 { Free IB Components is used under license. }
12 { }
13 { The contents of this file are subject to the InterBase }
14 { Public License Version 1.0 (the "License"); you may not }
15 { use this file except in compliance with the License. You }
16 { may obtain a copy of the License at http://www.Inprise.com/IPL.html }
17 { Software distributed under the License is distributed on }
18 { an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either }
19 { express or implied. See the License for the specific language }
20 { governing rights and limitations under the License. }
21 { The Original Code was created by InterBase Software Corporation }
22 { and its successors. }
23 { Portions created by Inprise Corporation are Copyright (C) Inprise }
24 { Corporation. All Rights Reserved. }
25 { Contributor(s): Jeff Overcash }
26 { }
27 { IBX For Lazarus (Firebird Express) }
28 { Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk }
29 { Portions created by MWA Software are copyright McCallum Whyman }
30 { Associates Ltd 2011 }
31 {************************************************************************}
32
33 unit IBDBReg;
34
35 {$MODE Delphi}
36
37 (*
38 * Compiler defines
39 *)
40 {$A+} (* Aligned records: On *)
41 {$B-} (* Short circuit boolean expressions: Off *)
42 {$G+} (* Imported data: On *)
43 {$H+} (* Huge Strings: On *)
44 {$J-} (* Modification of Typed Constants: Off *)
45 {$M+} (* Generate run-time type information: On *)
46 {$O+} (* Optimization: On *)
47 {$Q-} (* Overflow checks: Off *)
48 {$R-} (* Range checks: Off *)
49 {$T+} (* Typed address: On *)
50 {$U+} (* Pentim-safe FDIVs: On *)
51 {$W-} (* Always generate stack frames: Off *)
52 {$X+} (* Extended syntax: On *)
53 {$Z1} (* Minimum Enumeration Size: 1 Byte *)
54
55 interface
56
57 uses {Windows,} SysUtils, Classes, Graphics, Dialogs, Controls, Forms, TypInfo,
58 DB, IBTable, IBDatabase, IBEventsEditor, LazarusPackageIntf,
59 IBUpdateSQL, IBXConst, ComponentEditors, PropEdits, DBPropEdits, FieldsEditor;
60
61 type
62
63 { TIBFileNameProperty
64 Property editor the DataBase Name property. Brings up the Open dialog }
65
66 TIBFileNameProperty = class(TStringProperty)
67 public
68 procedure Edit; override;
69 function GetAttributes: TPropertyAttributes; override;
70 end;
71
72 { TIBNameProperty
73 }
74 TIBNameProperty = class(TStringProperty)
75 public
76 function GetAttributes: TPropertyAttributes; override;
77 end;
78
79 { TIBStoredProcNameProperty
80 Editor for the TIBStoredProc.StoredProcName property. Displays a drop-down list of all
81 the StoredProcedures in the Database.}
82 TIBStoredProcNameProperty = class(TIBNameProperty)
83 public
84 procedure GetValues(Proc: TGetStrProc); override;
85 end;
86
87 { TIBTableNameProperty
88 Editor for the TIBTable.TableName property. Displays a drop-down list of all
89 the Tables in the Database.}
90 TIBTableNameProperty = class(TIBNameProperty)
91 public
92 procedure GetValues(Proc: TGetStrProc); override;
93 end;
94
95 TDBStringProperty = class(TStringProperty)
96 public
97 function GetAttributes: TPropertyAttributes; override;
98 procedure GetValueList(List: TStrings); virtual;
99 procedure GetValues(Proc: TGetStrProc); override;
100 end;
101
102 TIBIndexFieldNamesProperty = class(TDBStringProperty)
103 public
104 procedure GetValueList(List: TStrings); override;
105 end;
106
107 TIBIndexNameProperty = class(TDBStringProperty)
108 public
109 procedure GetValueList(List: TStrings); override;
110 end;
111
112 { TIBDatabaseEditor }
113
114 TIBDatabaseEditor = class(TComponentEditor)
115 procedure ExecuteVerb(Index: Integer); override;
116 function GetVerb(Index: Integer): string; override;
117 function GetVerbCount: Integer; override;
118 end;
119
120 { TIBTransactionEditor }
121
122 TIBTransactionEditor = class(TComponentEditor)
123 public
124 procedure ExecuteVerb(Index: Integer); override;
125 function GetVerb(Index: Integer): string; override;
126 function GetVerbCount: Integer; override;
127 end;
128
129 { TIBQueryEditor }
130
131 TIBQueryEditor = class(TFieldsComponentEditor)
132 public
133 procedure ExecuteVerb(Index: Integer); override;
134 function GetVerb(Index: Integer): string; override;
135 function GetVerbCount: Integer; override;
136 end;
137
138 { TIBStoredProcEditor }
139
140 TIBStoredProcEditor = class(TFieldsComponentEditor)
141 public
142 procedure ExecuteVerb(Index: Integer); override;
143 function GetVerb(Index: Integer): string; override;
144 function GetVerbCount: Integer; override;
145 end;
146
147 { TIBDataSetEditor }
148
149 TIBDataSetEditor = class(TFieldsComponentEditor)
150 public
151 procedure ExecuteVerb(Index: Integer); override;
152 function GetVerb(Index: Integer): string; override;
153 function GetVerbCount: Integer; override;
154 end;
155
156 { TIBUpdateSQLEditor }
157
158 TIBUpdateSQLEditor = class(TComponentEditor)
159 public
160 procedure ExecuteVerb(Index: Integer); override;
161 function GetVerb(Index: Integer): string; override;
162 function GetVerbCount: Integer; override;
163 end;
164
165 { TIBSQLEditor }
166
167 TIBSQLEditor = class(TComponentEditor)
168 public
169 procedure ExecuteVerb(Index: Integer); override;
170 function GetVerb(Index: Integer): string; override;
171 function GetVerbCount: Integer; override;
172 end;
173
174 { TIBServiceEditor}
175
176 TIBServiceEditor = class(TComponentEditor)
177 public
178 procedure ExecuteVerb(Index: Integer); override;
179 function GetVerb(Index: Integer): string; override;
180 function GetVerbCount: Integer; override;
181 end;
182
183 TIBStoredProcParamsProperty = class(TCollectionPropertyEditor)
184 public
185 procedure Edit; override;
186 end;
187 (*
188 TIBTableFieldLinkProperty = class(TFieldLinkProperty)
189 private
190 FTable: TIBTable;
191 protected
192 function GetIndexFieldNames: string; override;
193 function GetMasterFields: string; override;
194 procedure SetIndexFieldNames(const Value: string); override;
195 procedure SetMasterFields(const Value: string); override;
196 public
197 procedure Edit; override;
198 end;
199 *)
200 { TSQLPropertyEditor }
201
202 TSQLPropertyEditor = class(TStringsPropertyEditor)
203 public
204 function GetAttributes: TPropertyAttributes; override;
205 end;
206
207 { TIBQuerySQLProperty }
208
209 TIBQuerySQLProperty = class(TSQLPropertyEditor)
210 public
211 procedure Edit; override;
212 end;
213
214 {TIBSQLSQLPropertyEditor }
215
216 TIBSQLSQLPropertyEditor = class(TSQLPropertyEditor)
217 public
218 procedure Edit; override;
219 end;
220
221 { TIBDatasetSQLProperty }
222
223 TIBDatasetSQLProperty = class(TSQLPropertyEditor)
224 public
225 procedure Edit; override;
226 end;
227
228 { TIBSQLProperty }
229
230 TIBSQLProperty = class(TSQLPropertyEditor)
231 public
232 procedure Edit; override;
233 end;
234
235 { TUpdateSQLPropertyEditor }
236
237 TUpdateSQLPropertyEditor = class(TSQLPropertyEditor)
238 protected
239 FIBUpdateSQL: TIBUpdateSQL;
240 FDatabase: TIBDatabase;
241 function GetObjects: boolean;
242 end;
243
244 { TIBUpdateSQLProperty }
245
246 TIBUpdateSQLProperty = class(TSQLPropertyEditor)
247 public
248 procedure Edit; override;
249 end;
250
251 { TIBRefreshSQLProperty }
252
253 TIBRefreshSQLProperty = class(TSQLPropertyEditor)
254 public
255 procedure Edit; override;
256 end;
257
258 { TIBInsertSQLProperty }
259
260 TIBInsertSQLProperty = class(TSQLPropertyEditor)
261 public
262 procedure Edit; override;
263 end;
264
265 { TIBDeleteSQLProperty }
266
267 TIBDeleteSQLProperty = class(TSQLPropertyEditor)
268 public
269 procedure Edit; override;
270 end;
271
272 { TIBUpdateSQLUpdateProperty }
273
274 TIBUpdateSQLUpdateProperty = class(TUpdateSQLPropertyEditor)
275 public
276 procedure Edit; override;
277 end;
278
279 { TIBUpdateSQLRefreshSQLProperty }
280
281 TIBUpdateSQLRefreshSQLProperty = class(TUpdateSQLPropertyEditor)
282 public
283 procedure Edit; override;
284 end;
285
286 { TIBUpdateSQLInsertSQLProperty }
287
288 TIBUpdateSQLInsertSQLProperty = class(TUpdateSQLPropertyEditor)
289 public
290 procedure Edit; override;
291 end;
292
293 { TIBUpdateSQLDeleteProperty }
294
295 TIBUpdateSQLDeleteProperty = class(TUpdateSQLPropertyEditor)
296 public
297 function GetAttributes: TPropertyAttributes; override;
298 procedure Edit; override;
299 end;
300
301 { TIBEventListProperty }
302
303 TIBEventListProperty = class(TClassProperty)
304 public
305 function GetAttributes: TPropertyAttributes; override;
306 procedure Edit; override;
307 end;
308
309 {TIBGeneratorProperty}
310
311 TIBGeneratorProperty = class(TPersistentPropertyEditor)
312 public
313 function GetAttributes: TPropertyAttributes; override;
314 procedure Edit; override;
315 end;
316
317 procedure Register;
318
319 implementation
320
321 uses IB, IBQuery, IBStoredProc, IBCustomDataSet,
322 IBIntf, IBSQL, IBSQLMonitor, IBDatabaseInfo, IBEvents,
323 IBServices, IBDatabaseEdit, IBTransactionEdit,
324 IBBatchMove, DBLoginDlg, IBExtract,LResources, IBSelectSQLEditor,
325 IBModifySQLEditor,IBDeleteSQLEditor,IBRefreshSQLEditor,
326 IBInsertSQLEditor, IBGeneratorEditor, IBUpdateSQLEditor, IBDataSetEditor,
327 IBSQLEditor, ibserviceeditor, LCLVersion;
328
329
330
331 procedure Register;
332 begin
333 if not TryIBLoad then
334 begin
335 MessageDlg('IBX is unable to locate the Firebird Library - have you remembered to install it?',mtError,[mbOK],0);
336 Exit;
337 end;
338
339 RegisterNoIcon([TIBStringField, TIBBCDField]);
340 {$if lcl_fullversion < 01010000}
341 {see http://bugs.freepascal.org/view.php?id=19035 }
342 RegisterNoIcon([TIntegerField]);
343 {$endif}
344 RegisterComponents(IBPalette1, [ TIBQuery, TIBDataSet,
345 TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBEvents,
346 TIBSQL, TIBDatabaseInfo, TIBSQLMonitor,
347 TIBStoredProc,TIBBatchMove, TIBTable,TIBExtract]);
348 if IBServiceAPIPresent then
349 RegisterComponents(IBPalette2, [TIBConfigService, TIBBackupService,
350 TIBRestoreService, TIBValidationService, TIBStatisticalService,
351 TIBLogService, TIBSecurityService, TIBServerProperties]);
352 RegisterPropertyEditor(TypeInfo(TIBFileName), TIBDatabase, 'DatabaseName', TIBFileNameProperty); {do not localize}
353 RegisterPropertyEditor(TypeInfo(string), TIBStoredProc, 'StoredProcName', TIBStoredProcNameProperty); {do not localize}
354 RegisterPropertyEditor(TypeInfo(TParams), TIBStoredProc, 'Params', TIBStoredProcParamsProperty);
355 RegisterPropertyEditor(TypeInfo(string), TIBTable, 'TableName', TIBTableNameProperty); {do not localize}
356 RegisterPropertyEditor(TypeInfo(string), TIBTable, 'IndexName', TIBIndexNameProperty); {do not localize}
357 RegisterPropertyEditor(TypeInfo(string), TIBTable, 'IndexFieldNames', TIBIndexFieldNamesProperty); {do not localize}
358 // RegisterPropertyEditor(TypeInfo(string), TIBTable, 'MasterFields', TIBTableFieldLinkProperty); {do not localize}
359 RegisterPropertyEditor(TypeInfo(TStrings), TIBQuery, 'SQL', TIBQuerySQLProperty); {do not localize}
360 RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'SelectSQL', TIBDatasetSQLProperty); {do not localize}
361 RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'ModifySQL', TIBUpdateSQLProperty); {do not localize}
362 RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'InsertSQL', TIBInsertSQLProperty); {do not localize}
363 RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'RefreshSQL', TIBRefreshSQLProperty); {do not localize}
364 RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'DeleteSQL', TIBDeleteSQLProperty); {do not localize}
365 RegisterPropertyEditor(TypeInfo(TStrings), TIBSQL, 'SQL', TIBSQLSQLPropertyEditor); {do not localize}
366 RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'RefreshSQL', TIBUpdateSQLRefreshSQLProperty); {do not localize}
367 RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'ModifySQL', TIBUpdateSQLUpdateProperty); {do not localize}
368 RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'InsertSQL', TIBUpdateSQLInsertSQLProperty); {do not localize}
369 RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'DeleteSQL', TIBUpdateSQLDeleteProperty); {do not localize}
370 RegisterPropertyEditor(TypeInfo(TStrings), TIBEvents, 'Events', TIBEventListProperty); {do not localize}
371 RegisterPropertyEditor(TypeInfo(TPersistent), TIBDataSet, 'GeneratorField', TIBGeneratorProperty); {do not localize}
372 RegisterPropertyEditor(TypeInfo(TPersistent), TIBQuery, 'GeneratorField', TIBGeneratorProperty); {do not localize}
373
374 RegisterComponentEditor(TIBDatabase, TIBDatabaseEditor);
375 RegisterComponentEditor(TIBTransaction, TIBTransactionEditor);
376 RegisterComponentEditor(TIBUpdateSQL, TIBUpdateSQLEditor);
377 RegisterComponentEditor(TIBDataSet, TIBDataSetEditor);
378 RegisterComponentEditor(TIBQuery, TIBQueryEditor);
379 RegisterComponentEditor(TIBStoredProc, TIBStoredProcEditor);
380 RegisterComponentEditor(TIBSQL, TIBSQLEditor);
381 RegisterComponentEditor(TIBCustomService, TIBServiceEditor);
382 end;
383
384 { TIBServiceEditor }
385
386 procedure TIBServiceEditor.ExecuteVerb(Index: Integer);
387 begin
388 if Index < inherited GetVerbCount then
389 inherited ExecuteVerb(Index) else
390 begin
391 Dec(Index, inherited GetVerbCount);
392 case Index of
393 0 : if ibserviceeditor.EditIBService(TIBCustomService(Component)) then Designer.Modified;
394 end;
395 end;
396 end;
397
398 function TIBServiceEditor.GetVerb(Index: Integer): string;
399 begin
400 if Index < inherited GetVerbCount then
401 Result := inherited GetVerb(Index) else
402 begin
403 Dec(Index, inherited GetVerbCount);
404 case Index of
405 0: Result := SIBServiceEditor;
406 1 : Result := SInterbaseExpressVersion;
407 end;
408 end;
409 end;
410
411 function TIBServiceEditor.GetVerbCount: Integer;
412 begin
413 Result := inherited GetVerbCount + 2;
414 end;
415
416 { TIBFileNameProperty }
417 procedure TIBFileNameProperty.Edit;
418 begin
419 with TOpenDialog.Create(Application) do
420 try
421 InitialDir := ExtractFilePath(GetStrValue);
422 Filter := SDatabaseFilter; {do not localize}
423 if Execute then
424 SetStrValue(FileName);
425 finally
426 Free
427 end;
428 end;
429
430 function TIBFileNameProperty.GetAttributes: TPropertyAttributes;
431 begin
432 Result := [paDialog];
433 end;
434
435 { TIBNameProperty }
436
437 function TIBNameProperty.GetAttributes: TPropertyAttributes;
438 begin
439 Result := [paValueList, paSortList];
440 end;
441
442 { TIBStoredProcNameProperty }
443
444 procedure TIBStoredProcNameProperty.GetValues(Proc: TGetStrProc);
445 var
446 StoredProc : TIBStoredProc;
447 i : integer;
448 begin
449 StoredProc := GetComponent(0) as TIBStoredProc;
450 if StoredProc.Database = nil then
451 Exit;
452
453 with StoredProc do
454 try
455 for I := 0 to StoredProcedureNames.Count - 1 do
456 Proc (StoredProcedureNames[i]);
457 except on E: Exception do
458 MessageDlg(E.Message,mtError,[mbOK],0)
459 end;
460 end;
461
462 { TIBTableNameProperty }
463
464 procedure TIBTableNameProperty.GetValues(Proc: TGetStrProc);
465 var
466 TableName : TIBTable;
467 i : integer;
468 begin
469 TableName := GetComponent(0) as TIBTable;
470 with TableName do
471 for I := 0 to TableNames.Count - 1 do
472 Proc (TableNames[i]);
473 end;
474
475 { TDBStringProperty }
476
477 function TDBStringProperty.GetAttributes: TPropertyAttributes;
478 begin
479 Result := [paValueList, paSortList, paMultiSelect];
480 end;
481
482 procedure TDBStringProperty.GetValueList(List: TStrings);
483 begin
484 end;
485
486 procedure TDBStringProperty.GetValues(Proc: TGetStrProc);
487 var
488 I: Integer;
489 Values: TStringList;
490 begin
491 Values := TStringList.Create;
492 try
493 GetValueList(Values);
494 for I := 0 to Values.Count - 1 do Proc(Values[I]);
495 finally
496 Values.Free;
497 end;
498 end;
499
500 { Utility Functions }
501
502 function GetPropertyValue(Instance: TPersistent; const PropName: string): TPersistent;
503 var
504 PropInfo: PPropInfo;
505 begin
506 Result := nil;
507 PropInfo := TypInfo.GetPropInfo(Instance.ClassInfo, PropName);
508 if (PropInfo <> nil) and (PropInfo^.PropType^.Kind = tkClass) then
509 Result := TObject(GetOrdProp(Instance, PropInfo)) as TPersistent;
510 end;
511
512 function GetIndexDefs(Component: TPersistent): TIndexDefs;
513 var
514 DataSet: TDataSet;
515 begin
516 DataSet := Component as TDataSet;
517 Result := GetPropertyValue(DataSet, 'IndexDefs') as TIndexDefs; {do not localize}
518 if Assigned(Result) then
519 begin
520 Result.Updated := False;
521 Result.Update;
522 end;
523 end;
524
525 { TIBIndexFieldNamesProperty }
526
527 procedure TIBIndexFieldNamesProperty.GetValueList(List: TStrings);
528 var
529 I: Integer;
530 IndexDefs: TIndexDefs;
531 begin
532 IndexDefs := GetIndexDefs(GetComponent(0));
533 for I := 0 to IndexDefs.Count - 1 do
534 with IndexDefs[I] do
535 if (Options * [ixExpression, ixDescending] = []) and (Fields <> '') then
536 List.Add(Fields);
537 end;
538
539
540 { TIBIndexNameProperty }
541
542 procedure TIBIndexNameProperty.GetValueList(List: TStrings);
543 begin
544 GetIndexDefs(GetComponent(0)).GetItemNames(List);
545 end;
546
547 { TSQLPropertyEditor }
548
549 function TSQLPropertyEditor.GetAttributes: TPropertyAttributes;
550 begin
551 Result := inherited GetAttributes + [paDialog] - [paMultiSelect,paSubProperties];
552 end;
553
554 { TIBQuerySQLProperty }
555
556 procedure TIBQuerySQLProperty.Edit;
557 var
558 Query: TIBQuery;
559 begin
560 Query := GetComponent(0) as TIBQuery;
561 if IBSelectSQLEditor.EditSQL(Query.Database,Query.SQL) then Modified;
562 end;
563
564 { TIBDatasetSQLProperty }
565
566 procedure TIBDatasetSQLProperty.Edit;
567 var
568 IBDataset: TIBDataset;
569 begin
570 IBDataset := GetComponent(0) as TIBDataset;
571 if IBSelectSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.SelectSQL) then Modified;
572 end;
573
574 { TIBSQLProperty }
575
576 procedure TIBSQLProperty.Edit;
577 var
578 IBSQL: TIBSQL;
579 begin
580 IBSQL := GetComponent(0) as TIBSQL;
581 if IBSelectSQLEditor.EditSQL(IBSQL.Database,IBSQL.SQL) then Modified;
582 end;
583
584 { TIBUpdateSQLEditor }
585
586 procedure TIBUpdateSQLEditor.ExecuteVerb(Index: Integer);
587 begin
588 if IBUpdateSQLEditor.EditIBUpdateSQL(TIBUpdateSQL(Component)) then Modified;
589 end;
590
591 function TIBUpdateSQLEditor.GetVerb(Index: Integer): string;
592 begin
593 case Index of
594 0 : Result := SIBUpdateSQLEditor;
595 1: Result := SInterbaseExpressVersion;
596 end;
597 end;
598
599 function TIBUpdateSQLEditor.GetVerbCount: Integer;
600 begin
601 Result := 2;
602 end;
603
604 { TIBDataSetEditor }
605
606 procedure TIBDataSetEditor.ExecuteVerb(Index: Integer);
607 var
608 IBDataset: TIBDataset;
609 begin
610 if Index < inherited GetVerbCount then
611 inherited ExecuteVerb(Index) else
612 begin
613 Dec(Index, inherited GetVerbCount);
614 case Index of
615 0:
616 if IBDataSetEditor.EditIBDataSet(TIBDataSet(Component)) then
617 Designer.Modified;
618 1: (Component as TIBDataSet).ExecSQL;
619 end;
620 end;
621 end;
622
623 function TIBDataSetEditor.GetVerb(Index: Integer): string;
624 begin
625 if Index < inherited GetVerbCount then
626 Result := inherited GetVerb(Index) else
627 begin
628 Dec(Index, inherited GetVerbCount);
629 case Index of
630 0: Result := SIBDataSetEditor;
631 1: Result := SExecute;
632 2: Result := SInterbaseExpressVersion;
633 end;
634 end;
635 end;
636
637 function TIBDataSetEditor.GetVerbCount: Integer;
638 begin
639 Result := inherited GetVerbCount + 3;
640 end;
641
642 { TIBEventListProperty }
643
644 function TIBEventListProperty.GetAttributes: TPropertyAttributes;
645 begin
646 Result := inherited GetAttributes + [paDialog] - [paMultiSelect,paSubProperties];
647 end;
648
649 procedure TIBEventListProperty.Edit;
650 var
651 Events: TStrings;
652 IBEvents: TIBEvents;
653 begin
654 IBEvents := GetComponent(0) as TIBEvents;
655 Events := TStringList.Create;
656 try
657 Events.Assign( IBEvents.Events);
658 if EditAlerterEvents( Events) then
659 begin
660 IBEvents.Events.Assign(Events);
661 Modified
662 end;
663 finally
664 Events.Free;
665 end;
666 end;
667
668 { TIBDatabaseEditor }
669 procedure TIBDatabaseEditor.ExecuteVerb(Index: Integer);
670 begin
671 if Index < inherited GetVerbCount then
672 inherited ExecuteVerb(Index) else
673 begin
674 Dec(Index, inherited GetVerbCount);
675 case Index of
676 0 : if EditIBDatabase(TIBDatabase(Component)) then Designer.Modified;
677 end;
678 end;
679 end;
680
681 function TIBDatabaseEditor.GetVerb(Index: Integer): string;
682 begin
683 if Index < inherited GetVerbCount then
684 Result := inherited GetVerb(Index) else
685 begin
686 Dec(Index, inherited GetVerbCount);
687 case Index of
688 0: Result := SIBDatabaseEditor;
689 1 : Result := SInterbaseExpressVersion;
690 end;
691 end;
692 end;
693
694 function TIBDatabaseEditor.GetVerbCount: Integer;
695 begin
696 Result := inherited GetVerbCount + 2;
697 end;
698
699 { TIBTransactionEditor }
700
701 procedure TIBTransactionEditor.ExecuteVerb(Index: Integer);
702 begin
703 case Index of
704 0: if EditIBTransaction(TIBTransaction(Component)) then Designer.Modified;
705 end;
706 end;
707
708 function TIBTransactionEditor.GetVerb(Index: Integer): string;
709 begin
710 case Index of
711 0: Result := SIBTransactionEditor;
712 1: Result := SInterbaseExpressVersion;
713 end;
714 end;
715
716 function TIBTransactionEditor.GetVerbCount: Integer;
717 begin
718 Result := 2;
719 end;
720
721 { TIBQueryEditor }
722
723 procedure TIBQueryEditor.ExecuteVerb(Index: Integer);
724 var
725 Query: TIBQuery;
726 begin
727 if Index < inherited GetVerbCount then
728 inherited ExecuteVerb(Index) else
729 begin
730 Query := Component as TIBQuery;
731 Dec(Index, inherited GetVerbCount);
732 case Index of
733 0: Query.ExecSQL;
734 1: if ibselectsqleditor.EditSQL(Query.Database,Query.SQL) then Designer.Modified;
735 end;
736 end;
737 end;
738
739 function TIBQueryEditor.GetVerb(Index: Integer): string;
740 begin
741 if Index < inherited GetVerbCount then
742 Result := inherited GetVerb(Index) else
743 begin
744 Dec(Index, inherited GetVerbCount);
745 case Index of
746 0: Result := SExecute;
747 1: Result := SEditSQL;
748 2: Result := SInterbaseExpressVersion;
749 end;
750 end;
751 end;
752
753 function TIBQueryEditor.GetVerbCount: Integer;
754 begin
755 Result := inherited GetVerbCount + 3;
756 end;
757
758 { TIBStoredProcEditor }
759
760 procedure TIBStoredProcEditor.ExecuteVerb(Index: Integer);
761 begin
762 if Index < inherited GetVerbCount then
763 inherited ExecuteVerb(Index) else
764 begin
765 Dec(Index, inherited GetVerbCount);
766 if Index = 0 then (Component as TIBStoredProc).ExecProc;
767 end;
768 end;
769
770 function TIBStoredProcEditor.GetVerb(Index: Integer): string;
771 begin
772 if Index < inherited GetVerbCount then
773 Result := inherited GetVerb(Index) else
774 begin
775 Dec(Index, inherited GetVerbCount);
776 case Index of
777 0: Result := SExecute;
778 1: Result := SInterbaseExpressVersion;
779 end;
780 end;
781 end;
782
783 function TIBStoredProcEditor.GetVerbCount: Integer;
784 begin
785 Result := inherited GetVerbCount + 2;
786 end;
787
788 { TIBStoredProcParamsProperty }
789
790 procedure TIBStoredProcParamsProperty.Edit;
791 var
792 StoredProc: TIBStoredProc;
793 Params: TParams;
794 begin
795 StoredProc := (GetComponent(0) as TIBStoredProc);
796 Params := TParams.Create(nil);
797 try
798 StoredProc.CopyParams(Params);
799 finally
800 Params.Free;
801 end;
802 inherited Edit;
803 end;
804 (*
805 { TIBTableFieldLinkProperty }
806
807 procedure TIBTableFieldLinkProperty.Edit;
808 begin
809 FTable := DataSet as TIBTable;
810 inherited Edit;
811 end;
812
813 function TIBTableFieldLinkProperty.GetIndexFieldNames: string;
814 begin
815 Result := FTable.IndexFieldNames;
816 end;
817
818 function TIBTableFieldLinkProperty.GetMasterFields: string;
819 begin
820 Result := FTable.MasterFields;
821 end;
822
823 procedure TIBTableFieldLinkProperty.SetIndexFieldNames(const Value: string);
824 begin
825 FTable.IndexFieldNames := Value;
826 end;
827
828 procedure TIBTableFieldLinkProperty.SetMasterFields(const Value: string);
829 begin
830 FTable.MasterFields := Value;
831 end;*)
832
833 { TIBUpdateSQLProperty }
834
835 procedure TIBUpdateSQLProperty.Edit;
836 var
837 IBDataset: TIBDataset;
838 begin
839 IBDataset := GetComponent(0) as TIBDataset;
840 if IBModifySQLEditor.EditSQL(IBDataSet.Database,IBDataSet.ModifySQL) then Modified;
841 end;
842
843 { TIBUpdateSQLUpdateProperty }
844
845 procedure TIBUpdateSQLUpdateProperty.Edit;
846 begin
847 GetObjects;
848 if IBModifySQLEditor.EditSQL(FDatabase,FIBUpdateSQL.ModifySQL) then Modified;
849 end;
850
851 { TIBRefreshSQLProperty }
852
853 procedure TIBRefreshSQLProperty.Edit;
854 var
855 IBDataset: TIBDataset;
856 aDatabase: TIBDatabase;
857 begin
858 IBDataset := GetComponent(0) as TIBDataset;
859 if IBRefreshSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.RefreshSQL) then Modified;
860 end;
861
862 { TIBUpdateSQLRefreshSQLProperty }
863
864 procedure TIBUpdateSQLRefreshSQLProperty.Edit;
865 begin
866 GetObjects;
867 if IBRefreshSQLEditor.EditSQL(FDatabase,FIBUpdateSQL.RefreshSQL) then Modified;
868 end;
869
870 { TIBDeleteSQLProperty }
871
872 procedure TIBDeleteSQLProperty.Edit;
873 var
874 IBDataset: TIBDataset;
875 begin
876 IBDataset := GetComponent(0) as TIBDataset;
877 if IBDeleteSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.DeleteSQL) then Modified;
878 end;
879
880 { TIBUpdateSQLDeleteProperty }
881
882 function TIBUpdateSQLDeleteProperty.GetAttributes: TPropertyAttributes;
883 begin
884 Result:=inherited GetAttributes;
885 end;
886
887 procedure TIBUpdateSQLDeleteProperty.Edit;
888 begin
889 GetObjects;
890 if IBDeleteSQLEditor.EditSQL(FDatabase,FIBUpdateSQL.DeleteSQL) then Modified;
891 end;
892
893 { TUpdateSQLPropertyEditor }
894
895 function TUpdateSQLPropertyEditor.GetObjects: boolean;
896 begin
897 Result := false;
898 FIBUpdateSQL := GetComponent(0) as TIBUpdateSQL;
899 if not assigned(FIBUpdateSQL) or not assigned(FIBUpdateSQL.DataSet) then
900 Exit;
901 FDatabase := nil;
902 if FIBUpdateSQL.DataSet is TIBQuery then
903 begin
904 FDatabase := (FIBUpdateSQL.DataSet as TIBQuery).Database;
905 Result := true
906 end;
907 end;
908
909 { TIBInsertSQLProperty }
910
911 procedure TIBInsertSQLProperty.Edit;
912 var
913 IBDataset: TIBDataset;
914 begin
915 IBDataset := GetComponent(0) as TIBDataset;
916 if IBInsertSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.InsertSQL) then Modified;
917 end;
918
919 { TIBUpdateSQLInsertSQLProperty }
920
921 procedure TIBUpdateSQLInsertSQLProperty.Edit;
922 begin
923 GetObjects;
924 if IBInsertSQLEditor.EditSQL(FDatabase,FIBUpdateSQL.InsertSQL) then Modified;
925 end;
926
927 { TIBGeneratorProperty }
928
929 function TIBGeneratorProperty.GetAttributes: TPropertyAttributes;
930 begin
931 Result:= inherited GetAttributes + [paDialog] - [paMultiSelect,paValueList];
932 end;
933
934 procedure TIBGeneratorProperty.Edit;
935 begin
936 if IBGeneratorEditor.EditGenerator(GetPersistentReference as TIBGenerator) then Modified;
937 end;
938
939 { TIBSQLEditor }
940
941 procedure TIBSQLEditor.ExecuteVerb(Index: Integer);
942 begin
943 if IBSQLEditor.EditIBSQL(TIBSQL(Component)) then Modified;
944 end;
945
946 function TIBSQLEditor.GetVerb(Index: Integer): string;
947 begin
948 case Index of
949 0 : Result := SIBSQLEditor;
950 1: Result := SInterbaseExpressVersion;
951 end;
952 end;
953
954 function TIBSQLEditor.GetVerbCount: Integer;
955 begin
956 Result:= 2
957 end;
958
959 { TIBSQLSQLPropertyEditor }
960
961 procedure TIBSQLSQLPropertyEditor.Edit;
962 var
963 IBSQL: TIBSQL;
964 begin
965 IBSQL := GetComponent(0) as TIBSQL;
966 if IBSQLEditor.EditIBSQL(IBSQL) then Modified;
967 end;
968
969 initialization
970 {$I IBDBReg.lrs}
971 end.