lazarus+firebird，用ZSQLProcessor1控件创建触发器(TRIGGER)

    创建触发器及相关表的文本内容为：

CREATE GENERATOR GEN_A1_BSTXTCS_ID;

COMMIT WORK;

CREATE TABLE A1_BSTXTCS(
ID INTEGER,
UUID VARCHAR(20),
PARUUID VARCHAR(20),
DZM VARCHAR(20),
REPORTPERIOD INTEGER,
XTZB varchar(20),
CSZ DECIMAL(9,2),
CSSJ INTEGER,
CSLX VARCHAR(20),
PRIMARY KEY (ID));

CREATE TRIGGER A1_BSTXTCS_BI FOR A1_BSTXTCS
ACTIVE BEFORE INSERT POSITION 0
AS
begin IF (NEW.ID IS NULL) THEN
NEW.ID=GEN_ID(GEN_A1_BSTXTCS_ID,1);
end

COMMIT WORK;

在lazarus中，用以下方式执行上面的script:
ZSQLProcessor1.CleanupStatements := True;
ZSQLProcessor1.DelimiterType := dtEmptyLine;
ZSQLProcessor1.Script.LoadFromFile(fnSql);
ZSQLProcessor1.Execute;