Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. exemplo select * from receitas where datavencimento >= '2021-03-07 00:00:00 '); ou pode subistituir por um parametro
  2. Exemplo Select * from Tabela where horários = ' '
  3. 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
  4. Voce pode limitar a quantidade de registros retornados pela select https://www.mysqltutorial.org/mysql-limit.aspx
  5. 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
  6. Veja esses links https://www.google.com/search?client=firefox-b-e&q=calcular+porcentagem+mysql
  7. 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 ?
  8. Jhonas

    Exercício - Dúvida

    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
  9. 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
  10. Veja essa função simplificada https://www.cmmprogressivo.net/2019/10/Equacao-2-grau-Cpp-Bhaskara-Como-resolver.html abraço
  11. 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
  12. 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
  13. 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
  14. 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
  15. 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
  16. 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
  17. 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
  18. Informações sobre arquivos .dpk ( delphi ) https://www.reviversoft.com/pt/file-extensions/dpk Obs: por acaso voce está tentando instalar componentes ?
  19. 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
  20. 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
  21. 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
  22. 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
  23. 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
  24. 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
×
×
  • Criar Novo...