| 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 IBStoredProc; |
| 35 |
|
|
| 36 |
< |
interface |
| 36 |
> |
{$Mode Delphi} |
| 37 |
|
|
| 38 |
< |
uses Windows, SysUtils, Graphics, Classes, Controls, Db, StdVCL, IB, |
| 34 |
< |
IBDatabase, IBCustomDataSet, IBHeader, IBSQL, IBUtils; |
| 38 |
> |
interface |
| 39 |
|
|
| 40 |
+ |
uses SysUtils, Classes, DB, IB, IBDatabase, IBCustomDataSet, |
| 41 |
+ |
IBHeader, IBSQL, IBUtils; |
| 42 |
+ |
|
| 43 |
|
{ TIBStoredProc } |
| 44 |
|
type |
| 45 |
|
|
| 64 |
|
procedure WriteParamData(Writer: TWriter); |
| 65 |
|
|
| 66 |
|
protected |
| 60 |
– |
{ IProviderSupport } |
| 61 |
– |
procedure PSExecute; override; |
| 62 |
– |
function PSGetTableName: string; override; |
| 63 |
– |
function PSGetParams: TParams; override; |
| 64 |
– |
procedure PSSetCommandText(const CommandText: string); override; |
| 65 |
– |
procedure PSSetParams(AParams: TParams); override; |
| 67 |
|
|
| 68 |
|
procedure DefineProperties(Filer: TFiler); override; |
| 69 |
|
procedure SetFiltered(Value: Boolean); override; |
| 520 |
|
Reader.ReadCollection(Params); |
| 521 |
|
end; |
| 522 |
|
|
| 522 |
– |
{ TIBStoredProc IProviderSupport } |
| 523 |
– |
|
| 524 |
– |
function TIBStoredProc.PSGetParams: TParams; |
| 525 |
– |
begin |
| 526 |
– |
Result := Params; |
| 527 |
– |
end; |
| 528 |
– |
|
| 529 |
– |
procedure TIBStoredProc.PSSetParams(AParams: TParams); |
| 530 |
– |
begin |
| 531 |
– |
if AParams.Count > 0 then |
| 532 |
– |
Params.Assign(AParams); |
| 533 |
– |
Close; |
| 534 |
– |
end; |
| 535 |
– |
|
| 536 |
– |
function TIBStoredProc.PSGetTableName: string; |
| 537 |
– |
begin |
| 538 |
– |
{ ! } |
| 539 |
– |
end; |
| 540 |
– |
|
| 541 |
– |
procedure TIBStoredProc.PSExecute; |
| 542 |
– |
begin |
| 543 |
– |
ExecProc; |
| 544 |
– |
end; |
| 545 |
– |
|
| 546 |
– |
procedure TIBStoredProc.PSSetCommandText(const CommandText: string); |
| 547 |
– |
begin |
| 548 |
– |
if CommandText <> '' then |
| 549 |
– |
StoredProcName := CommandText; |
| 550 |
– |
end; |
| 551 |
– |
|
| 523 |
|
end. |
