Jhonas

Caso voce não tenha percebido, para montar o zebrado o evento OnDrawColumnCell fica numa especie de loop constante para poder pintar uma linha com o fundo branco e outra com o fundo cinza. Se voce deixa uma linha totalmente pintada o zebrado não acontece mais em virtude de ter que tirar o comando de sua posição exemplo if (gdSelected in state) then // Se o estado da célula não é selecionado with (Sender as TDBGrid).Canvas do begin Brush.Color := clMenuHighlight; Font.Style := [fsbold]; Font.Color := clWhite Canvas.FillRect(Rect); DefaultDrawColumnCell(Rect, DataCol, Column, State) end else grdVendas.Canvas.Font.Color:= clBlack; para fazer o que voce está querendo, teria que acrestar um outro loop , para repintar novamente o zebrado em função dos registros selecionados pelo multiselect , ou seja a cada registro selecionado, pintar a linha toda e para cada registro não selecionado pintar um de branco e um de cinza. Mas não aconselho, pois se tornaria um processo que iria exigir mais tempo de processamento somente para ficar fazendo isto. abraço

Esta apostila ensina como trabalhar com SVN ... veja se encontra o que está procurando http://www.unix.pro.br/svn/html/index.html abraço

Livio já leu este artigo ? conseguiu resolver o problema ? http://www.devmedia.com.br/articles/viewcomp.asp?comp=971 abraço

Fuzileir0, faça uma pesquisa no forum ... voce vai encontrar a solução num destes tópicos http://scriptbrasil.com.br/forum/index.php...ghlite=TrayIcon abraço

São arquivos temporários. São geralmente gerados quando se tem queries complexas onde o servidor precisa ordernar os registros porque não pode usar um índice. Eles são usados também (no Interbase e no Firebird ) quando o servidor precisa ordenar um resultset. abraço

Package C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dclrxbd100.bpl can't be installed because it is not a design time package Pacote não pode ser instalado C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dclrxbd100.bpl porque o pacote não foi compilado em design time na hora da instalação marque a opção design time abraço

Tenho a seguinte opnião: Para que correr o risco com uma versão que é sabido possuir vários bugs ? Se sei que existe uma versão mais estável ( confiável ), é justamente essa que quero usar, para evitar futuras dores de cabeça. abraço

Ao instalar o MySql 5.0 voce não atentou para as mudanças nas configurações ... o correto seria instalar primeiro o MySql e depois o FabForce DBDesigner. Tente mudar as configurações do MySql abraço

Não vejo onde está o problema ... basta deixar na propriedade Options do DBGrid a opção dgMultiSelect como true que funciona perfeitamente a multi seleção e o zebrado procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If odd(Query1.RecNo) then begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.Brush.Color:= cl3DLight; end else begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.Brush.Color:= clWhite; end; if (gdSelected in state) then DBGrid1.Canvas.Font.Color:= clred else DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; abraço

stringlist como o nome já diz é uma lista de strings e portanto voce pode trabalhar com os seus indices StringList1.Strings[0] := 'Primeira string da lista'; é equivalente StringList1[0] := 'Primeira string da lista'; para usar o valor do indice da stringlist var a : string; a := StringList1[0]; showmessage(a); // Primeira string da lista; Mais informações no help do delphi ( F1 ) Manipulating strings in a list OBS: Se esforçe um pouquinho que voce consegue... não é nada complicado abraço

alguém sabe como calcular dias úteis entre duas datas? Flavio ... achei que esta voce sabia fazer ... não é dificil, mas indica que voce tem que estudar mais function Dias_Uteis(DataI, DataF:TDate):Integer; var contador, i, n :Integer; DataR : Tdate; begin n := 0; if DataI > DataF then begin result := 0; exit; end; Contador := 0; while (DataI <= DataF) do begin if ((DayOfWeek(DataI) <> 1) and (DayOfWeek(DataI) <> 7)) then Inc(Contador); for i := 0 to Form1.ComboBox1.Items.Count-1 do begin DataR := strtodate(Form1.ComboBox1.Items.Strings[i]); if DataR = int(DataI) then n := n + 1; end; DataI := DataI + 1; end; result := Contador-n; end; procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i := Dias_Uteis(DateTimePicker1.Date ,DateTimePicker2.Date); showmessage('Total de dias úteis no período : ' + inttostr(i)); end; OBS: Coloque das datas que são feriados em um combobox.... se no período selecionado tiver algumas das datas colocadas no combobox, haverá um decremento de dias uteis no contador. abraço

