Felipe - Iniciante-Delphi

Galera, Estou com uma duvida, eu criei uma tela de login e tal, e deu tudo certo . Mas no que realmente estou com duvida é assim, o campo ond digita o Usuario, tudo bem aparece o nome na forma escrita e tal.. mas o que eu queria era que o campo senha, aparecesse em forma de asterisco, hahaha , porque se for pra aparecer na forma escrita não adianta de nada né? Imagem : = http://img19.imageshack.us/img19/6061/duvidac.jpg Espero que alguém me ajude =) Obrigado!

Galera, alguém tem mais o menos, um código ou sei la.. que possa informar um jeito claro, como criar uma tela de login ? não quero acessar banco de dados nem nada, é só uma tela , com usuario '1' e senha '1' para logar, caso não digite isso , fala que o usuario não pode logar. =D obrigado galera, ta ficando pronto o prog. ^^ HAUAHUA

Enviar via MS OutLook ;]

Bom Dia, Bom galera, tenho um programa, onde está cadastrado os funcionarios de minha empresa e em um dos campos, tem a data de nascimento deles. Bom, o que eu queria, era que meu programa enviasse e-mail para o funcionario no dia do aniversario dele, espero que alguém possa me dar uma ajuda quanto a isso. Fico no aguardo, Obrigado!

Boa Tarde galera, Bom é o seguinte, possuo um banco de dados, que faz ligação com meu delphi. Pois bem, em um FORM no delphi, que vai ser o Perfil Profissional da pessoa, vai ter uma campo onde vai ser a foto do usuario, bom, eu tenho um Table chamanda , TB_PROFISSIONAL, e eu queria adicionar uma coluna nela, onde fosse para eu adicionar a foto. alguém aqui pode meio que fazer um passo a passo para mim ? Muito obrigado galera,

Galera, Tenho uma TABELA chamanda TB_FUNCIONARIO, e nela um campo com o nome DT_NASC. Pois bem, como faço para trazer em um select a DATA deles, só que no formato (aaaa-mm-dd) ? Ano, Mês e Dia. alguém ajuda eu? *.* Obrigado,

não consegui usar esse comando =/

http://img526.imageshack.us/i/ajudaw.jpg/ Galera, estou criando um programa interno para minha empresa. Nele marca-se os dados dos funcionarios, e eu implementei um comando de " BUSCA ", nele, a pessoa digitaria o nome e apertaria OK, dai, pularia direto para a linha do DBGRID onde tem aquele nome. Será , que alguém poderia me ajuda fazer isso ? =) Obrigado galera, ;)

Galera ; alguém poderia me informar como posso fazer um ajuste de tela ? Sei que tem um arquivo .css que é nele que se ajusta certo ?? Só que o meu programa só se ajusta no FireFox, alguém poderia me ensinar como ajustar no IE também? Segue imagem do erro : http://img524.imageshack.us/i/imagemed.jpg/ Obrigado,

Em minha empresa, o menor banco de dados tem 5GB + o - porque foi inplantado semana passada. Os bancos aqui recebem dados diariamente, por isso, cada dia que passa ele cresce. Voce criar 10 tabelas, inserir 500 registros ele será pequeno, mas faça isso durante 1 mês ;) Abrcs

SE EU COLOCO NO MEU SQL " SELECT * FROM TABELA WHERE TEXTO LIKE '%nononnnoononono nonononononoonon%' " Me retorna tudo vazio também, ou seja, está errado. Não consegui entender MUITO BEM o que você colocou , mas esse seu select que você quer dar, qual o valor afinal que voce quer que retorne? abrcs

Caro, Você já procurou via Torrent? mininova.com

Obrigado ae pela ajuda galera. Eu corrigi isso ae, instalando um Pacote de Atualização do DelphiAdo. :S Mas mesmo assim, muito obrigado gente xD Abraco ae,

