Jump to content
Fórum Script Brasil

Bettega

Membros
  • Content Count

    24
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Bettega

  1. Copiei os dados para o diretório do Delphi, e consegui instalar. Obrigado Jhonas
  2. Exato. Já tenho o Delphi XE6 com Zeos. Como posso fazer para especificar o local ?
  3. Estou tentando instalar o Zeos no Delphi 10.2. Baixei a última versão estável do Zeos. ( 7.2.6.1 ) Adiciono todos os paths necessários. Quando vou abrir o ProjectGroup, só encontro o ProjectGrup24.groupproj na pasta do Delphi 10.1. Acredito que seja o mesmo. Quando vou compilar os arquivos bpl, dá erro de compilação no ZDbc240.bpl ( Unit ZOleDB not Found ) e no ZComponent240.bpl ( Never-build package ZDbc must be recompiled ). Não adianta recompilar. Sempre dá erro. Mesmo assim, tento instalar o ZComponentDesign240.bpl, mas também dá erro, e não instala o Zeos. Alguma idéia do que fazer ? Obrigado. Bettega.
  4. Jhonas, obrigado por sua resposta. Consegui contornar o problema, verificando se os dados foram atualizados, e só então fazer o applyupdate. Se o problema persistir em outras rotinas vou tentar fazer o downgrade do Zeos. Obrigado novamente.
  5. Estou utilizando Delphi X6 / MySql 5 / Zeos 7.2.6 Tenho esta rotina em um programa, e está funcionando perfeitamente. zTable.Filter := 'CODBANC = ''' + mBanco + ''' '; zTable.Filtered := True ; zTable.IndexFieldNames := 'PREVPARA, D_C, ID' ; zTable.Open ; mSaldo := 0 ; zTable.First ; while not zTable.eof do begin mSaldo := mSaldo + zTable.FieldByName ( 'VALORC' ).AsFloat - zTable.FieldByName ( 'VALORD' ).AsFloat ; zTable.Edit ; zTable.FieldByName ( 'SALDO' ).AsFloat := mSaldo ; zTable.ApplyUpdates ; zTable.Next ; end; zTable.Filtered := False ; zTable.Close ; Quando coloquei a mesma rotina em outro programa, recebo a seguinte mensagem: 0 record(s) updated. Only one record should have been updated. Já tentei de tudo, mas não consigo resolver. No Portal Zeos Lib, tem o seguinte: For Zeos 7.2 please add the following line to your TZConnection. Properties: CLIENT_FOUND_ROWS=1 This will enable the CLIENT_FOUND_ROWS option which will change the behaviour of MySQL according to the documentation in the link https://dev.mysql.com/doc/refman/8.0/en/mysql-affected-rows.htm. Não sei como fazer isto. Obrigado.
  6. Boa tarde. Tenho a seguinte rotina para alterar a cor do DBGrid, quando a categoria do cadastro for 'Conveniado'. procedure TF_Cadastrados.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if not (gdSelected in State) then Begin if DM1.Tb_Cadastrados.FieldByName ( 'SAU_CATEG' ).AsString = 'Conveniado' then begin DBGrid1.Canvas.Brush.Color := clYellow ; DBGrid1.Canvas.FillRect ( Rect ) ; DBGrid1.DefaultDrawDataCell ( Rect, Column.Field, State ) ; end; end; end; Está funcionando normalmente, porém os campos que estavam centralizados perdem o alinhamento, ficando as strings alinhadas à esquerda, e os numéricos alinhados à direita. Como fazer para manter o alinhamento centralizado ? Obrigado.
  7. No meu comentário acima, esqueci de dizer que estou utilizando o MySQL com Zeos, e a função SQLHourGlass é do Zeos, e não do MySQL. Por esta razão este problema pode ocorrer também com outros bancos de dados que utilizem o Zeos.
  8. Eu estava tendo problemas de velocidade com o MySQL, até que desabilitei o SQLHourGlass. Parece outro sistema. Fica a dica.
  9. Jhonas, muito obrigado pela sua resposta. Eu achava que tinha ido pelo caminho errado ao escolher o MySQL, agora vejo que é só uma questão de adaptação. Vou retornar com outras perguntas com relação ao desenvolvimento em MySQL, mas por enquanto só posso agradecer. Bettega
  10. Eu tenho um sistema em Paradox, e estou passando para MySQL. Para montar o arquivo, em Paradox, com 50.000 registros, leva 01:20 minutos. No MySQL levou 06:00 minutos. Utilizando os mesmos comandos, ou seja Insert, Campos ApplyUpDates. Vou Tentar utilizar os comandos diretos para ver se fica mais rápido. Eu utilizo muito o DBGrid, abrindo o arquivo inteiro, tanto em Table como em Query. No MySQL, quando acesso rapidamente os registros para baixo ficam muito lentos, o que não acontece com o Paradox. Por esta razão, achei que o Firebird seria uma opção mais rápida. Aguardo os seus comentários, Obrigado.
  11. Pretendo iniciar a utilização do Firebird com Delphi XE6 para cima, e Zeos. Qual versão do Firebird devo instalar ? Obrigado.
  12. Não consegui alterar a fonte do MonthCalendar, no entanto o TCalendar é muito fácil de alterar. Vou ter que alterar todo o programa que estava com o MonthCalendar, mas é o preço do progresso. Obrigado, resolveu o meu problema. PS. Ainda vou verificar se os comandos que eu utilizava no MonthCalendar vão funcionar com o TCalendar, mas acredito que sim. Novamente, Obrigado.
  13. Jhonas, da forma que você colocou, vou ampliar o Form inteiro, porém só quero ampliar o MonthCalendar, conforme anexo. Obrigado.
  14. Jhonas, obrigado pela resposta. Não consegui fazer pelo link, e não sei onde colocar os comandos que você citou. Coloquei no OnShow do Form, mas dá erro. Como posso proceder ?
  15. Como faço para alterar o tamanho do MonthCalendar no Delphi XE2 ou no XE6 ? No Delphi 7 bastava alterar a fonte. Obrigado, José Luiz.
×
×
  • Create New...