问Delphi/FireDAC对Postgres中的insert/update命令使用默认模式代替search_path

EN

ALTER ROLE user1 SET search_path = schema1, schema2, schema3;

Postgres:
        ALTER ROLE user1 SET search_path = schema1, schema2; -- Default schema is schema1

    schema1.table1
    schema1.table2

    schema2.table3
    schema2.table4

Delphi:
table3.Tablename := 'table3';

table3 is connected to a TcxGrid via a Datasource.

table3.Open;

Then use either GUI or code to edit/insert a record.

DDL:
CREATE DATABASE "AsystSQLProd"
  WITH OWNER = "AsystSQL"
       ENCODING = 'UTF8'
       TABLESPACE = ts_asyst_data
       LC_COLLATE = 'C'
       LC_CTYPE = 'C'
       CONNECTION LIMIT = -1;

GRANT ALL ON DATABASE "AsystSQLProd" TO "AsystSQL";
GRANT CONNECT, TEMPORARY ON DATABASE "AsystSQLProd" TO "AsystSupportRole";
GRANT CONNECT, TEMPORARY ON DATABASE "AsystSQLProd" TO "AsystLicensingRole";
GRANT CONNECT, TEMPORARY ON DATABASE "AsystSQLProd" TO "AsystFitRole";
GRANT CONNECT, TEMPORARY ON DATABASE "AsystSQLProd" TO "AsystMatRole";
REVOKE ALL ON DATABASE "AsystSQLProd" FROM public;


CREATE SCHEMA fit AUTHORIZATION "AsystSQL";

GRANT ALL ON SCHEMA fit TO "AsystSQL";
GRANT ALL ON SCHEMA fit TO "AsystFitRole";
GRANT USAGE ON SCHEMA fit TO "AsystLicensingRole";
GRANT USAGE ON SCHEMA fit TO "AsystSupportRole";

CREATE SCHEMA mat AUTHORIZATION "AsystSQL";

GRANT ALL ON SCHEMA mat TO "AsystSQL";
GRANT ALL ON SCHEMA mat TO "AsystMatRole";


CREATE USER andrejg WITH
  LOGIN
  NOSUPERUSER
  INHERIT
  NOCREATEDB
  NOCREATEROLE
  NOREPLICATION
  VALID UNTIL 'infinity'

GRANT 
  "AsystFitRole", 
  "AsystMatRole", 
  "AsystSupportRole" TO andrejg;

ALTER USER andrejg SET search_path TO mat, sup, fit;