Jhonas

veja esses links https://msdn.microsoft.com/pt-br/library/bb384843.aspx http://www.relisoft.com/win32/ http://www.google.com.br/search?q=api+win32+c%2B%2B&hl=pt&biw=&bih=&gbv=2&o que=api+win32+c%2B%2B&gs_l=heirloom-serp.3...216871.231503.0.231791.15.6.2.7.9.0.173.691.2j4.6.0....0...1ac.1.34.heirloom-serp..8.7.696.UsAcSq3_A-8 abraço

veja esses links http://www.google.com.br/search?q=sindicato+ti&hl=pt&biw=&bih=&gbv=2&o que=sindicato+T&gs_l=heirloom-serp.1.4.0l10.325530.341124.0.346384.13.13.0.0.0.0.402.1836.6j4j2j0j1.13.0....0...1ac.1.34.heirloom-serp..5.8.905.ViFp_EOuxhA abraço

Ai vou lá em diário por exemplo ai ele aparecerá das datas que eu coloquei no Datetimerpicker e isso mesmo?? sim eu vi num vídeo aqui que o cara só coloca as datas no DateTimerPicker.. ai aparece as datas no relatório direto sem clicar em Diário ou mensal.... isso depende de onde voce vai colocar o código.... para fazer do jeito que voce quer basta fazer assim var Form1: TForm1; VData : String; implementation {$R *.dfm} procedure TForm1.DateTimePicker1Change(Sender: TObject); begin VData := datetostr(DateTimePicker1.Date); if (Diário.Checked = true) then begin //pegar a data clicada no DateTimerPicker Mensal.Checked := false; // desabilitar o Mensal Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA = ' + '''' + VData + ''''; Ibtable1.Active := true; Ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; exit; //Forçar a sair da rotina, ou vai executar os ifs após o else...} //********************************************************************* end; if (Mensal.Checked= true) then begin //pegar o periodo da data clicada no DateTimerPicker (-30) dias Diário.Checked := false; /// desabilitar o Diário Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA >= ' + '''' + datetostr(strtodate(VData)-30) + '''' + ' and ' + 'DATA_VENDA <= ' + '''' + VData + ''''; Ibtable1.Active := true; ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; end; end; OBS: dessa maneira ao selecionar ou digitar a data no tDatetimerPicker , automaticamente é selecionado o report, dependendo da condição do CheckBox. ( ou ele faz um relatório ou outro ) abraço

