Erso

cara faz o seguinte: você cria varias procedures contendo a variavel sender do tipo TObject (essa variavel sera seu botao, igual a procedure onclick q é criada quando você utiliza o botao! ) criando procedure procedure p1(sender: TObject); begin //primeira procrdure ShowMessage('Ola!'); end; procedure p2(sender: TObject); begin //segunda procrdure ShowMessage('tudo bom??'); end; nessas procedures você pode colocar suas rotinas ai p fazer essas rotinas se tornarem o onclick do seu botao é so atribuir a procedure ao onclick do botao: //para procedure p1 Button1.OnClick := p1; ... //para procedure p2 Button1.OnClick := p2; falou!!

exato, no cliente, gostaria de saber se tem alguma forma de usar os componentes da paleta BDE, sem ter q instalar o BDE administrator nos meus cliente?? :blink: , como "dbexpress". porque é incomodo p eu ter q instalar o BDE administrator no cliente sim é instalado mesmo, mas meu proplema é esse ter q instalar o BDE administrator no meu cliente obrigado!!

pessal me ocorreu uma duvida aqui... :blink: Quando utilizo os componentes da paleta BDE é necessário intalar o BDE administrator mesmo quando utilizo o componente DataBase para conectar??? obrigado!!

provavelmente o Form "dmcadfuncionario" não esta criado!! pelo "dm" acredito ser um datamodule, va no menu Project->option... na aba "Forns" na listagem de criação de automatica "auto-create-forns" coloque o "dmcadfuncionario" em primeiro para ser criado antes do seu form principal.... falou...

os 2 BDS são muito bons já trabalhei com os dois, mas p você q esta iniciando indico o Firebird porque p utilizar mysql no delphi você tera q instalar componentes de terceiros ( Zeos p exemplo ). o mysql tb não tem sequence ( generation no firebird ), em contra partida possui campos auto-incremento, já o firebird não ( est problema é contornado com uma trigger ). falou, espero ter ajudado

tive varios problemas com envio d e-mail tb, esse tutorial q o Jhonas indicou é muito bom mesmo, mas... tem um porem não faz autenticação, esse erro "Authorization Failed (#5.7.0) " você obtem ao usar smtp.mail.yahoo.com.br, se tentar usar gmail, ou ig tb vai ter problemas parecidos. porque é necessario utilizar :protocolo "SSL" SSL atravez do componente "IdSSLIOHandlerSocket" paleta -> Indy I/O Handlers... tem mais alguns porens... é preciso você ter a versão 9 ou superior(a 10 ainda é Beta) dos componentes indy.. e tb baixar 2 dlls... essas Dlls são d terceiros Dlss Indy 9 você vai ter q reparar a instalação do delphi e instalar os componentes indy... e colocar as dlss na pasta do seu executavel esquentei muito a kbç com isso ... vi muitos tutoriais, pesquisei bastante. estou pensando em fazer um tutorial sobre esse asunto (mas esta faltando um pouco d tempo). posso t mandar um email com um exemplo q eu fiz. falou..abraço espero ter ajudado

Opa!!! Acredito q você deva ter uma campo com a data do registro exe: "Valor + DtmIza.QryIza.FieldByName('DATA').AsDateTime" você pode verificar se essa data é do dia d hj e se for você soma em uma variavel separada so para os valores correspondente a hj!! =/- assim: Var Valor : Real; Valor_Dia :Real; begin Valor := 0; Valor_Dia := 0; Query1.First; While not Query1.Eof Do Begin Valor := Valor + Query1.FieldByName('Valor').AsFloat; Query1.Next; If Query1.FieldByName('DATA').AsDateTime = Now Then Valor_dia := Valor_dia + Query1.FieldByName('Valor').AsFloat; //Aqui so somara os dias d hj. End; Edit1.Text := FormatFloat('##0.00',Valor); end; ps: Eu não testei a rotina pode ter algum erro de sintaxe, mas a logica funciona legal!! uso muito calculos dessa forma!!!

como disse o "Felipee", você pode usar o filter do componente, indico a você fazer isso utilizando um client, eu utilizo muito dessa forma utilizando ClientDataSet1 a performece fica muito boa!! falou!!! procedure TForm1.Edit1Change(Sender: TObject); begin ClientDataSet1.Filtered := False; ClientDataSet1.Filter := ' MEU_CAMPO LIKE '''+Edit1.Text+'%'''; ClientDataSet1.Filtered := True; end;

