Re: [delphi-br] Ajuda com Checklistbox

2010-08-07 Thread 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 Thread 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 
> > From: govoni.fel...@gmail.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 
> > 
> >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 Thread 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 Thread 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 Thread 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 
> 
> -
> *
> -
> farmysi...@yahoo.com.br 
> farmyferre...@yahoo.com.br 
> farmysi...@hotmail.com 
> Tel: 9388 - 9619 / 7872 - 4718 Id 10*80735
>
> 
> De: Darkzad mailto:darkzad%40yahoo.com.br>>
> Para: delphi-br@yahoogrupos.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 
> 
> > 
> > -
> > *
> > -
> > farmysi...@yahoo.com.br  
> 
> > farmyferre...@yahoo.com.br  
> 
> > farmysi...@hotmail.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 for

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

2010-08-07 Thread 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 
> Celular: (51) 9672 6093
> venter.marci...@gmail.com 
> marcianoven...@hotmail.com 
> [image: Twitter] @ventermarciano
> [image: 
> Facebook] >
> 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 Thread 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  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 Thread 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 
> , Darkzad  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 Thread 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 Thread 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 Thread 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 Thread 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 
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 
> 
> -
> *
> -
> farmysi...@yahoo.com.br 
> farmyferre...@yahoo.com.br 
> farmysi...@hotmail.com 
> Tel: 9388 - 9619 / 7872 - 4718 Id 10*80735
>
> 
> De: Darkzad mailto:darkzad%40yahoo.com.br>>
> Para: delphi-br@yahoogrupos.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
> >
> > -
> > *
> > --

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

2010-08-07 Thread 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 
> 
>
>
> [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 Thread 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]