paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Support for design-time parameters

Browse Source 
git-svn-id: trunk@15714 -
This commit is contained in:
michael 2010-08-05 21:47:47 +00:00
parent bacd6fb71b
commit 6e68edac21
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/fcl-web/src/webdata/sqldbwebdata.pp
View File

@ -19,13 +19,16 @@ Type
FIDFieldName: String;
FOnGetNewID: TNewIDEvent;
FOnGetParamValue: TGetParamValueEvent;
FParams: TParams;
FSQLS : Array[0..3] of TStringList;
FConnection: TSQLConnection;
FQuery : TSQLQuery;
FLastNewID : String;
FOnGetParamType : TGetParamTypeEvent;
function GetS(AIndex: integer): TStrings;
procedure RegenerateParams;
procedure SetConnection(const AValue: TSQLConnection);
procedure SetParams(const AValue: TParams);
procedure SetS(AIndex: integer; const AValue: TStrings);
Protected
function CheckDataset : Boolean; virtual;
@ -52,6 +55,7 @@ Type
Property OnGetNewID : TNewIDEvent Read FOnGetNewID Write FOnGetNewID;
property OnGetParameterType : TGetParamTypeEvent Read FOnGetParamType Write FOnGetParamType;
property OnGetParameterValue : TGetParamValueEvent Read FOnGetParamValue Write FOnGetParamValue;
Property Params : TParams Read FParams Write SetParams;
Public
Constructor Create(AOwner : TComponent); override;
Destructor Destroy; override;
@ -69,6 +73,7 @@ Type
property OnGetParameterType;
property OnGetParameterValue;
Property Options;
Property Params;
end;
implementation
@ -107,6 +112,12 @@ begin
FConnection.FreeNotification(Self);
end;
procedure TCustomSQLDBWebDataProvider.SetParams(const AValue: TParams);
begin
if FParams=AValue then exit;
FParams.Assign(AValue);
end;
procedure TCustomSQLDBWebDataProvider.SetS(AIndex: integer;
const AValue: TStrings);
begin
@ -119,9 +130,22 @@ begin
begin
FQuery.Close;
FQuery.SQL.Assign(SelectSQL);
If Not (csLoading in ComponentState) then
RegenerateParams;
end;
end;
procedure TCustomSQLDBWebDataProvider.RegenerateParams;
Var
S : String;
begin
S:=SelectSQL.Text;
Params.Clear;
Params.ParseSQL(S,True);
end;
procedure TCustomSQLDBWebDataProvider.ExecuteSQL(ASQL : TStrings; Msg : String = ''; DoNewID : Boolean = False);
Var
@ -407,6 +431,7 @@ begin
L.OnChange:=@SQLChanged;
FSQLS[i]:=L;
end;
FParams:=TParams.Create(TParam);
end;
destructor TCustomSQLDBWebDataProvider.Destroy;
@ -419,6 +444,7 @@ begin
FreeAndNil(FSQLS[i]);
Connection:=Nil;
FreeAndNil(FQuery);
FreeAndNil(FParams);
inherited Destroy;
end;