Arlon

Existem vários sites sobre Delphi que tem rotina pra verificação de tudo o quanto é documento!! Function ValidaTituloEleitor(NumTitulo: string): Boolean; var i, Soma : integer; sTitulo: string; Resto, Dig1, Dig2 : double; begin sTitulo := ''; for i := 1 to Length(NumTitulo) do if (Copy(NumTitulo,i,1) >= '0') and (Copy(NumTitulo,i,1) <= '9') then sTitulo := sTitulo + Copy(NumTitulo,i,1); sTitulo := FormatFloat('0000000000000', StrToFloat(sTitulo)); Soma := StrToInt(sTitulo[1]) * 2 + StrToInt(sTitulo[2]) * 9 + StrToInt(sTitulo[3]) * 8 + StrToInt(sTitulo[4]) * 7 + StrToInt(sTitulo[5]) * 6 + StrToInt(sTitulo[6]) * 5 + StrToInt(sTitulo[7]) * 4 + StrToInt(sTitulo[8]) * 3 + StrToInt(sTitulo[9]) * 2; Resto := Soma mod 11; if (Resto = 0) or (Resto = 1) then begin if (Copy(sTitulo,10,2) = '01') or (Copy(sTitulo,10,2) = '02') then begin if Resto = 0 then Dig1 := 1 else Dig1 := 0; end else Dig1 := 0 end else Dig1 := 11 - Resto; Soma := StrToInt(FloatToStr((StrToInt(sTitulo[10]) * 4) + (StrToInt(sTitulo[11]) * 3) + (Dig1 * 2))); Resto := Soma mod 11; if (Resto = 0) or (Resto = 1) then begin if (Copy(sTitulo,10,2) = '01') or (Copy(sTitulo,10,2) = '02') then begin if Resto = 0 then Dig2 := 1 else Dig2 := 0; end else Dig2 := 0; end else Dig2 := 11 - Resto; if (StrToInt(sTitulo[12]) > Dig1) or (StrToInt(sTitulo[13]) > Dig2) then Result := False else Result := True; www.delphi.eti.br Adiconada dia: 11/02/04 às 11:53:09, por: Emir Teófilo Calife Neto

Caso dê algum erro de conversão entre string e date, use o seguinte: Query1.Sql.Clear; Query1.Sql.Add('Select * from tabela'); Query1.Sql.Add('Where campo_data between :dt_inicio and :dt_fim'); Query1.ParamByName('dt_inicio').AsDate := Edit1.text; Query1.ParamByName('dt_fim').AsDate := Edit2.text; Query1.Open;

Eu não sei se dá pra copiar pastas, mas pra copiar arquivos eu uso isso aki: CopyFile('C:\Fotos\Foto1.jpg','C:\Outras Fotos\Foto1.jpg',false); Caso dê erro de conversão tente o seguinte: CopyFile(PChar('C:\Raphael\Tela_Skin.jpg'),PChar('C:\Tela_Skin.jpg'),false); E para mover é só trocar o Copyfile por Movefile.

Erro em comentário!!?? Deve estar bichado então, reinstala ele.

Valeu cara, deu certo. O ExecSQL tem que ser usado no lugar do Query.Open sempre que não for usado o select, ou seja, sempre que for excluir, editar ou inserir via SQL?

Preciso excluir um registro que foi obtido através da consulta à uma tabela. Esse registro está numa query. Tentei usar o findnearest para colocar o ponteiro da tabela direto no registro que desejo excluir, mas o problema é que não sei se esse comando aceita dois parâmetros. Com um só parãmeto pode ser usado como abaixo: DM.TBItens.FindNearest([DM.QrItens.FieldByName('Cod_Leilao').AsString]); Nesse caso, utilizo o parâmetro Cod_Leilao, mas a consulta se baseia em dois campos: Cod_Leilao e Cod_Cliente. Existe uma forma de usar com os dois parâmetros? Tentei também usar uma query direto para excluir, com o seguinte código: DM.QrDeleteItens.Close; DM.QrDeleteItens.Sql.Text := 'Select * From Itens ' + 'Where Cod_Leilao =:Cod_LeilaoBusca and Cod_Cliente =:Cod_ClienteBusca'; DM.QrDeleteItens.Params[0].AsString := Edit1.Text; DM.QrDeleteItens.Params[1].AsString := Edit2.Text; DM.QrDeleteItens.Delete; mas deu o seguinte erro: "QrDeleteItens: Cannot perform this operation in closed dataset". Também tentei substituindo a última linha por DM.QrItens.Open; o erro resultante foi: "Error creating cursor handle". Acho que o mais viável seria usar o findnearest, mas esse comando pode ser usado com 2 parâmetros??

Realmente. boa idéia, já estou fazendo isso!! Mas será que existe alguma forma de mover os registros entre as tabelas? Todos os campos das duas são iguais em nome, tamanho, etc.

Coé galera, Eu preciso mover (mover e não copiar) um registro de uma tabela para a outra. Tenho duas tabelas ITENS e ITENS_EXCLUIDOS, o que eu preciso é mover o registro selecionado da tabela ITENS para a tabela ITENS_EXCLUIDOS quando o botão EXCLUIR for clicado.