A cada arquivo que ele não encontrar na pasta LIB do delphi ele vai chiar... então procure pelo arquivo em seu micro e faça uma cópia dele para a pasta LIB. abraço

Observe que a cada registro lido voce está adicionando a sua SQL várias linhas de select antes de ativar a mesma e com certeza esta dando erro. Um bom sistema começa com a definição correta de um banco de dados ( tabelas , registros, campos, indices, referencias entre campos de tabelas...etc ) sem isso o sistema fracassa ex: 1 produto pode ter N descrições produto: Pimentão descrição: Verde produto: Pimentão descrição: Vermelho produto: Pimentão descrição: Amarelo Para cada descrião pode haver um preço diferente produto: Pimentão descrição: Verde preço: R$ 1,50 Kg produto: Pimentão descrição: Vermelho preço: R$ 2,00 Kg produto: Pimentão descrição: Amarelo preço: R$ 3,00 Kg Para cada produto ( descriçao ) vendido haverá as quantidades da compra do produto, da venda e do estoque final produto: Pimentão descrição: Verde preço: R$ 1,50 Kg quant_Compra: 10 kg quant_Venda: 9 Kg quant_Estoq: 1 Kg produto: Pimentão descrição: Vermelho preço: R$ 2,00 Kg quant_Compra: 10 kg quant_Venda: 5 Kg quant_Estoq: 5 Kg produto: Pimentão descrição: Amarelo preço: R$ 3,00 Kg quant_Compra: 10 kg quant_Venda: 6 Kg quant_Estoq: 4 Kg A pergunta é: como montar uma sql que me traga o nome do produto, todas as descrições desse produto e todos os seus respectivos valores para que eu possa vizualizar em um dbgrid ? Experimente raciocinar em cima deste problema ... se conseguir estará a um passo da solução para resolver o seu abraço

Veja um exemplo ... faça uma adaptação para o seu uso var Form1: TForm1; i : integer = 1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var Arquivo : Textfile; Line : string; begin i := i + 1; if FileExists('C:\Texto'+inttostr(i)+'.txt') then begin AssignFile(Arquivo, 'C:\Texto'+inttostr(i)+'.txt'); Rewrite(Arquivo); // Caso queira trocar alguma linha do arquivo line := 'Conteudo atual do arquivo texto'; Writeln(Arquivo, Line); showmessage('Existente arquivo txt nº ' + inttostr(i)); CloseFile(Arquivo); end else begin AssignFile(Arquivo, 'C:\Texto'+inttostr(i)+'.txt'); Rewrite(Arquivo); line := 'Conteudo novo do arquivo texto'; Writeln(Arquivo, Line); showmessage('criado novo arquivo txt nº ' + inttostr(i)); CloseFile(Arquivo); end; end; OBS: Se existir o arquivo (por ex: Texto3.txt) voce pode simplesmente ignorar a escrita ou alterar alguma linha do txt Se não existir o novo arquivo será criado Exemplo: A cada clique do botão será criado um novo arquivo txt Texto1.txt Texto2.txt Texto3.txt Texto4.txt etc.... abraço

Se o campo login e senha não estiverem encriptados onde está a segurança? Se é nível de acesso de usuário, pesquise no forum, já tem algo a respeito A melhor forma de armazenar estas informações seria em um BD fechado ( tipo interbase ou firebird ) Não é necessário criar uma função ( mas até pode ) ... basta ler o valor do campo encriptado, fazer a descriptografia e depois comparar com o valor digitado pelo usuário ( login e senha ) abraço

Se voce leu inteiro, não existe problema para formulas condicionais sugiro a voce ler um pouco mais sobre o microsoft script control abraço

