Fabiano Furquim

Valeu Jhonas. Vou Testar e Retorno com o resultado... Desde já Obrigado!

Boa Tarde a Todos. Estou desenvolvendo um programa para uma amiga e estou com o seguinte problema. Preciso criar uma cadastro que dependendo o tipo de cadastro escolhido faça um tipo de cadastramento diferenciado, por exemplo: A escola na qual ela trabalha tem 3 tipos de matriculas: Matricula com ResponsávelMatricula com Empresa como ResponsávelMatricula para aluno = ResponsávelDeste modo quando seleciono, por exemplo seleciono a Matricula com responsável, preciso inserir as informações na tabela de Aluno, Tabela Responsável e também gerar uma qtde de parcelas a serem pagas na tabela de pagamento. Também há a necessidade de vincular o aluno ao Responsável, seja ele qual for. Meu problema é o segunte: Não estou conseguindo inserir todas as informações ao mesmo tempo em todas as tabelas. As informações são inseridas após o operador clicar no botão salvar. Estou utilizando o banco de Dados Interbase, e os componentes da paleta interbase (IBDataSet, IBTransaction, IBDataBase) Gostaria que alguém pudesse me ajudar! Desde Já agradeço pela atenção de Todos. Obrigado.

Fala Galera consegui Resolver o Problema... Estava faltando um Post na instrução.... Agradeço a todos Até +

Fala Galera.... Consegui implementar.....de certa forma, o que está acontecendo é que as informação não estão sendo gravadas no banco... Segue o código que estou utilizando para gravação no banco. DM.IBDS_Presenca.Append; DM.IBDS_Presenca.FieldByName('Data').AsString := Label5.Caption; //Contém a Data Atual do Sistema DM.IBDS_Presenca.FieldByName('HORA').AsString := TimeToStr(PROVISORIA); DM.IBDS_Presenca.FieldByName('ALUNO').AsInteger := DM.Qry_Aluno.FieldByName('RA_Aluno').AsInteger; DM.IBDS_Presenca.FieldByName('DIA_SEMANA').AsString := Label4.Caption; //Contém o dia da Semana DM.IBDS_Presenca.FieldByName('Aula1').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula2').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula3').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula4').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula5').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula6').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula7').AsString := 'C'; DM.IBDS_Presenca.FieldByName('ENTRADA').AsString := 'A'; DM.IBDS_Presenca.Transaction.CommitRetaining; A Tabela Presença é composta ainda por um campo autoIncremento chamado codigo_grl, o qual não esta incluso no código acima, ela também contém um campo chamado Saída o qual é String, para esse campo é permitido nulo Se alguém puder me ajudar fico Grato.. Abraço a Todos...

Boa Tarde a todos... Estou tentando fazer um implementação em uma tabela de meu banco de dados via programação. Na verdade essa tabela so será implementada por programação ela não terá nem uma tela vinculada à ela, só não sei como realizar esse processo. Estou utilizando Delphi 7, Firebird 2 e os componentes da Paleta Interbase, Estou tentando fazer essa implementação através do componente IBDataSet. Se alguém puder me dar uma luz, fico agradecido. Um Gde Abraço a Todos e Obrigado

Bom Dia Micheus. Obrigado pela Dicas elas serão muito utéis... Quanto as Procedure, estava pensando em utiliza-las pois na verdade não é apenas uma simples consulta. Após a consulta realizada tenho de verificar o horário de entrada do aluno para comparar com a horário cadastrado para o curso, para depois poder registrar a presença do aluno nas aulas, então como você supos estou trabalhando com varias tabelas. Mas no momento as informações que já foram passadas vão servir de base para o desenvolvimento do restante da "rotina" de entrada dos aluno. Agradeço a Todos q me ajudaram com essa dúvida... Abraço a todos. Obrigado :D

Valeu Jhonas... Vou dar uma olhada Obrigado.. Abraço

Bom dia ROGÉRIO BOTELHO. A pouco tempo estava com o mesmo problema q você e fiz um tópico com a mesma dúvida, porem ela era um pouco diferente. Tópico no Site: Problema para Visualizar Imagem do Bco de Dados Dá uma olhada no tópico e vê se pode te ajudar... Qualquer coisa é só falar Abraço

