Ir para conteúdo
Fórum Script Brasil

Corposemalma

Membros
  • Total de itens

    1.393
  • Registro em

  • Última visita

Tudo que Corposemalma postou

  1. Bem... não vou te dar certeza absoluta, mas é bem provavel que o applyUpDates tenha problema com o sistema de Cache e sistema de lock do proprio sistema operacional.... Como voce faz a insercao de dados? Utiliza o Append e Post?
  2. Voce pode usar a opcao enviar tópico por email, ou o imprimir (vem uma viasualizacao antes)
  3. uhm... talvez exista alguma restricao no teu serviço quanto a conexao externa...
  4. Corposemalma

    Deem Uma Olhada

    tenta assim procedure TForm1.SpeedButton5Click(Sender: TObject); begin if tabela.fieldbyname('campo').asvalue >'0' then table1.Post Else begin Table1.Cancel; MessageDlg('Você tem que digitar um nome !!!',mtConfirmation,[mbok],0) end; end;
  5. Corposemalma

    Alguém Sabe ?

    Chutando: esta relacionado com impressoras matriciais de 80 e 40 colunas?
  6. Corposemalma

    Luz Pra Começar

    Das apostilas, da uma olhada na nossa sessao de links isso é muito dificil de fazer ?? <- Nada é impossivel, depende de como voce vai enviar essas strings eu sei poco sobre linux, vai dar pra eu desenvolver legal klix ? HUm, acho que vai complicar um pouco pra voce na hora dos testes, permissoes e tal, mas da pra encarar quem sabe delphi sabe klix ?? existem muitas diferenças ?? não sei te falar com certeza absoluta, mas eles são semelhantes, o que realmente muda são esquemas como as APIs e coisas do tipo (que são especificas a cada S.O.
  7. já que você criou otro tópico.... Fechando esse aqui
  8. Não da pra copiar a tabela fisicamente pelo explorer, mudar o nome da segunda e configurar na engine do banco??? Voalá!!! Voce pode usar um while not então tabela1.first while not tabela1.eof = true then begin tabela2.append; tabela2.fieldbyname('campo').asstring := tabela2.fieldbyname('campo').asstring; // aqui voce repete todos os campos e seus tipos (asstring, asinteger) tabela2.post tabela1.next end Daria pra fazer em sql, mas não me vem a cabeça agora...
  9. Acho que talvez, melhor ainda que usar um txt, seria usar um .ini... pois dai voce poderia facilmente criar "Sessoes" e o .ini tb é em formato de texto...
  10. deixe seu email ai para que eu possa enviar
  11. A maneira mais pratica para isso seria usar um componente Query e Linguagem SQL.... De uma procurada sobre o assunto Ps:. Evite criar topicos do Tipo SOCORRO, ME AJUDEM, HELP!
  12. Essas tabelas tem a mesma estrutura de dados?
  13. Corposemalma

    Tradutor

    Certo, voce sabe fazer a interacao com o banco de dados? ele já existe?
  14. Por exemplo: Pela aproximacao que voce esta fazendo, existem ainda duas maneiras de acessar o banco: A) Como se voce um compartilhamento de rede (Acesso direto ao banco, praticamente como um acesso local) B) Com um Cliente (O servidor em questao vai ter um serviço rodando via TCP em determinada porta, o seu sistema vai rodar um cliente, que se conecta nesse servidor e disponibiliza os bancos como se estivessem locais)
  15. Que erro??? Muda la: Query1.ParambyName('x2').Value := CICMEST0.FieldbyName('valor').Value - Temp2.FieldbyName('Quanti').Value;
  16. não entendi bem a sua comparacao inicial, mas a segunda parte voce pode fazer assim: voce usa um while not, oia só: não sei bem se vai funcionar no seu caso eheheh Andei pensando... hummm... pelo menos é um começo tabelatotal.first; //pula pro primeiro registro while not tabelatotal.eof do begin tabelatotal.fieldbyname('quantidade').asinteger := tabelatotal.fieldbyname('quantidade').asinteger - tabelavenda.fieldbyname('quantidade').asinteger := tabelatotal.next // aqui voce move o ponteiro da tabela venda para o registro correto, voce deve ter um codigo de registro... end Esse codigo vai fazer o procedimento para todos os itens da TabelaTotal
  17. Como EU gosto desses usuários que retornam pra avisar que resolveram os seu problemas Ponto positivo! Fechando tópico... Fala seriu, eu sou Ateu, mas não podia perder a oportunidade de colocar AUTORESOLVIDO PELA GRAÇA DIVINA depois desse
  18. Corposemalma

    Tradutor

    Sobre a questão que voce me mandou por PM, o que voce vai ter que fazer é o seguinte: Ao clicar no botao traduzir memo2.text := memo1.text // aqui você iguala os conteudos FindReplace(CampoDaTabela,CampoDaTabelaTraduzido, Memo2); //aqui faz a traducao seca, usando a procedure acima... os valores campo da tabela geralmente vao ser algo do tipo: DataModule.Tabela.FieldByName('CampoNormal').AsString e DataModule.Tabela.FieldByName('CampoTraduzido').AsString
  19. Corposemalma

    Tradutor

    Use esse código: Ele substitui uma palavra por outra procedure TForm1.FindReplace(const Enc, subs: String; Var Texto:TMemo); Var i, Posicao: Integer; Linha: string; Begin For i:= 0 to Texto.Lines.count - 1 do begin Linha := Texto. Lines[i]; Repeat Posicao:=Pos(Enc,Linha); If Posicao > 0 then Begin Delete(Linha,Posicao,Length(Enc)); Insert(Subs,Linha,Posicao); Texto.Lines[i]:=Linha; end; until Posicao = 0; end; end; Procedure TForm1.Button1Click (Sender: TObject); Begin FindReplace(Edit1.Text,Edit2.Text, Memo1); end; Agora voce só precisa fazer a ligacao com o banco, e colokar um while not do inicio ao fim dele... Mas lembre que isso vai ser uma traducao burra, troca de palavra por palavra, expressoes e colocacao de frases ele não vai fazer... Mas já é um principio pra se trabalhar
  20. Depende muito do banco de dados em que isso estiver hospedado
  21. não que eu tenha visto, mas o proprio particion magic cria dois diskettes bootaveis que podem fazer o serviço para voce
  22. Antes de compilar o .Exe, vai em Project, Options, Application... Ali voce carrega o icone
  23. Voce pode fazer isso criando conexoes diretas TCP usando os componente de conexao.. heheh
  24. ele me mandou um email em vez de responder... Fechando....
×
×
  • Criar Novo...