robinhocne, acredito ficar legal você colar em edits, mostrando os totais da sua consulta. essa rotina varre a query calculando os valores, o "FormatFloat" Formata para mascara de moeda para exibir em um edit. falou. Var Valor : Real; begin Valor := 0; Query1.First; While not Query1.Eof Do Begin Valor := Valor + Query1.FieldByName('Valor').AsFloat; Query1.Next; End; Edit1.Text := FormatFloat('##0.00',Valor); end;

Faz uma verificação se a há algum item selecionado: Abraço

Cara, muito obrigado! abraço!

ola pessoal!! eu criei alguns componentes em delphi, gostaria de saber como colocar um icone q eu criei no meu componente, para q esse icone apareça na paleta, pois esta aparecendo os icones do componete q eu herdei, já pesquisei na internet mas não achei nada relacionado! Obrigado!!

tem sim você pode usar uma trigger!! CREATE TRIGGER NOMETRIGGER FOR NOMETABELA ACTIVE BEFORE INSERT POSITION 0 AS begin NEW.NOMECAMPO = substring(NEW.NOMECAMPO from 3 for 4) || substring(NEW.NOMECAMPO from 1 for 2); end toda vez que for inserido um noo registro ele chama a trigger e formata o seu campo!

Boa Micheus!!! Isabela você pode fazer assim!! 1 - coloca um QuickRep no seu form 2 - vai nas propriedades do QuickRep em bands e coloque Has Title = true(isso cria uma banda titulo pra você) 3- coloca o componente QRRichText(da banda QReport) dentro da banda title e coloque esse comando em um button esse codigo salva o conteudo do seu RichEdit1 em uma variavel MemoryStream e depois oQRRichText1 carrega o conteudo dessa variavel, dessa forma o seu teste mantem a formatação!! ps: você pode colocar o seu QuickRep em um formulario aparte(Fica mais proficional).

Pois é Micheus, acabei tendo que fazer assim mesmo. eu fis uma rotina que dismenbra os scrips caso aja mais de um, ai eu executo um de cada vez, hehehe não achei outra solução!!!!!! :huh:

opa!!! vou temtar fazer um tutorial pois tem varios passos ai disponibilizo pode ser?

Cara conseguimos instalar o JediVcs na empresa!!! instalei com banco de dados oracle ele funciona assim: 1 Instala o server 2 roda os Scripts de banco de dados(gera o banco e as tabelas) 3 instala os Cliente nas maquinas, conecta no server com um usuario padrão criado crias os usuarios. 4 add os projetos! agredito que esse CVSNT deva ser da mesmo forma!

cara é uma resposta meio chula mas acho que resolve heheh!! não estou com o delphi aqui pra testar.... é so uma ideia...

Consegui!!! Cara desculpe pela demora!!! hehehe, eu já tinha ate esquecido desse post. Mas o negocio é o seguinte um amigo de um cara la na empresa ajudou agente a configurar o JediVcs e tal!!!! não é tão dificil!! se você estiver enteressado ou qualquer membro posta ai que eu ajudo!!!! :lol: ps: o freeVcs é muito bom vale apena implantar na empresa!!!

é isso ai cara como o Churc falow usa decodeDate! não estou com o delphi agora mas é isso!!!! :lol:

galera eu presiso excutar varios comandos sql de uma vez, por uma query(ou utro componente) ex: UPDATE OPERADOR O SET O.CARGO = ' cargo1' WHERE O.CD_OPERADOR = 1 ; UPDATE OPERADOR O SET O.CARGO = 'cargo2' WHERE O.CD_OPERADOR = 2; UPDATE OPERADOR O SET O.CARGO = 'cargo3' WHERE O.CD_OPERADOR = 3; UPDATE OPERADOR O SET O.CARGO = 'cargo4' WHERE O.CD_OPERADOR =4; tudo de uma so vez, so que a query retorna caracter invalido para ';' Useo BDE x Oracle Obrigado!

SELECT * FROM MINHATABELA WHERE DATA = '1986-12-28' onde '1986-12-28' é '28/12/1986' :lol:

Parabéns Micheus.... tenho certeza que você vai se dar bem nessa empreitada heheheh abraços

Progr'amador é realmente uma pena que você tenha que se despedir do forum, so temos a agradecer o seu emprenho em relação ao forum, e como o Micheus disse: esperamos que você possa voltar, falou cara..Abraços!

cara! eu já tinha visto esse post, .. mas não funcionou eu tenho uma sessao "Session1" e mudei a propriedade dele, coloquei o codigo na criação o data module, acessei a sessão atravez do dataBase (database1.session.SQLHourGlass := False;), tentei de toda a forma, coloquei um breakPoint para verificar se a propriedade estava setada como false. tava tudo certo, porem continua aparecendo o cursor :huh: você sabe algo que eu poderia estar fazendo de errado? estou usando os componentes BDE + oracle