Como fazer código automático com os componentes de Interbase do Delphi7//Tabela já está pronta com o Generator e Trigger.
DataModule delphi 7 criado para conexão com o banco de dados
Estou usando os seguintes componentes INTERBASE no DataModule:
IBDatabase1 = AcessaBaseDeDadosDoUsuario
IBTransaction1 = TransacaoDeAcessoDeDadosDoUsuario
IBQuery1 = Usuario
DataSource1 = AcessaUsuario
IBTable1 = DadosCadastradosDoUsuario
DataSource2 = AcessaDadosCadastradosDoUsuario
IBTable2 = tblCodigoUsuario
Preciso saber como é feito o código no botão, Quando pressionar o botão,BitBtn: “ Registrar Novo Ususário ”, do formulário do delphi7 “Registrar Novo Ususário ”, para chamar a tabela TBL_USUARIO_DO_SISTEMA, tabela feita abaixo, para que gera código automático no campo DBEdti1, delphi7. A tabela está feita abaixo no ibconsole Interbase.
Favor de que Quem for me ajudar colocar todo o código linha por linha explicado.
Aqui está a tabela TBL_USUARIO_DO_SISTEMA, feita no IBConsole, já está incluso o Generator e a Trigger
/* Table: TBL_USUARIO_DO_SISTEMA, Owner: SYSDBA */
CREATE TABLE "TBL_USUARIO_DO_SISTEMA"
(
"ID_CODIGO_USUARIO" INTEGER NOT NULL,
"ID_USUARIO" VARCHAR(35) CHARACTER SET WIN1252 NOT NULL,
"ID_SENHA" VARCHAR(8) CHARACTER SET WIN1252 NOT NULL,
"ID_NIVEL_DE_ACESSO" INTEGER NOT NULL,
"ID_DT_CADASTRO" TIMESTAMP,
"ID_DT_ATUALIZACAO" TIMESTAMP,
CONSTRAINT "CODIGOUSUARIO_PK" PRIMARY KEY ("ID_CODIGO_USUARIO")
);
SET TERM ^ ;
/* Triggers only will work for SQL triggers */
CREATE TRIGGER "GERA_CODIGO_AUTOMATICO_USUARIO" FOR "TBL_USUARIO_DO_SISTEMA"
ACTIVE BEFORE INSERT POSITION 0
as
begin
new.ID_CODIGO_USUARIO = GEN_ID(GEN_CODIGO_AUTOMATICO_USUARIO,1);
end
^
COMMIT WORK ^
SET TERM ;^
Desde já meu simples obrigado para quantos forem responder.
Estou usando os seguintes componentes INTERBASE no DataModule:
IBDatabase1 = AcessaBaseDeDadosDoUsuario
IBTransaction1 = TransacaoDeAcessoDeDadosDoUsuario
IBQuery1 = Usuario
DataSource1 = AcessaUsuario
IBTable1 = DadosCadastradosDoUsuario
DataSource2 = AcessaDadosCadastradosDoUsuario
IBTable2 = tblCodigoUsuario
Preciso saber como é feito o código no botão, Quando pressionar o botão,BitBtn: “ Registrar Novo Ususário ”, do formulário do delphi7 “Registrar Novo Ususário ”, para chamar a tabela TBL_USUARIO_DO_SISTEMA, tabela feita abaixo, para que gera código automático no campo DBEdti1, delphi7. A tabela está feita abaixo no ibconsole Interbase.
Favor de que Quem for me ajudar colocar todo o código linha por linha explicado.
Aqui está a tabela TBL_USUARIO_DO_SISTEMA, feita no IBConsole, já está incluso o Generator e a Trigger
/* Table: TBL_USUARIO_DO_SISTEMA, Owner: SYSDBA */
CREATE TABLE "TBL_USUARIO_DO_SISTEMA"
(
"ID_CODIGO_USUARIO" INTEGER NOT NULL,
"ID_USUARIO" VARCHAR(35) CHARACTER SET WIN1252 NOT NULL,
"ID_SENHA" VARCHAR(8) CHARACTER SET WIN1252 NOT NULL,
"ID_NIVEL_DE_ACESSO" INTEGER NOT NULL,
"ID_DT_CADASTRO" TIMESTAMP,
"ID_DT_ATUALIZACAO" TIMESTAMP,
CONSTRAINT "CODIGOUSUARIO_PK" PRIMARY KEY ("ID_CODIGO_USUARIO")
);
SET TERM ^ ;
/* Triggers only will work for SQL triggers */
CREATE TRIGGER "GERA_CODIGO_AUTOMATICO_USUARIO" FOR "TBL_USUARIO_DO_SISTEMA"
ACTIVE BEFORE INSERT POSITION 0
as
begin
new.ID_CODIGO_USUARIO = GEN_ID(GEN_CODIGO_AUTOMATICO_USUARIO,1);
end
^
COMMIT WORK ^
SET TERM ;^
Desde já meu simples obrigado para quantos forem responder.
Wilson Silva
Curtidas 0