Vivendo&Aprendendo

Como criar um relatório no quickrep sem usar código nenhum que me fornecça dados de duas tabelas: Membros e Cursos. Quero que me mostre todos os dados de membros e somente os cursos que o membro fez to fazendo aki mas ele só mostra o primeiro curso e ai se o mebro tiver mais de um ele num mostra Vlw

cara use o DBLoockUpComboBox que esta na paleta DATA CONTROLS configura ele para chamar esse campo no banco de dados que dará certo. Ele precisa de uma query e um datasouce... falou

cara acredito que seja o Edit mesmo ai você atribui o valor dele para as variaveis V&A

Paulo.... você pode verificar antes de mandar aumentar o form, tipo assim se existir espaço em branco para a frente do cursor ele não aumente o tamanho, mas caso contrário ele redimensiona o form. Ai quando você der enter e criar uma nova linha ele só irá aumentar o form se a linha onde esta o foco for maior que a linha anterior... Olha Paulo esta ai uma dica que encontrei para arrastar o form, não testei ainda, mas testa ai e qualquer coisa posta.... falou. {Quando você pressiona o botão do mouse, o Windows identifica a posição da tela onde o cursor estava no momento do clique. Se a posição é igual a área do Caption do Form, o Windows ativa o modo de movimentação do Form permitindo que este seja arrastado. Portanto, a maneira mais fácil de solucionar esta questão é "enganar" o Win-dows. Neste exemplo vamos considerar que o usuário poderá arrastar o Form ao cli-car na área cliente deste Form: a) Crie uma nova aplicação; b) Adicione a seguinte declaração na seção private do Form: procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest; c) Adicione o código deste procedimento na seção implementation do Form: } procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begin inherited; // ativa a herança da mensagem if M.Result = htClient then // o clique foi na área cliente? M.Result := htCaption; // se sim, faz o Windows pensar que foi no Cap-tion. end; { Este exemplo tratou o clique na área cliente. Você pode alterar este código para suas necessidades. Eis os possíveis valores para o Result: VALOR - Local do clique HTBORDER - Borda da janela que não tem a borda de tamanho HTBOTTOM - Borda horizontal inferior da janela HTBOTTOMLEFT - Canto inferior esquerdo da janela HTBOTTOMRIGHT - Canto inferior direito da janela HTCAPTION - Barra de Título(Caption) HTCLIENT - Área cliente HTERROR - igual ao HTNOWHERE, a diferença é que produz um beep indicando erro HTGROWBOX - Caixa de tamanho (igual ao HTSIZE) HTHSCROLL - Barra de rolagem horizontal HTLEFT - Borda esquerda da janela HTMENU - Em um menu HTNOWHERE - Plano de fundo da janela ou linha de divisão entre janelas HTREDUCE - Botão minimizar HTRIGHT - Borda direita da janela HTSIZE - Caixa de tamanho (igual ao HTGROWBOX) HTSYSMENU - Botão de Sistema/Fechar da janela MDIChild HTTOP - Borda horizontal superior da janela HTTOPLEFT - Canto superior esquerdo da janela HTTOPRIGHT - Canto direito superior da janela HTTRANSPARENT - Janela em segundo plano HTVSCROLL - Barra de rolagem vertical HTZOOM - Botão maximizar } Espero ter ajudado e lembrando se não der certo posta ai que vamos tentar resolver isso juntos... V&A

Amigão tenta colocar a linha do LOCATE antes do comando de inserir, ai ele verificará antes de salvar... procedure TFrmProfessor.BbtInserirClick(Sender: TObject); Var ProxNum : Integer; begin TrataBotoes; DMSist_Avaliacao.CDSProfessor.Last; ProxNum:=DMSist_Avaliacao.CDSProfessor.FieldByName ('Cod_prof').AsInteger + 1; DMSist_Avaliacao.CDSProfessor.Append; If DMSist_Avaliacao.CDSProfessor.Locate('Nome', DbEdit2.Text, []) then MessageDlg('Professor já cadastrado'); DMSist_Avaliacao.CDSProfessor.fieldByName ('Cod_prof').AsInteger := ProxNum; DbEDit2.SetFocus; end; Mais ou menos isso... E você pode tb deixar o campo nome como chave primmária no banco Testa ai e qualquer coisa posta ai Acho que dará certo. falou

Paulo componente eu não conheço que faça isso, mas pode-se fazer tudo via programação. Para aumentar a linha pode colocar no OnKeyPress para quando qualquer tecla for precionada sem ser o enter ele aumente um campo para a direta e se for o enter ele joga uma linha para baixo. falou

Ei galera para zerar o DBLoockUp, ou seja deixar ele em branco é só inserir no OnCreate do Form o seguinte comando: DBLoockUpComboBox.KeyValue := -1; Vlw POde fechar esse post

