Outro Execute Statement Brincando ainda mais no Delphi e no Firebird

Vc pode chamar no delphi desta maneira, olha o detalhe coloque entre aspas duplas e o que acontece bumba posso colocas um espaço no apelido de cada campo.

SELECT
OPCODIGOLOGON AS “CODIGO LOGON :”,
OPLOGON AS “LOGON :”,
OPSENHA AS “SENHA :”,
OPNIVEL AS “NIVEL :”,
OPCODIGOSETOR AS “CODIGO SETOR :”,
OPSETOR AS ” SETOR :”,
OPMNEMONICO AS “MNENOMICO :”
FROM SP_ACESSOS_SELECIONA(0,”,”,0,0,”,”,’NAO’,'1′)

CREATE PROCEDURE SP_ACESSOS_SELECIONA (
IPCODIGOLOGON INTEGER,
IPLOGON VARCHAR(20),
IPSENHA VARCHAR(10),
IPNIVEL INTEGER,
IPCODIGOSETOR INTEGER,
IPSETOR VARCHAR(20),
IPMNEMONICO VARCHAR(8),
IPPREENCHACAMPOS VARCHAR(3),
IPORDENAR VARCHAR(1000))
RETURNS (
OPCODIGOLOGON INTEGER,
OPLOGON VARCHAR(20),
OPSENHA VARCHAR(10),
OPNIVEL INTEGER,
OPCODIGOSETOR INTEGER,
OPSETOR VARCHAR(20),
OPMNEMONICO VARCHAR(8))
AS
DECLARE VARIABLE VSQL VARCHAR(1000);
BEGIN
VSQL = ‘SELECT A.CODIGOLOGON, L.LOGON, L.SENHA, L.NIVEL, A.CODIGOSETOR, S.SETOR, S.MNEMONICO’;
VSQL = VSQL || ‘ FROM LOGON L, SETOR S, ACESSOS A’;

IF (:IPCODIGOLOGON = 0) THEN
IPCODIGOLOGON = NULL;
IF (:IPLOGON = ”) THEN
IPLOGON = NULL;
IF (:IPSENHA = ”) THEN
IPSENHA = NULL;
IF (:IPNIVEL = 0) THEN
IPNIVEL = NULL;
IF (:IPCODIGOSETOR = 0) THEN
IPCODIGOSETOR = NULL;
IF (:IPSETOR = ”) THEN
IPSETOR = NULL;
IF (:IPMNEMONICO = ”) THEN
IPMNEMONICO = NULL;
IF ((:IPORDENAR = ”) OR (:IPORDENAR IS NULL)) THEN
IPORDENAR = ‘1′;
IF (:IPPREENCHACAMPOS = ”) THEN
IPPREENCHACAMPOS = ‘SIM’;

IF ( :IPPREENCHACAMPOS = ‘SIM’) THEN
BEGIN
–Se eu quiser coloca algum campo como obrigatório
IF ( (:IPLOGON IS NULL) ) THEN
BEGIN
EXCEPTION ERRO ‘PREENCHA OS CAMPOS OBRIGATÓRIOS’;
EXIT;
END
END

VSQL = VSQL || ‘ WHERE A.CODIGOLOGON = L.CODIGOLOGON AND A.CODIGOSETOR = S.CODIGOSETOR ‘;

–Neste Caso o And é obrigatório
IF (:IPCODIGOLOGON IS NOT NULL) THEN
VSQL = VSQL || ‘ AND A.CODIGOLOGON = ‘ || :IPCODIGOLOGON;

IF (:IPLOGON IS NOT NULL) THEN
VSQL = VSQL || ‘ AND L.LOGON LIKE ‘ || ”” || ‘%’ || :IPLOGON || ‘%’ || ””;

IF (:IPSENHA IS NOT NULL) THEN
VSQL = VSQL || ‘ AND L.SENHA LIKE ‘ || ”” || ‘%’ || :IPSENHA || ‘%’ || ””;

IF (:IPNIVEL IS NOT NULL) THEN
VSQL = VSQL || ‘ AND L.NIVEL = ‘ || :IPNIVEL;

IF (:IPCODIGOSETOR IS NOT NULL) THEN
VSQL = VSQL || ‘ AND A.CODIGOSETOR = ‘ || :IPCODIGOSETOR;

IF (:IPSETOR IS NOT NULL) THEN
VSQL = VSQL || ‘ AND S.SETOR LIKE ‘ || ”” || ‘%’ || :IPSETOR || ‘%’ || ””;

IF (:IPMNEMONICO IS NOT NULL) THEN
VSQL = VSQL || ‘ AND S.MNEMONICO LIKE ‘ || ”” || ‘%’ || :IPMNEMONICO || ‘%’ || ””;

VSQL = VSQL || ‘ ORDER BY ‘ || :IPORDENAR;

FOR
EXECUTE STATEMENT VSQL INTO :OPCODIGOLOGON, :OPLOGON, :OPSENHA, :OPNIVEL, :OPCODIGOSETOR, :OPSETOR, :OPMNEMONICO
DO

SUSPEND;

End