Galera, estou com o seguinte probleminha. =) Bom, tenho uma ComboBox que faz uma consulta no Banco de Dados SQL Server 2000. Bom, está tudo OK , abro a combobox e me retorna todas as linhas que pedi pra retornar, até ai tudo bem ... ... o problema surge quando eu fecho a aplicação, me retorna o seguinte erro : 1° Erro, ao feca a aplicação : http://img209.imageshack.us/i/erro1k.jpg/ 2° Erro, ao apertar F9 novamente : http://img209.imageshack.us/i/erro2.jpg/ Query onde ocorre o erro : procedure TfrmCliente.FormActivate(Sender: TObject); begin dm.qryLeCPF.Close; dm.qryLeCPF.sQL.Clear; dm.qryLeCPF.SQL.Add ('select CPF from TB_CLIENTE'); dm.qryLeCPF.Open; cbCPF.clear; while not dm.qryLeCPF.Eof DO begin cbCpf.Items.Add(dm.qryLeCPF.FieldByName('CPF').AsString); dm.qryLeCPF.Next; end; end; Espero que alguém possa me ajudar :/ Agradeço a todos, Felipe!

desculpa a demora para responder, UAHUAHA conheço try catch sim, irei procurar utilizar essa sua dica fulvio, obrigado mais uma vez até

Fulvio, Aproveitando essa procedure , seria muito pedir pra você me ensinar a fazer tratamentos de erros??? Tipo, o campo NR_CPF e o campor NR_CNPJ são unique, da pra gente trata um erro aproveitando essa procedure? Se não for pedir muito.. haha

Aeeeeeeeeeee Mais uma vez o FULVIO me ajudo. HAHAHAHAHA' Bom, semana que vem irei tirar mais duvidas com voce ta bom? HAUAHAUHAUAHAUHA Grande abraco, obrigado pela ajuda ae, Até mais..

ALTER PROCEDURE SP_INSEREDADOS_1 -- DECLARAÇÃO DAS VARIAVEIS @CODIGO int = null, @NOME varchar(200), @EMAIL varchar(200), @RG varchar(9), @TELEFONE numeric(14), @TIPO numeric(1), @CPF numeric(11), @NASCIMENTO Datetime, @SEXO char(1), @PROFISSAO varchar(200), @CNPJ numeric(14), @NOMEEMP varchar(200), @INSCRICAO varchar(30), @ORDEM char(1) AS IF (@ORDEM) = 'i' -- insere registros nas tabelas. BEGIN IF EXISTS (SELECT DS_RG FROM TB_CADASTROP WHERE DS_RG = @RG) BEGIN SELECT 'RG já CONSTA NO CADASTRO, NÃO PODENDO SER DUPLICADO' RETURN END ELSE BEGIN BEGIN TRANSACTION INSERT INTO TB_CADASTROP (DS_NOME, DS_EMAIL, DS_RG, NR_TELEFONE, DS_TIPO) VALUES (@NOME, @EMAIL, @RG, @TELEFONE, @TIPO) SET @CODIGO = (SELECT MAX(CD_PESSOA) FROM TB_CADASTROF) IF ( SELECT DS_TIPO FROM TB_CADASTROP WHERE CD_PESSOA = @CODIGO) = 1 BEGIN INSERT INTO TB_PESSOAF (CD_PESSOA, NR_CPF, DT_NASCIMENTO, TP_SEXO, TP_PROFISSAO) VALUES (@CODIGO, @CPF, @NASCIMENTO, @SEXO, @PROFISSAO) END ELSE BEGIN SET @CODIGO = (SELECT MAX(CD_PESSOA) FROM TB_CADASTROPJ) INSERT INTO TB_PESSOAPJ (CD_PESSOA, NR_CNPJ, DS_NOME_EMP, DS_INSCRICAO_EST) VALUES (@CODIGO, @CNPJ, @NOMEEMP, @INSCRICAO) END END END IF @@ERROR > 0 BEGIN ROLLBACK TRAN RETURN END GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS ON GO Bom, agora compilo tudo numa boa, mas um fato que achei gozado foi que, quando eu chamo a procedure e a executo, o meu Toad For Sql Trava =s Creio que ainda tenha um erro. Só que como compilo tudo numa boa, fica a duvida se realmente existe ou se sou eu que estou chamando errado. EXEC SP_INSEREDADOS_1 @NOME = 'felipe', @EMAIL = 'fe.fe.fe@fe.com.fe', @RG = '345896526' , @TELEFONE = 5584123, @TIPO = 1, @CPF = 58966354689, @NASCIMENTO = '05/05/05', @SEXO = 'm', @PROFISSAO = 'lixeiro', @CNPJ = null, @NOMEEMP = null, @INSCRICAO = null, @ORDEM = 'i' =) eitaaaa , uma hora vai. hahaha até mais..

