Ir para conteúdo
Fórum Script Brasil

Progr'amador

Veteranos
  • Total de itens

    1.130
  • Registro em

  • Última visita

Tudo que Progr'amador postou

  1. Olá eroshands, Até onde eu sei o Trim serve pra tirar os espaços em banco do inicio e do fim de uma string.
  2. Progr'amador

    Erro!

    Cara, me diga o quem tem de diferente ai: Tótico: Explicando, Porque tantas perguntas?? Tópico: Calculando Valor (***REPETIDO***), Urgente... Somente o título.
  3. Progr'amador

    Moderação

    Olá Capablanca, Obrigado pela força cara. Como eu havia falado com o Arlon, eu num sou bom de delphi como vocês, mas vou ajudando no que posso, e continuar aprendendo com todos vocês do forun, e ajudando na organização do nosso forum. E você tambem é musico Capablanca? O Arlon me falou que tocava bateria, quando falei pra ele que eu tocava baixo, e agora, você toca piano??? Além de programadores, aki tem uma familia de músicos...HeHeHe! quem sabe um dia até podemos formar uma banda... Ao Arlon, desejo todo sucesso, e volte sempre cara. Obribado Galera!!!
  4. Olá gutto, você poderia detalhar melhor sua pergunta, mas acredito que num caso desse daria certo se você colocasse na consulta do aluno um procedimento pra calcular esses valores.
  5. Olá Ewerton, Você poderia descrever, como está nessa lista do Library path???
  6. cara, qual a versão do seu delphi? vai no localizar do windows e procura esse arquivo: "System.pas", no momento de compilar ele não encontra esse arquivo, ele fica na pasta: "C:\Arquivos de programas\Borland\Delphi X\Source\RTL\SYS".
  7. ainda continua dando erro com qualquer programa??? até mesmo um projeto novo se você compilar da esse erro?
  8. Te aconselho a reinstalar o delphi, amigo
  9. Dê uma olhada nessa dica, talvez ela possa te ajudar. ANIMANDO A ABERTURA DE UM FORM
  10. ANIMANDO A ABERTURA DE UM FORM Temos uma API que pode tornar a abertura dos forms mais atrativa! ex: Digamos que temos dois forms. Form1 e Form2. O Form1 deve chamar o Form2 (que está setado para auto-criação)! o código abaixo chama o form2 (a partir de um button) com um efeito bem legal procedure TForm1.Button1Click(Sender: TObject); begin form2.BringToFront; form1.Hide; AnimateWindow(form2.Handle,2000,AW_CENTER); form2.show; end; no evento OnHide do form2 coloque: procedure TForm2.FormHide(Sender: TObject); begin form1.Show; end; Lista de Animações: AW_BLEND //Somente no Windows 2000 AW_CENTER AW_HOR_POSITIVE AW_HOR_NEGATIVE AW_VER_POSITIVE AW_VER_NEGATIVE Essa dica foi testada com o Delphi 6. Talvez não funcione com versões anteriores!
  11. Olá amigo! com esse código abaixo voce pode pegar o código do qualquer tecla. Coloque dois TLabel em seu form e defina o propriedade KeyPreview do seu form como TRUE, e o código abaixo: implementation {$R *.DFM} procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Label1.Caption := Format('%d', [Key]); end; procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Var X:String; Begin X:=Label2.Caption; Label2.Caption:=AnsiUpperCase(X); end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin Label2.Caption:= Key; end; falou!!!
  12. Ola Capablanca, Como eu havia falado esse form é pra imprimir relatórios, nada de DGrid, simplesmente eu vou selecionar os dados pro relatório e depois clico num botão e imprimir... certo? sobre a sua pergunta: Vamos supor que o usuário tentou procurar pelo nome(DBLookUpComboBox), com isso fica no DBLookUpComboBox um nome qualquer, só que mudou de ideia e resolvou pesquisar pelo codigo(Edit1), mesmo dando o LOCATE no Edit1, no DBLookUpComboBox cotinua com o mesmo nome que ele havia selecionado anteriormente. Conclusão: no Edit1 tem o codigo do fornecedor pesquisado, no DBLookUpComboBox o nome de outro fornecedor que num tem nada haver, e na Query o fornecedor pesquisado no Edit1. Vira uma zora! Eu queria pelo menos deixar o DBLookUpComboBox em branco...
  13. E ai Capablanca, tudo bem! É o seguinte, esse form é pra impressão de relatórios, como por exemplo um relatório de Estoque do Fornecedor. O "por que" de pesquisar por codigo, é que aqui na empresa pesquisar por código em algumas situações torna-se mais prático. Fornecedor, é um caso desses, porque existe varios fornecedores que no caso tem filiais ou até mesmo divisões diferente, simplificando, existe varios fornecedores com a mesma razão social, tem caso de um fornecedor ter até 8 divisões (filiais) diferentes, nesse caso a pesquisa pelo codigo é mais prática, porque o usuário já vai direto que ele quer, se fosse pelo nome num caso desse teria que saber a divisão exata do fornrcedor, e isso se torna chato, e é por isso que usamos as duas formas de pesquisa. Espero que tenha entendido...
  14. ola Nosdaj, Talvez eu possa ate aproveitar alguma coisa dessa dica ae, só que você confundiu os tópicos, essa sua resposta seria para este tópico: Problemas Com Dblookupcombox de qualquer forma, valeu a intenção!!!
  15. Ola Paulo, Eu baixei uns bmp desses so que eu não lembro o site, se quizer posso passar por e-mail, esta zipado e tem 2.30mb. Sobre essa sua pergunta: Na propriedade Enabled dos botões, quando esse propriedade ta True aparece a primeira imagem, e quando é False aparece a outra (com a sombra). falou
  16. Olá galera, tenho um TDBLookupComboBox(vamos chamar de DBLCB) e um TEdit(Edit1), o DBLCB tras em sua lista o nome do fornecedor da QueryFornecedor, e quando clico num num fornecedor da lista, retorna no Edit1 o codigo do fornecedor, só que eu também uso o Edit1 pra localizar o fornecedor por codigo(COD_FORNECEDOR) assim: if Edit1.text <> '' then QryFornecedor.Locate('COD_FORNECEDOR',Edit1.Text,[]); Pergunto: É possível retornar no DBLCB o nome do fornecedor, após digitar o o codigo do fornecedor no Edit1? Tipo como se fosse num ComboBox (Ex: ComboBox.text := QryFornecedor.FieldByName('NOME_FORNECEDOR').AsString) algo desse tipo... alguém tem alguma dica ae???
  17. eu acho que eu tava era complicando: basta usar isso: select top 1 campo from tabela order by campo desc
  18. bom nesse caso, essa select ("Select Max(Codigo) from tabela") daria certo se você implementasse zero a esqueda nesse campo de codigo: 0001, 0002, 0003 etc... no entanto, volto a perguntar: Essa sua tabela tem campo de Data?
  19. QUE TIPO DE CODIGO É ESSE? SERIA PALAVRAS, LETRAS??? OKÊ??? SEJA MAIS CLARO NA SUA PERGUNTA ESSA SUA TABELA TEM CAMPO DE DATA? SE TIVER você PODE USAR ESSE CAMPO TAMBEM...
  20. Progr'amador

    Sum No Sql

    Select Codigo, Descricao, Sum(Qtde), Vr_unit From Tabela Group By Codigo, Descricao, Vr_unit
  21. Valeu Capablanca, Resolvido. Até a próxima...
  22. ola amigo, na verdade pra abrir eu já tinha conseguido, agora estou precisando do comando pra Fechar.
  23. Olá galera! alguém ai sabe o codigo pra abri e fechar qualquer arquivo ou programa apartir do meu programa? por exemplo num button pra abrir a calculado do windows, num outro button fechar ela...
  24. Ola Arlon, beleza! Eu me espressei errado, não quiz dizer que ele mostra o FORM bonitinho com todos os componentes e tal, e sim o DFM somente! falou!!!
  25. Progr'amador

    Erro Cabeludo

    Qual a versão do seu Delphi? E qual sistema operacional? As versões do delphi4 pra baixo, no Windows XP, da esse tipo de erro na abertura do QuickReport. Será esse o seu problema??
×
×
  • Criar Novo...