tem que ser assim unit NumEdit; interface uses SysUtils, Classes, Controls, StdCtrls; type TNumEdit = class(TEdit) private { Private declarations } FNum: boolean; protected { Protected declarations } public { Public declarations } constructor Create(AOwner: TComponent); override; procedure KeyPress(var Key: Char);override; published { Published declarations } property Numerico: boolean read FNum write FNum default true; end; procedure Register; implementation procedure Register; begin RegisterComponents('MyComp', [TNumEdit]); end; constructor TNumEdit.Create(AOwner: TComponent); begin inherited Create(AOwner); FNum := true; Text := '0'; end; procedure TNumEdit.KeyPress(var Key: Char); const teclas = ['0'..'9',',', #8]; begin if FNum then if not (key in teclas) then key:=#0; if key = #0 then begin Text := formatfloat(',0.00',strtofloat(trim(text))); exit; end; inherited KeyPress(Key); end; end. abraço

voce tem que formatar a string exemplo ... faça as modificações para o seu uso procedure TForm1.Edit1Enter(Sender: TObject); begin Edit1.Clear; SysLocale.MiddleEast := true; Edit1.BiDiMode := bdRightToLeft; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then begin Edit1.text := formatfloat(',0.00',strtofloat(trim(Edit1.text))); exit; end; if not (key in ['0'..'9',',', #8]) then key := #0; end; outro exemplo http://www.planetadelphi.com.br/dica/5951/mascara-para-o-edit abraço

se for para criar novos componentes, sim ... tipo criar um novo Edit que só aceita numeros exemplo http://www.planetadelphi.com.br/artigo/23/cria%C3%A7%C3%A3o-de-componentes---1%C2%AA-parte-%28c/-exemplo-pr%C3%A1tico%29/ se não for isso... pesquise no google pela palavra .... delphi template ( engine, method, code, list, class, function...etc ) abraço

solução: https://answers.acrobatusers.com/Acrobat-file-creation-error-114-q6165.aspx abraço

veja nesses links http://www.google.com.br/search?q=tutorial+report+builder+delphi+7&hl=pt&biw=&bih=&gbv=2&o que=tutorial+report+&gs_l=heirloom-serp.1.7.0l3j0i22i10i30l2j0i22i30l5.94342.97673.0.104448.16.10.0.0.0.0.449.3424.1j0j1j5j3.10.0....0...1ac.1.34.heirloom-serp..13.3.794.ukSy9Ro3las abraço

veja se isso te ajuda http://www.devmedia.com.br/artigo-clube-delphi-112-interfaces/15097 http://www.google.com.br/search?q=reposit%C3%B3rio+componentes+em+delphi&hl=pt&biw=&bih=&gbv=2&o que=repositrio++componentes+em+delphi&gs_l=heirloom-serp.1.0.30i10.130400.136216.0.140036.13.10.0.1.0.8.675.5056.1j1j5-8.10.0....0...1ac.1.34.heirloom-serp..12.1.89.ejctNtOfV_0 abraço

veja no Painel de Controle quais os programas que estão instalados ... alguns podem fazer esse tipo de bloqueio abraço

no XP faz o download normal, com o mozila firefox e com o google crome acho que isso não tem nada haver com o sistema operacional e sim com as configurações do seu browser abraço

porque eu quero que apareça as datas que eu colocar no tDatetimerPicker.... o código que te passei está funcionando perfeitamente var Form1: TForm1; VData : String; implementation {$R *.dfm} procedure TForm1.DateTimePicker1Change(Sender: TObject); begin VData := datetostr(DateTimePicker1.Date); end; procedure TForm1.Button1Click(Sender: TObject); begin if (Diário.Checked = true) then begin //pegar a data clicada no DateTimerPicker Mensal.Checked := false; // desabilitar o Mensal Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA = ' + '''' + VData + ''''; Ibtable1.Active := true; Ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; exit; //Forçar a sair da rotina, ou vai executar os ifs após o else...} //********************************************************************* end; if (Mensal.Checked= true) then begin //pegar o periodo da data clicada no DateTimerPicker (-30) dias Diário.Checked := false; /// desabilitar o Diário Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA >= ' + '''' + datetostr(strtodate(VData)-30) + '''' + ' and ' + 'DATA_VENDA <= ' + '''' + VData + ''''; Ibtable1.Active := true; ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; end; end; observe que depois que a data é selecionada ou digitada no tDatetimerPicker o código que esta no botão é executado dependendo da opção Diário ou Mensal OBS: Não tem nenhum erro de conversão de string abraço

gostaria de deixar em vermelho apenas algumas colunas dessa linha voce deveria dizer que quer deixar alguns valores das colunas em vermelho e não o titulo... exemplo: Na coluna SALDO ...se o saldo for menor que zero o valor fica em vermelho procedure TFCartCons.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (Column.FieldName = 'SALDO') then begin if CDS_Opcoes.FieldByName('SALDO').Value < 0 then begin DBGrid1.Canvas.Font.Color := clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end else begin DBGrid1.Canvas.Font.Color := clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; abraço

experimente assim for i := 0 to DeltaDs.FieldCount do ou então verifique se a definição do campo está realmente correta abraço

Cystal Reports español: http://www.taringa.net/posts/downloads/1193869/Crystal-Reports-8-Esp-+-Guía-(Varios-Mirrors).html abraço

exemplo: se voce salvou a posição do registro no dbgrid como 15,2 ou seja linha 15 e coluna 2 então ao ler o valor do arquivo ini, voce teria aTexto := ArqIni.ReadString('Linha', 'Coluna', aTexto); aTexto := 15,2 usando o comando (copy(aTexto,pos(',',aTexto)+1,2)) DBGrid1.SelectedIndex := strtoint(trim(copy(aTexto,pos(',',aTexto)+1,2))); voce vai copiar a string aTexto a partir da virgula ( , ) + 1 posição, 2 caracteres aTexto := 15,2 ..... seria isso >>>> 2 ou seja a posição da coluna que foi salva no arquivo ini abraço

esqueci um detalhe ... as aspas antes do VData unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, IBCustomDataSet, IBTable, StdCtrls; type TForm1 = class(TForm) DateTimePicker1: TDateTimePicker; Button1: TButton; IBTable1: TIBTable; procedure DateTimePicker1Change(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; VData : String; implementation {$R *.dfm} procedure TForm1.DateTimePicker1Change(Sender: TObject); begin VData := datetostr(DateTimePicker1.Date); end; procedure TForm1.Button1Click(Sender: TObject); begin if (Diário.Checked = true) then begin //pegar a data clicada no DateTimerPicker Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA = ' + '''' + VData + ''''; Ibtable1.Active := true; Ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; exit; //Forçar a sair da rotina, ou vai executar os ifs após o else...} //********************************************************************* end; if (Mensal.Checked= true) then begin //pegar o periodo da data clicada no DateTimerPicker (-30) dias Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA >= ' + '''' + datetostr(strtodate(VData)-30) + '''' + ' and ' + 'DATA_VENDA <= ' + '''' + VData + ''''; Ibtable1.Active := true; ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; end; end; end. abraço

usando o DateTimerPicker unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, IBCustomDataSet, IBTable, StdCtrls; type TForm1 = class(TForm) DateTimePicker1: TDateTimePicker; Button1: TButton; IBTable1: TIBTable; procedure DateTimePicker1Change(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; VData : String; implementation {$R *.dfm} procedure TForm1.DateTimePicker1Change(Sender: TObject); begin VData := datetostr(DateTimePicker1.Date); end; procedure TForm1.Button1Click(Sender: TObject); begin if (Diário.Checked = true) then begin //pegar a data clicada no DateTimerPicker Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA = ' + VData; Ibtable1.Active := true; Ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; exit; //Forçar a sair da rotina, ou vai executar os ifs após o else...} //********************************************************************* end; if (Mensal.Checked= true) then begin //pegar o periodo da data clicada no DateTimerPicker (-30) dias Ibtable1.Active := false; Ibtable1.filter := 'DATA_VENDA >= ' + datetostr(strtodate(VData)-30) + ' and ' + 'DATA_VENDA <= ' + VData; Ibtable1.Active := true; ibtable1.filtered := true; FRXReport1.LoadFromFile('E:\ProjetoCadastro\Nova Lanchonete\VendaCaixa.fp3'); FrxReport1.ShowReport() ; end; end; end. abraço

preciso entrar no MySQL workbench e escrever ["SHOW SLAVE STATUS"] em dois servidores.... e verificar se eles estão sincronizados. Metodos para backup automatico MySQL http://www.tweaking4all.com/software-development/automatic-mysql-backup-replication/ abraço

essa linha é fixa ou não ? o valor do campo repete ou não ?

exemplo procedure TForm1.BitBtn1Click(Sender: TObject); begin // Mudar a cor de fundo do Titulo do Campo da Tabela da 1ª coluna DBGrid1.Columns[0].Title.Color := clAqua; // cor de fundo DBGrid1.Columns[0].Title.Font.Color := clBlack; // cor da fonte end; ou procedure TForm1.BitBtn1Click(Sender: TObject); begin // Mudar a cor de fundo do Titulo do Campo da Tabela da 1ª coluna DBGrid1.Columns[0].Title.Color := clRed; // cor de fundo DBGrid1.Columns[0].Title.Font.Color := clWhite; // cor da fonte end; Obs: voce pode fazer isso diretamente no dbgrid abraço

veja as modificações var Form1: TForm1; Linha, Coluna : Integer; implementation {$R *.dfm} uses IniFiles; procedure GravaIni(aTexto: string); var ArqIni: TIniFile; begin // SALVAR O VALOR DE LINHA E COLUNA NO ARQUIVO INI ArqIni := TIniFile.Create('c:\Arquivo.ini'); try ArqIni.WriteString('Linha', 'Coluna', aTexto); finally ArqIni.Free; end; end; procedure LeIni(var aTexto: string); var ArqIni: TIniFile; begin // LER OS VALORES DE LINHA E COLUNA DO ARQUIVO INI ArqIni := TIniFile.Create('c:\Arquivo.ini'); try aTexto := ArqIni.ReadString('Linha', 'Coluna', aTexto); finally ArqIni.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin GravaIni(inttostr(Linha) +','+ inttostr(Coluna)); end; procedure TForm1.Button2Click(Sender: TObject); var aTexto: string; begin // LER A POSIÇÃO DE LINHA E COLUNA DO ARQ INI // COLOCAR O CURSOR NA ULTIMA POSIÇÃO SALVA LeIni(aTexto); ShowMessage(aTexto); ClientDataSet1.RecNo := strtoint(copy(aTexto,1,(pos(',',aTexto)-1))); if ClientDataSet1.RecNo > 12 then // numero de linhas no dbgrid TStringGrid(DBGrid1).Row := 6 else TStringGrid(DBGrid1).Row := ClientDataSet1.RecNo; DBGrid1.SelectedIndex := strtoint(trim(copy(aTexto,pos(',',aTexto)+1,2))); DBGrid1.SetFocus; Edit1.Text := IntToStr( TStringGrid(DBGrid1).Row ); Edit2.Text := IntToStr( DBGrid1.SelectedIndex ); end; procedure TForm1.DBGrid1CellClick(Column: TColumn); begin // PEGAR NOVA POSIÇÃO DE LINHA E COLUNA NO DBGRID Linha:= ClientDataSet1.RecNo; // numero da linha do registro Coluna := DBGrid1.SelectedIndex; Edit1.Text := IntToStr( Linha ); Edit2.Text := IntToStr( Coluna ); end; end. abraço

funciona somente se a posição estiver até a 10ª coluna do dbGrid apenas, depois da 10ª a leitura da posição não funciana. Se voce observar o numero de linhas que são mostradas no dbgrid, deve ser 10 linhas, a partir dai começa a rolagem dos registros ... certo ? por mais registros que voce faça rolar no dbgrid, o numero de linhas mostradas no dbgrid será sempre o mesmo então quando o decimo primeiro registro aparece no dbgrid, ele não sera o decimo primeiro no dbgrid, e sim, o decimo e quando o decimo segundo registro aparece no dbgrid, ele não sera o decimo segundo no dbgrid, e sim, o decimo e quando o decimo terceiro registro aparece no dbgrid, ele não sera o decimo terceiro no dbgrid, e sim, o decimo... etc OBS: voce deve se basear no numero do registro da tabela .... se o numero do registro for maior que o numero de linhas no dbgrid, então voce deve posicionar o registro no centro do dbgrid para depois então mostrar a referencia ( > ) do registro na posição em que foi salvo os parametros de Linha e Coluna exemplo: se voce salvou a posição do registro no dbgrid como 15,2 ou seja linha 15 e coluna 2 ( nesse caso voce fez rolar o dbgrid ) na verdade o valor da linha e coluna na celula do dbrig não será essa ( pois o escopo ( visual ) do dbgrid será de apenas 10 linhas ) então nesse caso voce deve pesquisar o valor da posição do registro na tabela e determinar qual posiçao da linha do dbgrid voce quer que esse registro seja exibido. parece complicado, mas até que é bem smples de resolver ... quer tentar fazer isso sozinho ? abraço

com o SQLQuery1 tambem funciona .. lembrando que o SQLQuery1 deve estar ativo procedure TForm1.Button2Click(Sender: TObject); var aTexto: string; begin // LER A POSIÇÃO DE LINHA E COLUNA DO ARQ INI // COLOCAR O CURSOR NA ULTIMA POSIÇÃO SALVA LeIni(aTexto); ShowMessage(aTexto); TStringGrid(DBGrid1).Row := strtoint(copy(aTexto,1,1)); DBGrid1.SelectedIndex := strtoint(copy(aTexto,3,1)); DBGrid1.SetFocus; // INDICAR A POSIÇÃO DO REGISTRO DA TABELA NO DBGRID SQLQuery1.RecNo := TStringGrid(DBGrid1).Row; Edit1.Text := IntToStr( TStringGrid(DBGrid1).Row ); Edit2.Text := IntToStr( DBGrid1.SelectedIndex ); end; ou tente ClientDataSet1.RecNo := TStringGrid(DBGrid1).Row; abraço

veja esse exemplo https://www.scriptbrasil.com.br/forum/topic/178331-resolvidoproblema-para-clicar-no-botao-sem-id-delphi/?p=676450 abraço