Re: [delphi-br] Ajuda com Checklistbox

2010-08-07 Por tôpico Darkzad
  No evento OnclickCheck vc verfica se o item1 está selecionado.

   if CheckListBox1.Checked[1] then
 CheckListBox1.Checked[2] := False;

Não esqueça que a array começa do Zero.

[]'s


Em 06-08-2010 19:53, rodrigo escreveu:

 Olá, tenho um checklistbox onde tenho dois vários itens, mas tem dois 
 que são mutuamente excludentes, isto é quando um for selecionado o 
 outro tem que estar sem seleção, como posso fazer isso automático, 
 para que quando meu usuario selecionar o item1, o item2 perca a 
 seleção e vice-versa.

 Desde já agradeço

 



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] mysql

2010-08-07 Por tôpico Eduardo Silva dos Santos
Dionatan,

Qual a versão do MySQL?
Qual a versão do MySQL Administrator?

faz um teste e tente fazer um backup usando o mysqldump

tente no prompt:  mysqldum -uroot -pSENHA  nomedobanco
--result-file=c:\backup.sql


Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


Em 6 de agosto de 2010 15:00, Dionatan Henrique Santos 
dionata...@hotmail.com escreveu:




 o servidor ta rodando beleza...

 pois tenho uma aplicação em delphi funcionando 100%

 meu problema e so o backup mesmo

  To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  From: govoni.fel...@gmail.com govoni.felipe%40gmail.com
  Date: Fri, 6 Aug 2010 12:12:42 -0300
  Subject: Re: [delphi-br] mysql

 
  verifica se o servidor ta rodando.
 
 
  o banco eh local ou sta na internet?
 
 
 
  Em 6 de agosto de 2010 10:59, dionatanhenrique 
  dionata...@hotmail.comdionatan_b%40hotmail.com
 escreveu:
 
  
  
   pessoal to com um problema seguinte
   programei o mysql 5.0 para fazer backup automatico... ate ai beleza...
   ele cria o arquivo de sql ...
   porém quando tento restaurar este arquivo da a mensagem de erro
   mysql was gone way
   e enche de erro..
   o que pode ser?
   uso o mysqladministrador
  
   obs: tenho tabelas que contem arquivos, imagens, etc...
  
   existe outra ferramenta de backup?
  
   tentei utilizar mysql dump os campos que nao sao blob ate ele faz
 correto
   mas quando tem campo blob não..
  
   Aguardo...
  
  
  
 
 
 
  --
  Felipe Govoni
  -
  GOVONI Sistemas
  Fone 8472-8718
  www.govoni.com.br
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
  
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 
 


 [As partes desta mensagem que não continham texto foram removidas]

  



