-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
exemplo select * from receitas where datavencimento >= '2021-03-07 00:00:00 '); ou pode subistituir por um parametro
-
SELECIONAR HORAS VAGAS PARA AGENDAMENTO EM MYSQL
pergunta respondeu ao Jessé Ribeiro de Jhonas em MySQL
Exemplo Select * from Tabela where horários = ' ' -
Exemplos: https://www.google.com.br/search?q=uso+do+trigger+mysql&source=hp&ei=MvKbYICcGvam5OUPiOyvmAI&iflsig=AINFCbYAAAAAYJwAQupKhOsWbfVi0yuXZ5BVVvaBs_ir&o que=uso+do+trigger+mysql&gs_lcp=Cgdnd3Mtd2l6EAM6AggAOgIILjoFCC4QiwM6BQgAEIsDOgsIABDHARCjAhCLAzoLCC4QiwMQqAMQmwM6BQguEJMCOg4ILhCLAxCbAxCoAxCaAzoHCAAQChCLAzoGCAAQFhAeOggIABAWEAoQHjoICCEQFhAdEB46BAghEApQ-hBY1kNgyVNoAXAAeACAAZwBiAHTFJIBBDAuMjCYAQCgAQGqAQdnd3Mtd2l6sAEAuAEC&sclient=gws-wiz&ved=0ahUKEwiA_YfjuMTwAhV2E7kGHQj2CyMQ4dUDCAc&uact=5
-
Voce pode limitar a quantidade de registros retornados pela select https://www.mysqltutorial.org/mysql-limit.aspx
-
Veja esses links https://www.google.com.br/search?q=somar+valor+da+tabela+com+a+tabela+2+mysql&source=hp&ei=A_GbYPPEK8ej5OUPgtKM8AU&iflsig=AINFCbYAAAAAYJv_E5Yb6-kjxkt6214e3JnHv8fpDQVF&o que=somar+valor+da+tabela+com+a+tabela+2+mysql&gs_lcp=Cgdnd3Mtd2l6EAM6BQgAEIsDOgUILhCLAzoCCAA6CwgAEMcBEK8BEIsDOggIABDHARCvAToGCAAQFhAeOggIABAIEA0QHjoICCEQFhAdEB46BQghEKABOgcIIRAKEKABUKIBWPlUYJxbaAFwAHgAgAGDBIgBhT2SAQwwLjMzLjMuMS4xLjKYAQCgAQGqAQdnd3Mtd2l6sAEAuAEC&sclient=gws-wiz&ved=0ahUKEwiz0tvSt8TwAhXHEbkGHQIpA14Q4dUDCAc&uact=5
-
Veja esses links https://www.google.com/search?client=firefox-b-e&q=calcular+porcentagem+mysql
-
(Resolvido)(Delphi) Erro de 'Insufficient memory for this operation.'
pergunta respondeu ao LockSpy de Jhonas em Delphi, Kylix
cdsTemp.FieldDefs.Add('arq', ftBlob); Voce não relatou qual é o banco de dados que voce esta usando. Se for o MYSQL: Um grande objeto binário que pode conter uma quantidade variável de dados binários. A classificação e comparação dos valores para esses objetos são realizadas de maneira sensível a maiúsculas e minúsculas. TINYBLOB Uma coluna de objeto binário grande com comprimento máximo de 255 (2 ^ 8 - 1) caracteres. BLOB Uma coluna de objeto binário grande com comprimento máximo de 65535 (2 ^ 16 - 1) caracteres. MEDIUMBLOB Uma coluna de objeto binário grande com comprimento máximo de 16777215 (2 ^ 24 - 1) caracteres. LONGBLOB Uma coluna de objeto binário grande com comprimento máximo de 4294967295 (2 ^ 32 - 1) caracteres. Obs: Voce está tentando salvar imagens do banco de dados ? -
Se voce não tentar fazer o exercício, não vai aprender muita coisa Tente fazer e depois tire as dúvidas abraço
-
Isso tem haver com a formatação que voce colocou no Edit acerte a configuração ou use o componente MaskEdit da paleta Additional ou o componente CurrencyEdit da paleta RX Controls caso prefira usar o Edit mesmo veja como formatar o numero para joga-lo no Edit Veja o comando FormatFloat no help ( F1 ) do delphi Exemplos 0 1234 -1234 1 0 0.00 1234.00 -1234.00 0.50 0.00 #.## 1234 -1234 .5 #,##0.00 1,234.00 -1,234.00 0.50 0.00 #,##0.00;(#,##0.00) 1,234.00 (1,234.00) 0.50 0.00 #,##0.00;;Zero 1,234.00 -1,234.00 0.50 Zero 0.000E+00 1.234E+03 -1.234E+03 5.000E-01 0.000E+00 #.###E-0 1.234E3 -1.234E3 5E-1 0E0 abraço
-
Veja essa função simplificada https://www.cmmprogressivo.net/2019/10/Equacao-2-grau-Cpp-Bhaskara-Como-resolver.html abraço
-
Tente Resetar o programa da balança Veja esses links https://www.google.com.br/search?q=como+resetar+balança+prix+5&source=hp&ei=s0aAYL7WErHZ5OUPy7SY0AQ&iflsig=AINFCbYAAAAAYIBUw45MCB9XIeJQVrcK368ypeCRZytQ&o que=balança+prix+5+rese&gs_lcp=Cgdnd3Mtd2l6EAEYADIGCAAQFhAeMgYIABAWEB46CwguELEDEIMBEJMCOggIABCxAxCDAToLCAAQsQMQxwEQowI6AgguOgUIABCxAzoFCC4QsQM6CAgAEMcBEKMCOgIIADoICAAQCBANEB5QixFY72Fgo4sBaAFwAHgAgAG0AYgBlxWSAQQwLjIwmAEAoAEBqgEHZ3dzLXdpeg&sclient=gws-wiz abraço
-
O componente smdbgrid é um sucessor do dbgrid ... então o processo é o mesmo para criar um botão dentro dele veja esses links https://www.google.com/search?q=colocar+botão+no+dbgrid+delphi&client=firefox-b-e&ei=JYh5YN7rAfjF5OUPnuqvsAo&o que=clocar+botão+no+smdbgrid+delphi+7&gs_lcp=Cgdnd3Mtd2l6EAEYADIFCAAQzQI6BwgAEEcQsAM6BggAEA0QHlC7gQNYkqcDYPbLA2gDcAJ4AIABpQWIAdMWkgEIMC4xNi41LTGYAQCgAQGqAQdnd3Mtd2l6yAEDwAEB&sclient=gws-wiz abraço
-
(Resolvido) Como fazer um pacote DesignTime instalar um RunTime na paleta de ferramentas
pergunta respondeu ao LockSpy de Jhonas em Delphi, Kylix
Obs: Dúvidas posta no Forum Delphi ....ok ? Nesses links voce vai encontrar como instalar componentes no delphi https://www.google.com.br/search?q=instalar+componente+delphi+xe10&source=hp&ei=h-tyYITQKPSx5OUPh4GvoAs&iflsig=AINFCbYAAAAAYHL5lykv8ngCZvLn2tIE-M8DwPL-ArGi&o que=instalar+componente+delphi+xe10&gs_lcp=Cgdnd3Mtd2l6EAMyBQghEKABOgoIABDqAhC0AhBDOggIABCxAxCDAToLCAAQsQMQxwEQowI6AggAOgUILhCxAzoFCAAQsQM6CAguELEDEIMBOggIABDHARCvAToCCC46BggAEBYQHlD5HFjQ0wFg-t8BaAJwAHgAgAHRAYgBpCGSAQYwLjMwLjGYAQCgAQGqAQdnd3Mtd2l6sAEB&sclient=gws-wiz&ved=0ahUKEwjEr5vTmPbvAhX0GLkGHYfAC7QQ4dUDCAY&uact=5 Outros links para como criar componentes no dephi https://www.google.com.br/search?q=criar+componente+delphi&source=hp&ei=Wu5yYM37Bpuv5OUPo6OR2AE&iflsig=AINFCbYAAAAAYHL8apM_5fenAXrWM99ybksu0KNYomc2&o que=criar+componente+&gs_lcp=Cgdnd3Mtd2l6EAEYBzICCAAyAggAMgIIADICCAAyAggAMgIIADICCAAyAggAMgIIADICCAA6CAgAELEDEIMBOggILhCxAxCDAToFCC4QsQM6CwgAELEDEMcBEKMCOggIABDHARCjAjoLCC4QsQMQgwEQkwI6BQgAELEDOg4IABCxAxCDARDHARCvAToECAAQDVCCHFi5UmCWZ2gCcAB4AIABoQGIAaASkgEEMC4xOJgBAKABAaoBB2d3cy13aXqwAQA&sclient=gws-wiz abraço -
var ximagem: tpicture; Incompatible types: 'String' and 'Timage' Tipos incompativeis: String e Timage timagem.Sql.Add('INSERT INTO TIMAGEM(NUM_REFERENCIA,IMG_IMAGEM)VALUES'); timagem.sql.add('(''' + '123' + ''','''+ximagem+''')'); Obs: veja que voce está adicionando uma string ( 'ximagem' ) e não uma imagem observe os apostrofes Caso não tenha entendido.... Imagino que tenho que converter a variavel ximagem, que é picture para string para, ai sim, dar certo na sentença sql. se voce converter ximagem para string, vai continuar o erro, porque voce vai estar tentando gravar uma string num campo binario. Nos links que te passei tem exemplos de como gravar um foto no banco de dados
-
(Resolvido) Como criar pacotes em runtime .dpk (Delphi)
pergunta respondeu ao LockSpy de Jhonas em Delphi, Kylix
Teria alguma certa diferença na extensão .dpk com a .bpl? Trabalhando com Pacotes e Componentes - Visão Geral Um pacote é uma biblioteca de vínculo dinâmico especial usada por aplicativos, o IDE ou ambos. Os pacotes de tempo de execução fornecem funcionalidade quando um usuário executa um aplicativo. Os pacotes de tempo de design são usados para instalar componentes no IDE e para criar editores de propriedades especiais para componentes personalizados. Um único pacote pode funcionar em tempo de design e tempo de execução, e os pacotes de tempo de design freqüentemente funcionam chamando pacotes de tempo de execução. Para diferenciá-los de outras DLLs, as bibliotecas de pacotes são armazenadas em arquivos que terminam com a extensão .bpl (biblioteca de pacotes Borland). Com relação ao .dpk veja esse link https://www.reviversoft.com/pt/file-extensions/dpk Teria como eu criar um pacote no XE10 com a extensão .dpk? Se voce leu a informação do link, verá que é possivel sim. Veja esses links https://www.google.com.br/search?q=criando+arquivo+dpk+delphi&source=hp&ei=PSlvYMufGa6r5OUPhqa3wAs&iflsig=AINFCbYAAAAAYG83Td953P6FlwXqOKcdorTjnqhioORU&o que=criando+arquivo+dpk+delphi&gs_lcp=Cgdnd3Mtd2l6EAM6CAgAELEDEIMBOgUILhCxAzoICC4QsQMQgwE6DggAELEDEIMBEMcBEKMCOgsILhCxAxCDARCTAjoFCAAQsQM6AggAOggILhCxAxCTAjoCCC46CAgAEMcBEK8BOgYIABAWEB46BQghEKABOgcIIRAKEKABUNwLWOuDAWDfiAFoAXAAeACAAbEBiAHwGpIBBDAuMjaYAQCgAQGqAQdnd3Mtd2l6sAEA&sclient=gws-wiz&ved=0ahUKEwiLspX4gu_vAhWuFbkGHQbTDbgQ4dUDCAY&uact=5 -
Experimente usar o tipo VARBINARY no lugar de IMAGE Veja esses links com exemplos de uso https://www.google.com.br/search?q=salvar+imagem+sql+server+delphi&source=hp&ei=mxFvYIiXC9LE5OUP4MO6mAE&iflsig=AINFCbYAAAAAYG8fq_OTf-D4XisKdpBsQoHBwJbYHbUG&o que=salvar+imagem+no+sql&gs_lcp=Cgdnd3Mtd2l6EAEYBjICCAAyAggAMgYIABAWEB4yBggAEBYQHjIGCAAQFhAeMgYIABAWEB4yBggAEBYQHjIGCAAQFhAeMgYIABAWEB4yBggAEBYQHjoICAAQsQMQgwE6BQguELEDOgUIABCxAzoOCAAQsQMQgwEQxwEQowI6CwgAELEDEMcBEKMCOggILhCxAxCTAjoICC4QsQMQgwE6CwguELEDEIMBEJMCOgsIABCxAxDHARCvAToECAAQAzoOCAAQsQMQgwEQxwEQrwE6CggAELEDEEYQ-QFQlg1YmixgunVoAXAAeACAAaEBiAHoFJIBBDAuMjCYAQCgAQGqAQdnd3Mtd2l6sAEA&sclient=gws-wiz
-
Uso do - If, else, if-else-if - Linguagem C http://nasemanadaprova.blogspot.com/2013/04/linguagem-c-if-else-if-else-if.html abraço
-
(Resolvido) Como criar pacotes em runtime .dpk (Delphi)
pergunta respondeu ao LockSpy de Jhonas em Delphi, Kylix
Informações sobre arquivos .dpk ( delphi ) https://www.reviversoft.com/pt/file-extensions/dpk Obs: por acaso voce está tentando instalar componentes ? -
Qual é o banco de dados ?
-
Pena.... não vai aprender nada, pagando para outro fazer o seu exercício. Experimente primeiro fazer parte do exercício e depois poste as suas dúvidas. ( assim voce aprende ) abraço
-
agora estou tentando somar as linhas pelo mes Obs: somar quantidades de um campo em um registro é uma coisa ... contar um registro de campo indedendente da quantidade é outra se é count então, veja esses links https://www.google.com/search?q=select+count+firebird&o que=select+count+firebird&aqs=chrome..69i57j0i22i30l3.9257j0j15&sourceid=chrome&ie=UTF-8 abraço
-
ok ... veja nesses links https://www.google.com/search?q=firebird+select+sum+group+by&o que=select+sum+firebird&aqs=chrome.1.69i57j0i22i30.10442j0j15&sourceid=chrome&ie=UTF-8 abraço
-
SELECT L1.* FROM apontamento As L1 INNER JOIN ( SELECT EXTRACT(MONTH FROM Datahora) as Mes, NUM_OF, MAX(Datahora) As UltimaData FROM apontamento GROUP BY NUM_OF) As L2 ON L1.NUM_OF = L2.NUM_OF AND L1.Datahora = L2.UltimaData where L1.pa <> 0 and L1.datahora >= :DataIni and L1.datahora <= :DataFim ORDER BY L1.datahora Tente assim ... se não funcionar, veja como utilizar a função no manual do Firebird abraço
-
Voce não especificou qual é o banco de dados ... então veja esses links https://www.sqltutorial.org/sql-date-functions/how-to-extract-month-from-date-in-sql/ https://thisinterestsme.com/mysql-get-year-month-date/ abraço
-
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtnrs, OleCtrls, ExtCtrls, SHDocVw; type TForm1 = class(TForm) Button1: TButton; wb: TWebBrowser; Image1: TImage; SaveDialog1: TSaveDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} uses activex, jpeg; procedure TForm1.Button1Click(Sender: TObject); var viewObject : IViewObject; r : TRect; bitmapdst, bitmap : TBitmap; RectOrigem, RectDestino: TRect; BitmapFont, BitmapDest, MyBMPImage: TBitmap; begin if wb.Document <> nil then begin wb.Document.QueryInterface(IViewObject, viewObject); if Assigned(viewObject) then try bitmap := TBitmap.Create; bitmapdst := TBitmap.Create; try bitmap.Height := wb.Height; // 288; // 322wb.Height; bitmap.Width := wb.Width; // 322; // wb.Width; r := Rect(0, 0, bitmap.width-1, bitmap.height-1); viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Application.Handle, bitmap.Canvas.Handle, @r, nil, nil, 0); RectOrigem := Rect(101, 101, 452, 388); RectDestino := Rect(0, 0, 351, 287); Bitmapdst.Width := 352; Bitmapdst.Height := 288; Bitmapdst.Canvas.CopyRect(RectDestino, Bitmap.Canvas, RectOrigem); with TJPEGImage.Create do try Assign(bitmapdst); SaveToFile(SaveDialog1.FileName); finally Free; end; finally bitmapdst.Free; bitmap.Free; end; finally viewObject._Release; end; end; end; end. OBS: No exemplo acima, voce recorta um pedaço da imagem bmp e salva como jpeg. ( isso diminui o tamanho da figura ) aqui voce pode alterar o programa para usar o mouse para pegar as coordenadas ( X,Y) que voce quiser da imagem Depois voce carrega a nova imagem e usa o código abaixo para armazenar num array ( ArrayPuntos ou pode usar outro nome ) todos os pixels da nova figura, que foi selecionado pelo mouse. Obs: a imagem recortada vem de uma URL ( WebBrowser ) mas voce pode usar uma imagem bmp ( basta modificar o código ) o código da cor ficara armazenada no array ( ArrayPanel ) No código abaixo, a leirura sera de 100 pixels Código: ------------------------------------------ var i:Integer; color:TColor; begin i:=0; While i<100 do begin color:=GetPixel(GetWindowDC(GetDesktopWindow),ArrayPuntos[i].X,ArrayPuntos[i].Y); ArrayPanel[i].Color:=color; end; ------------------------------------------ Depois basta usar um comando For para testar a cor verde que voce quer com a que está armazenada no array ( ArrayPanel ) Modifique o código para o seu uso. abraço