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

最新推荐文章于 2024-05-18 06:27:12 发布

老狼8848

最新推荐文章于 2024-05-18 06:27:12 发布

阅读量793

点赞数

分类专栏： Lazarus 文章标签： lazarus firebird ZSQLProcessor1 TRIGGER

本文链接：https://blog.csdn.net/bq_cui/article/details/52818621

版权

Lazarus 专栏收录该内容

168 篇文章 21 订阅

订阅专栏

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

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;