david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
80 lines
1.8 KiB
ObjectPascal
80 lines
1.8 KiB
ObjectPascal
|
|
//////////////////////////////////////////////////
|
|
// Data Access Components
|
|
// Copyright © 1998-2005 Core Lab. All right reserved.
|
|
// StoredProc Editor
|
|
//////////////////////////////////////////////////
|
|
|
|
{$IFNDEF CLR}
|
|
|
|
{$I Dac.inc}
|
|
|
|
unit DAStoredProcEditor;
|
|
{$ENDIF}
|
|
interface
|
|
uses
|
|
{$IFDEF MSWINDOWS}
|
|
Windows, Messages, Graphics, Controls, Forms, Dialogs,
|
|
ComCtrls, StdCtrls, ExtCtrls, Buttons,
|
|
{$ENDIF}
|
|
{$IFDEF LINUX}
|
|
Types, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
|
|
QExtCtrls, QComCtrls, QButtons,
|
|
{$ENDIF}
|
|
SysUtils, DB, Classes,
|
|
DBAccess, MemUtils,
|
|
CREditor, CRTabEditor, DASQLFrame, DAParamsFrame, DAMacrosFrame, DASPCallFrame,
|
|
DASQLEditor, DAUpdateSQLFrame, DASQLGeneratorFrame, DAQueryEditor;
|
|
|
|
type
|
|
TDAStoredProcEditorForm = class(TDAQueryEditorForm)
|
|
protected
|
|
procedure DoInit; override;
|
|
|
|
function GetStoredProc: TCustomDADataSet;
|
|
procedure SetStoredProc(Value: TCustomDADataSet);
|
|
|
|
property StoredProc: TCustomDADataSet read GetStoredProc write SetStoredProc;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
DADesignUtils;
|
|
|
|
{$IFDEF IDE}
|
|
{$R *.dfm}
|
|
{$ENDIF}
|
|
{$IFDEF MSWINDOWS}
|
|
{$R DAStoredProcEditor.dfm}
|
|
{$ENDIF}
|
|
{$IFDEF LINUX}
|
|
{$R *.xfm}
|
|
{$ENDIF}
|
|
|
|
procedure TDAStoredProcEditorForm.DoInit;
|
|
begin
|
|
try
|
|
inherited;
|
|
finally
|
|
Assert(FSQLFrame is TDASPCallFrame);
|
|
TDASPCallFrame(FSQLFrame).Mode := spSQLSP;
|
|
FSPCallFrame.Mode := spQuerySP;
|
|
|
|
TDASPCallFrame(FSQLFrame).SetSPName(FDADesignUtilsClass.GetStoredProcName(LocalComponent as TCustomDADataSet));
|
|
end;
|
|
end;
|
|
|
|
function TDAStoredProcEditorForm.GetStoredProc: TCustomDADataSet;
|
|
begin
|
|
Result := FComponent as TCustomDADataSet;
|
|
end;
|
|
|
|
procedure TDAStoredProcEditorForm.SetStoredProc(Value: TCustomDADataSet);
|
|
begin
|
|
FComponent := Value;
|
|
end;
|
|
|
|
end.
|