73 |
|
|
74 |
|
procedure DefineProperties(Filer: TFiler); override; |
75 |
|
procedure SetFiltered(Value: Boolean); override; |
76 |
+ |
procedure SetFilterText(const Value: string); override; |
77 |
|
procedure InitFieldDefs; override; |
78 |
|
function GetParamsCount: Word; |
79 |
|
procedure SetPrepared(Value: Boolean); |
190 |
|
inherited SetFiltered(value); |
191 |
|
end; |
192 |
|
|
193 |
+ |
procedure TIBStoredProc.SetFilterText(const Value: string); |
194 |
+ |
begin |
195 |
+ |
IBError(ibxeIsAExecuteProcedure,[nil]); |
196 |
+ |
end; |
197 |
+ |
|
198 |
|
procedure TIBStoredProc.InitFieldDefs; |
199 |
|
begin |
200 |
|
if (SelectSQL.Text = '') and (FProcName <> '') and (Database <> nil) then |