feat: support some keywords like CURRENT_TIMESTAMP in SQLite default value drop-down

ansgarbecker · ansgarbecker · commit dbadd375796b · 2026-06-22T16:50:02.000+02:00
Refs #2517
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -623,6 +623,7 @@   TDBConnection = class(TComponent)
       function Has(Item: TFeatureOrRequirement): Boolean;
       property SqlProvider: TSqlProvider read FSqlProvider;
       property NamedEnums: TStringList read FNamedEnums;
+      procedure GetColumnDefaultExpressions(Items: TStrings); virtual;
     published
       property Active: Boolean read FActive write SetActive default False;
       property Database: String read FDatabase write SetDatabase;
@@ -768,6 +769,7 @@   TSQLiteConnection = class(TDBConnection)
       function GetTableColumns(Table: TDBObject): TTableColumnList; override;
       function GetTableKeys(Table: TDBObject): TTableKeyList; override;
       function GetTableForeignKeys(Table: TDBObject): TForeignKeyList; override;
+      procedure GetColumnDefaultExpressions(Items: TStrings); override;
   end;
 
   {TInterbaseRawResults = Array of String; // TFDQuery;
@@ -6499,6 +6501,14 @@ function TSQLiteConnection.GetTableForeignKeys(Table: TDBObject): TForeignKeyLis
   ForeignQuery.Free;
 end;}
 
+procedure TSQLiteConnection.GetColumnDefaultExpressions(Items: TStrings);
+begin
+  // Add some extra default values allowed for SQLite
+  inherited;
+  Items.Add('CURRENT_TIME');
+  Items.Add('CURRENT_DATE');
+  Items.Add('CURRENT_TIMESTAMP');
+end;
 
 function TDBConnection.GetTableCheckConstraints(Table: TDBObject): TCheckConstraintList;
 var
@@ -6610,6 +6620,16 @@ function TDBConnection.Has(Item: TFeatureOrRequirement): Boolean;
 end;
 
 
+procedure TDBConnection.GetColumnDefaultExpressions(Items: TStrings);
+var
+  SQLFunc: TSQLFunction;
+begin
+  for SQLFunc in SQLFunctions do begin
+    Items.Add(SQLFunc.Name + SQLFunc.Declaration);
+  end;
+end;
+
+
 function TDBConnection.GetRowCount(Obj: TDBObject; ForceExact: Boolean=False): Int64;
 var
   Rows, QueryApprox, QueryExact: String;
diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas
@@ -1385,9 +1385,7 @@ constructor TColumnDefaultEditorLink.Create(Tree: TVirtualStringTree; AllowEdit:
   FExpressionEdit.Width := FExpressionEdit.Parent.Width - 2*FExpressionEdit.Left;
   FExpressionEdit.OnChange := EditChange;
   FExpressionEdit.DropDownCount := 20;
-  for SQLFunc in FTableColumn.Connection.SQLFunctions do begin
-    FExpressionEdit.Items.Add(SQLFunc.Name + SQLFunc.Declaration);
-  end;
+  FTableColumn.Connection.GetColumnDefaultExpressions(FExpressionEdit.Items);
 
   FlblOnUpdate := TLabel.Create(FPanel);
   FlblOnUpdate.Parent := FPanel;
@@ -1403,9 +1401,7 @@ constructor TColumnDefaultEditorLink.Create(Tree: TVirtualStringTree; AllowEdit:
   FOnUpdateEdit.Width := FOnUpdateEdit.Parent.Width - 2*FOnUpdateEdit.Left;
   FOnUpdateEdit.OnChange := EditChange;
   FOnUpdateEdit.DropDownCount := 20;
-  for SQLFunc in FTableColumn.Connection.SQLFunctions do begin
-    FOnUpdateEdit.Items.Add(SQLFunc.Name + SQLFunc.Declaration);
-  end;
+  FTableColumn.Connection.GetColumnDefaultExpressions(FOnUpdateEdit.Items);
 
   FRadioAutoInc := TAllKeysRadioButton.Create(FPanel);
   FRadioAutoInc.Parent := FPanel;
