Fórum erro na pesquisa de clientes #9100
03/09/2009
0
senhores, Atualmente estou desenvolvendo uma sistema de gerenciamento de imobiliária, todo o meu sistema está baseado nas video aulas do guinther, desenvolvendo uma aplicação para videolocadora, meu sistema está funcionando bastante bem, só estou encontrando dificuldades no cadastro de clientes, pois ele insere normalmente os campos mas na hora de fazer as pesquisas, caso algum campo fique em branco no cadastramento, o sistema retorna um erro , segue abaixo o metadata da tabela, quando clico em ok na pesquisa retorna o erro edatabase error with message 'expression expected but nothing found',
gostaria da ajuda de voces para corrigir o erro.
/******************************************************************************/
/**** Generated by IBExpert 2008.08.08 3/9/2009 16:20:09 ****/
/******************************************************************************/
SET SQL DIALECT 3;
SET NAMES ISO8859_1;
SET CLIENTLIB 'C:\Arquivos de programas\Firebird\Firebird_2_0\bin\fbclient.dll';
CREATE DATABASE 'localhost:C:\SISIMO\BDSISIMO\SISLOC.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 4096
DEFAULT CHARACTER SET ISO8859_1;
/******************************************************************************/
/**** Generators ****/
/******************************************************************************/
CREATE GENERATOR SEQ_CAD_ID;
SET GENERATOR SEQ_CAD_ID TO 1;
SET TERM ^ ;
/******************************************************************************/
/**** Stored Procedures ****/
/******************************************************************************/
CREATE PROCEDURE SINCAD_DEL (
KEY_CAD INTEGER)
AS
BEGIN
EXIT;
END^
CREATE PROCEDURE SINCAD_IU (
KEY_CAD INTEGER,
NOME_CAD VARCHAR(50),
DATNAS_CAD DATE,
SEXO_CAD CHAR(1),
CLASE_CAD CHAR(1),
CNPJ_CAD VARCHAR(18),
CPF_CAD VARCHAR(15),
RG_CAD VARCHAR(14),
KEYPROF_CAD INTEGER,
EDIFCOM_CAD VARCHAR(30),
EMPRES_CAD VARCHAR(50),
ENDCOM_CAD VARCHAR(50),
BAICOM_CAD VARCHAR(20),
CIDCOM_CAD VARCHAR(30),
UFCOM_CAD CHAR(2),
CAICOM_CAD CHAR(5),
CEPCOM_CAD CHAR(8),
OBSCOM_CAD CHAR(1),
DDCOM_CAD VARCHAR(4),
FONECOM_CAD VARCHAR(8),
RAMCOM_CAD VARCHAR(8),
DDDFAXCOM_CAD CHAR(4),
FONEFAXCOM_CAD VARCHAR(8),
EDIFRES_CAD VARCHAR(30),
ENDRES_CAD VARCHAR(50),
BAIRRES_CAD VARCHAR(30),
CIDRES_CAD VARCHAR(30),
UFRES_CAD CHAR(2),
CEPRES_CAD CHAR(8),
CAIRES_CAD CHAR(5),
OBSRES_CAD CHAR(1),
DDDRES_CAD CHAR(4),
FONERES_CAD CHAR(8),
DDDCEL_CAD CHAR(4),
FONECEL_CAD CHAR(8),
EMAIL_CAD VARCHAR(40),
ESTCIV_CAD VARCHAR(14),
KEYCON_CAD INTEGER,
PAI_CAD VARCHAR(40),
MAE_CAD VARCHAR(40),
NOMEREC_CAD VARCHAR(40),
DDDREC_CAD CHAR(4),
FONEREC_CAD CHAR(8),
RENDA_CAD DECIMAL(10,2),
NRBAN_CAD INTEGER,
AGENBAN_CAD CHAR(4),
NUMCTA_CAD VARCHAR(14),
DIGAGE_CAD CHAR(1),
SPC_CAD VARCHAR(50),
SERASA_CAD VARCHAR(50),
FLAGROP_CAD CHAR(1),
FINAN_CAD CHAR(1),
FLAGFIA_CAD CHAR(1),
FLAGPROPV_CAD CHAR(1),
MORTO_CAD CHAR(1),
FLAGIMP_CAD CHAR(1),
RECADOS_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
DATCAD_CAD DATE,
KEYCODFUN_CAD INTEGER,
KEYCODFUN1_CAD INTEGER,
HISTORICO_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
RECADOS1_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
NOMCON_CAD VARCHAR(50),
DATNASCON_CAD DATE,
PROFCON_CAD VARCHAR(20),
EMPCON_CAD VARCHAR(30),
ENDCON_CAD VARCHAR(50),
BAICON_CAD VARCHAR(20),
CIDCON_CAD VARCHAR(30),
UFCON_CAD CHAR(2),
CAICON_CAD CHAR(4),
FINANC_CAD CHAR(1),
CEPCON_CAD VARCHAR(8),
OBSCON_CAD INTEGER,
FONECON_CAD VARCHAR(8),
DDDCON_CAD VARCHAR(4),
DDDFAXCON_CAD VARCHAR(4),
FONEFAXCON_CAD VARCHAR(8),
CPFCON_CAD VARCHAR(15),
EDIFCON_CAD VARCHAR(40),
SEXOCON_CAD CHAR(1),
RGCON_CAD VARCHAR(14),
EMAILCON_CAD VARCHAR(60),
ESTCIVCON_CAD INTEGER,
TIPOCONTA_CAD VARCHAR(15))
AS
BEGIN
EXIT;
END^
SET TERM ; ^
/******************************************************************************/
/**** Tables ****/
/******************************************************************************/
CREATE TABLE SINCAD (
KEY_CAD KEY_DOMAIN NOT NULL,
NOME_CAD VARCHAR(50) NOT NULL,
DATNAS_CAD DATE,
SEXO_CAD CHAR(1),
CLASE_CAD CHAR(1),
CNPJ_CAD VARCHAR(18),
CPF_CAD VARCHAR(15),
RG_CAD VARCHAR(14),
KEYPROF_CAD INTEGER,
EDIFCOM_CAD VARCHAR(30),
EMPRES_CAD VARCHAR(50),
ENDCOM_CAD VARCHAR(50),
BAICOM_CAD VARCHAR(20),
CIDCOM_CAD VARCHAR(30),
UFCOM_CAD CHAR(2),
CAICOM_CAD CHAR(5),
CEPCOM_CAD CHAR(8),
OBSCOM_CAD CHAR(1),
DDCOM_CAD VARCHAR(4),
FONECOM_CAD VARCHAR(8),
RAMCOM_CAD VARCHAR(8),
DDDFAXCOM_CAD CHAR(4),
FONEFAXCOM_CAD VARCHAR(8),
EDIFRES_CAD VARCHAR(30),
ENDRES_CAD VARCHAR(50),
BAIRRES_CAD VARCHAR(30),
CIDRES_CAD VARCHAR(30),
UFRES_CAD CHAR(2),
CEPRES_CAD CHAR(8),
CAIRES_CAD CHAR(5),
OBSRES_CAD CHAR(1),
DDDRES_CAD CHAR(4),
FONERES_CAD CHAR(8),
DDDCEL_CAD CHAR(4),
FONECEL_CAD CHAR(8),
EMAIL_CAD VARCHAR(40),
ESTCIV_CAD VARCHAR(14),
KEYCON_CAD INTEGER,
PAI_CAD VARCHAR(40),
MAE_CAD VARCHAR(40),
NOMEREC_CAD VARCHAR(40),
DDDREC_CAD CHAR(4),
FONEREC_CAD CHAR(8),
RENDA_CAD DECIMAL(10,2),
NRBAN_CAD INTEGER,
AGENBAN_CAD CHAR(4),
NUMCTA_CAD VARCHAR(14),
DIGAGE_CAD CHAR(1),
SPC_CAD VARCHAR(50),
SERASA_CAD VARCHAR(50),
FLAGROP_CAD CHAR(1),
FINAN_CAD CHAR(1),
FLAGFIA_CAD CHAR(1),
FLAGPROPV_CAD CHAR(1),
MORTO_CAD CHAR(1),
FLAGIMP_CAD CHAR(1),
RECADOS_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
DATCAD_CAD DATE,
KEYCODFUN_CAD INTEGER,
KEYCODFUN1_CAD INTEGER,
HISTORICO_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
RECADOS1_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
NOMCON_CAD VARCHAR(50),
DATNASCON_CAD DATE,
PROFCON_CAD VARCHAR(20),
EMPCON_CAD VARCHAR(30),
ENDCON_CAD VARCHAR(50),
BAICON_CAD VARCHAR(20),
CIDCON_CAD VARCHAR(30),
UFCON_CAD CHAR(2),
CAICON_CAD CHAR(4),
FINANC_CAD CHAR(1),
CEPCON_CAD VARCHAR(8),
OBSCON_CAD INTEGER,
FONECON_CAD VARCHAR(8),
DDDCON_CAD VARCHAR(4),
DDDFAXCON_CAD VARCHAR(4),
FONEFAXCON_CAD VARCHAR(8),
CPFCON_CAD VARCHAR(15),
EDIFCON_CAD VARCHAR(40),
SEXOCON_CAD CHAR(1),
RGCON_CAD VARCHAR(14),
EMAILCON_CAD VARCHAR(60),
ESTCIVCON_CAD INTEGER,
TIPOCONTA_CAD VARCHAR(15)
);
/******************************************************************************/
/**** Primary Keys ****/
/******************************************************************************/
ALTER TABLE SINCAD ADD CONSTRAINT PK_SINCAD PRIMARY KEY (KEY_CAD);
/******************************************************************************/
/**** Triggers ****/
/******************************************************************************/
SET TERM ^ ;
/******************************************************************************/
/**** Triggers for tables ****/
/******************************************************************************/
/* Trigger: SINCAD_BI */
CREATE TRIGGER SINCAD_BI FOR SINCAD
ACTIVE BEFORE INSERT POSITION 0
as
begin
if (new.key_cad is null) then
new.key_cad = gen_id(seq_cad_id,1);
end
^
SET TERM ; ^
/******************************************************************************/
/**** Stored Procedures ****/
/******************************************************************************/
SET TERM ^ ;
ALTER PROCEDURE SINCAD_DEL (
KEY_CAD INTEGER)
AS
begin
delete from sincad
where (key_cad = :key_cad);
end^
ALTER PROCEDURE SINCAD_IU (
KEY_CAD INTEGER,
NOME_CAD VARCHAR(50),
DATNAS_CAD DATE,
SEXO_CAD CHAR(1),
CLASE_CAD CHAR(1),
CNPJ_CAD VARCHAR(18),
CPF_CAD VARCHAR(15),
RG_CAD VARCHAR(14),
KEYPROF_CAD INTEGER,
EDIFCOM_CAD VARCHAR(30),
EMPRES_CAD VARCHAR(50),
ENDCOM_CAD VARCHAR(50),
BAICOM_CAD VARCHAR(20),
CIDCOM_CAD VARCHAR(30),
UFCOM_CAD CHAR(2),
CAICOM_CAD CHAR(5),
CEPCOM_CAD CHAR(8),
OBSCOM_CAD CHAR(1),
DDCOM_CAD VARCHAR(4),
FONECOM_CAD VARCHAR(8),
RAMCOM_CAD VARCHAR(8),
DDDFAXCOM_CAD CHAR(4),
FONEFAXCOM_CAD VARCHAR(8),
EDIFRES_CAD VARCHAR(30),
ENDRES_CAD VARCHAR(50),
BAIRRES_CAD VARCHAR(30),
CIDRES_CAD VARCHAR(30),
UFRES_CAD CHAR(2),
CEPRES_CAD CHAR(8),
CAIRES_CAD CHAR(5),
OBSRES_CAD CHAR(1),
DDDRES_CAD CHAR(4),
FONERES_CAD CHAR(8),
DDDCEL_CAD CHAR(4),
FONECEL_CAD CHAR(8),
EMAIL_CAD VARCHAR(40),
ESTCIV_CAD VARCHAR(14),
KEYCON_CAD INTEGER,
PAI_CAD VARCHAR(40),
MAE_CAD VARCHAR(40),
NOMEREC_CAD VARCHAR(40),
DDDREC_CAD CHAR(4),
FONEREC_CAD CHAR(8),
RENDA_CAD DECIMAL(10,2),
NRBAN_CAD INTEGER,
AGENBAN_CAD CHAR(4),
NUMCTA_CAD VARCHAR(14),
DIGAGE_CAD CHAR(1),
SPC_CAD VARCHAR(50),
SERASA_CAD VARCHAR(50),
FLAGROP_CAD CHAR(1),
FINAN_CAD CHAR(1),
FLAGFIA_CAD CHAR(1),
FLAGPROPV_CAD CHAR(1),
MORTO_CAD CHAR(1),
FLAGIMP_CAD CHAR(1),
RECADOS_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
DATCAD_CAD DATE,
KEYCODFUN_CAD INTEGER,
KEYCODFUN1_CAD INTEGER,
HISTORICO_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
RECADOS1_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
NOMCON_CAD VARCHAR(50),
DATNASCON_CAD DATE,
PROFCON_CAD VARCHAR(20),
EMPCON_CAD VARCHAR(30),
ENDCON_CAD VARCHAR(50),
BAICON_CAD VARCHAR(20),
CIDCON_CAD VARCHAR(30),
UFCON_CAD CHAR(2),
CAICON_CAD CHAR(4),
FINANC_CAD CHAR(1),
CEPCON_CAD VARCHAR(8),
OBSCON_CAD INTEGER,
FONECON_CAD VARCHAR(8),
DDDCON_CAD VARCHAR(4),
DDDFAXCON_CAD VARCHAR(4),
FONEFAXCON_CAD VARCHAR(8),
CPFCON_CAD VARCHAR(15),
EDIFCON_CAD VARCHAR(40),
SEXOCON_CAD CHAR(1),
RGCON_CAD VARCHAR(14),
EMAILCON_CAD VARCHAR(60),
ESTCIVCON_CAD INTEGER,
TIPOCONTA_CAD VARCHAR(15))
AS
begin
if (exists(select key_cad from sincad where (key_cad = :key_cad))) then
update sincad
set nome_cad = :nome_cad,
datnas_cad = :datnas_cad,
sexo_cad = :sexo_cad,
clase_cad = :clase_cad,
cnpj_cad = :cnpj_cad,
cpf_cad = :cpf_cad,
rg_cad = :rg_cad,
keyprof_cad = :keyprof_cad,
edifcom_cad = :edifcom_cad,
empres_cad = :empres_cad,
endcom_cad = :endcom_cad,
baicom_cad = :baicom_cad,
cidcom_cad = :cidcom_cad,
ufcom_cad = :ufcom_cad,
caicom_cad = :caicom_cad,
cepcom_cad = :cepcom_cad,
obscom_cad = :obscom_cad,
ddcom_cad = :ddcom_cad,
fonecom_cad = :fonecom_cad,
ramcom_cad = :ramcom_cad,
dddfaxcom_cad = :dddfaxcom_cad,
fonefaxcom_cad = :fonefaxcom_cad,
edifres_cad = :edifres_cad,
endres_cad = :endres_cad,
bairres_cad = :bairres_cad,
cidres_cad = :cidres_cad,
ufres_cad = :ufres_cad,
cepres_cad = :cepres_cad,
caires_cad = :caires_cad,
obsres_cad = :obsres_cad,
dddres_cad = :dddres_cad,
foneres_cad = :foneres_cad,
dddcel_cad = :dddcel_cad,
fonecel_cad = :fonecel_cad,
email_cad = :email_cad,
estciv_cad = :estciv_cad,
keycon_cad = :keycon_cad,
pai_cad = :pai_cad,
mae_cad = :mae_cad,
nomerec_cad = :nomerec_cad,
dddrec_cad = :dddrec_cad,
fonerec_cad = :fonerec_cad,
renda_cad = :renda_cad,
nrban_cad = :nrban_cad,
agenban_cad = :agenban_cad,
numcta_cad = :numcta_cad,
digage_cad = :digage_cad,
spc_cad = :spc_cad,
serasa_cad = :serasa_cad,
flagrop_cad = :flagrop_cad,
finan_cad = :finan_cad,
flagfia_cad = :flagfia_cad,
flagpropv_cad = :flagpropv_cad,
morto_cad = :morto_cad,
flagimp_cad = :flagimp_cad,
recados_cad = :recados_cad,
datcad_cad = :datcad_cad,
keycodfun_cad = :keycodfun_cad,
keycodfun1_cad = :keycodfun1_cad,
historico_cad = :historico_cad,
recados1_cad = :recados1_cad,
nomcon_cad = :nomcon_cad,
datnascon_cad = :datnascon_cad,
profcon_cad = :profcon_cad,
empcon_cad = :empcon_cad,
endcon_cad = :endcon_cad,
baicon_cad = :baicon_cad,
cidcon_cad = :cidcon_cad,
ufcon_cad = :ufcon_cad,
caicon_cad = :caicon_cad,
financ_cad = :financ_cad,
cepcon_cad = :cepcon_cad,
obscon_cad = :obscon_cad,
fonecon_cad = :fonecon_cad,
dddcon_cad = :dddcon_cad,
dddfaxcon_cad = :dddfaxcon_cad,
fonefaxcon_cad = :fonefaxcon_cad,
cpfcon_cad = :cpfcon_cad,
edifcon_cad = :edifcon_cad,
sexocon_cad = :sexocon_cad,
rgcon_cad = :rgcon_cad,
emailcon_cad = :emailcon_cad,
estcivcon_cad = :estcivcon_cad,
tipoconta_cad = :tipoconta_cad
where (key_cad = :key_cad);
else
insert into sincad (
key_cad,
nome_cad,
datnas_cad,
sexo_cad,
clase_cad,
cnpj_cad,
cpf_cad,
rg_cad,
keyprof_cad,
edifcom_cad,
empres_cad,
endcom_cad,
baicom_cad,
cidcom_cad,
ufcom_cad,
caicom_cad,
cepcom_cad,
obscom_cad,
ddcom_cad,
fonecom_cad,
ramcom_cad,
dddfaxcom_cad,
fonefaxcom_cad,
edifres_cad,
endres_cad,
bairres_cad,
cidres_cad,
ufres_cad,
cepres_cad,
caires_cad,
obsres_cad,
dddres_cad,
foneres_cad,
dddcel_cad,
fonecel_cad,
email_cad,
estciv_cad,
keycon_cad,
pai_cad,
mae_cad,
nomerec_cad,
dddrec_cad,
fonerec_cad,
renda_cad,
nrban_cad,
agenban_cad,
numcta_cad,
digage_cad,
spc_cad,
serasa_cad,
flagrop_cad,
finan_cad,
flagfia_cad,
flagpropv_cad,
morto_cad,
flagimp_cad,
recados_cad,
datcad_cad,
keycodfun_cad,
keycodfun1_cad,
historico_cad,
recados1_cad,
nomcon_cad,
datnascon_cad,
profcon_cad,
empcon_cad,
endcon_cad,
baicon_cad,
cidcon_cad,
ufcon_cad,
caicon_cad,
financ_cad,
cepcon_cad,
obscon_cad,
fonecon_cad,
dddcon_cad,
dddfaxcon_cad,
fonefaxcon_cad,
cpfcon_cad,
edifcon_cad,
sexocon_cad,
rgcon_cad,
emailcon_cad,
estcivcon_cad,
tipoconta_cad)
values (
next value for seq_cad_id,
:nome_cad,
:datnas_cad,
:sexo_cad,
:clase_cad,
:cnpj_cad,
:cpf_cad,
:rg_cad,
:keyprof_cad,
:edifcom_cad,
:empres_cad,
:endcom_cad,
:baicom_cad,
:cidcom_cad,
:ufcom_cad,
:caicom_cad,
:cepcom_cad,
:obscom_cad,
:ddcom_cad,
:fonecom_cad,
:ramcom_cad,
:dddfaxcom_cad,
:fonefaxcom_cad,
:edifres_cad,
:endres_cad,
:bairres_cad,
:cidres_cad,
:ufres_cad,
:cepres_cad,
:caires_cad,
:obsres_cad,
:dddres_cad,
:foneres_cad,
:dddcel_cad,
:fonecel_cad,
:email_cad,
:estciv_cad,
:keycon_cad,
:pai_cad,
:mae_cad,
:nomerec_cad,
:dddrec_cad,
:fonerec_cad,
:renda_cad,
:nrban_cad,
:agenban_cad,
:numcta_cad,
:digage_cad,
:spc_cad,
:serasa_cad,
:flagrop_cad,
:finan_cad,
:flagfia_cad,
:flagpropv_cad,
:morto_cad,
:flagimp_cad,
:recados_cad,
:datcad_cad,
:keycodfun_cad,
:keycodfun1_cad,
:historico_cad,
:recados1_cad,
:nomcon_cad,
:datnascon_cad,
:profcon_cad,
:empcon_cad,
:endcon_cad,
:baicon_cad,
:cidcon_cad,
:ufcon_cad,
:caicon_cad,
:financ_cad,
:cepcon_cad,
:obscon_cad,
:fonecon_cad,
:dddcon_cad,
:dddfaxcon_cad,
:fonefaxcon_cad,
:cpfcon_cad,
:edifcon_cad,
:sexocon_cad,
:rgcon_cad,
:emailcon_cad,
:estcivcon_cad,
:tipoconta_cad);
end^
SET TERM ; ^
gostaria da ajuda de voces para corrigir o erro.
/******************************************************************************/
/**** Generated by IBExpert 2008.08.08 3/9/2009 16:20:09 ****/
/******************************************************************************/
SET SQL DIALECT 3;
SET NAMES ISO8859_1;
SET CLIENTLIB 'C:\Arquivos de programas\Firebird\Firebird_2_0\bin\fbclient.dll';
CREATE DATABASE 'localhost:C:\SISIMO\BDSISIMO\SISLOC.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 4096
DEFAULT CHARACTER SET ISO8859_1;
/******************************************************************************/
/**** Generators ****/
/******************************************************************************/
CREATE GENERATOR SEQ_CAD_ID;
SET GENERATOR SEQ_CAD_ID TO 1;
SET TERM ^ ;
/******************************************************************************/
/**** Stored Procedures ****/
/******************************************************************************/
CREATE PROCEDURE SINCAD_DEL (
KEY_CAD INTEGER)
AS
BEGIN
EXIT;
END^
CREATE PROCEDURE SINCAD_IU (
KEY_CAD INTEGER,
NOME_CAD VARCHAR(50),
DATNAS_CAD DATE,
SEXO_CAD CHAR(1),
CLASE_CAD CHAR(1),
CNPJ_CAD VARCHAR(18),
CPF_CAD VARCHAR(15),
RG_CAD VARCHAR(14),
KEYPROF_CAD INTEGER,
EDIFCOM_CAD VARCHAR(30),
EMPRES_CAD VARCHAR(50),
ENDCOM_CAD VARCHAR(50),
BAICOM_CAD VARCHAR(20),
CIDCOM_CAD VARCHAR(30),
UFCOM_CAD CHAR(2),
CAICOM_CAD CHAR(5),
CEPCOM_CAD CHAR(8),
OBSCOM_CAD CHAR(1),
DDCOM_CAD VARCHAR(4),
FONECOM_CAD VARCHAR(8),
RAMCOM_CAD VARCHAR(8),
DDDFAXCOM_CAD CHAR(4),
FONEFAXCOM_CAD VARCHAR(8),
EDIFRES_CAD VARCHAR(30),
ENDRES_CAD VARCHAR(50),
BAIRRES_CAD VARCHAR(30),
CIDRES_CAD VARCHAR(30),
UFRES_CAD CHAR(2),
CEPRES_CAD CHAR(8),
CAIRES_CAD CHAR(5),
OBSRES_CAD CHAR(1),
DDDRES_CAD CHAR(4),
FONERES_CAD CHAR(8),
DDDCEL_CAD CHAR(4),
FONECEL_CAD CHAR(8),
EMAIL_CAD VARCHAR(40),
ESTCIV_CAD VARCHAR(14),
KEYCON_CAD INTEGER,
PAI_CAD VARCHAR(40),
MAE_CAD VARCHAR(40),
NOMEREC_CAD VARCHAR(40),
DDDREC_CAD CHAR(4),
FONEREC_CAD CHAR(8),
RENDA_CAD DECIMAL(10,2),
NRBAN_CAD INTEGER,
AGENBAN_CAD CHAR(4),
NUMCTA_CAD VARCHAR(14),
DIGAGE_CAD CHAR(1),
SPC_CAD VARCHAR(50),
SERASA_CAD VARCHAR(50),
FLAGROP_CAD CHAR(1),
FINAN_CAD CHAR(1),
FLAGFIA_CAD CHAR(1),
FLAGPROPV_CAD CHAR(1),
MORTO_CAD CHAR(1),
FLAGIMP_CAD CHAR(1),
RECADOS_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
DATCAD_CAD DATE,
KEYCODFUN_CAD INTEGER,
KEYCODFUN1_CAD INTEGER,
HISTORICO_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
RECADOS1_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
NOMCON_CAD VARCHAR(50),
DATNASCON_CAD DATE,
PROFCON_CAD VARCHAR(20),
EMPCON_CAD VARCHAR(30),
ENDCON_CAD VARCHAR(50),
BAICON_CAD VARCHAR(20),
CIDCON_CAD VARCHAR(30),
UFCON_CAD CHAR(2),
CAICON_CAD CHAR(4),
FINANC_CAD CHAR(1),
CEPCON_CAD VARCHAR(8),
OBSCON_CAD INTEGER,
FONECON_CAD VARCHAR(8),
DDDCON_CAD VARCHAR(4),
DDDFAXCON_CAD VARCHAR(4),
FONEFAXCON_CAD VARCHAR(8),
CPFCON_CAD VARCHAR(15),
EDIFCON_CAD VARCHAR(40),
SEXOCON_CAD CHAR(1),
RGCON_CAD VARCHAR(14),
EMAILCON_CAD VARCHAR(60),
ESTCIVCON_CAD INTEGER,
TIPOCONTA_CAD VARCHAR(15))
AS
BEGIN
EXIT;
END^
SET TERM ; ^
/******************************************************************************/
/**** Tables ****/
/******************************************************************************/
CREATE TABLE SINCAD (
KEY_CAD KEY_DOMAIN NOT NULL,
NOME_CAD VARCHAR(50) NOT NULL,
DATNAS_CAD DATE,
SEXO_CAD CHAR(1),
CLASE_CAD CHAR(1),
CNPJ_CAD VARCHAR(18),
CPF_CAD VARCHAR(15),
RG_CAD VARCHAR(14),
KEYPROF_CAD INTEGER,
EDIFCOM_CAD VARCHAR(30),
EMPRES_CAD VARCHAR(50),
ENDCOM_CAD VARCHAR(50),
BAICOM_CAD VARCHAR(20),
CIDCOM_CAD VARCHAR(30),
UFCOM_CAD CHAR(2),
CAICOM_CAD CHAR(5),
CEPCOM_CAD CHAR(8),
OBSCOM_CAD CHAR(1),
DDCOM_CAD VARCHAR(4),
FONECOM_CAD VARCHAR(8),
RAMCOM_CAD VARCHAR(8),
DDDFAXCOM_CAD CHAR(4),
FONEFAXCOM_CAD VARCHAR(8),
EDIFRES_CAD VARCHAR(30),
ENDRES_CAD VARCHAR(50),
BAIRRES_CAD VARCHAR(30),
CIDRES_CAD VARCHAR(30),
UFRES_CAD CHAR(2),
CEPRES_CAD CHAR(8),
CAIRES_CAD CHAR(5),
OBSRES_CAD CHAR(1),
DDDRES_CAD CHAR(4),
FONERES_CAD CHAR(8),
DDDCEL_CAD CHAR(4),
FONECEL_CAD CHAR(8),
EMAIL_CAD VARCHAR(40),
ESTCIV_CAD VARCHAR(14),
KEYCON_CAD INTEGER,
PAI_CAD VARCHAR(40),
MAE_CAD VARCHAR(40),
NOMEREC_CAD VARCHAR(40),
DDDREC_CAD CHAR(4),
FONEREC_CAD CHAR(8),
RENDA_CAD DECIMAL(10,2),
NRBAN_CAD INTEGER,
AGENBAN_CAD CHAR(4),
NUMCTA_CAD VARCHAR(14),
DIGAGE_CAD CHAR(1),
SPC_CAD VARCHAR(50),
SERASA_CAD VARCHAR(50),
FLAGROP_CAD CHAR(1),
FINAN_CAD CHAR(1),
FLAGFIA_CAD CHAR(1),
FLAGPROPV_CAD CHAR(1),
MORTO_CAD CHAR(1),
FLAGIMP_CAD CHAR(1),
RECADOS_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
DATCAD_CAD DATE,
KEYCODFUN_CAD INTEGER,
KEYCODFUN1_CAD INTEGER,
HISTORICO_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
RECADOS1_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
NOMCON_CAD VARCHAR(50),
DATNASCON_CAD DATE,
PROFCON_CAD VARCHAR(20),
EMPCON_CAD VARCHAR(30),
ENDCON_CAD VARCHAR(50),
BAICON_CAD VARCHAR(20),
CIDCON_CAD VARCHAR(30),
UFCON_CAD CHAR(2),
CAICON_CAD CHAR(4),
FINANC_CAD CHAR(1),
CEPCON_CAD VARCHAR(8),
OBSCON_CAD INTEGER,
FONECON_CAD VARCHAR(8),
DDDCON_CAD VARCHAR(4),
DDDFAXCON_CAD VARCHAR(4),
FONEFAXCON_CAD VARCHAR(8),
CPFCON_CAD VARCHAR(15),
EDIFCON_CAD VARCHAR(40),
SEXOCON_CAD CHAR(1),
RGCON_CAD VARCHAR(14),
EMAILCON_CAD VARCHAR(60),
ESTCIVCON_CAD INTEGER,
TIPOCONTA_CAD VARCHAR(15)
);
/******************************************************************************/
/**** Primary Keys ****/
/******************************************************************************/
ALTER TABLE SINCAD ADD CONSTRAINT PK_SINCAD PRIMARY KEY (KEY_CAD);
/******************************************************************************/
/**** Triggers ****/
/******************************************************************************/
SET TERM ^ ;
/******************************************************************************/
/**** Triggers for tables ****/
/******************************************************************************/
/* Trigger: SINCAD_BI */
CREATE TRIGGER SINCAD_BI FOR SINCAD
ACTIVE BEFORE INSERT POSITION 0
as
begin
if (new.key_cad is null) then
new.key_cad = gen_id(seq_cad_id,1);
end
^
SET TERM ; ^
/******************************************************************************/
/**** Stored Procedures ****/
/******************************************************************************/
SET TERM ^ ;
ALTER PROCEDURE SINCAD_DEL (
KEY_CAD INTEGER)
AS
begin
delete from sincad
where (key_cad = :key_cad);
end^
ALTER PROCEDURE SINCAD_IU (
KEY_CAD INTEGER,
NOME_CAD VARCHAR(50),
DATNAS_CAD DATE,
SEXO_CAD CHAR(1),
CLASE_CAD CHAR(1),
CNPJ_CAD VARCHAR(18),
CPF_CAD VARCHAR(15),
RG_CAD VARCHAR(14),
KEYPROF_CAD INTEGER,
EDIFCOM_CAD VARCHAR(30),
EMPRES_CAD VARCHAR(50),
ENDCOM_CAD VARCHAR(50),
BAICOM_CAD VARCHAR(20),
CIDCOM_CAD VARCHAR(30),
UFCOM_CAD CHAR(2),
CAICOM_CAD CHAR(5),
CEPCOM_CAD CHAR(8),
OBSCOM_CAD CHAR(1),
DDCOM_CAD VARCHAR(4),
FONECOM_CAD VARCHAR(8),
RAMCOM_CAD VARCHAR(8),
DDDFAXCOM_CAD CHAR(4),
FONEFAXCOM_CAD VARCHAR(8),
EDIFRES_CAD VARCHAR(30),
ENDRES_CAD VARCHAR(50),
BAIRRES_CAD VARCHAR(30),
CIDRES_CAD VARCHAR(30),
UFRES_CAD CHAR(2),
CEPRES_CAD CHAR(8),
CAIRES_CAD CHAR(5),
OBSRES_CAD CHAR(1),
DDDRES_CAD CHAR(4),
FONERES_CAD CHAR(8),
DDDCEL_CAD CHAR(4),
FONECEL_CAD CHAR(8),
EMAIL_CAD VARCHAR(40),
ESTCIV_CAD VARCHAR(14),
KEYCON_CAD INTEGER,
PAI_CAD VARCHAR(40),
MAE_CAD VARCHAR(40),
NOMEREC_CAD VARCHAR(40),
DDDREC_CAD CHAR(4),
FONEREC_CAD CHAR(8),
RENDA_CAD DECIMAL(10,2),
NRBAN_CAD INTEGER,
AGENBAN_CAD CHAR(4),
NUMCTA_CAD VARCHAR(14),
DIGAGE_CAD CHAR(1),
SPC_CAD VARCHAR(50),
SERASA_CAD VARCHAR(50),
FLAGROP_CAD CHAR(1),
FINAN_CAD CHAR(1),
FLAGFIA_CAD CHAR(1),
FLAGPROPV_CAD CHAR(1),
MORTO_CAD CHAR(1),
FLAGIMP_CAD CHAR(1),
RECADOS_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
DATCAD_CAD DATE,
KEYCODFUN_CAD INTEGER,
KEYCODFUN1_CAD INTEGER,
HISTORICO_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
RECADOS1_CAD BLOB SUB_TYPE 1 SEGMENT SIZE 4096,
NOMCON_CAD VARCHAR(50),
DATNASCON_CAD DATE,
PROFCON_CAD VARCHAR(20),
EMPCON_CAD VARCHAR(30),
ENDCON_CAD VARCHAR(50),
BAICON_CAD VARCHAR(20),
CIDCON_CAD VARCHAR(30),
UFCON_CAD CHAR(2),
CAICON_CAD CHAR(4),
FINANC_CAD CHAR(1),
CEPCON_CAD VARCHAR(8),
OBSCON_CAD INTEGER,
FONECON_CAD VARCHAR(8),
DDDCON_CAD VARCHAR(4),
DDDFAXCON_CAD VARCHAR(4),
FONEFAXCON_CAD VARCHAR(8),
CPFCON_CAD VARCHAR(15),
EDIFCON_CAD VARCHAR(40),
SEXOCON_CAD CHAR(1),
RGCON_CAD VARCHAR(14),
EMAILCON_CAD VARCHAR(60),
ESTCIVCON_CAD INTEGER,
TIPOCONTA_CAD VARCHAR(15))
AS
begin
if (exists(select key_cad from sincad where (key_cad = :key_cad))) then
update sincad
set nome_cad = :nome_cad,
datnas_cad = :datnas_cad,
sexo_cad = :sexo_cad,
clase_cad = :clase_cad,
cnpj_cad = :cnpj_cad,
cpf_cad = :cpf_cad,
rg_cad = :rg_cad,
keyprof_cad = :keyprof_cad,
edifcom_cad = :edifcom_cad,
empres_cad = :empres_cad,
endcom_cad = :endcom_cad,
baicom_cad = :baicom_cad,
cidcom_cad = :cidcom_cad,
ufcom_cad = :ufcom_cad,
caicom_cad = :caicom_cad,
cepcom_cad = :cepcom_cad,
obscom_cad = :obscom_cad,
ddcom_cad = :ddcom_cad,
fonecom_cad = :fonecom_cad,
ramcom_cad = :ramcom_cad,
dddfaxcom_cad = :dddfaxcom_cad,
fonefaxcom_cad = :fonefaxcom_cad,
edifres_cad = :edifres_cad,
endres_cad = :endres_cad,
bairres_cad = :bairres_cad,
cidres_cad = :cidres_cad,
ufres_cad = :ufres_cad,
cepres_cad = :cepres_cad,
caires_cad = :caires_cad,
obsres_cad = :obsres_cad,
dddres_cad = :dddres_cad,
foneres_cad = :foneres_cad,
dddcel_cad = :dddcel_cad,
fonecel_cad = :fonecel_cad,
email_cad = :email_cad,
estciv_cad = :estciv_cad,
keycon_cad = :keycon_cad,
pai_cad = :pai_cad,
mae_cad = :mae_cad,
nomerec_cad = :nomerec_cad,
dddrec_cad = :dddrec_cad,
fonerec_cad = :fonerec_cad,
renda_cad = :renda_cad,
nrban_cad = :nrban_cad,
agenban_cad = :agenban_cad,
numcta_cad = :numcta_cad,
digage_cad = :digage_cad,
spc_cad = :spc_cad,
serasa_cad = :serasa_cad,
flagrop_cad = :flagrop_cad,
finan_cad = :finan_cad,
flagfia_cad = :flagfia_cad,
flagpropv_cad = :flagpropv_cad,
morto_cad = :morto_cad,
flagimp_cad = :flagimp_cad,
recados_cad = :recados_cad,
datcad_cad = :datcad_cad,
keycodfun_cad = :keycodfun_cad,
keycodfun1_cad = :keycodfun1_cad,
historico_cad = :historico_cad,
recados1_cad = :recados1_cad,
nomcon_cad = :nomcon_cad,
datnascon_cad = :datnascon_cad,
profcon_cad = :profcon_cad,
empcon_cad = :empcon_cad,
endcon_cad = :endcon_cad,
baicon_cad = :baicon_cad,
cidcon_cad = :cidcon_cad,
ufcon_cad = :ufcon_cad,
caicon_cad = :caicon_cad,
financ_cad = :financ_cad,
cepcon_cad = :cepcon_cad,
obscon_cad = :obscon_cad,
fonecon_cad = :fonecon_cad,
dddcon_cad = :dddcon_cad,
dddfaxcon_cad = :dddfaxcon_cad,
fonefaxcon_cad = :fonefaxcon_cad,
cpfcon_cad = :cpfcon_cad,
edifcon_cad = :edifcon_cad,
sexocon_cad = :sexocon_cad,
rgcon_cad = :rgcon_cad,
emailcon_cad = :emailcon_cad,
estcivcon_cad = :estcivcon_cad,
tipoconta_cad = :tipoconta_cad
where (key_cad = :key_cad);
else
insert into sincad (
key_cad,
nome_cad,
datnas_cad,
sexo_cad,
clase_cad,
cnpj_cad,
cpf_cad,
rg_cad,
keyprof_cad,
edifcom_cad,
empres_cad,
endcom_cad,
baicom_cad,
cidcom_cad,
ufcom_cad,
caicom_cad,
cepcom_cad,
obscom_cad,
ddcom_cad,
fonecom_cad,
ramcom_cad,
dddfaxcom_cad,
fonefaxcom_cad,
edifres_cad,
endres_cad,
bairres_cad,
cidres_cad,
ufres_cad,
cepres_cad,
caires_cad,
obsres_cad,
dddres_cad,
foneres_cad,
dddcel_cad,
fonecel_cad,
email_cad,
estciv_cad,
keycon_cad,
pai_cad,
mae_cad,
nomerec_cad,
dddrec_cad,
fonerec_cad,
renda_cad,
nrban_cad,
agenban_cad,
numcta_cad,
digage_cad,
spc_cad,
serasa_cad,
flagrop_cad,
finan_cad,
flagfia_cad,
flagpropv_cad,
morto_cad,
flagimp_cad,
recados_cad,
datcad_cad,
keycodfun_cad,
keycodfun1_cad,
historico_cad,
recados1_cad,
nomcon_cad,
datnascon_cad,
profcon_cad,
empcon_cad,
endcon_cad,
baicon_cad,
cidcon_cad,
ufcon_cad,
caicon_cad,
financ_cad,
cepcon_cad,
obscon_cad,
fonecon_cad,
dddcon_cad,
dddfaxcon_cad,
fonefaxcon_cad,
cpfcon_cad,
edifcon_cad,
sexocon_cad,
rgcon_cad,
emailcon_cad,
estcivcon_cad,
tipoconta_cad)
values (
next value for seq_cad_id,
:nome_cad,
:datnas_cad,
:sexo_cad,
:clase_cad,
:cnpj_cad,
:cpf_cad,
:rg_cad,
:keyprof_cad,
:edifcom_cad,
:empres_cad,
:endcom_cad,
:baicom_cad,
:cidcom_cad,
:ufcom_cad,
:caicom_cad,
:cepcom_cad,
:obscom_cad,
:ddcom_cad,
:fonecom_cad,
:ramcom_cad,
:dddfaxcom_cad,
:fonefaxcom_cad,
:edifres_cad,
:endres_cad,
:bairres_cad,
:cidres_cad,
:ufres_cad,
:cepres_cad,
:caires_cad,
:obsres_cad,
:dddres_cad,
:foneres_cad,
:dddcel_cad,
:fonecel_cad,
:email_cad,
:estciv_cad,
:keycon_cad,
:pai_cad,
:mae_cad,
:nomerec_cad,
:dddrec_cad,
:fonerec_cad,
:renda_cad,
:nrban_cad,
:agenban_cad,
:numcta_cad,
:digage_cad,
:spc_cad,
:serasa_cad,
:flagrop_cad,
:finan_cad,
:flagfia_cad,
:flagpropv_cad,
:morto_cad,
:flagimp_cad,
:recados_cad,
:datcad_cad,
:keycodfun_cad,
:keycodfun1_cad,
:historico_cad,
:recados1_cad,
:nomcon_cad,
:datnascon_cad,
:profcon_cad,
:empcon_cad,
:endcon_cad,
:baicon_cad,
:cidcon_cad,
:ufcon_cad,
:caicon_cad,
:financ_cad,
:cepcon_cad,
:obscon_cad,
:fonecon_cad,
:dddcon_cad,
:dddfaxcon_cad,
:fonefaxcon_cad,
:cpfcon_cad,
:edifcon_cad,
:sexocon_cad,
:rgcon_cad,
:emailcon_cad,
:estcivcon_cad,
:tipoconta_cad);
end^
SET TERM ; ^
Jorge Trento
Curtir tópico
+ 0
Responder
Posts
03/09/2009
Wesley Yamazack
Olá meu amigo, Boa tarde!!!
O que você mandou foram os scritps do banco de dados, correto ? Porém como você faz a pesquisa ? Seu código fonte ? Você usa ClientDataSet? Cria as Querys Dinamicamente? Pois se o erro é na pesquisa, ficaria complicado só ter o banco, tem como me mandar um exemplo pequeno ?
Fico no aguardo
Abraço
Wesley Y
O que você mandou foram os scritps do banco de dados, correto ? Porém como você faz a pesquisa ? Seu código fonte ? Você usa ClientDataSet? Cria as Querys Dinamicamente? Pois se o erro é na pesquisa, ficaria complicado só ter o banco, tem como me mandar um exemplo pequeno ?
Fico no aguardo
Abraço
Wesley Y
Responder
Gostei + 0
04/09/2009
Jorge Trento
Olá bom Dia,
mandei o escript da tabela clientes, estou usando clientdataset, para fazer acesso ao banco de dados
uso um sql connection, um sqldataset, um clientdataset e um datasetprovider, configurado na sua proprietade , opptions, configurado [poAllowCommandText], a instrução dataset eu coloco dentro do clientdataset
que é select * from Sincad where key_sincad =:key_sincad, para a pesquisa eu estou usando o componente do guinther, de acordo com a videoaula construindo uma aplicação completa para videolocadora.
estou enviando arquivo fontes, onde retirei os outros arquivos e ficou somente o que está com problemas.
acho que com isso da para ver .
não sei se é o correto mas enviei o arquivo pelo meu disco virtual.
mandei o escript da tabela clientes, estou usando clientdataset, para fazer acesso ao banco de dados
uso um sql connection, um sqldataset, um clientdataset e um datasetprovider, configurado na sua proprietade , opptions, configurado [poAllowCommandText], a instrução dataset eu coloco dentro do clientdataset
que é select * from Sincad where key_sincad =:key_sincad, para a pesquisa eu estou usando o componente do guinther, de acordo com a videoaula construindo uma aplicação completa para videolocadora.
estou enviando arquivo fontes, onde retirei os outros arquivos e ficou somente o que está com problemas.
acho que com isso da para ver .
não sei se é o correto mas enviei o arquivo pelo meu disco virtual.
Responder
Gostei + 0
04/09/2009
Wesley Yamazack
Olá meu caro,
Só faltou você me mandar o endereço do Disco Virtual, para que eu possa baixar.
Abraço
Wesley Y
Só faltou você me mandar o endereço do Disco Virtual, para que eu possa baixar.
Abraço
Wesley Y
Responder
Gostei + 0
04/09/2009
Jorge Trento
Olá boa tarde, eu disponibilizei o arquivo
https://www.devmedia.com.br/discovirtual
Jorge Roberto Trento, não sei se é por ai, mas caso contrário, diga o local que eu posto
https://www.devmedia.com.br/discovirtual
Jorge Roberto Trento, não sei se é por ai, mas caso contrário, diga o local que eu posto
Responder
Gostei + 0
04/09/2009
Wesley Yamazack
Olá meu caro.
https://www.devmedia.com.br/imagens/videos/4/Video%20disco%20virtual.htm
De uma olhada nesta video, que lhe mostra como fazer.
Abraço
Wesley Y
https://www.devmedia.com.br/imagens/videos/4/Video%20disco%20virtual.htm
De uma olhada nesta video, que lhe mostra como fazer.
Abraço
Wesley Y
Responder
Gostei + 0
04/09/2009
Jorge Trento
desculpe é a primeira vez que uso o suporte , mas acho que agora tá ok, segue link abaixo
http://video.devmedia.com.br/discovirtual/151708/fontes.rar
http://video.devmedia.com.br/discovirtual/151708/fontes.rar
Responder
Gostei + 0
04/09/2009
Wesley Yamazack
Olá amigo,
Este é o link, porém você mandou o projeto todo, qual é o form ? Onde esta dando o erro ? Qual versão do delphi, qual bd você esta usando ? Você esta usando componentes de terceiros certo ? Eu não uso nenhum, deles, me mande o local com o código fonte e o script onde esta dando o erro. Pois assim fica complicado de montar teu ambiente, sacou ?
Forte abraço.
Wesley Y
Este é o link, porém você mandou o projeto todo, qual é o form ? Onde esta dando o erro ? Qual versão do delphi, qual bd você esta usando ? Você esta usando componentes de terceiros certo ? Eu não uso nenhum, deles, me mande o local com o código fonte e o script onde esta dando o erro. Pois assim fica complicado de montar teu ambiente, sacou ?
Forte abraço.
Wesley Y
Responder
Gostei + 0
04/09/2009
Jorge Trento
caro Wesley,
eu mandei do meu projeto a parte do cadastro de clientes, os outros eu retirei, mas o erro está dando
na pesquisa, quando clico no ítem selecionado, recebo a mensagem de expression expected but nothing found
conforme tela enviada pelo insert image, link ../imagens/articles/151708/imagem1.GIF
../imagens/articles/151708/imagem2.GIF.
banco de dados usado, tabela sincad, interbase com firebird 2.0 e drive dbexpreIuibfire15, delphi 7, o componente de pesquisa é o mesmo usado pelo guinther pauly, de acordo com a video aula construindo uma aplicação completa para videolocadora. os quais estão junto com a parte do projeto que eu te mandei.
o form (ufrmcadastrogeral.pas) o script da tabela é o mesmo que te enviei na abertura dessa chamado. gerei novamente o script da tabela e coloquei no link
http://video.devmedia.com.br/discovirtual/151708/script-tabelaCadastro.rar com alguns dados da tabela,
ufrLocalizarEx, utilizado para pesquisas
ulibrary, tem as demais funções.
acho que esta tudo ai, qualquer coisa, me avise
eu mandei do meu projeto a parte do cadastro de clientes, os outros eu retirei, mas o erro está dando
na pesquisa, quando clico no ítem selecionado, recebo a mensagem de expression expected but nothing found
conforme tela enviada pelo insert image, link ../imagens/articles/151708/imagem1.GIF
../imagens/articles/151708/imagem2.GIF.
banco de dados usado, tabela sincad, interbase com firebird 2.0 e drive dbexpreIuibfire15, delphi 7, o componente de pesquisa é o mesmo usado pelo guinther pauly, de acordo com a video aula construindo uma aplicação completa para videolocadora. os quais estão junto com a parte do projeto que eu te mandei.
o form (ufrmcadastrogeral.pas) o script da tabela é o mesmo que te enviei na abertura dessa chamado. gerei novamente o script da tabela e coloquei no link
http://video.devmedia.com.br/discovirtual/151708/script-tabelaCadastro.rar com alguns dados da tabela,
ufrLocalizarEx, utilizado para pesquisas
ulibrary, tem as demais funções.
acho que esta tudo ai, qualquer coisa, me avise
Responder
Gostei + 0
04/09/2009
Jorge Trento
caro Wesley,
eu mandei do meu projeto a parte do cadastro de clientes, os outros eu retirei, mas o erro está dando
na pesquisa, quando clico no ítem selecionado, recebo a mensagem de expression expected but nothing found
conforme tela enviada pelo insert image, link ../imagens/articles/151708/imagem1.GIF
../imagens/articles/151708/imagem2.GIF.
banco de dados usado, tabela sincad, interbase com firebird 2.0 e drive dbexpreIuibfire15, delphi 7, o componente de pesquisa é o mesmo usado pelo guinther pauly, de acordo com a video aula construindo uma aplicação completa para videolocadora. os quais estão junto com a parte do projeto que eu te mandei.
o form (ufrmcadastrogeral.pas) o script da tabela é o mesmo que te enviei na abertura dessa chamado. gerei novamente o script da tabela e coloquei no link
http://video.devmedia.com.br/discovirtual/151708/script-tabelaCadastro.rar com alguns dados da tabela,
ufrLocalizarEx, utilizado para pesquisas
ulibrary, tem as demais funções.
acho que esta tudo ai, qualquer coisa, me avise
eu mandei do meu projeto a parte do cadastro de clientes, os outros eu retirei, mas o erro está dando
na pesquisa, quando clico no ítem selecionado, recebo a mensagem de expression expected but nothing found
conforme tela enviada pelo insert image, link ../imagens/articles/151708/imagem1.GIF
../imagens/articles/151708/imagem2.GIF.
banco de dados usado, tabela sincad, interbase com firebird 2.0 e drive dbexpreIuibfire15, delphi 7, o componente de pesquisa é o mesmo usado pelo guinther pauly, de acordo com a video aula construindo uma aplicação completa para videolocadora. os quais estão junto com a parte do projeto que eu te mandei.
o form (ufrmcadastrogeral.pas) o script da tabela é o mesmo que te enviei na abertura dessa chamado. gerei novamente o script da tabela e coloquei no link
http://video.devmedia.com.br/discovirtual/151708/script-tabelaCadastro.rar com alguns dados da tabela,
ufrLocalizarEx, utilizado para pesquisas
ulibrary, tem as demais funções.
acho que esta tudo ai, qualquer coisa, me avise
Responder
Gostei + 0
08/09/2009
Jorge Trento
Wesley, achei o erro que estava ocorrendo, eu tinha colocado alguns campos lookups na tabela e isso dando problemas, retirei os campos e ficou tudo ok. caso tenha alguma maneira mais eficiente de pesquisar os campos, da um alo, caso contrário, pode fechar a chamada. ok
Abraço
Abraço
Responder
Gostei + 0
09/09/2009
Wesley Yamazack
Olá , meu amigo, eu uso lookups sem problema, em minhas aplicações, pode usar também.
Abraço
Wesley Y
Abraço
Wesley Y
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)