A linha que ocorre esse erro tem muitos caracteres... pode ser isso tb... Vlw

Paulo eu não testei, mas acho que se você colocar no evento OnKeyPress do form os seguintes comandos dará certo: If Key = #13 Then Form1.Height := Form1.Height + 5; Onde 5 é o tamanho da linha que irá aumentar no form. Espero ter ajudado. V&A

Olha amigão com o edit eu não sei fazer não, mas tenta com o MEMO ou o RichEdit que da certo.. vou dar uma pesquisada aki e qualquer coisa eu posto ai pra você... V&A

Não era bem isso mas vou tentar aki... eu tenho um combo e dois edits e preciso fazer a busca pelos 3 campos...

Galera quero fazer uma busca via sql mas é por vários campos, tipo: Buscar pelo campo LIVRO, depois campo CAPITULO e por final campo VERSICULO. falou

Meu caro amigo se você não gostou da resposta procure resolver os seus problemas sozinho, pois aki no forum ninguém é o dono da verdade. E sobre a questão da pontuação, se fosse o caso que somente querer marcar pontos para ganhar não estaria em um forum que serve para ajudar pessoa mas estaria em um competição o que não é o caso... mas se você não entende isso acho que não é nem digno de estar aki. Se por acaso não gostou da minha resposta... me desculpe... mas da próxima vez que postar algo indique todas as questões que envolvem esse problema, como o caso do drive que não foi mencionado. Preciso desenvolver um sistema que capture imagens de Cameras de Vigilancia. Um exemplo é um programa bem conhecido. O Pico 2000. Eu tenho uma aplicação mas só funciona com WebCam. Preciso de um componente que se comunique com cameras de vigilancia. já procurei por toda a internet. Em vários Forums e ninguém consegue me ajudar. Eu já tenho um que se comunica com WebCam, Mas não achei nenhum que serve para Cameras de viginacia. Aquelas que ficam todas ligas em uma placa no computador. Vlw

Velho é o seguinte: quando tento adicionar valores na tabela de itens ela só aceita um registro, se incluir outro da erro. ERRO: A linha não pode ser localizada para atualização. Alguns valores podem ter sido alterados desde a última vez que foi lido. Estou utilizando este código no OnExit do campo valor DmDados.Entradas.Post; DmDados.Entradas.Edit; DmDados.EntradasValorTotal.Value := DmDados.EntradasValorTotal.Value + DmDados.ItensEntradasValor.Value; DmDados.ItensEntradasCodigoEntrada.Value := DmDados.EntradasCodigo.Value; If Application.MessageBox('Deseja adicionar mais registros?','Alerta',MB_YESNO)=6 then begin DmDados.ItensEntradas.Post; AdoGrid.Close; AdoGrid.Open; DmDados.ItensEntradas.Append; If (DmDados.ItensEntradas.State in [dsInsert,dsEdit]) Then DmDados.ItensEntradasCodigoEntrada.Value := DmDados.EntradasCodigo.Value; end else begin DmDados.ItensEntradas.Post; end;

Tem chave primaria não.... Vlw

cara para isso existem programas especificos que fazem (gerem) arquivos de instalação o installshild do delphi é um deles, ou se preferir utilize o Brazip e crie um .sfx funciona da mesma forma... Vlw

Vlw Progr'amador mas esse problema já resolvi.... agora tem outro erro louco ocorrendo aki... veja se pode me ajudar: Tenho duas tabelas: Entradas e ItensEntradas onde os campos de ambas estão no mesmo form, na tabela entradas existem os seguintes campos: codigo, data, congregação e valor total e na tabela de itens existem codigoentrada, tipoentrada e valor. O erro é o seguinte o sistema não está aceitando que eu insira mais de um registro na tabela itensentradas, sendo que deve aceitar. Como posso fazer isso? Vlw

Olá amigo você precisará de um drive da camera esse drive fara a comunicação com ele e o seu sistema... tente conseguir esse drive com o fabricante da camera falou

Olá é interesante deixar todos os arquivos que você deseja colocar na sua instalação na mesma pasta. Vlw V&A

você pode colocar uma chave no registro do windows para que sempre que for iniciado o seu sistema possa ser inciado tb Vlw

Galera como faço para que o loockup inicie em branco? Vlw V&A

cara tenho uma apostila que ensina +ou- com fazer isso... passa o seu e-mail q t envio ela... falou V&A

O install shild tem no cd de instalação do delphi e esse exemplo do progr'amador ta dizerndo tudo refrente ao install falou

Galera preciso saber se tem como usar uma data no meu programa sem ser a data que o windows fornece.... Tipo: DateToStr(Date) me da a data do sistema, mas se o usuario mudar a data do qin ele mudará também no meu programa... e eu preciso que essa data do meu sistema nunca seja alterada por ninguém Como posso fazer isso? V&A

Resolvido valeu PROGR'AMADOR