Vivendo&Aprendendo

Me ajuda .......... :D :o Não consigo fazer ele compactar as pastas dentro da pasta que quero compactar... alexandre

Olá cara para começar você terá que usar duas tabelas VENDAS e ITENSVENDAS. Na tabela vendas você cadastra os dados como codigo, nome cliente, data e valor total e na itensvendas codigo do produto, descricao, valor unitario e qdte. falou

Olá Gacc Olha eu utilizo um Edit no lugar do LoockUp e acho que é bem melhor. Colocaria um edit para o código onde o usuário buscaria o produto vendido e outro que mostrasse o nome do produto. ai ao dar enter ou sair do campo codigo do produto faria um pergunta se é para incluir esse produto na lista se sim o produto irá para baixo com o nome e preço e no final ele soma tudo. Eu uso dessa forma e é ótimo... falou Qualquer coisa to por aqui... falou

Olá Andréia Eu utilizo o ADOQuery e funciona certinho. A instrução ficará assim: DataModule.AdoQuery.Last;

Olá Olha em meus projetos utilizo da seguinte forma e funciona certinho: [autorun] open=NOME_DO_ARUIVO.exe icon=NOME_DO_ICONE.ico falou

aí galera .... Como faço para efetuar uma consulta em SQL buscando campos preenchidos e campos em branco? Estou fazendo assim: DmDados.Alunos.Close; DmDados.Alunos.SQL.Clear; DmDados.Alunos.SQL.Add('Select * From Alunos'); DmDados.Alunos.SQL.Add('Where (Situacao = "A") and (ResultadoMedico = "REP") or (ResultadoMedico= "AUS") or (ResultadoMedico = "") and Nome Like :pNome'); DmDados.Alunos.SQL.Add('Order By Codigo'); DmDados.Alunos.Parameters[0].Value := EdtBusca.Text + '%'; DmDados.Alunos.Open; Mas ele esta buscando somente os campos preenchidos e não os em branco também. Por favor se alguém ai poder me ajudar agradeço. Alexandre

Olá amigão Olha da o erro nesta linha Zip.StoreOptions := [soStripDrive, soRemoveDots, soRecurse]; Dizendo que não esta declarado. cara tem como você me fazer um modelo e me mandar. Por favor Alexandre

Olá Churc me desculpa o encomodo novamente cara, mas agora ele esta compactando tudo certinho, ou seja, todos os arquivos que estão dentro da pasta selecionada, mas ele não compacta as outras pastas que estão dentro dessa, tipo: C:\Meu Sistema - ai dentro dessa tem as pastas Dados, Imagens e Movies. E ele esta pegando os arquivos de dentro dessa pasta e compactando, mas qundo pesso para descompactar ele não traz essas pastas mas sim todos os arquivos juntos. Abusando mais um pouco da sua paciencia como posso fazer isso? Já mexi em algumas propriedades do componente aqui mas não resolveu nada. Alexandre

Olá Churc!!! Como posso fazer para que ele compacte tudo que tem dentro de uma pasta quando eu selecionar essa pasta, mesmo que dentro dela tenha arquivos e outras pastas? Estou fazendo aqui mas ele ignora as pastas e só compacta os arquivos. Eu quero que ele compacte tudo que há dentro da pasta selecionada. Estou usando o seguinte código para compactar: Zip.AddFiles(IncludeTrailingPathDelimiter(EdtOrigem.Text) + '\*.*', 0); Zip.Save; Zip.CloseArchive; falou

Olá Churc!!! Olha esta dando o seguinte erro: Stream read error. E ai ele não consegue compactar a pasta. estou usando o código da seguinte maneira: Zip.BaseDirectory := EdtOrigem.Text+'\'; Zip.AddFiles('*.*', 0); Zip.CloseArchive; Bicicleta pode me mandar o manual? aslalexandre@hotmail.com Alexandre

