Jhonas

amigo, tenho uma tabela com 300 mil registros e uso um select para inclusão e outro para os demais procedimentos. lembre-se que voce tambem pode limitar o numero de registros que a select traz para voce exemplo para limitar o select em 50 registros: SELECT CP.CODIGO, CP.NF, CP.DATA, CP.NUM_DOC, CP.VALOR, CP.VENCIMENTO, CP.PARCELA, CE.CEDENTE AS NOME_CEDENTE FROM CONTASPAGAR CP INNER JOIN CEDENTES CE ON CE.CODIGO = CP.COD_CEDENTE LIMIT 50

TOTAL CREDITO (?) TOTAL DEBITO(?) TOTAL CREDITO (Já está funcionando este campo de cálculo). para calcular o campo débito é a mesma coisa exemplo ( - 100 ) + ( - 160 ) = - 260 amigo, não tenho instalado o Fortes Report, então só posso te indicar alguns links para te ajudar Usando o Fortes Report com calculos https://www.google.com.br/search?ei=zv55W_v8PMW7wASBzYvwAg&q=fortes+report+calculo+debito+e+credito&o que=fortes+report+calculo+debito+e+credito&gs_l=psy-ab.3...5499.7629.0.8493.8.8.0.0.0.0.109.817.3j5.8.0....0...1c.1.64.psy-ab..1.0.0....0.OWiqofsoDII Manual https://www.google.com.br/search?ei=zv55W_v8PMW7wASBzYvwAg&q=fortes+report+manual&o que=fortes+report+ma&gs_l=psy-ab.1.0.0l2j0i22i30k1l2.3631.3707.0.6818.2.2.0.0.0.0.156.156.0j1.1.0....0...1c.1.64.psy-ab..1.1.156....0.fYPpkNHN9S8 Exemplos https://www.google.com.br/search?ei=Yf95W_jBM4yAwgTIhazYCg&q=fortes+report+exemplos&o que=fortes+report+exemplos&gs_l=psy-ab.3..0.13796.13796.0.15747.1.1.0.0.0.0.120.120.0j1.1.0....0...1c.1.64.psy-ab..0.1.119....0.YmWy036PHGc Videos https://www.google.com.br/search?q=fortes+report+debito+credito&source=lnms&também=vid&sa=X&ved=0ahUKEwinrfaXpfrcAhWJf5AKHYuLD7EQ_AUIDCgD&biw=1024&bih=639 https://www.google.com.br/search?biw=1024&bih=639&também=vid&ei=ywJ6W8uVJcK-wASH6Yy4BQ&q=fortes+report+exemplos+debito+credito&o que=fortes+report+exemplos+debito+credito&gs_l=psy-ab.3..33i160k1.2513.2892.0.3223.4.4.0.0.0.0.166.376.1j2.3.0....0...1c.1.64.psy-ab..1.3.375...33i21k1.0.Jjjd1WkdPJM abraço

Amigo, se voce digitar somente o ano no edit, basta fazer a conversão de string para numero e uma subtração e de depois converter novamente de numero para string procedure TForm1.Button1Click(Sender: TObject); begin // Edit1.Text = 2018 // Edit2.Text = 1958 // Edit3.Text = 60 Edit3.Text := inttostr(strtoint(Edit1.Text) - strtoint(Edit2.Text)); end; se quiser usar 2 componentes DateTimePicker uses DateUtils; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin // DateTimePicker1.Date = 19/ 8 /2018 // DateTimePicker2.Date = 18/ 8 /1958 // Edit1.Text = 60 Edit1.Text := FloatToStr(YearsBetween(DateTimePicker1.Date, DateTimePicker2.Date)); end; abraço

Eu consigo fazer a baixa, alteração, exclusão sem problemas. isso porque nas 2 tabelas existem os campos correspondentes A inclusão de um novo registro que é o problema. quando voce faz uma inclusão de registro em uma tabela, na outra ainda não existe o campo correspondente, ou seja ( CE.CODIGO = CP.COD_CEDENTE ) voce tem 2 opções: Usar um select somente para a inclusão de registros e outro para fazer a baixa, alteração, exclusão se quiser usar o mesmo select, então voce deve salvar os campos correspondentes na tabela CONTASPAGAR e depois os campos da tabela CEDENTES separadamente. abraço

