pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Make the results of all calls to GetNextID an Int64 (for consistency with AddResource etc.).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4686 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-07 17:56:21 +00:00
parent 018aa4e015
commit 04c64776ef
7 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpadvds.pas
View File

@ -71,7 +71,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function GetNextID(TableName: string): integer; override;
function GetNextID(TableName: string): int64; override;
procedure Load; override;
procedure CreateTable(TableName: string);
procedure CreateIndexDefs(const TableName : string;
@ -220,7 +220,7 @@ begin
end;
{=====}
function TVpAdvDataStore.GetNextID(TableName: string): Integer;
function TVpAdvDataStore.GetNextID(TableName: string): Int64;
var
Query: TAdsQuery;
GotIt: Boolean;

2
components/tvplanit/source/vpbaseds.pas
View File

@ -228,7 +228,7 @@ type
procedure DeregisterAllWatchers;
procedure DeregisterWatcher (Watcher : THandle);
function GetNextID(TableName: string): Integer; virtual; abstract;
function GetNextID(TableName: string): Int64; virtual; abstract;
property Resources: TVpResources read FResources;
procedure Load; virtual;
procedure LoadEvents; virtual; abstract;

4
components/tvplanit/source/vpbdeds.pas
View File

@ -79,7 +79,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function GetNextID(TableName: string): integer; override;
function GetNextID(TableName: string): int64; override;
procedure Load; override;
procedure CreateTable(TableName: string);
procedure CreateIndexDefs(const TableName : string;
@ -250,7 +250,7 @@ begin
end;
{=====}
function TVpBDEDataStore.GetNextID(TableName: string): Integer;
function TVpBDEDataStore.GetNextID(TableName: string): Int64;
var
Query: TQuery;
GotIt: Boolean;

4
components/tvplanit/source/vpdbisamds.pas
View File

@ -75,7 +75,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function GetNextID(TableName: string): Integer; override;
function GetNextID(TableName: string): Int64; override;
procedure Load; override;
procedure CreateTable(TableName: string);
procedure CreateIndexDefs(const TableName : string;
@ -251,7 +251,7 @@ begin
end;
{=====}
function TVpDBISAMDataStore.GetNextID(TableName: string): Integer;
function TVpDBISAMDataStore.GetNextID(TableName: string): Int64;
var
Query: TDBISAMQuery;
GotIt: Boolean;

4
components/tvplanit/source/vpff2ds.pas
View File

@ -77,7 +77,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function GetNextID(TableName: string): integer; override;
function GetNextID(TableName: string): int64; override;
// procedure PurgeResource(Res: TVpResource); override;
procedure PurgeEvents(Res: TVpResource); override;
@ -138,7 +138,7 @@ begin
end;
{=====}
function TVpFF2DataStore.GetNextID(TableName: string): integer;
function TVpFF2DataStore.GetNextID(TableName: string): int64;
begin
{ this is not used in the FlashFiler Datastore as the FlashFiler tables use }
{ autoincrement fields }

4
components/tvplanit/source/vpflxds.pas
View File

@ -161,7 +161,7 @@ type
function GetFieldName(Mappings: TCollection;
VPField: string): string;
function GetNextID(TableName: string): Integer; override;
function GetNextID(TableName: string): Int64; override;
{ These are published via the TVpDataSources class, which allows them to }
{ be clustered in the Object Inspector Don't publish them individually }
@ -2031,7 +2031,7 @@ begin
end;
{=====}
function TVpFlexDataStore.GetNextID(TableName: string): Integer;
function TVpFlexDataStore.GetNextID(TableName: string): Int64;
begin
{ The FlexDataStore has no idea what type of database you are connected to }
{ beyond TDataset compatibility, so it cannot presume to generate record }

4
components/tvplanit/source/vpsqlds.pas
View File

@ -106,7 +106,7 @@ type
// returns the next id for a store by doing an equivalent of select max(id) from table
// and increasing the number by one
function GetNextID(TableName: string): Integer; override;
function GetNextID(TableName: string): Int64; override;
// post changes to the store
procedure PostResources; override;
@ -333,7 +333,7 @@ begin
result:=Stores[TasksTableName].Dataset;
end;
function TVPSQLDataStore.GetNextID(TableName: string): Integer;
function TVPSQLDataStore.GetNextID(TableName: string): Int64;
var
FldName : string;
begin