Vivendo&Aprendendo

Olá Eder. Você está usando algum código (procedure) neste componente, ou não... se estiver posta ele ai. Testei aqui com o access e deu certo, ele não mudou o registro. Alexandre

Olá... posta ai o fonte (a parte que da o erro). Alexandre

Ok Churc vou dar uma lida sobre DLL e conforme duvidas irei postando... obrigado e abraços Alexandre

Olá amigos... Nestas Dll's então irão os forms e as units também? desculpa ai mas é que também não sei manipular dlls pelo delphi. Abraços...

aí galera um ex-professor meu indicou que meus sistemas fossem divididos por módulos, tipo: módulo de venda, módulo de locação, módulo financeiro. Para que se caso em um cliente tenha os módulos venda e locação e por exemplo ele querira adicionar o controle financeiro eu não precise alterar ou adicionar isso no código fonte, apenas adicionaria o módulo, eu não entendi isso muito bem e preciso de esclarecimento sobre o assunto. O que seria mais conviniente para nós desenvolvedores? Como posso facilitar a inclusão de funções em sistemas? Alexandre

Valeu ai Churc e PauloBergo... Muito obrigado pelas dicas. abraços

Existe a possibilidade de eu alterar esses dados pelo delphi para que afete todo o sistema operacional e não somente o meu sistema? Alexandre

E aí galera, como faço para alterar o formato da data do computador automaticamente de d/m/aaaa para dd/mm/aaaa. Preciso que ai acessar meu sistema faça isso sozinho. Alexandre

Olá Ard-webmaster... valeu pela dica ai ... to baixando o programa e vou testar depois posto o resultado Alexandre

Olá pessoal... Estou com um problemão, um técnico da loja formatou uma máquina de um cliente e não fez o backup do bando de dados dele, já passei o Recover My Files e não achou o banco, alguém ai me indica alguma outra ferramenta para tentar recuperar esse arquivo por favor. Alexandre

Olá... Acredito que você possa fazer um select comparando o código do item que você já selecionou e deixando ele de fora... é só uma dica.. pois não testei... abraços Alexandre

Olá Para o problema com o Append e Post, posta ai o seu código... E para a pergunta, acho que você por dar um last na tabela, verificar qual o último código jogando ele para uma variável e dai dar um append e somar mais um. Por exemplo: Var Cod : Integer; begin ADOTable1.Last; Cod := ADOTable1Codigo.Value; ADOTable1.Append; ADOTable1Cod.Value := Cod + 1; ADOTable1.Post; end; Utilizei o componente Ado e banco de dados Access, mas funcionou certinho. Coloquei estes códigos em um evento OnClick do Botão. Qualquer coisa posta ai... Abraços Alexandre

Olá você pode utilizar a função copy. Por exemplo: Se a variável possui 'Cód. Ref. [1] L.C.U. !' temos que copiar a partir do caractere 12, lembrando que o espaço em branco também é um caractere. Então ficaria mais ou menos assim: Copy(Variável,1,12); Ele copiaria um caractere apartir do caractere 12. Estou semo delhi e não teste, mas deve ser isso ai mesmo.... qualquer coisa posta ai. Abraços Alexandre

Olá Cleverson... Uma Dll serve para armazenar dados, tipo, eu uso uma dll para salvar dados de fabricação do HD para tentar evitar que o usuário copie minha aplicação e coloque em outro micro sem a minha permissão.... mas você pode utiliza-la para salvar procedures, funções e muito mais.... No meu conceito é isso ai... Abraços Alexandre

Olá Aprendiz12... Você pode colocar um ComboBox com os tipos de cartões, por exemplo no combobox ficará assim: TODOS CARTÃO 1 CARTÃO 2 CARTÃO 3 Coloque também no form 2 edits para o usuário digitar as datas para a consulta. Quando você escolher qual cartão você quer ou todos os cartões, ai digita as datas nos edits para que busque pelo intervalo das datas. Coloque o código da busca em um Button, para que ao clicar efetue a consulta. Qualquer coisa to por aqui. Abraços Alexandre