veja nesses links: https://www.google.com.br/search?source=hp&ei=4h5yW4fOD4ScwASXw4DwDQ&q=comandos+para+bats&o que=comandos+para+bat&gs_l=psy-ab.1.1.0j0i22i30k1l9.1286.5231.0.8144.17.14.0.3.3.0.183.1562.4j9.13.0....0...1c.1.64.psy-ab..1.16.1597...0i131k1.0.t14pgvTRLko abraço

veja esse link http://www.360biometrics.com/wsq_sdk/Griaule_WSQ_SDK.php abraço

amigo, isso é muito simples var s : string; i : integer; begin s := trim(Edit1.Text); i := length(trim(Edit1.Text)); i := i div 2; if i = 0 then Label1.Caption := '0' else if (i * 2) <> length(trim(s)) then Label1.Caption := s[i+1] else Label1.Caption := '0'; end; abraço

Amigo, eu não tenho esse componente instalado... e não tenho como testar isso aqui. só posso te indicar o caminho Se esse componente for visual, então voce ao coloca-lo no Form ele deve aparecer tipo : JvDesktopAlert1 e se colocar outros JvDesktopAlert2, JvDesktopAlert3, JvDesktopAlert4, ... etc se for isso, voce pode então usar uma rotina para ler os componentes do Form procedure TForm1.verifica(Sender: TObject); var i : integer; nome : string; begin for i := 0 to ComponentCount -1 do begin nome := ''; if Components[i] is TJvDesktopAlert then nome := sender.classname + '/' + TJvDesktopAlert(Components[i]).name; showmessage(nome); end; end; procedure TForm1.Button1Click(Sender: TObject); begin verifica(Sender); end; Use o código acima, e veja se ele mostra o nome desse componente. Se funcionar, eu coloco o restante do código. abraço

Um exemplo simples: procedure TForm1.Button1Click(Sender: TObject); begin with JvDesktopAlert1 do begin HeaderText := 'Aviso:'; MessageText := 'Exemplo de mensagem com JvDesktopAlert'; Execute; end; end; Para usar mais de um Alerta voce deve criar o componente dinamicamente exemplo: JvDesktopAlert := TJvDesktopAlert.Create(nil); with JvDesktopAlert do begin ... end; e depois deve destruí-lo JvDesktopAlert .Free; JvDesktopAlert := nil; exemplo: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JvDesktopAlert; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } procedure AddAlert(title, text: String; stack: TjvDesktopAlertStack); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.AddAlert(title, text: String; stack: TjvDesktopAlertStack); Begin with TJvDesktopAlert.Create(self) do Begin AutoFree := true; AlertStack := stack; HeaderText := title; MessageText := text; Execute(self.Handle); End; End; procedure TForm1.Button1Click(Sender: TObject); var stack: TjvDesktopAlertStack; begin stack := TJvDesktopAlertStack.Create(self); try AddAlert('title1', 'message1', stack); AddAlert('title2', 'message2', stack); AddAlert('title3', 'message3', stack); AddAlert('title4', 'message4', stack); AddAlert('title5', 'message5', stack); finally stack.Free; end; end; end. Outro exemplo pronto https://github.com/project-jedi/jvcl/blob/master/jvcl/examples/JvDesktopAlert/JvDesktopAlertDemoForm.pas Mais exemplos: https://github.com/project-jedi/jvcl/tree/master/jvcl/examples/JvDesktopAlert https://sourceforge.net/p/jvcl/mailman/message/14329486/ importante: Algumas propriedades do componente que você deve conhecer são: · AlertStyle: configura o efeito utilizado na exibição do alerta; · Colors: define as cores que o alerta será pintado; · Location: indica a posição da tela em que o alerta aparecerá; · Options: configura se o alerta pode ser clicado, movido ou fechado; · StyleOptions: configura a animação executada na exibição do alerta. Veja tambem esse link: https://www.mail-archive.com/search?l=delphi-br@yahoogrupos.com.br&amp;q=subject:"Res\%3A+Res\%3A+\[delphi\-br\]+componentes+criados+dinamicamente"&amp;o=newest&amp;f=1 abraço