HAHAHAHA. NÃO TENHO MAIS DUVIDAS QUANTO A INSERIR EM 2 TABELAS, MAS AGORA A DUVIDA É PARA INSERIR EM 3. HAHAHAHAHA' Bom, eu tentei entender o que você me explicou, mas como você já percebeu, eu sou meio lerdo. hahaha' mas assim, eu fiz a tal comparação, não sei se foi isso que você quis dizer, até por que deu o mesmo erro de antes. ( axo que meu negocio é administrar banco mesmo ) HUAHAUA mas vamos com calma que eu aprendo como aprendi o outro. Segue o script com a comparação. : CREATE PROCEDURE SP_INSEREDADOS_1 -- DECLARAÇÃO DAS VARIAVEIS @CODIGO int = null, @NOME varchar(200), @EMAIL varchar(200), @RG varchar(9), @TELEFONE numeric(14), @TIPO numeric(1), @CPF integer, @NASCIMENTO numeric(11), @SEXO char(1), @PROFISSAO varchar(200), @CNPJ numeric(14), @NOMEEMP varchar(200), @INSCRICAO varchar(30), @ORDEM char(1) AS IF (@ORDEM) = 'i' -- insere registros nas tabelas. BEGIN IF EXISTS (SELECT DS_RG FROM TB_CADASTROP WHERE DS_RG = @RG) BEGIN SELECT 'RG já CONSTA NO CADASTRO, NÃO PODENDO SER DUPLICADO' RETURN END ELSE BEGIN BEGIN TRANSACTION INSERT INTO TB_CADASTROP (DS_NOME, DS_EMAIL, DS_RG, NR_TELEFONE, DS_TIPO) VALUES (@NOME, @EMAIL, @RG, @TELEFONE, @TIPO) IF ( SELECT DS_TIPO FROM TB_CADASTROP WHERE DS_TIPO = 1) BEGIN SET @CODIGO = (SELECT MAX(CD_PESSOA) FROM TB_CADASTROF) INSERT INTO TB_PESSOAF (CD_PESSOA, NR_CPF, DT_NASCIMENTO, TP_SEXO, TP_PROFISSAO) VALUES (@CODIGO, @CPF, @NASCIMENTO, @SEXO, @PROFISSAO) END ELSE BEGIN SET @CODIGO = (SELECT MAX(CD_PESSOA) FROM TB_CADASTROJ) INSERT INTO TB_PESSOAJ (CD_PESSOA, NR_CNPJ, DS_NOME_EMP, DS_INSCRICAO_EST) VALUES (@CODIGO, @CNPJ, @NOMEEMP, @INSCRICAO) END COMMIT TRANSACTION END END Eu so queria dizer que se o rapaz digitar um la no tipo_pessoa 1, o cadastro sera efetuado no cadastrof, else, no cadastroj =] Obrigado fulvio, Até mais,