Olá Aprendiz12, pelo que vejo você não precisaria de 3 tabelas, ou seja, uma para cada tipo de cartão, isso pelo seguinte: 1-se caso amanhã você comece a trabalhar com mais um tipo de cartão você terá que alterar o seu banco de dados e o seu sistema; 2-você pode criar apenas uma tabela, colocando mais um campo nela para receber qual foi o cartão usado; 3-isso irá tornar seu trabalho muito mais simples. Qualquer coisa to por aqui. Alexandre

Bom Rodrigo o seu código está certo, mas caso queira ele funcionando o exemplo que lhe passei está certinho.. Abraços Alexandre

A sua tabela será relacionada com qual outra?

Olá Rodrigo Seguindo a dica do Micheus, também não acho conveniente o usar a tecla a enter para mudar de campo, sendo o mesmo processo para o usuário teclar enter ou tab, mas no seu caso, como é um "desejo" do patrão, fiz um exemplo aqui, mas utilizando o Access e usei os componente MEMO do delphi e FORTES REPORT, e funcionou corretamente. No meu componente Memo e no Memo do relatório apareceram com todas as quebras de linhas. Agora como você deseja utilizar o Enter como Tab, você terá que colocar o código de comparação das teclas no Evento OnKeyDown nos Edit's. Exemplo: procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If key = VK_RETURN Then begin Perform (CM_DialogKey, VK_TAB, 0); end; end; Coloque somente em um edit e os outros você apenas aponte para este evento e no MEMO não coloque nada. Aqui funcionou certinho. Mas lembrando utilizei o Access e também não acho isso conveniente. Abraços Alexandre

Olá Micheus... Agora ficou mais claro... entendi... muito obrigado. Alexandre.

Olá Micheus... Mas o que significa os números 1231 e 101 na sql? seria 31/12 e 01/01. se é isso, porque? Alexandre

Amigão eu parei de ter este problema quando comecei a utilizar um componente de conexão ao banco TABLE ou QUERY para cada LoockUp. Não sei se é o seu caso, mas não custa tentar. Alexandre

Olá Mais um prblema solucionado, e mais uma vez quero dar os méritos ao nosso amigo MICHEUS, que com seu conhecimento e tempo para estudar minha dúvida solucionou ela com extrema categoria. Galera a partir deste post aprendi uma coisa e acho interessante a todos, evitar usar campos com nomes iguais em tabela diferentes ou nas sql de consulta renomear os campos para não passar pelo que eu passei... MICHEUS que Deus te abençoe sempre. Alexandre

aí galera do forum o meu problema está resolvido, e quero antes de tudo dar os méritos ao colegas KIKO e MICHEUS, pois eles fizeram de tudo até ver o problema solucionado, é muito bom sabe que temos um forum e contamos com amigos como vocês... muito obrigado. Que Deus sempre abençoe vocês. Agora falando do problema a consulta sql ficou desta forma: with DmDados.Alunos do begin Close; SQL.Clear; SQL.Add('SELECT * '); SQL.Add('FROM Alunos '); SQL.Add('WHERE MONTH(DATANASC) between :MesI and :MesF '); SQL.Add('AND DAY(DATANASC) between :DiaI and :DiaF '); SQL.Add('ORDER BY DATANASC'); Parameters.ParamByName('MesI').DataType := ftInteger; Parameters.ParamByName('MesI').Value := MonthOf(StrToDate(EdtInicial.text)); Parameters.ParamByName('MesF').DataType := ftInteger; Parameters.ParamByName('MesF').Value := MonthOf(StrToDate(EdtFinal.text)); Parameters.ParamByName('DiaI').DataType := ftInteger; Parameters.ParamByName('DiaI').Value := DayOf(StrToDate(EdtInicial.text)); Parameters.ParamByName('DiaF').DataType := ftInteger; Parameters.ParamByName('DiaF').Value := DayOf(StrToDate(EdtFinal.text)); Open; end; É só adicionar DB na clausula USES do form. Alexandre

Micheus eu testei com o meu DATA MODULE e deu o erro que mencionei acima. Enviei para o seu e-mail um exemplo, Valeu. Aguardo resposta. Obrigado Alexandre