| 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 |
|
|
| 34 |
|
unit IBBatchMove; |
| 35 |
|
|
| 36 |
+ |
{$Mode Delphi} |
| 37 |
+ |
|
| 38 |
|
interface |
| 39 |
|
|
| 40 |
< |
uses Windows, SysUtils, Graphics, Classes, Controls, Db, StdVCL, |
| 40 |
> |
uses |
| 41 |
> |
{$IFDEF WINDOWS } |
| 42 |
> |
Windows, |
| 43 |
> |
{$ELSE} |
| 44 |
> |
unix, |
| 45 |
> |
{$ENDIF} |
| 46 |
> |
SysUtils, Classes, Db, |
| 47 |
|
IB, IBCustomDataSet, IBDatabase, IBTable; |
| 48 |
|
|
| 49 |
|
type |
| 53 |
|
|
| 54 |
|
TIBBatchMove = class(TComponent) |
| 55 |
|
private |
| 43 |
– |
FIBLoaded: Boolean; |
| 56 |
|
FDestination: TIBTable; |
| 57 |
|
FSource: TIBCustomDataSet; |
| 58 |
|
FMode: TBatchMode; |
| 104 |
|
|
| 105 |
|
implementation |
| 106 |
|
|
| 107 |
< |
uses IBIntf; |
| 107 |
> |
uses FBMessages; |
| 108 |
|
|
| 109 |
|
{ TIBBatchMove } |
| 110 |
|
|
| 111 |
|
constructor TIBBatchMove.Create(AOwner: TComponent); |
| 112 |
|
begin |
| 113 |
|
inherited Create(AOwner); |
| 102 |
– |
FIBLoaded := False; |
| 103 |
– |
CheckIBLoaded; |
| 104 |
– |
FIBLoaded := True; |
| 114 |
|
FAbortOnKeyViol := True; |
| 115 |
|
FAbortOnProblem := True; |
| 116 |
|
FTransliterate := True; |
| 119 |
|
|
| 120 |
|
destructor TIBBatchMove.Destroy; |
| 121 |
|
begin |
| 122 |
< |
if FIBLoaded then |
| 123 |
< |
FMappings.Free; |
| 122 |
> |
if FMappings <> nil then |
| 123 |
> |
FMappings.Free; |
| 124 |
|
inherited Destroy; |
| 125 |
|
end; |
| 126 |
|
|