O código de barras ISSN (International Standard Serial Number) é um código numérico que identifica revistas, jornais e periódicos. A simbologia ISSN também é conhecida pelos International Standard Serial Number, ISSN-13, ISSN-10 (termos originais em inglês). http://www.linhabase.com.br/codigodebarras...logias/issn.asp http://www.linhabase.com.br/codigodebarras...rnalbarcode.asp http://www.linhabase.com.br/codigodebarras...ode/default.asp OBS: Se o seu leitor não tem este tipo, voce terá que adquirir o software para que o seu leitor aceite ler este tipo de código abraço

Leia todos os posts e veja se é isto que está querendo http://scriptbrasil.com.br/forum/index.php...mp;#entry441291 abraço

porque tem problema: Primeiro você deverá obter uma versão mais recente do firebird, acima da 2.0 (a versão 2.0 já server para o vista), então antes de instalar você deve configuar o windows vista, desabilitando o controle de conta, pois o mesmo atrapalha a instalção, para isso vá em contas de usuário para desabilitar Então agora instale o firebird, mas na hora deverá prestar atenção em um ponto, deixe o firebird rodando como aplicação, e não como serviço, você pode deixar o guardian se quizer, pois esse não atrapalha o funcionamento do firebird no windows vista, e após isso deverá configuar o firewall desmarcar a opção de registro do Firebird ao Painel de Controle O windows vista teve algumas mudanças e melhorias, e uma delas foi a melhoria do firewall, que agora consegue bloquear as coisas, então libere a porta (libere a porta e não o firebird em si), libere a porta 3150 pois o firebird utiliza essa porta, agora reinicie o PC Mais alguns detalhes: O Firebird roda no Windows Vista sem problemas, mas você deve ficar atento com o fato de que o protocolo de conexão local não funciona se o Firebird estiver rodando como Serviço. Rodando o Firebird como aplicação (fbserver - a), é possível conectar com o protocolo local, mas tenha em mente que a performance ficará cerca de 20% mais lenta. Portanto, se o Firebird estiver rodando no Windows Vista, utilize TCP/IP para fazer a conexão com o banco, a fim de não ter problemas com lentidão. colocar para rodar sobre o protocolo TCP/IP funciona nas versões abaixo à 2.0, só se instala sem causar danos ao SO, quando se desmarca a opção de registro do Firebird ao Painel de Controle. O Vista não está reconhecendo as cpl's de versões de SO anteriores abraço

Na bios tem uma opção SATA Native, habilite ela em algum lugar que seu HD SATA funcionara como IDE http://www.winajuda.ig.com.br/2005/04/15/w...do-com-o-nlite/ http://news.softpedia.com/news/Install-Win...-F6-47807.shtml abraço

Utilizar arquivo txt para armazenar dados em um sistema é andar na contra-mão, mas se for a título de aprendizado veja estes exemplos http://imasters.uol.com.br/artigo/2718/del...rquivos_textos/ http://www.delphimais.com/modules/smartsec...m.php?itemid=59 http://www.linhadecodigo.com.br/Artigo.aspx?id=354 abraço

Menssagem de erro indicando que não foram encontrados os arquivos Veja neste endereço para o primeiro http://www.gegereka.com/?query=OPCtypes.dcu Veja se neste o componente faz parte da lista http://en.pudn.com/downloads56/sourcecode/...l199351_en.html http://www.opcconnect.com/delphi.php http://www.opcconnect.com/ http://en.pudn.com/downloads96/doc/detail392043_en.html abraço

ok... pensei que voce queria o componente .... neste caso voce deve configurar o leitor para ler este tipo de código caso não consiga... use o EAN13 e ignore as ultimas 5 barras outras informações http://www.rads.com.br/vb_main.php?m=1&id=32 http://www.u2sistemas.com.br/codibar.htm abraço

Use este software para varrer os registros do sistema em busca de entradas inválidas que ficaram das outras instalações http://www.baixaki.com.br/download/Easy-Cleaner.htm OBS: Desistale o \MySQL Serve 4.1 e depois de limpar os registros, reinstale novamente abraço

Primeiro voce tem que aprender JAVA e depois utilizar um software ( J2SE ) para montar o aplicativo. http://superdownloads.uol.com.br/download/...on-(j2se)-2-08/ abraço