Jhonas

Triggers e Stored Procedures http://www.fundao.wiki.br/articles.asp?cod=162 Voce pode usar este exemplo para usar no seu sistema http://www.planetadelphi.com.br/downloads.php?id=4644 Outra susgestão é salvar em um Arquivo texto, as mensagens colocadas nas rotinas executadas assim como é feita para geração de log de erros em um sistema. exemplo: OBS: criei algo parecido para um de meus sistemas... acabei limitando os logs por período de datas, pois em um sistema em rede com apenas 7 usuários o arquivo de logs cresceu dramaticamente.. pense bem se isto é realmente necessário abraço

Imagine 2 forms ( Form1 e Form2 ) no form1 voce tem um edit e um botao e no form2 outro edit para passar o valor do edit1 do form1 para o edit1 o form2 seria algo assim: // NO FORM1 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} uses Unit2; procedure TForm1.Button1Click(Sender: TObject); begin form2.Edit1.Text := Edit1.Text; form2.Show; end; end. ///////////////////////// // NO FORM2 unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Edit1: TEdit; private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.DFM} end. Observe que no form1 se faz referencia ao form2 atraves da Uses uses Unit2; // referencia ao Form2 procedure TForm1.Button1Click(Sender: TObject); begin form2.Edit1.Text := Edit1.Text; // passando o valor do edit1 do form1 para o edit1 do form2 form2.Show; // mostrar o form2 end; A ideia seria esta. abraço

Voce irá instalar o executavel e as dlls necessárias para fazer a conexão com o banco de dados faça uma pesquisa no forum que irá encontrar o que procura http://scriptbrasil.com.br/forum/index.php...rograma+em+rede abraço

Instale os componentes RX o componente CurrencyEdit1 voce pode ou não usar o R$ e o valor de currency é ,0.00 .. bem mais tranquilo de usar http://br.geocities.com/all_software/download.htm abraço

Instale os componentes RX o componente CurrencyEdit1 voce pode ou não usar o R$ http://br.geocities.com/all_software/download.htm abraço

A Mutilaser está lançando um dispositivo tão pequeno que não deveria ser mais chamado de "mini", mas sim de "micro". O Mini Adaptador USB Bluetooth é exatamente o que o nome diz - ele sincroniza o desktop ou notebooks com dispositivos que utilizam a tecnologia sem fio. Com alcance de até 20 metros, o dispositivo permite transferência de dados a 3 MB/s. "Basta conectar o mini adaptador à porta USB para que o computador ganhe a capacidade para se comunicar com até sete dispositivos bluetooth V1.2 e V2.0 de forma simultânea”, explica Eduardo Rabe, coordenador de Produtos da Multilaser. O design ultra compacto é o que chama mais atenção. É tão pequeno que poderia facilmente ser esquecido conectado a um computador, o que garantirá menos espaço desperdiçado com penduricalhos. Ele se conecta com aparelhos como impressoras, telefones, eletrônicos em geral e até roteadores, permitindo conexão à internet e à transmissão de dados e de voz sem fio. Compatível com sistemas operacionais Windows 98 SE ME/ 2000/ XP ou Vista; e com interface USB 1.1, o Mini Adaptador USB Bluetooth da Multilaser tem o preço médio sugerido para o consumidor final de R$ 59,90. http://produto.mercadolivre.com.br/MLB-822...r-a2dp-sony-_JM http://www.lojactis.com.br/LojaCTIS/catalo...x?Produto=21802 abraço

Trabalhar offline significa usar base de dados local, e portanto cada usuário teria n registros diferentes em várias tabelas. Neste caso, usuários poderiam ter numeros ou códigos iguais, que durante uma atualização de dados terão que ser alterados e que deverão ser referenciados novamente caso estes registros estejam ligados a outras tabelas O melhor é sempre trabalhar online, mas não sendo possivel voce pode tentar isso: http://www.baixaja.com.br/downloads/Window...l-BDB_2475.html http://www.baixaki.com.br/download/database-comparer-vcl.htm abraço

Como usar chave estrageira ( delphi ) http://74.125.47.132/search?q=cache:sJdN6z...=clnk&gl=br http://www.geocities.com/overond/delphi4m....%20Campos-Chave http://www.scribd.com/doc/7032538/Delphi-A-Biblia-Borland abraço

