Jhonas

Uma possivel solução: Abra este arquivo .Dat usando o word... vai abrir uma janela para voce escolher a codifição de texto. Escolha Chinês Simplificado (GB2312).... Você vai obter um arquivo parecido com este salve este arquivo como TXT. depois bastará criar uma rotina para ler este arquivo linha a linha, ignorando os espaços em branco e jogando o resultado em um Memo. ( acho que no forum tem alguma para isso ... faça uma pesquisa ) abraço

isso ocorre porque o seu if não está funcionando ou o código não está correto. supondo que voce está usando 2 reports só quer mostrar o segundo conforme uma condição, não seria usando a propriedade visible do report que daria certo, mas voce deveria usar o preview. exemplo: procedure TForm1.Button1Click(Sender: TObject); begin if condicao1 <> condicao2 then QuickReport1.Preview else begin QuickReport1.Preview; QuickReport2.Preview; end; end; abraço

Experimente assim: procedure TForm1.Button1Click(Sender: TObject); var qtd : string; begin qtd := qryItem.FieldByName('ITE_QTD').AsString; qtd := Formatfloat('#,0.0000', strtofloat(qtd)); label1.Caption := qtd; end; abraço

veja neste endereço: http://www.activedelphi.com.br/forum/viewtopic.php?t=35848 outra solução 15. Função de Criptografia de 32 Bits (topo) Para criptografar passe como paramêtros 3 valores inteiros quaisquer. Para referter a criptografia utilize os mesmos valores {$R-} {$Q-} function EncryptSTR(const InString:string; StartKey,MultKey,AddKey:Integer): string; var I : Byte; begin Result := ''; for I := 1 to Length(InString) do begin Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8)); StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey; end; end; function DecryptSTR(const InString:string; StartKey,MultKey,AddKey:Integer): string; var I : Byte; begin Result := ''; for I := 1 to Length(InString) do begin Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8)); StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey; end; end; {$R+} {$Q+} mais informações: http://www.ramosdainformatica.com.br/dic_r...s01.php?CDA=765 OBS: leve em conta que se o seu arquivo for grande e estiver usando rede, a performance do programa cai muito, pois ele terá que fazer a descritografia antes de mostrar para o usuário. abraço

Flavio ... o que voce está querendo é um controle de acesso para usuário veja este tópico ( Leia todos os posts ) ... econtrará mais informações sobre este assunto no final dele http://scriptbrasil.com.br/forum/index.php...íveis+de+acesso abraço

Jefferson .. voce já tem todas as posições guardadas no array Nomes[TotalNomes] Nomes[TotalNomes] := Copy(Nome, 1, i - 1); como não vi a definição deste array dentro da função, então ela deve estar definida fora da função.... e desta maneira voce pode usar o array para mostrar todas as posições. exemplo: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin memo1.clear; for i := 1 to Total do Memo1.Lines.Append(Nomes[i]); end; OBS: Crie uma variavel publica chamada Total que recerá o resultado da contagem dos nomes exemplo: function MontaString(Nome,separador: String): string; begin Nome := Trim(Nome); Result := Nome; {Insere um espaço para garantir que todas as letras sejam testadas} Nome := Nome + #32; {Pega a posição do primeiro espaço} i := Pos(separador, Nome); if i > 0 then begin TotalNomes := 0; {Separa todos os nomes} while i > 0 do begin Inc(TotalNomes); Total := TotalNomes; /// total recebe o numero de ocorrencias Nomes[TotalNomes] := Copy(Nome, 1, i - 1); Delete(Nome, 1, i); i := Pos(#32, Nome); end; end; end; abraço

Dracom ... já que está iniciando, que tal dar uma olhada nas apostilas de delphi ? apostilas de delphi http://www.scribd.com/search?previous_quer...apostila+delphi http://www.scribd.com/search?previous_quer...p;x=36&y=10 ou voce pode fazer pesquisas no forum usando palavras chaves da sua dúvida abraço

1 - ponha o componente PageControl1 no form 2 - ajuste o tamanho dentro do form 3 - clique com o botão direito no PageControl1 e clique em NewPage ( quantas vezes sejam necessarias para adicionar o numero de paginas ) 4 - na propriedade Caption do TabSheet1 voce coloca o nome que desejar 5 - coloque os componentes que farão parte de cada pagina com relação à só conseguir acessar as outras abas se antes preencher o formulário anterior veja neste endereço: http://www.ramosdainformatica.com.br/dic_r...s01.php?CDA=690 http://www.tiforum.com.br/viewtopic.php?f=3&t=22844 apostilas de delphi http://www.scribd.com/search?previous_quer...apostila+delphi http://www.scribd.com/search?previous_quer...p;x=36&y=10 abraço

Isso pode ser configuração do proprio modem ... entretanto para tirar as dúvidas, peça que troquem o seu modem ... se o problema persistir então peça ao suporte técnico que lhe passe os procedimentos necessários para verificar a configuração do modem. abraço

A primeira sugestão é fazer uma pesquisa no forum para ver se encontra alguma coisa sobre o assunto http://scriptbrasil.com.br/forum/index.php...ghlite=MDIChild A segunda sugestão é voce colocar o comando para manter o Form Pai maximizado assim que voce chamar o Form para Cadastrar o Cliente. A terceira sugestão é não usar MDIChild .... simplesmente crie um form que será o seu Menu Principal ( que ficará sempre maximizado ) e através dele chamar os outros form de seu sistema. abraço

