
Progr'amador
Veteranos-
Total de itens
1.130 -
Registro em
-
Última visita
Tudo que Progr'amador postou
-
Olá eroshands, Até onde eu sei o Trim serve pra tirar os espaços em banco do inicio e do fim de uma string.
-
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.
-
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!!!
-
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.
-
Olá Ewerton, Você poderia descrever, como está nessa lista do Library path???
-
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".
-
ainda continua dando erro com qualquer programa??? até mesmo um projeto novo se você compilar da esse erro?
-
Te aconselho a reinstalar o delphi, amigo
-
Dê uma olhada nessa dica, talvez ela possa te ajudar. ANIMANDO A ABERTURA DE UM FORM
-
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!
-
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!!!
-
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...
-
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...
-
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!!!
-
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
-
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???
-
eu acho que eu tava era complicando: basta usar isso: select top 1 campo from tabela order by campo desc
-
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?
-
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...
-
Select Codigo, Descricao, Sum(Qtde), Vr_unit From Tabela Group By Codigo, Descricao, Vr_unit
-
Abrir E Fechar Programas... (RESOLVIDO)
pergunta respondeu ao Progr'amador de Progr'amador em Delphi, Kylix
Valeu Capablanca, Resolvido. Até a próxima... -
Abrir E Fechar Programas... (RESOLVIDO)
pergunta respondeu ao Progr'amador de Progr'amador em Delphi, Kylix
ola amigo, na verdade pra abrir eu já tinha conseguido, agora estou precisando do comando pra Fechar. -
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...
-
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!!!
-
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??