
Corposemalma
Membros-
Total de itens
1.393 -
Registro em
-
Última visita
Tudo que Corposemalma postou
-
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?
-
Opinião, Dicas, Críticas E Sugestões!
pergunta respondeu ao Corposemalma de Corposemalma em Delphi, Kylix
Voce pode usar a opcao enviar tópico por email, ou o imprimir (vem uma viasualizacao antes) -
uhm... talvez exista alguma restricao no teu serviço quanto a conexao externa...
-
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;
-
Chutando: esta relacionado com impressoras matriciais de 80 e 40 colunas?
-
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.
-
Enviar Dados Da Tabela Para Um Txt (AUTORESOLVIDO)
pergunta respondeu ao Progr'amador de Corposemalma em Delphi, Kylix
já que você criou otro tópico.... Fechando esse aqui -
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...
-
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...
-
deixe seu email ai para que eu possa enviar
-
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!
-
Essas tabelas tem a mesma estrutura de dados?
-
Certo, voce sabe fazer a interacao com o banco de dados? ele já existe?
-
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)
-
Que erro??? Muda la: Query1.ParambyName('x2').Value := CICMEST0.FieldbyName('valor').Value - Temp2.FieldbyName('Quanti').Value;
-
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
-
Stored Procedure (AUTORESOLVIDO PELA GRAÇA DIVINA)
pergunta respondeu ao ricardo_sdl de Corposemalma em Delphi, Kylix
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 -
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
-
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
-
Depende muito do banco de dados em que isso estiver hospedado
-
não que eu tenha visto, mas o proprio particion magic cria dois diskettes bootaveis que podem fazer o serviço para voce
-
Mensagem Com Entrada De Dados (AUTORESOLVIDO)
pergunta respondeu ao ricardo_sdl de Corposemalma em Delphi, Kylix
Boa! não conhecia heheheh -
Antes de compilar o .Exe, vai em Project, Options, Application... Ali voce carrega o icone
-
Voce pode fazer isso criando conexoes diretas TCP usando os componente de conexao.. heheh
-
Mudando O Sistema Numérico (Auto Resolvido)
pergunta respondeu ao camarao de Corposemalma em Delphi, Kylix
ele me mandou um email em vez de responder... Fechando....