Bom dia Micheus.... Eu estava pensando em pegar as informações encontradas pelo select e jogar cada uma em uma variável, mais ou menos assim: Supondo q minha tabela tivesse esses campos: Codigo, RA_Aluno, Nome, Curso, Periodo, Semestre, Matricula, Gostaria de pegar alguns desses campos e passa-los para variáveis + ou - assim var_curso := 'select curso from ALUNO where Ra_aluno = :edit1.text' , sei q esse comando não esta bem estruturado mais é só pra dar uma idéia do q eu estava querendo dizer com trazer para variáveis Estive pensando em fazer essas verificações através de uma Store Procedure, porém não sei trabalhar com esse procedimento, já não programava a + de 10 anos, estou bem desatualizado, precisando me reciclar. Se você tiver algum material de como estruturar uma Store Procedure e como utiliza-la no Delphi ficarei agradecido. Obrigado pela Resposta e Tenha um bom dia.

Boa Tarde a todos. Estou com um problema o qual não consegui resolver. Estou desenvolvendo o sistema de uma escola técnica, que trabalha com ensino médio também. Essa escola registra a presença dos alunos quando ele entram na escola atraves de leitura da digital do aluno. Esse também é um problema que tenho que resolver, mais esse fica para uma outra hora, no momento preciso resolver o seguinte: 1. verificar se o código do aluno que esta entrando existe no sistema 2. Se existir tenho de busca a foto e exibir. 3. Verificar o período que o aluno estuda para saber se ele pode entrar ou não. 4. Verificar se ele esta matriculado 5. Verificar o curso que o aluno esta fazendo 6. verificar o módulo que o aluno esta... e assim por diante... estava tentando utilizar um select para chegar a essas informações no banco de dados, porém me surgiu uma dúvida... Como jogar essas informações para variáveis para q depois eu possa fazer todas essas verificações??? Com isso estou com o desenvolvimento do sistema parado até resolver esse problema, será q alguém teria alguma outra ou outras soluções para esse problema? Estou utilizando Delphi7 e Banco de Dados FireBird 2, com conexão ao banco com os componentes da paleta interbase. Desde já agradeço a todos pelas dicas e peça atenção. Até mais

Fala Galera .... Consegui resolver o problema.... O problema estava na hora da Atualização... eu esta atualizando o código também, o que eu não preciso fazer, já que no caso eu queria apenas acrescentar a imagem... Segue o Código corrigido, caso alguém precise... procedure TForm1.BitBtn1Click(Sender: TObject); var m: TIBQuery; begin m:= TIBQuery.Create(Self); m.DataBase := DM.IBDatabase1; m.Transaction := DM.IBDatabase1.DefaultTransaction; //Inicio Brincadeira m.SQL.Clear; m.SQL.Add('UPDATE TBLFOTO'); m.SQL.Add('SET FOTO= :FOTO'); // aqui foi retirado a atualização do código m.SQL.Add('WHERE CODIGO=:COD'); // e foi mantida a atualização da Foto try M.ParamByName('COD').AsInteger := STRTOINT(EDIT1.Text); b:=TMemoryStream.Create; image1.Picture.Graphic.SaveToStream(b); m.ParamByName('FOTO').LoadFromStream(b,ftBlob); m.ExecSQL; Application.MessageBox('Foto Carregada com Sucesso!','Sucesso :'); except on e:exception do begin Application.MessageBox(Pchar(e.Message), 'Erro ao Atualizar dados :'); b.Destroy; m.Free; Exit; end; end; b.Destroy; m.Free; end;