[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html




[delphi-br] VAGA: Delphi para São Bernardo do Campo

2010-08-07 Por tôpico Camila Carvalho
São Bernardo do Campo
Programador Delphi
Mínimo 3 anos de experiência.
Terá que ter conhecimento em Delphi 5, 6 e 2007.
Base de dados Firebird/Interbase e Sql-Server.
Experiência em Client/Server - 3 camadas.
 
Será regime CLT, no valor de R$ 2.500,00 até R$ 3.000,00
Benefícios: V.R. R$ 13,50, Convênio após 3 meses de empresa, Seguro de Vida.
 
Interessados, enviar cv para ccarva...@tiviati.com.br
 


  

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Procedimento para chamar formulários.

2010-08-07 Por tôpico Marciano Venter
**
Boa Noite a todos,

Estou montando um projetinho simples de cadastros, pois estou iniciando no
delphi e usando ele para aprender algumas coisas. Bom, estou tentando fazer
um procedimento para chamar meus formulários, pois em cada Action para
chamar um formulário estou utilizando o código abaixo :

if FrmCadClientes = nil then
  begin
Application.CreateForm(
TFrmCadClientes, FrmCadClientes);
FrmCadClientes.Show;
  end
  else
  begin
if FrmCadClientes.WindowState = wsMinimized then
begin
  FrmCadClientes.WindowState := wsNormal;
end;
FrmCadClientes.Show;
  end;

o que ocorre, é que eu estou tento dificuldades com os tipos dos paramentros
do procedimento CreateForm().
Estou tentando usar assim, mas sem sucesso:


procedure TFrmPrincipal.AbreForm(TFForm: TComponentClass; N_Form: TForm);
begin
  if N_Form = nil then
  begin
Application.CreateForm(TFForm, N_Form);
N_Form.Show;
  end
  else
  begin
if N_Form.WindowState = wsMinimized then
begin
  N_Form.WindowState := wsNormal;
end;
N_Form.Show;
  end;
end;

Usando meu procedimento da seguinte maneira, AbreForm(TFrmCadClientes,
FrmCadClientes); o form abre varias vezes quantas forem clicadas no botão, e
usando da primeira forma, ele funciona corretamente, utilizei o mesmo
formulário nas duas formas.
PS.: Esse formulário é herdado de um formulário base, no FrmPrincipal o
FormStyle é fsMDIForm e os outros como fsMDIChild.


Obrigado.


[As partes desta mensagem que não continham texto foram removidas]



Re: Res: [delphi-br] consulta em interbase

2010-08-07 Por tôpico Darkzad

Fiquei na dúvida, vc está usando um checkbox, a pesquisa pode ser feita 
tanto por CPF ou Por nome? Pq não um ComboBox ou radio Group assim fica 
mais lógico.

Tente fazer assim:

if rbnome.Checked then
   begin
 with dmSIGAE.ibqAluno do
   begin
 close;
 SQL.Clear;
 SQL.Add('SELECT *' );
 SQL.Add('FROM ALUNO');
 SQL.Add('WHERE NOMECOMPLETO LIKE :CAMPO');
 ParamByName('CAMPO').AsString := Edit1.Text  + '%';
 Open;
   end;
   end;

Qualquer coisa posta aí.

[]'s


Em 06-08-2010 16:53, Farmy G. Ferreira da Silva escreveu:

 Darkzad,

 Na verdade não deveria estar, já que só entro na função cpf quando o 
 campo
 edit1.text tem números e o ifrbcpf.Checked = truethen é verdadeiro, 
 mesmo sendo
 falso esse cheque ele pega o conteúdo que está em edit e passa para a 
 função
 cpf, tentei utilizar um braek quando entrar no ifrbNome.Checked = 
 truethen, mas
 ele acusa erro também, não estou encontrando saída para fazer com que 
 a opção de
 busca possa ser alterada de forma rápida e dinamicamente.

 [ ]'s

 -
 *
 -
 Farmy Gonçalves Ferreira da Silva
 Engenheiro de Software
 Mestrando em saúde mental.
 Laboratório de integração SensórioMotaraIPUB/UFRJ. IBBN.
 -
 *
 -
 www.profissionaisdetecnologia.com.br
 profissionaisdetecnologia-subscr...@yahoogrupos.com.br 
 mailto:profissionaisdetecnologia-subscribe%40yahoogrupos.com.br
 -
 *
 -
 farmysi...@yahoo.com.br mailto:farmysilva%40yahoo.com.br
 farmyferre...@yahoo.com.br mailto:farmyferreira%40yahoo.com.br
 farmysi...@hotmail.com mailto:farmysilva%40hotmail.com
 Tel: 9388 - 9619 / 7872 - 4718 Id 10*80735

 
 De: Darkzad dark...@yahoo.com.br mailto:darkzad%40yahoo.com.br
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Enviadas: Sexta-feira, 6 de Agosto de 2010 8:37:18
 Assunto: Re: [delphi-br] consulta em interbase

 Parece que o seu problema está na função CPF, não?

 []'s

 Em 05-08-2010 15:30, Farmy G. Ferreira da Silva escreveu:
 
  Pessoal, estou com dois problemas:
 
  1º minha consulta
  procedureTfrmPesqAluno.Button2Click(Sender: TObject);
  begin
  // codigo para fazer a pesquisa pelo nome
 
  ifrbnome.Checked = TRUEthen
  begin
  withdmSIGAE do
  begin
  withibqAluno do
  begin
  close;
  SQL.Clear;
  SQL.Add('SELECT *' );
  SQL.Add('FROM ALUNO');
  SQL.Add('WHERENOMECOMPLETOLIKE''%'+Edit1.Text+'%'';');
  Open;
  end;
  end;
  end;
 
  //codigo para realizar a pesquisa por cpf
  ifrbcpf.Checked = truethen
  begin
  //verifica validade do cpf
  ifCPF(Edit1.Text) = falsethen
  begin
  Edit1.Color := clred;
  ShowMessage('CPF inválido Digite novamente!');
  Edit1.SetFocus;
  end
  else
  begin
  Edit1.Color := clwindow;
  end;
 
  //busca cpf no banco de dados
  withdmSIGAE do
  begin
  withibqAluno do
  begin
  close;
  SQL.Clear;
  SQL.Add('SELECT *' );
  SQL.Add('FROM ALUNO');
  SQL.Add('WHERECPF= '''+Edit1.Text+''';');
  Open;
  end;
  end;
  end;
  end;
 
  retorna um erro na primeira letra digitada dizendo que: A não é um
  valor
  inteiro valido, e meus campos de pesquisa sõavarchar.
  Segundo problema eu preciso realizar um update nos dados retornados pela
  pesquisa alguem tem algum material sobre o componente TIBUpdateSql da
  paleta
  interbase do d2009?
 
  []'s
 
  -
  *
  -
  Farmy Gonçalves Ferreira da Silva
  Engenheiro de Software
  Mestrando em saúde mental.
  Laboratório de integração SensórioMotaraIPUB/UFRJ. IBBN.
  -
  *
  -
  www.profissionaisdetecnologia.com.br
  profissionaisdetecnologia-subscr...@yahoogrupos.com.br 
 mailto:profissionaisdetecnologia-subscribe%40yahoogrupos.com.br
  mailto:profissionaisdetecnologia-subscribe%40yahoogrupos.com.br
  -
  *
  -
  farmysi...@yahoo.com.br mailto:farmysilva%40yahoo.com.br 
 mailto:farmysilva%40yahoo.com.br
  farmyferre...@yahoo.com.br mailto:farmyferreira%40yahoo.com.br 
 mailto:farmyferreira%40yahoo.com.br
  farmysi...@hotmail.com mailto:farmysilva%40hotmail.com 
 mailto:farmysilva%40hotmail.com
  Tel: 9388 - 9619 / 7872 - 4718 Id 10*80735
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 

 [As partes desta mensagem que não continham texto foram removidas]

 [As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Procedimento para chamar formulá rios.

2010-08-07 Por tôpico Darkzad
  Bom, eu geralmente crio assim:

  FrmCadClientes := TFrmCadClientes.Create(Self);
  FrmCadClientes.ShowModal;
  FreeAndNil(FrmCadClientes);

A propriedade WindowState do Form vc pode definir Maximizado, Minimizado 
ou Normal.
Tem a propriedade position, nela vc define o form no centro do Desktop.

[]'s


Em 06-08-2010 11:18, Marciano Venter escreveu:

 Bom dia a todos,

 Estou montando um projetinho simples de cadastros, pois estou iniciando no
 delphi e usando ele para aprender algumas coisas. Bom, estou tentando 
 fazer
 um procedimento para chamar meus formulários, pois em cada Action para
 chamar um formulário estou utilizando o código abaixo :

 if FrmCadClientes = nil then
 begin
 Application.CreateForm(TFrmCadClientes, FrmCadClientes);
 FrmCadClientes.Show;
 end
 else
 begin
 if FrmCadClientes.WindowState = wsMinimized then
 begin
 FrmCadClientes.WindowState := wsNormal;
 end;
 FrmCadClientes.Show;
 end;

 o que ocorre, é que eu estou tento dificuldades com os tipos dos 
 paramentros
 do procedimento CreateForm().
 Estou tentando usar assim, mas sem sucesso:

 procedure TFrmPrincipal.AbreForm(TFForm: TComponentClass; N_Form: TForm);
 begin
 if N_Form = nil then
 begin
 Application.CreateForm(TFForm, N_Form);
 N_Form.Show;
 end
 else
 begin
 if N_Form.WindowState = wsMinimized then
 begin
 N_Form.WindowState := wsNormal;
 end;
 N_Form.Show;
 end;
 end;

 Usando meu procedimento da seguinte maneira, AbreForm(TFrmCadClientes,
 FrmCadClientes); o form abre varias vezes quantas forem clicadas no 
 botão, e
 usando da primeira forma, ele funciona corretamente, utilizei o mesmo
 formulário nas duas formas.
 PS.: Esse formulário é herdado de um formulário base, no FrmPrincipal o
 FormStyle é fsMDIForm e os outros como fsMDIChild.

 Obrigado.
 --
 Marciano Venter
 Email: venter.marci...@gmail.com mailto:venter.marciano%40gmail.com
 Celular: (51) 9672 6093
 venter.marci...@gmail.com mailto:venter.marciano%40gmail.com
 marcianoven...@hotmail.com mailto:marcianoventer%40hotmail.com
 [image: Twitter] http://www.twitter.com/ventermarciano@ventermarciano
 [image: 
 Facebook]http://www.facebook.com/profile.php?id=10304177338ref=profile 
 http://www.facebook.com/profile.php?id=10304177338ref=profile
 Marciano
 Venter

 [As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Re: Ajuda com Checklistbox

2010-08-07 Por tôpico rodrigo
eu fiz isso, mas o problema é o seguinte:
se o item 1 ta selecionado e eu clicar para selecionar o item 2, não funciona 
com o código abaixo, pois ele vai ver que o 1 ta selecionado e vai 
desselecionar o item dois antes de verificar o se o item 2 ta selecionado

if CheckListBox1.Checked[1] then
  CheckListBox1.Checked[2] := False;

if CheckListBox1.Checked[2] then
  CheckListBox1.Checked[1] := False;
Como acertar isso?

--- Em delphi-br@yahoogrupos.com.br, Darkzad dark...@... escreveu

   No evento OnclickCheck vc verfica se o item1 está selecionado.
 
if CheckListBox1.Checked[1] then
  CheckListBox1.Checked[2] := False;
 
 Não esqueça que a array começa do Zero.
 
 []'s
 
 
 Em 06-08-2010 19:53, rodrigo escreveu:
 
  Olá, tenho um checklistbox onde tenho dois vários itens, mas tem dois 
  que são mutuamente excludentes, isto é quando um for selecionado o 
  outro tem que estar sem seleção, como posso fazer isso automático, 
  para que quando meu usuario selecionar o item1, o item2 perca a 
  seleção e vice-versa.
 
  Desde já agradeço
 
  
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]





Re: [delphi-br] Re: Ajuda com Checklistbox

2010-08-07 Por tôpico Darkzad
  Entendi,

Olha se esse código ajuda.

   if (CheckListBox1.Checked[1]) AND (CheckListBox1.Checked[2]) then
 if (CheckListBox1.Selected[1]) then
CheckListBox1.Checked[2] := False
 else if (CheckListBox1.Selected[2]) then
CheckListBox1.Checked[1] := False
   else if (CheckListBox1.Checked[1]) then
 CheckListBox1.Checked[2] := False
   else if (CheckListBox1.Checked[2]) then
 CheckListBox1.Checked[1] := False;

[]'s


Em 07-08-2010 09:28, rodrigo escreveu:

 eu fiz isso, mas o problema é o seguinte:
 se o item 1 ta selecionado e eu clicar para selecionar o item 2, não 
 funciona com o código abaixo, pois ele vai ver que o 1 ta selecionado 
 e vai desselecionar o item dois antes de verificar o se o item 2 ta 
 selecionado

 if CheckListBox1.Checked[1] then
 CheckListBox1.Checked[2] := False;

 if CheckListBox1.Checked[2] then
 CheckListBox1.Checked[1] := False;
 Como acertar isso?

 --- Em delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br, Darkzad dark...@... escreveu
 
  No evento OnclickCheck vc verfica se o item1 está selecionado.
 
  if CheckListBox1.Checked[1] then
  CheckListBox1.Checked[2] := False;
 
  Não esqueça que a array começa do Zero.
 
  []'s
 
 
  Em 06-08-2010 19:53, rodrigo escreveu:
  
   Olá, tenho um checklistbox onde tenho dois vários itens, mas tem dois
   que são mutuamente excludentes, isto é quando um for selecionado o
   outro tem que estar sem seleção, como posso fazer isso automático,
   para que quando meu usuario selecionar o item1, o item2 perca a
   seleção e vice-versa.
  
   Desde já agradeço
  
  
 
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 

 



[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] carregar a imagem salva em um servidor externo

2010-08-07 Por tôpico Adenilson
Caros amigo da lista eu uso delphi 7 com interbase, tenho um servidor onde 
salvo as fotos dos usuário que são cadastrados. No meu banco eu só salvo o 
caminho que é : c:\...\...\foto.bmp.
Eu queria saber como faço para carregar essa imagem novamente quando for fazer 
uma busca.
como seria essa busca no delphi.

Gostaria da ajuda dos senhores.

Desde já agradeço.




Re: [delphi-br] carregar a imagem salva em um servidor externo

2010-08-07 Por tôpico Roni Rodrigo
ou vc salva o arquivo .bmp em uma pasta no servidor, ou grava a imagem 
diretamente no banco
se a imagem ficar na maquina do usuario, as demais maquinas que 
consultarem não vão encontrar o arquivo pelo caminho...
o/


Em 07/08/2010 12:16, Adenilson escreveu:
 Caros amigo da lista eu uso delphi 7 com interbase, tenho um servidor 
 onde salvo as fotos dos usuário que são cadastrados. No meu banco eu 
 só salvo o caminho que é : c:\...\...\foto.bmp.
 Eu queria saber como faço para carregar essa imagem novamente quando 
 for fazer uma busca.
 como seria essa busca no delphi.

 Gostaria da ajuda dos senhores.

 Desde já agradeço.




RES: [delphi-br] carregar a imagem salva em um servidor externo

2010-08-07 Por tôpico Adriano de F. Trindade
Eu lhe sugiro salvar a imagem em um campo memo binário, dentro do banco de
dados.

 

Desta forma, as imagens estarão acessíveis á quem pode acessar o banco de
dados, ou seja, sua aplicação.

 

Caso contrário, você teria que ter um compartilhamento aberto no servidor
para disponibilizar estes arquivos para sua rede inteira, e cada nova foto
teria que ser salva nesta pasta. Porque se você não fizer isto no servidor,
cada micro terá um conjunto diferente de fotos, e sem um armazenamento
centralizado, não há como você fazer back-up dessas imagens. Armazenando no
banco, ao fazer back-up do banco, as imagens são salvas também.

 

Falou!

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Adenilson
Enviada em: sábado, 7 de agosto de 2010 12:16
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] carregar a imagem salva em um servidor externo

 

  

Caros amigo da lista eu uso delphi 7 com interbase, tenho um servidor onde
salvo as fotos dos usuário que são cadastrados. No meu banco eu só salvo o
caminho que é : c:\...\...\foto.bmp.
Eu queria saber como faço para carregar essa imagem novamente quando for
fazer uma busca.
como seria essa busca no delphi.

Gostaria da ajuda dos senhores.

Desde já agradeço.





[As partes desta mensagem que não continham texto foram removidas]



Res: Res: [delphi-br] consulta em interbase

2010-08-07 Por tôpico Farmy G. Ferreira da Silva
É um radio group, consegui corrigir o erro, agora alguém teria a informação de 
como eu posso possibilitar a esse componente a fazer um update após a consulta?
eu achei o componente ibupdatesql, mas não consegui informações sobre ele, e 
com 
o ibquery os campos não permitem edição, mesmo com o cachade updates habilitado.
se tiver algum lugar que eu possa consultar como fazer agradeço.

 -
*
-
Farmy Gonçalves Ferreira da Silva
Engenheiro de Software
Mestrando em saúde mental. 
Laboratório de integração Sensório Motara IPUB/UFRJ. IBBN.
-
*
-
www.profissionaisdetecnologia.com.br
profissionaisdetecnologia-subscr...@yahoogrupos.com.br
-
*
-
farmysi...@yahoo.com.br
farmyferre...@yahoo.com.br
farmysi...@hotmail.com
Tel: 9388 - 9619 / 7872 - 4718 Id 10*80735





De: Darkzad dark...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sábado, 7 de Agosto de 2010 9:12:56
Assunto: Re: Res: [delphi-br] consulta em interbase

  

Fiquei na dúvida, vc está usando um checkbox, a pesquisa pode ser feita 
tanto por CPF ou Por nome? Pq não um ComboBox ou radio Group assim fica 
mais lógico.

Tente fazer assim:

if rbnome.Checked then
begin
with dmSIGAE.ibqAluno do
begin
close;
SQL.Clear;
SQL.Add('SELECT *' );
SQL.Add('FROM ALUNO');
SQL.Add('WHERE NOMECOMPLETO LIKE :CAMPO');
ParamByName('CAMPO').AsString := Edit1.Text  + '%';
Open;
end;
end;

Qualquer coisa posta aí.

[]'s

Em 06-08-2010 16:53, Farmy G. Ferreira da Silva escreveu:

 Darkzad,

 Na verdade não deveria estar, já que só entro na função cpf quando o 
 campo
 edit1.text tem números e o ifrbcpf.Checked = truethen é verdadeiro, 
 mesmo sendo
 falso esse cheque ele pega o conteúdo que está em edit e passa para a 
 função
 cpf, tentei utilizar um braek quando entrar no ifrbNome.Checked = 
 truethen, mas
 ele acusa erro também, não estou encontrando saída para fazer com que 
 a opção de
 busca possa ser alterada de forma rápida e dinamicamente.

 [ ]'s

 -
 *
 -
 Farmy Gonçalves Ferreira da Silva
 Engenheiro de Software
 Mestrando em saúde mental.
 Laboratório de integração SensórioMotaraIPUB/UFRJ. IBBN.
 -
 *
 -
 www.profissionaisdetecnologia.com.br
 profissionaisdetecnologia-subscr...@yahoogrupos.com.br 
 mailto:profissionaisdetecnologia-subscribe%40yahoogrupos.com.br
 -
 *
 -
 farmysi...@yahoo.com.br mailto:farmysilva%40yahoo.com.br
 farmyferre...@yahoo.com.br mailto:farmyferreira%40yahoo.com.br
 farmysi...@hotmail.com mailto:farmysilva%40hotmail.com
 Tel: 9388 - 9619 / 7872 - 4718 Id 10*80735

 
 De: Darkzad dark...@yahoo.com.br mailto:darkzad%40yahoo.com.br
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Enviadas: Sexta-feira, 6 de Agosto de 2010 8:37:18
 Assunto: Re: [delphi-br] consulta em interbase

 Parece que o seu problema está na função CPF, não?

 []'s

 Em 05-08-2010 15:30, Farmy G. Ferreira da Silva escreveu:
 
  Pessoal, estou com dois problemas:
 
  1º minha consulta
  procedureTfrmPesqAluno.Button2Click(Sender: TObject);
  begin
  // codigo para fazer a pesquisa pelo nome
 
  ifrbnome.Checked = TRUEthen
  begin
  withdmSIGAE do
  begin
  withibqAluno do
  begin
  close;
  SQL.Clear;
  SQL.Add('SELECT *' );
  SQL.Add('FROM ALUNO');
  SQL.Add('WHERENOMECOMPLETOLIKE''%'+Edit1.Text+'%'';');
  Open;
  end;
  end;
  end;
 
  //codigo para realizar a pesquisa por cpf
  ifrbcpf.Checked = truethen
  begin
  //verifica validade do cpf
  ifCPF(Edit1.Text) = falsethen
  begin
  Edit1.Color := clred;
  ShowMessage('CPF inválido Digite novamente!');
  Edit1.SetFocus;
  end
  else
  begin
  Edit1.Color := clwindow;
  end;
 
  //busca cpf no banco de dados
  withdmSIGAE do
  begin
  withibqAluno do
  begin
  close;
  SQL.Clear;
  SQL.Add('SELECT *' );
  SQL.Add('FROM ALUNO');
  SQL.Add('WHERECPF= '''+Edit1.Text+''';');
  Open;
  end;
  end;
  end;
  end;
 
  retorna um erro na primeira letra digitada dizendo que: A não é um
  valor
  inteiro valido, e meus campos de pesquisa sõavarchar.
  Segundo problema eu preciso realizar um update nos dados retornados pela
  pesquisa alguem tem algum material sobre o componente TIBUpdateSql da
  paleta
  interbase do d2009?
 
  []'s
 
  -
  *
  -
  Farmy Gonçalves Ferreira da Silva
  Engenheiro de Software
  Mestrando em saúde mental.
  Laboratório de integração 

Re: [delphi-br] VAGA: Delphi para São Bernard o do Campo

2010-08-07 Por tôpico Berdam
http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0



Em 6/8/2010 19:37, Camila Carvalho escreveu:

 São Bernardo do Campo
 Programador Delphi
 Mínimo 3 anos de experiência.
 Terá que ter conhecimento em Delphi 5, 6 e 2007.
 Base de dados Firebird/Interbase e Sql-Server.
 Experiência em Client/Server - 3 camadas.

 Será regime CLT, no valor de R$ 2.500,00 até R$ 3.000,00
 Benefícios: V.R. R$ 13,50, Convênio após 3 meses de empresa, Seguro de 
 Vida.

 Interessados, enviar cv para ccarva...@tiviati.com.br 
 mailto:ccarvalho%40tiviati.com.br


 [As partes desta mensagem que não continham texto foram removidas]

 

-- 

Uberdam Cavaletti
Programador Delphi
Formado em Tecnologia da Informação
Pós-graduado em desenvolvimento Java.
Professor Tópicos Especias em BD - Unoesc Xanxerê
Professor Estruturas de Dados- Unoesc Xanxerê

http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0




[As partes desta mensagem que não continham texto foram removidas]



Re: Res: [delphi-br] consulta em interbase

2010-08-07 Por tôpico Luciano Bruno
o uso do ibupdate é simples,
vc coloca uma ibquery com a sentença sql : select * from tabela

de preferencia use um parametro para filtro.

coloca o ibupdate, associa a ibquery com o ibupdate,
da um duplo clique no ibupdate, vai surgir uma telha com os campos
da tabela usada no select, clique nos seguintes butoes

get table field

set primary key

generat sql


pronto, se vc observar nesta mesma tela na aba sql, foi gerado todos os
sql update, delelet, insert e refresh


testa ai. abraço.


[As partes desta mensagem que não continham texto foram removidas]