Fulvio, se for voce que le esse tópico, essa procedure nova eu to montando na mesma logica da ultima que você havia me ensinado, ok ? Bom, primeiramente, segue ela : CREATE PROCEDURE SP_INSEREDADOS_1 -- DECLARAÇÃO DAS VARIAVEIS @CODIGO int = null, @NOME varchar(200), @EMAIL varchar(200), @RG varchar(9), @TELEFONE numeric(14), @TIPO numeric(1), @CPF integer, @NASCIMENTO numeric(11), @SEXO char(1), @PROFISSAO varchar(200), @CNPJ numeric(14), @NOMEEMP varchar(200), @INSCRICAO varchar(30), @ORDEM char(1) AS IF (@ORDEM) = 'i' -- insere registros nas tabelas. BEGIN IF EXISTS (SELECT DS_RG FROM TB_CADASTROP WHERE DS_RG = @RG) BEGIN SELECT 'RG já CONSTA NO CADASTRO, NÃO PODENDO SER DUPLICADO' RETURN END ELSE BEGIN BEGIN TRANSACTION INSERT INTO TB_CADASTROP (DS_NOME, DS_EMAIL, DS_RG, NR_TELEFONE, DS_TIPO) VALUES (@NOME, @EMAIL, @RG, @TELEFONE, @TIPO) IF ( SELECT DS_TIPO = 1) BEGIN SET @CODIGO = (SELECT MAX(CD_PESSOA) FROM TB_PESSOAP) INSERT INTO TB_PESSOAF (CD_PESSOA, NR_CPF, DT_NASCIMENTO, TP_SEXO, TP_PROFISSAO) VALUES (@CODIGO, @CPF, @NASCIMENTO, @SEXO, @PROFISSAO) END ELSE BEGIN SET @CODIGO = (SELECT MAX(CD_PESSOA) FROM TB_PESSOAP) INSERT INTO TB_PESSOAJ (CD_PESSOA, NR_CNPJ, DS_NOME_EMP, DS_INSCRICAO_EST) VALUES (@CODIGO, @CNPJ, @NOMEEMP, @INSCRICAO) END COMMIT TRANSACTION END END O problema agora é o seguinte, ela vai inserir em 2 tabelas, primeiro ela insere na TB_PESSOAP onde insere os dados normais com o campo CD_PESSOA identity. Segundo, ela verifica se o campo (DS_TIPO_PESSOA) é igual a ' 1 ' ou ' 2 ' ( ele passa por uma constraint check que só permite esses dois valores) se for igual a 1 , ela vai inserir na tabela TB_PESSOAF, se for igual a 2 ela insere na TB_PESSOAJ. Mas quando eu vo compilar isso, ele me retorna dois erros := 'Incorrect sintax near BEGIN' e o outro 'Incorrect sintax near ELSE' . Eu ainda me perco um pouco com Begin´s e End´s . Sera que alguém pode falar para mim onde eu estou errando ?? Creio que a logica que esta feira esteja certa, só me falta arrumas esses ' INCORRECTS' mesmo. HAHAHA Obrigado galera. =] Abraços ;

Para lhe deixar um pouco mais feliz, eu segui esse seu raciocinio e apliquei nas tabelas de verdade, e deu tudo certo. MUITO OBRIGADO! =] Grande abraço, Até a proxima duvida.