Bom dia a todos. Estou com um problema o qual não consegui chegar a uma solução, Utilizo o Delphi 7 e bco de dados Firebird 2. Estou carregando imagens no minha tabela de dados chamada TBLFOTO, q é composto de 2 campos(Codigo tipo integer e FOTO do tipo Blob), uso essa tabela apenas para as imagens já q são poucas, elas são carregadas sem nenhum problema, mas quando tento visualiza-las, consigo apenas visualizar a última imagem q inclui no baco. Não sei onde posso estar errando, se alguém puder me auxiliar, fico agradecido. OBS.: Estou carregando imagens do tipo JPEG. Segue abaixo os Códigos pra Gravar e Visualizar as Imagens Codigo Para Carregar procedure TForm1.BitBtn2Click(Sender: TObject); //Utilizo esse procedimento para carregar uma imagem no Timage begin OpenPictureDialog1.Execute; If OpenPictureDialog1.FileName <> '' Then begin Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; end; procedure TForm1.BitBtn1Click(Sender: TObject); // Aki carrego as imagens no Bco, na verdade faço um update na tabela var m: TIBQuery; begin m:= TIBQuery.Create(Self); m.DataBase := DM.IBDatabase1; m.Transaction := DM.IBDatabase1.DefaultTransaction; //Inicio Brincadeira m.SQL.Clear; m.SQL.Add('UPDATE TBLFOTO'); m.SQL.Add('SET CODIGO= :COD,'); m.SQL.Add('FOTO= :FOTO'); m.SQL.Add('WHERE CODIGO=:COD'); try M.ParamByName('COD').AsInteger := STRTOINT(EDIT1.Text); b:=TMemoryStream.Create; image1.Picture.Graphic.SaveToStream(b); m.ParamByName('FOTO').LoadFromStream(b,ftBlob); m.ExecSQL; Application.MessageBox('Foto Carregada com Sucesso!','Sucesso :'); except on e:exception do begin Application.MessageBox(Pchar(e.Message), 'Erro ao Atualizar dados :'); b.Destroy; m.Free; Exit; end; end; b.Destroy; m.Free; end; Codigo para recuperar a imagem da Tabela procedure TForm2.Button1Click(Sender: TObject); var m : TIBQuery; b : TStream; J : TJPEGImage; begin J := Nil; m:= TIBQuery.Create(Self); m.Database := DM.IBDatabase1; m.Transaction := DM.IBDatabase1.DefaultTransaction; m.SQL.Clear; m.SQL.Add('SELECT foto FROM TBLFOTO'); m.SQL.Add('WHERE codigo= :cod'); try m.ParamByName('cod').AsInteger := strtoint(edit1.Text); m.Open; except on e:exception do begin Application.MessageBox(Pchar(e.Message),'Erro ao Buscar foto'); exit; end; end; b:= m.CreateBlobStream(m.FieldByName('FOTO'),bmRead); if b.Size > 0 then begin try J := TJPEGImage.Create; J.LoadFromStream(b); Image1.Picture.Assign(J); except end; end else begin Image1.Picture.Assign(nil); end; j.Free; b.Destroy; m.Free; end; Não esquecendo q declarei nas clausula use a unit JPEG Desde já agradeço pela atenção e ajuda de Todos

Obrigado pela ajuda.... Com sua dica consegui resolver o problema..... E vou perquisar sobre o like muito obrigado abraços

Entendi Micheus.. será q você poderia me dar um exemplo de como ficaria essa consulta com a clausula LIKE, dessa maneira poderia deixar a busca mais aprimorada.... Desde já agradeço pela dica.... Vou fazer as alterações e ver o q acontece.... Obrigado e até mais

Bom Dia a todos. Estou com o seguinte erro na minha consulta. Exception class EConvertError with Message Is not valid integer value. Sei que é um erro por causa do tipo de dados. O que esta ocorrendo: Tenho um formulário de busca, que a mesma pode ser feita tanto pelo código do aluno, como também pode ser feita pelo nome. O que ocorre é que eu consigo fazer a primeira busca pelo código, mas, quando tento realizar uma nova busca ele apresenta essa mensagem de erro. E tanto faz se a nova busca é por nome ou por código, ele sempre mostra a mensagem. Estou usando os componetes de conexão Zeos(zConection e Zquery), e a consulta é feita pelo onchange dos edit's. Segue código das consulta. consulta por código procedure TForm1.Edit1Change(Sender: TObject); var aluno : integer; begin //Variável que recebe o valor do edit1 e transforma em número inteiro Aluno := strtoint(Edit1.Text); // Desativa a query Zquery.Active := false; // Limpa o atual SQL da query Zquery.SQL.Clear; // Adiciona o SQL para busca do Aluno Zquery.SQL.Append('SELECT ALUNO FROM OCORRENCIA WHERE ALUNO = :Aluno'); // Define o parametro "Aluno" como sendo o Inteiro Zquery.ParamByName('Aluno').AsInteger:=Aluno; // Abre(executa) a busca Zquery.Open; end; Consulta por Nome procedure TForm1.Edit2Change(Sender: TObject); var nome : string; begin nome := edit2.Text; // Desativa a query Zquery.Active := false; // Limpa o atual SQL da query Zquery.SQL.Clear; // Adiciona o SQL para busca do usuario Zquery.SQL.Append('SELECT NOME FROM OCORRENCIA WHERE NOME = :Nome'); // Define o parametro "Nome" como sendo o Texto do Edit2 Zquery.ParamByName('Nome').AsString := nome; // Abre(executa) a busca Zquery.Open; end; Ainda quando troco o foco dos edit's ele limpa o edit anterior, ou seja foco no edit1 (edit2.text:=''), foco no edit2(edit1.text:='') Se alguém tiver uma outra solução, agradeço. Desde já agradeço pela ajuda de todos Fabiano Furquim