Tranquilo cara, não vou sumir não, vou estar sempre por aqui. E é isso aí cara, agente tem que se dedicar ao trabalho em primeiro lugar pra garantir uma graninha. Bem, pelo menos até eu jogar a informática pro alto e rodar o mundo com minha banda. Uhuahauhauhauaa, que isso não passe de mais um sonho!!

Vá na área de componentes do www.delphi.eti.br, além de muitos e muitos glyphs, você também encontrará muitos ícones.

E aí galera, tudo em cima... Seguinte, vou ser direto: eu comecei a trabalhar na semana retrasada e desde então não pude mais me dedicar ao fórum da forma como me dedicava antes, organizando nossa sessão, resolvendo dúvidas e tudo mais; por isso, pedi à administração meu afastamento da moderação, pelo menos por enquanto, até a poeira baixar; daqui há um tempo, quando as coisas já estiverem mais calmas, voltarei a frequentar o fórum como antes. Não irei me afastar completamente, vou retornando na medida do possível. Vou entrar em contato com membros ativos (hum, que gay!!) e convidar um pra ser o novo moderador. Foi muito bom estar com vocês e organizar nossa sessão durante esse tempo, mas o tempo tá sinistro. Mas, como disse, voltarei na medida do possível. Um grande abraço a todos, Raphael Arlon ------------------------------------------------------ O Program-amador será o novo moderador.

Juntei os dois tópicos em um só, já que se tratavam do mesmo assunto, falou.

É isso ae mesmo cara, sua presença será sempre bem-vinda!!

Tem certeza de que dá pra passar valores de um campo qualquer (no seu caso um ComboBox) para um DBLookupComboBox?? Eu acho que não hein, esse componente é usado pra pegar informações de uma determinada tabela e colocar em outra. Nesse caso, não seria melhor você substituir esse DBLookupComboBox por um ComboBox comum?

Aí galera, por enquanto estou sozinho na parada aqui, desculpem a falta de tempo mas é que esse negócio chamado trabalho tá me matando... na medida do possível, estou entrando na hora do almoço e após o expediente. Já indiquei o Capablanca ao Eddie e ele vai me ajudar aqui na nossa querida e amada sessão (ou seria seção??) Delphi/Kylix. Até mais, Raphael Arlon

Eu já usei um descomilador pra ver como funcionava. E vi o que já esperava: ele não te traz os forms nem os componentes em seus devidos lugares, muito menos seus respectivos códigos. Os descompiladores, pelo menos os que eu conheço, só retornam os componentes e as classes usadas no projeto; nada de forms prontos e códigos esmiuçados.

Cara, eu nunca ouvi falar nessa tal de curva abc, mas pelo que você tá falando, seria uma espécie de ranking dos produtos mais vendidos né?? Eu faria da forma como falei mesmo. Criaria uma tabela à parte da tabela produtos para incrementar seus campos e faria o relatório baseado nessa tabela. você tem alguma idéia de como começar?

1 - Eu fiz uma busca por "Delphi" no google, ele me retornou a SB como um dos resultados, daí eu fui no site, vi o link pro fórum, entrei, achei interessante e decidi me cadastrar. 2 - Depende da minha disponibilidade de tempo. Pode variar de três vezes em um diz só até apenas três vezes por semana. 3 - Comecei a trabalhar essa semana e tõ começando a acessar mais de lá, mas sempre acessei de casa. 4 - Não 5 - No geral (assim como eu), as pessoas surgem com uma dúvida e depois começam a ser mais frequentes no fórum, da´começam a responder as dúvidas dos outros e por aí vai. 6 - Não 7 - Não 8 - Ajudar os outros 9 - Dificilmente 10 - No fórum você joga a pergunta e o resultado, as respostas obtidas vêm mais detalhadas do que num bate papo... acho q é isso. Tenho 19 anos, comecei a trabalhar esse ano com informática e tenho ensino médio completo mas não faço faculdade.

Se você quer saber quais produtos venderam mais, pode criar uma tabela chamada SAIDA_PRODUTOS, por exemplo. Essa tabela irá conter um número X de campos, onde X é o número de produtos que constam no seu banco ou senão você pode definir um número já certo para esse X, como por exemplo, 20. Onde cada campo é um valor (esses campos são do tipo numéricos) que será incrementado sempre que um produto sair do estoque. Uma dica: você terá apenas 1 registro nessa tabela, ou seja, apenas o registro inicial, e toda vez que um campo for incrementado a tabela entrará em modo de edição. Pode usar a seguinte lógica: if Tabela.IsEmpty = true then begin Tabela.insert; end else begin // se a tabela não estiver vazia Tabela.Edit; end; end;

Posta seu código pra agente aí então cara.

Bem, seria: Select * from NomeDaTabela É isso mesmo que você está fazendo?

Movendo...

Porquê que você não posta a unit aqui??

Eu tenho o install shield express aqui, passa seu e-mail q eu te mando. Quanto as outras perguntas, minha resposta é a seguinte: sei lá

Veja se é isso aqui que você quer e utilize mais a busca do fórum pra não ficar repetindo perguntas. http://scriptbrasil.com.br/forum/index.php...rograma+em+rede