AEEEEEEEEEEEEEEEEEEEEE FULVIOOOOOOOOOOOOOOOOOOOOO!!! Deu certooo, finalmente. HAHAHAHAHAHHAAHHA Muito Obrigado mesmo cara, você me ajudou muito juro para voce :D Obrigadoo mesmo. FINALMENTE CONSEGUI. hahaha Assim, você fez via table temporaria, mas se eu quiser fazer nas minhas tabelas já pronta, eu so mudo o nome da tabela que vou inserir né? ( #TB_PESSOA, para TB_PESSOA NORMAL) e acrescento os campos que falta ok ?? Mas ae, Obrigado de coração, fiquei muito grato por toda essa força que você me deu. Grande abraço!

eu já havia tentando com o set e mesmo assim não tinha ido olha : if (@ordem) = 'i_fisica' -- insere um registro begin if exists(select ds_email from TB_PESSOA where ds_email = @email) begin select @email = 'E-MAIL já EXISTENTE' return (@email) end else begin begin transaction insert into TB_PESSOA (ds_tipo_pessoa, ds_email, dt_cadastro, dt_atualização, fl_bloqueio) values (@tipo, @email, @cadastro, @atualizacao, @bloqueio) Set @codigo = (select max(cd_pessoa)from TB_PESSOA) insert into TB_PESSOA_FISICA ( ds_nome, nr_cpf, ds_rg, dt_nascimento, tp_estado_civil, tp_sexo, tp_profissao) values ( @nome, @cpf, @rg, @nascimento, @civil, @sexo, @profissao) end end Na hora de chamar a procedure eu coloco : EXEC SP_TESTE_1_F @tipo = 1, @email = 'felipe.lima@google.com', @cadastro = '09/12/05', @atualizacao = '07/10/09', @bloqueio = 1, @ordem = 'i_fisica', @nome = 'felipe lima', @cpf = 59633568963, @rg = '541235698', @nascimento = '09/20/96', @civil = 'solteiro', @sexo = 'masculino', @profissao = 'estagiario', @codigo = null Mesmo assim, so add na TB_PESSOA =[ sera que nunca vou conseguir? Obrigado,

Bom Dia, Fiz tudo que foi solicitado Mas o unico problema é na hora de falar que a variavel @codigo vai receber o valor de (select max(cd_pessoa) from TB_PESSOA) .. Eu coloco @codigo = select max(cd_pessoa) from tb_pessoa e mesmo assim da erro. Segue codigo .. if (@ordem) = 'i_fisica' -- insere um registro begin if exists(select ds_email from TB_PESSOA where ds_email = @email) begin select @email = 'E-MAIL já EXISTENTE' return (@email) end else begin begin transaction insert into TB_PESSOA (ds_tipo_pessoa, ds_email, dt_cadastro, dt_atualização, fl_bloqueio) values (@tipo, @email, @cadastro, @atualizacao, @bloqueio) @codigo = (select max(cd_pessoa)from TB_PESSOA) insert into TB_PESSOA_FISICA (cd_pessoa, ds_nome, nr_cpf, ds_rg, dt_nascimento, tp_estado_civil, tp_sexo, tp_profissao) values ( @codigo, @nome, @cpf, @rg, @nascimento, @civil, @sexo, @profissao) sera que você pode me ajudar pela ultima vez? Acho que depois que aprender isso, nunca mais esquecerei . HAHAHA Aguardo anciosamente sua resposta; Obrigado =]

Boa Tarde Fulvio, Fiquei muito grato por todas essas dicas que foram passadas para mim, garanto que levarei-as para o resto de minha vida na carreira desenvolvedor. hahaha Coloquei a procedure nova ( que você passou para mim ) e deu tudo certo na hora de compilar ela, ainda não realizei o EXEC para testar se os valores estão sendo inseridos, pois fiquei com uma duvida. Sim, meu campo CD_PESSOA é IDENTITY ( ou seja, auto increment ) então, sempre que insiro o valor na tabela TB_PESSOA, esse campo recebe um valor, porém, não peguei ainda muito o jeito de achar esse valor, se voce pudesse me ajudar iria ficar muito grato. Segundo, depois que eu fizer todas as alterações e compilar tudo certinho , na hora que eu chamo a procedure eu a chamo assim : EXEC SP_TESTE_1_F @tipo = 1, @email = 'felipe@sbt.org', @cadastro = '09/12/05', @atualizacao = '07/10/09', @bloqueio = 1, @ordem = 'i_fisica', @nome = 'felipe lima', @cpf = 59633568963, @rg = '541235698', @nascimento = '09/20/96', @civil = 'solteiro', @sexo = 'masculino', @profissao = 'estagiario' @codigo integer Na parte '@codigo eu atribuo qual valor a ela? @codigo = ???? . Aguardo sua resposta, e agradeço por todas essas dicas . Muito obrigado mesmo, Tenha uma boa tarde. Abraços