Não é possivel. abraço

Pode ... voce só vai precisar do serial se for instalar o windows novamente abraço

qualquer uma das maneiras é possivel ... veja o que fica mais pratico abraço

Um exemplo neste post http://scriptbrasil.com.br/forum/index.php...st&p=536894 abraço

o proprio cd do delphi 7 vem o installshield mais atual outros posts referentes ao assunto http://scriptbrasil.com.br/forum/index.php...p;highlite=inno abraço

Todas epson vem de fabrica programadas para travar em um determinado tempo... ou seja na placa lógica existe um contador de impressão, que ao atingir determinado numero, não deixa mais fazer a impressão ( a impressora faz todo o processo de impressão normalmente, porem não imprimi nada ) existe um softaware que zera este contador para que ela volte a imprimir novamente http://inkjetprinterhelp.us/sscserve.exe ache o modelo da sua impressora e siga as instruçoes http://inkjetprinterhelp.us/epsonSSC.html abraço

Isso é questão de drives .... independente o sistema operacional, voce tem que ter o CD de instalação da placa mãe Neste CD estão todos os drives necessarios para a instalação do video, som, placa de rede ..etc Se voce não tem esse CD, então ao instalar o windos XP os drives ( padrão ) é que serão instalados no micro, e consequentemente não terá suporte a capacidade maxima do hardware Pode ser que no CD de instalação do Linux estes drives estejam presentes, por isso tudo funciona como deveria abraço

http://www.example-code.com/delphi/upload_simpleExample.asp uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATUPLOADLib_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var upload: TChilkatUpload; success: Integer; begin upload := TChilkatUpload.Create(Self); // Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc) // that will process the HTTP Upload. upload.Hostname := 'www.chilkatsoft.com'; upload.Path := '/receiveUpload.aspx'; // Add one or more files to be uploaded. upload.AddFileReference('file1','dude.gif'); upload.AddFileReference('file2','pigs.xml'); upload.AddFileReference('file3','sample.doc'); // Do the upload. The method returns when the upload // is completed. // This component also includes asynchronous upload capability, // which is demonstrated in another example. success := upload.BlockingUpload(); if (success <> 1) then begin ShowMessage(upload.LastErrorText); end else begin ShowMessage('Files uploaded!'); end; end; Baixe o componente http://www.chilkatsoft.com/download/UploadActiveX.msi Mais informações http://www.devmedia.com.br/articles/viewcomp.asp?comp=409 http://www.ramosdainformatica.com.br/art_r...es01.php?CDA=37 abraço

Faça esta modificação Begin try if FormCadVistoria = Nil then FormCadVistoria:= TFormCadVistoria.Create(self); except ShowMessage('Erro na criação do formulário !!'); FormCadVistoria.Free; exit; end; FormCadVistoria .Showmodal; end; estes comandos voce coloca no OnActive do form FormCadVistoria.TabCadVistoria.Last; FormCadVistoria.DBEdit15.SetFocus; abraço

não consegue encontrar o "/idlist,:0.3456,C:\" Esse é um problema no registro do windows existe um valor nulo ou um valor ASCII maior que 127 caracteres Registro onde está o erro: ( HKEY_CLASSES_ROOT\CLSID\{0CD7A5C0-9F37-11CE-AE65-08002B2E1262}\shell\open\command ) "/idlist,:0.3456,C:\" ,/idlist,%I,%L O %I é um parâmetro que representa um IDLIST. %L é um nome de arquivo longo ou em seu caso um caminho de diretório. Sugestões para resolver: 1 - Va em Iniciar > Executar > digite cmd na janela digite sfc \scannow com o CD de instalação do windows no drive de CDROM ( leva uns 10 Min ) 2 - Tente fazer uma Atualização pelo proprio CD de instalação 3 - Reinstalar o windows abraço

Esta dúvida já foi solucionada em outro post do Carlos Rocha abraço