Olá mano Consegui aqui. Fiz assim: Zip.FileName := EdtDestino.Text+'\'+FormatDateTime('dd-mm-yyyy hh-mm',now)+'.zip'; Zip.AddFiles(EdtOrigem.Text,0); Agora me tire mais uma dúvida... como faço para ele aceitar compactar a pasta em que está o arquivo. Tipo quero compactar a pasta dados que se encontra em C:\Meu sistema\dados\ pois o meu esta compactando somente o arquivo quando escolho a pasta ele num aceita.. falou

Olá! Eu utilizo em meus sistemas a validação de usuário também, mas faço da seguinte maneira: Em minha tabela de senhas eu tenho os campos: Usuario, senha e um campo para cada atividade do meu sistema, ai tenho um form de cadastro de usuarios que o administrador do sistema escolhe qual as oplçoes o usuario terá acesso ao efetuar o login. É um pouco trabalhoso mas funciona certinho. falou

Olá bicicleta Esta função sua esta funcionando corretamente? nomeArqBackup := 'Backup ('+ FormatDateTime('yyyy-mm-dd hhnnss', Now) +').zip'; Por que estou tentando renomear meu arquivo para a a data e a hora e não esta dando certo. Será que pode me ajudar com isso? Alexandre

Olha amigão consegui assim também mas não testei ainda... este foi respondido em outro forum por ai Habilite soStripPath na propriedade StoreOptions do abZipper. falou

Olá galera preciso pegar um valor monetário e transformar ele em extenso. Como faço isso? Alexandre

Olá Bike heheheh Eu também utilizo este componente e estou com a mesma dificuldade... se caso você conseguir algo me manda ai por favor, e se eu conseguir te mando... Alexandre

Olá amigão... Você poderá criar uma tabela para vendas e outra para itens da venda... Venda com as informações básicas: Codigo Data da Venda Cliente Valor Total Itens da venda Codigo do produto Descrição Qtde Valor unitario e valor totas dos produtos caso mais de um Basicamente é isso Qualquer coisa to por ai Alexandre

Olá amigão... tentei anexar um exemplo aqui pelo forum mas num está dando certo me passao o seu mail que mnando para ti ... se quiser me adicionar ai no MSN aslalexandre@hotmail.com Alexandre

DmDados é o Data Module se caso você não usa é só tirar ele onde tiver. falou Qualquer coisa to ai

Ola cara você já fez a conversão do banco para ACCESS, se caso já verifique se o arquivo do banco não está como somente leitura ou se os componentes estão permitindo a inserção de dados. falou

cara eu utilizo a seguinte maneira para pesquisar se o usuario e a senha estão corretas: Obs utilizo banco ACCESS e componente ADO If not DmDados.Senhas.Locate('Usuario',EdtUsuario.Text,[LoCaseInsensitive])Then begin MessageBox (handle,'Usuário incorreto. Por favor tente novamente ou clique em Cancelar!','Atenção',mb_IconExclamation +mb_ok); EdtUsuario.Text := ''; EdtUsuario.SetFocus; end else If not DmDados.Senhas.Locate('Senha',EdtSenha.Text,[LoCaseInsensitive])Then begin MessageBox (handle,'Senha incorreta. Por favor tente novamente ou clique em Cancelar!','Atenção',mb_IconExclamation +mb_ok); EdtSenha.Text := ''; EdtSenha.SetFocus; end else FrmPrincipal.Show; falou espero ter ajudado desta vez... qualquer coisa to por ai

Olá Felipe Posta ai a sua rotina, dessa forma ficará melhor para lhe ajudar. Flws

Olá RuyFreis toda as vezes que você executa um select da seguinte forma: Select * From NOME_DA_TABELA ela irá chamar todos os campos e todos os registros da tabela indicada, você pode também limitar os campos que deseja da tabela tipo: Select Codigo, Nome, Endereço From Clientes. Dessa forma irá trazer todos os registros mas, apenas esses campos. E pode ainda limitar os registros via Where, tipo: Select Codigo, Nome, Endereco From Clientes Where Nome = "ALEXANDRE" falou espero ter ajudado Alexandre

cara basicamente você deve levar o executavel e o banco a não ser que sua aplicação se comunique com outros arquivos.

Olá If DBE_login.Text = TABELAeCAMPO.Value Then se for igual fazer o que else se for diferente