Eu preciso de algum argumento técnico, uma matéria ou algo que justifique a utilização ou não do uso de ODBC. https://translate.google.com.br/translate?hl=pt-BR&amp;sl=en&amp;u=https://only4techies.wordpress.com/2009/09/22/what-is-odbc/&amp;prev=search https://www.google.com.br/search?source=hp&amp;ei=SdNdW9gQxIfBBJXWu7AN&amp;q=odbc+pros+and+cons&amp;o que=odbc+pros+&amp;gs_l=psy-ab.1.0.0i19k1j0i22i30i19k1.1631.7100.0.14653.14.12.2.0.0.0.148.1284.0j11.11.0..2..0...1.1.64.psy-ab..1.13.1300...0j0i131k1j0i22i10i30i19k1j0i22i30k1.0.wht7Q6TTvmM OBS: Eu não utilizo ODBC e não deixa a desejar. ( mas leve em conta o tipo e a finalidade do projeto ) abraço

Uma sugestão, seria voce criar uma rotina para ler os componentes que estão no Form e depois achar o componente especifico e fecha-lo Vi um post seu ensinando a criar e destruir o aviso Não me lembro mais desse post, por favor me passe o link dele novamente .

tente esse https://www.dropbox.com/pt_BR/help/desktop-web/download-dropbox abraço

dê um exemplo do que esta querendo fazer

seja mais especifico ... voce quer auto instalação de que programa ? esse link é para um servidor ? qual ? se voce der mais detalhes, alguém pode ajuda-lo. abraço

As bands do relatório estão limitadas ao tamanho da folha e ao conteúdo em cada band entretanto se o conteúdo de cada band puder ultrapassar o tamanho da folha ( ou seja o conteudo pode ser exibido em mais de uma folha ) então voce pode usar quantas bands quiser. mas não estou entendendo, porque usar tantas bands ... na minha experiencia, não utilizo mais que 5 bands e consigo montar qualquer tipo de relatório. O problema é que não consigo mais visualizar as novas bands para que voce consiga ver as bands que parecem estar fora dos limites, basta voce aumentar a altura ( comprimento ) do relatorio ( defina Custom size ) dessa forma voce podera ver as demais bands e depois que fizer as suas modificações voce volta a altura normal ( Tamanho padrão da folha ) Esses links vão ajudar a entender melhor https://translate.google.com.br/translate?hl=pt-BR&amp;sl=en&amp;u=https://www.fast-report.com/en/documentation/frhelp/bands_in_fr.htm&amp;prev=search https://translate.google.com.br/translate?hl=pt-BR&amp;sl=en&amp;u=https://www.fast-report.com/documentation/UserMan/nested_reports_(subreports).htm&amp;prev=search https://www.fast-report.com/documentation/UserMan/index.html?nested_reports_(subreports).htm abraço

veja os exemplos ... https://www.google.com.br/search?source=hp&amp;ei=nUdXW8XXCcelwAT9u66gBA&amp;q=relatorios+fastreport+delphi&amp;o que=relatorios+no+fastreport&amp;gs_l=psy-ab.1.1.0i22i30k1l2.2727.7298.0.9223.24.24.0.0.0.0.271.2751.1j20j1.22.0....0...1c.1.64.psy-ab..2.22.2745...0j0i131k1.0.agtBEYpAhp4 abraço

A propriedade TopIndex especifica o número do índice do item que aparece na parte superior da caixa de listagem. O listBox no FMX não tem a propriedade TopIndex, e sim itemindex , então voce deverá usar essa propriedade. como não tenho esse componente instalado, não posso te dar um exemplo mais especifico. abraço

Envie uma MP para o Administrador do Forum https://www.scriptbrasil.com.br/forum/profile/1-script-brasil/ abraço

veja todas as propriedades desse componente http://docwiki.embarcadero.com/Libraries/Tokyo/en/FMX.ListBox.TListBox http://docwiki.embarcadero.com/Libraries/Tokyo/en/FMX.ListBox.TListBox_Properties abraço