corrija este erro preço : array [1..18] of real; para: preço : array [1..18] of real; // tirar o cedilha ... o editor do forum não permite tira-lo OBS: o pascal não aceita caracteres acentuados como variaveis Se o " não roda direito " for por causa de erro a solução está ai em cima.... se for porque os valores não são os esperados, então reveja a lógica do programa exemplo: writeln('Entre com o primeiro preço de compra do primeiro produto da segunda cidade'); readln(cidades[2].produtos[1]); OBS: voce pede para entrar com um preço, mas joga o valor em produtos... deveria ser writeln('Entre com o primeiro preço de compra do primeiro produto da segunda cidade'); readln(cidades[2].preço[1]); abraço

Programa "Ordemcrescente" Var A, B, C: inteiro Begin Write ("Digite um número:") Read (A) Write ("Digite um numero:") Read ( Write ("Digite um número:") Read © IF (A>B) e (B>C) then Write ("Essa é a ordem crescente: C, B, A"); Else IF (B>A) e (A>C) then Write ("Essa é a ordem crescente: C, A, B"); Else IF (C>A) e (A>B) then Write ("Essa é a ordem crescente: B, A, C"); Else IF (B>C) e (C>A) then Write ("Essa é a ordem crescente: A, C, B"); Else IF (A>C) e (C>B) then Write ("Essa é a ordem crescente: B, C, A"); Else IF (C>B) e (B>A) then Write ("Essa é a ordem crescente: A, B, C"); End. Observe que voce colocou um ponto e virgula no final do comando... para a sequencia de IF Else ficar correta voce deve retirar todos os pontos e virgulas, caso contrario voce deve finalizar o IF exemplo: Então há 2 maneiras de se fazer Programa "Ordemcrescente" Var A, B, C: inteiro Begin Write ("Digite um número:") Read (A) Write ("Digite um numero:") Read ( Write ("Digite um número:") Read © IF (A>B) e (B>C) then Write ("Essa é a ordem crescente: C, B, A"); end Else IF (B>A) e (A>C) then Write ("Essa é a ordem crescente: C, A, B"); end Else IF (C>A) e (A>B) then Write ("Essa é a ordem crescente: B, A, C"); end Else IF (B>C) e (C>A) then Write ("Essa é a ordem crescente: A, C, B"); end Else IF (A>C) e (C>B) then Write ("Essa é a ordem crescente: B, C, A"); end Else IF (C>B) e (B>A) then Write ("Essa é a ordem crescente: A, B, C"); End. ou assim Programa "Ordemcrescente" Var A, B, C: inteiro Begin Write ("Digite um número:") Read (A) Write ("Digite um numero:") Read ( Write ("Digite um número:") Read © IF (A>B) e (B>C) then Write ("Essa é a ordem crescente: C, B, A") Else IF (B>A) e (A>C) then Write ("Essa é a ordem crescente: C, A, B") Else IF (C>A) e (A>B) then Write ("Essa é a ordem crescente: B, A, C") Else IF (B>C) e (C>A) then Write ("Essa é a ordem crescente: A, C, B") Else IF (A>C) e (C>B) then Write ("Essa é a ordem crescente: B, C, A") Else IF (C>B) e (B>A) then Write ("Essa é a ordem crescente: A, B, C") End. Mais informações: Comandos Condicionais if e case of http://www.cin.ufpe.br/~rmfl/IF_CASE.html abraço

Acho que voce vai ter que comprar ( menor valor em torno de $ 39 ou 90 reais ) ... não achei nada parecido que eja gratuíto abraço

Alguns exemplos http://images.google.com.br/imgres?imgurl=...DN%26start%3D20 http://images.google.com.br/imgres?imgurl=...DN%26start%3D20 http://images.google.com.br/imgres?imgurl=...DN%26start%3D40 http://images.google.com.br/imgres?imgurl=...DN%26start%3D60 abraço

Sugestões: 1 - mudar para formulario A4 ( 210 x 297 mm ) e setar o tipo de papel para A4 2 - fazer o teste em outra impressora... se não ocorrer o mesmo problema, então é problema na impressora 3 - se 210 x 280 mm é exatamente o tamanho do papel , então use 210 X 281 mm ... e vá aumentando este numero até que o espaçamento seja o mesmo, de picote a picote quando a impressora estiver imprimindo OBS: Leve em consideração que alguns tipos de fontes podem dar diferença entre os espaçamentos de linhas abraço