-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
Delphi+mysql+zeos "runtime Error 216 At 1001ada7"
pergunta respondeu ao paulobergo de Jhonas em Delphi, Kylix
qual é o protocolo de conexão que voce esta usando ? -
Selecionar Linha no DBGrid e Ficar Vermelho os registros do outro DBgr
pergunta respondeu ao robinhocne de Jhonas em Delphi, Kylix
isso só é possivel se houver relacionamento entre as tabelas, depois é só usar o evento OnDrawColumnCell do DBgrid para colorir a celula abraço -
Selecionar Linha no DBGrid e Ficar Vermelho os registros do outro DBgr
pergunta respondeu ao robinhocne de Jhonas em Delphi, Kylix
isso só é possivel se houver relacionamento entre as tabelas, depois é só usar o evento OnDrawColumnCell do DBgrid para colorir a celula abraço -
acho qeu voce não entendeu a ideia ... veja como é simples procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (Column.Field.FieldName = 'TIPO') then begin if Query1.FieldByName ('TIPO').AsBoolean = True then Query1TIPO.DisplayValues := 'Verdade' else Query1TIPO.DisplayValues := 'Falso'; end; end; voce pode fazer a mesma coisa para E e S como foi feito para T ou F ( True ou False ) ou se o campo for do tipo VarChar(1) procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (Column.Field.FieldName = 'TIPO') then begin if Query1.FieldByName ('TIPO').AsString = 'E' then Query1TIPO.DisplayValues := 'Entrada' else Query1TIPO.DisplayValues := 'Saida'; end; end; abraço
-
amigo , o metodo é o mesmo ... abraço
-
veja http://www.drbob42.com/delphi/headconv.htm abraço
-
estou usando as versões QuickReport 3.0.5 e QuickReport 5.02 abraço
-
voce não disse qual é o banco de dados que esta usando, mas existe uma maneira que é usando um campo tipo boolean ou logical exemplo: CREATE DOMAIN T_BOOLEAN_CHAR CREATE DOMAIN T_BOOLEAN_CHAR AS CHAR(7) AS CHAR (7) DEFAULT 'ENTRADA' ENTRADA 'default' NOT NULL NOT NULL CHECK (VALUE IN ('E, 'S')) CHECK (VALUE IN ( 'ENTRADA', 'SAIDA')) para esclarecer um pouco mais: um campo tipo boolean ou logical, vai guardar na tabela os caracteres E e S , mas na propriedade ValueChecked voce vai digitar ENTRADA e na propriedade Value Unchecked voce vai digitar SAIDA dessa forma será mostrada no dbgrid a palavra ENTRADA ou SAIDA conforme o caracter contido no campo E ou S para maiores informações veja: ValueChecked property (TDBCheckBox) no help do delphi abraço
-
(Resolvido) Conexao com Banco de Dados - Adicionando novo registro
pergunta respondeu ao pimpocvl007 de Jhonas em Delphi, Kylix
esta correto, voce deve usar: read_committed rec_version esse erro acontece se voce não iniciar o banco dessa maneira: //ATUALIZAR OS DADOS PARA A REDE if FMenu.IBTransaction1.InTransaction = false then begin FMenu.IBDatabase1.CloseDataSets; FMenu.IBDatabase1.Open; FMenu.IBTransaction1.StartTransaction; end; abraço -
eu até poderia tentar fazer alguma coisa nesse sentido, mas precisaria usar 2 micros para testar os comandos, no entanto tenho apenas um e estou realizando um serviço no momento.. quem sabe outro colega do forum possa ajuda-lo abraço
-
Então veja o TeamViewer ( parecido com o VNC e muito mais simples de usar ) http://200.142.90.173/downloads/TeamViewer/ OBS: Basta configurar a Conexão como Acesso não Supervisionado... o cliente não verá nada do que voce está fazendo abraço
-
amigo... esse é um tipico problema de mau contato... tire a placa e passe uma borracha macia nos contatos da placa, se possivel utilize tambem um limpa contatos em spray nos slots abraço
-
procure na net por rave reports event editor abraço
-
(Resolvido) Conexao com Banco de Dados - Adicionando novo registro
pergunta respondeu ao pimpocvl007 de Jhonas em Delphi, Kylix
FMenu.IBTransaction1.Commit; FMenu.IBTransaction1.StartTransaction; dessa maneira voce atualiza o banco de dados para pegar o ( Max ) e depois salvar o registro atualizado abraço -
dê um exemplo pratico, facilita a resposta dos seus colegas abraço
-
se voce já viu como funciona o VNC ou outro parecido, a manuteção remota funciona como se voce estivesse na frente do computador do seu cliente... nesse sentido, uma tela encobrindo a tela do desktop, acabaria bloqueando o seu proprio manuseio. abraço
-
procure pelos exemplos que estão na pasta Demos do delphi ... TeeChart abraço
-
cadastre empresa, usuário e senha o controle será feito em cima da tabela, que deverá ser filtrado pela empresa, ou seja, a sua tabela deverá ter um campo com o nome da empresa, e a partir dai o usuário acessará os dados que voce permitir somente da empresa selecionada. abraço
-
não terá problema nenhum abraço
-
violação de acesso no endereço de memória 00000000. Lendo o endereço 00000000. feche todos os programas abertos e faça o teste ... se não ocorrer o erro, é porque um dos programas abertos está usando o mesmo endereço de memória entretanto, como voce não colocou o restante da sentença do erro, fica dificil ser mais especifico... pois as causas podem ser diferentes para o mesmo tipo de erro abraço
-
se voce compilar esse código no delphi 7 ou posterior, ele vai rodar no windows Vista e no windows 7 abraço
-
(Resolvido) Zica simples no QuickReport!
pergunta respondeu ao Mario Henrique de Jhonas em Delphi, Kylix
voce pode usar a propriedade PreCaluculateBandHeight outra dica: ao colocar as bandas no quick report, coloque-as na sequencia em que elas deverão aparecer, ou seja, primeiro a banda de titulo, depois a banda de detalhe e depois a banda PageFooter ... isso faz com que a banda de detalhe não ultrapasse o inicio da banda PageFooter. abraço -
funciona sim ... basta ler o readme lendo readme: Installation: Verify your QuickReport version: ===> For QuickReport 1.x: <=== RENAME the QRANGLBL.Q1X file to QRANGLBL.INC ===> For QuickReport 2.x: <=== RENAME the QRANGLBL.Q2X file to QRANGLBL.INC abraço
-
veja esse post http://scriptbrasil.com.br/forum/index.php...55&hl=pixel abraço
-
use o componente QRAngledLabel ... voce pode vira-lo em 180º http://www.qusoft.com/getfile.asp?level=0&...me=QRANGLBL.ZIP abraço