Cire uma tabela de vendas que seja referenciada com a tabela Cadastro através de um código ... desta maneira voce terá todo o controle necessário para poder consultar depois os dados da ação e poder imprimir uma nota. Para salvar os dados voce usa Post e ApplyUpdates. exemplo: procedure TFClientes.BitBtn5Click(Sender: TObject); begin if (botao = 1) then // se clicou no botão Inserir Novo Registro begin // Salvar o registro DS_Cadcli.Post; // DataSource da Tabela ou da Query CDS_Cadcli.ApplyUpdates(-1); // ClientDataSet da Tabela ou da Query end; end; abraço

Leve em consideração que para esta tela funcionar como esperado, voce deve acrescentar as operações faltantes ( Incluir, Alterar, Excluir, Imprimir, Salvar e Cancelar ) O coração de um sistema é o planejamento de sua base de dados ( Definição de Tabelas, campos, tipos, tamanho, disposição dos registros ...etc ) Deve-se levar ainda em consideração, que tipo de micro seu cliente tem, qual processador, memória dispónivel, tamanho do HD, se o sistema deverá funcionar em Rede ou não. Porque dependendo do tipo de máquina, voce não poderá fazer aquilo que quer mas aquilo que será necessario para que o seu sistema rode perfeitamente e não traga descontentamento para o seu cliente. Cada programador tem o seu próprio estilo e lógica para programar e desenvolver o seu código ... e como não tem ideia de como montá-la e programá-la... sugiro que leia manuais, tutoriais ou a propria bíblia do delphi para se inteirar mais sobre a linguagem que está escolhendo para aprender .... Não espere que alguém lhe dê as coisas mastigadinhas ... muitos se esforçam para aprender ( e isto leva anos de dedição, muita leitura e prática ) abraço

ele converter o orçamento para OS.. como fazer??? R: Se voce já fez uma tela de vendas com serviço... bastaria apenas criar um campo de controle para indicar se o orçamento será efetivado e consequentemente se tornará vendas com serviço (OS) ( ou seja voce deverá incluir os campos da tela de orçamento na tabela de vendas com serviços ) gostaria de saber também se, é interessante criar uma tela de orçamento de vendas de peças com serviços e uma só de vendas de peças??? R: sim ...pois dessa maneira voce terá um controle muito maior sobre o estoque. abraço

Use o componente IBQuery para cada tabela, depois ao clicar no botão OK para salvar, basta dar um Post e um ApplyUpdates em cada tabela. exemplo: procedure TForm1.BitBtn5Click(Sender: TObject); var i : integer; begin CDS_Tabela1.Post; CDS_Tabela1.ApplyUpdates(-1); CDS_Tabela2.Post; CDS_Tabela2.ApplyUpdates(-1); CDS_Tabela3.Post; CDS_Tabela4.ApplyUpdates(-1); //ATUALIZAR OS DADOS PARA A REDE FMenu.IBTransaction1.Commit; FMenu.IBTransaction1.StartTransaction; MessageDlg('Alterações efetuadas com sucesso! ', mtInformation, [mbOK], 0); end; abraço

Tente o seguinte: Tenha em mãos o CD de intalação do windows ... coloque o CD no CDRom em Iniciar - Executar - digite sfc / scannow Ele fará uma verificação nos arquivos do windows e recuperará o arquivo que estiver corrompido abraço

procedure TForm1.Button1Click(Sender: TObject); begin Edit1.text := 'Meu Texto'; end; Luca ... voce precisa ler mais sobre delphi ... isto é o básico do básico ... procure fazer pesquisas no forum, voce vai encontrar muitas coisas, que o ajudarão com as suas dúvidas abraço

Voce pode usar um select exemplos: Select Sum (produto) as Total from Tabela where mes = 'Abr' Select Sum (coluna) from tablela where codigo= 2345; mais exemplos: http://www.techonthenet.com/sql/sum.php http://www.activedelphi.com.br/forum/viewtopic.php?p=186009 abraço

então coloque o código que voce está usando no botão ... fica mais facil analizar em que voce está errando. abraço

Banco de Icones http://www.plugmasters.com.br/downloads/icones/ abraço

Veja a sintaxe do comando procedure Open(const UserID: WideString; const Password: WideString); overload; se voce quiser usar este comando voce deve passar o nome do usuário e a senha exemplo: ADOConnection1.Open('Joe Sixpack', 'SecretWord'); abraço

faça uma verificação usando o debugger do delphi usando break point .. veja se o campo está realmente recebendo algum valor abraço

Veja este post a única diferença é que voce vai usar o adoquery no lugar da query http://scriptbrasil.com.br/forum/index.php...st&p=266338 abraço

Faça uma pesquisa no site, para ver se econtra os outros www.torry.net/vcl/packs/interfacelite/transpearxp.zip abraço

procedure TfrmCadForn.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); with Params do begin ExStyle := ExStyle OR WS_EX_TOPMOST; WndParent := GetDesktopwindow; end; end; Amigo ...procure ler mais sobre o delphi abraço

Evidente ... sentença sql vazia ( voce apagou a sentença ) A sql está dentro ou fora do report ? coloque o código para poder te ajudar... explique melhor como voce faz essa mudança e onde abraço