A minha dúvida é como fazer para que as rotinas que pegam os dados do panel, saibam qual o panel que está sendo pressionado. Veja as modificações no código unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; Panel3: TPanel; Ed_Esq: TEdit; Ed_Topo: TEdit; procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure showname(Sender: TObject); procedure verifica(Sender: TObject); procedure Panel1Click(Sender: TObject); private { Private declarations } public { Public declarations } comp, s : string; end; var Form1: TForm1; mexendo : boolean; Pos_Antiga: TPoint; implementation {$R *.dfm} procedure TForm1.showname(Sender: TObject); begin comp := (sender.classname + '/' + (sender as TComponent).name) ; s := comp; verifica(Sender); showmessage(s); end; procedure TForm1.verifica(Sender: TObject); var i : integer; nome : string; begin for i := 0 to ComponentCount -1 do begin nome := ''; if Components[i] is TPanel then nome := sender.classname + '/' + TPanel(Components[i]).name; if nome = s then begin //mexendo := True; SetCapture ( TPanel(Components[i]).handle); GetCursorPos ( Pos_Antiga ); Ed_Esq.Text := IntToStr ( TPanel(Components[i]).Left ) ; Ed_Topo.Text := IntToStr ( TPanel(Components[i]).Top ) ; end; end; end; procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Pos_Nova: TPoint; mLeft : String ; mTop : String ; begin if mexendo then begin GetCursorPos ( pos_Nova ); Screen.Cursor := crSize; panel1.Left := panel1.Left - Pos_Antiga.X + Pos_Nova.X ; panel1.Top := panel1.Top - Pos_Antiga.Y + Pos_Nova.Y ; Pos_Antiga := Pos_Nova; end; end; procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if mexendo then begin Screen.Cursor := crDefault; ReleaseCapture; mexendo := False; end; end; procedure TForm1.Panel1Click(Sender: TObject); begin showname(sender); end; end. OBS: Fiz uma ligeira mudança no seu código, para te mostrar como voce pode saber qual Panel está sendo pressionado. A procedure showname, voce vai colocar no Evento OnClick de cada Panel basta marcar todos os Panels e na propriedade OnClick ( Object Inspector ) voce coloca showname Quando voce clicar com o mouse em qualquer Panel , vai aparecer uma mensagem com o nome do Panel que voce clicou A procedure Verifica , vai verificar qual Panel foi clicado e o comando setcapture vai capturar o handle daquele Panel e exibir as posições de Left e Top nos respectivos edits. Se voce entendeu a lógica, basta voce modificar o código para o seu uso abraço

Então verifique os componentes de conexão do mysql com o banco de dados se for o caso, sugiro que voce delete esses componentes e inclua novos da paleta e faça novamente a configuração. abraço

Voce terá que: ou trocar o nome do serviço na configuração de uma nova instância do mysql, Exemplo: Windows Service Name : MYSQL1 https://www.juliobattisti.com.br/tutoriais/almirrivas/php002_clip_image020.jpg ou desinstalar o mysql, deletar a pasta do mysql e retirar do registro do windows a sua referência..... depois disso voce deverá instalar novamente o mysql e fazer novamente a configuração abraço

Existem muitas funções e até componentes em dephi para criptografia de senhas https://www.google.com.br/search?source=hp&amp;ei=Za1MW6eENNDt5gKI5aTICA&amp;q=criptografar+senha+delphi&amp;o ou pode tentar usar esse programa de conversão http://www.pacifier.com/~mmead/jni/delphi/javadpr/index.html abraço

bom...pelo que eu entendi, voce não quer ter que repetir as rotinas para cada panel ... seria isso ? voce pode marcar todos os panels e na propriedade MouseUp ou outra que queira, voce pode colocar a propriedade de outro componente ... assim quando voce clicar em um outro panel, a execução do código estará em apenas 1 deles. se não for isso, favor colocar uma imagem do seu Form para que eu possa ter uma noção de como ajudá-lo. abraço

use o Mysql Front para tentar recuperar as suas tabelas https://www.google.com.br/search?source=hp&amp;ei=bQdJW4_NOrHv5gKB4Zu4Dg&amp;q=mysql+front+5.3&amp;o que=mysql+front&amp;gs_l=psy-ab.1.6.0i131k1j0l9.3008.8332.0.16575.15.15.0.0.0.0.203.1863.0j9j1.10.0..2..0...1.1.64.psy-ab..5.10.1858....0.6vtNkt7oW00 abraço