Progr'amador

Nosso assunto aqui é Delphi e Kylix, Deveria mover seu tópico pra uma seção adequada, mas como você já postou em todas as seções , to trancando.

Qual o objetivo desse programa? Porque querer capturar teclas e enviar por e-mail?? pra mim não deixa de ser um virus, já que pode ser usando de má fé. Desculpe-me mas to fechando...

Olá Dixavado®, É Tipo assim: Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('SELECT * FROM TABELA WHERE CAMPO_DATA BETWEEN ' +#39+ data_ini +#39+ ' AND ' +#39+ data_fim+ #39); Query1.Open; Abs. Progr'amador.

Olá Ana, ve se é isso: DBGrid1.Columns[0].FieldName := 'CODIGO'; DBGrid1.Columns[0].Title.Caption := 'Código'; DBGrid1.Columns[1].FieldName := 'NOME_CLIENTE'; DBGrid1.Columns[1].Title.Caption := '´Nome Cliente'; Abs. Progr'amador.

Mas ta dando algum erro? ou simplesmente não atualiza! Esse campo Prod_PrecoEmDolar é tipo string? se for number NÃO precisa fazer a conversão ( FloatToStr(ValorAtualizado) ) Abs. Progr'amador.

Vamos lá, passo a passo! Dê dois cliques na Query ou TAble que esta ligada ao DBGrid, abrira uma janela com os campos de sua tabela se tiver em branco, clique em Add fields... (com isso os campos iram aparecer), selecione o campo que você quer fazer essa formatação, abra o Object Inspector (F11). Opções: Currency : se True acrescenta ao campo o simbolo monetário - R$ . E pra ficar assim 1,30, coloque 0.00 nas opções DisplayFormat e EditFormat do campo. Abs. Progr'amador.

Olá, Na opção ListField coloque os dois campos separado por ponto e virgula, assim: preço;CODIGO Abs. Progr'amador.

Olá luisribeiro, Tenta isso: Query1.SQL.Add('UPDATE tb_cliente SET nome=:nome WHERE codigo = '+''''+StrToInt(codigo.Text)+''''+''); Abs. Progr'amador

Olá, você quer dizer MaskEdit né? em vez de você usar 0 nas mascaras, use # tipo: ##/##/#### ###.###.###-## eu achu que é isso!!! Abs. Progr'amador

Olá Tbaiano, Tenho que descordar com você nisso. Sei que tenho muito a aprender ainda, mas eu nunca fiz um curso de delphi e nem grande ajuda, comecei sozinho, e o pouco do que sei hoje, foi assim, com uma Bíblia Delphi, apostilas, exemplos, dicas e é claro com ajuda deste grande forum. Ainda pretendo fazer um curso é claro, mas por enquanto vou continuando assim... Abs. Progr'amador.

É isso ae! conte comigo tambem ------------- OBS: Se você clicar no link acima e não iniciar o Download, copie ele pra barra de Endereço, Ok?! Abs. Progr'amador.

Olá, Com relação ao Win XP, o Delphi3 tem alguns bugs mesmo (o NT eu num sei...) E o outro problema, tenta colocar no OnClose do form principal isso: Application.Terminate; Abs. Progr'amador.

Olá, no você pode implementar isso no proprio botão que você clica pra gravar, coloque a msg apos executar o comando de gravação, tipo: procedure TForm1.Click(Sender: TObject); begin ... bla ... ... bla ... Table1.Post; ShowMessage('Cliente cadastrdo com Sucesso!'); end; ou coloque essa msg no evento AfterPost da Query ou Table. procedure TForm1.Table1AfterPost(DataSet: TDataSet); begin ShowMessage('Cliente cadastrdo com Sucesso!'); end; Abs. Progr'amador.

Ops!!! a questão nescessidade depende do que o cara ta querendo, por exemplo se ele quer localizar um registro informando parte da string de um campo, ex: quer localizar "JOAO CARLOS" e ele digita somente "JOAO C", e deseja buscar entre maiuscula e minuscula, ae será necessário o loCaseInsensitive tambem. Com isso ele poderia digitar "joao c" ou "JOao cA" (por exemplo) que iria localizar do mesmo jeito, e sem o loCaseInsensitive isso não seria possivel. Abs. Progr'amador.

Olá, você pode usar uma query(QryAtualiza) pra atualizar os registros usando um WHILE na tabela, tipo assim: Table1.First; While not Table1.EOF do begin QryAtualiza.Close; QryAtualiza.Sql.Clear; QryAtualiza.Sql.Add('Update Tabela set campo = ' + #39 + ValorAtualizado + #39 + ' '); QryAtualiza.Sql.Add('Where produto = ' + #39+ Query1.FieldByName('produto').AsString + #39); QryAtualiza.ExecSql; Table1.Next; end; Abs. Progr'amador.

Olá, que compoente você está usando pra abrir suas tabelas? 1º - CLIENTES CADASTRADOS: Se você tiver usando Table tem a opção ReadOnly só é mudar pra TRUE, ou nos proprios DBEdit's tem essa opção, isso irá travar os campos. 2º - CADASTRO DE CLIENTE No evento onShow do form você pode colocar assim: Table1.Append; com isso seu form já vai abrir num novo registro. Abs. Progr'amador.

Ok! então, resolvido! Tópico fechado...

Olá OSJunior, Não sei se entendi, mas adicione mais um Edit (Edit2) onde o usuário irá informar quantos digitos ele quer, e use assim: Edit1.Text := GeraSenha(StrToInt(Edit2.text)); Abs. Progr'amador.

Olá, e se você quizer evitar a mensagem de erro, insira o código abaixo no evendo OnPostError do componente Table ou Query. Procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;var Action: TDataAction); Var ErroMens :String; begin ErroMens := E.Message; if ErroMens = 'Key violation.' then begin ShowMessage('Chave Primária Inválida !'); action := daAbort; end; end; Abs. Progr'amador.

Tópico repetido, Fechando...

Olá Renato, uma solução é em vez de usar o Edit use o Memo, que ele tem essa opção, ae é só ajustar seu tamanho. Abs. Progr'amador.

Olá Renato, não é muito aconselhado a usar esse tipo de mascara, vamos supor que você tenha que inserir um valor maior que a mascara, tipo: 100,00, ai não tera como já que sua mascara é R$ 00,00, mas ae vai uma dica pra tirar essa mascara jogando o valor pra uma variável (n) que ae você pode enviar pra tabela. procedure TForm1.Button1Click(Sender: TObject); var i : integer; s : string; n : Real; begin for i := 1 to Length(MaskEdit1.Text) do if (Copy(MaskEdit1.Text,i,1) <> 'R') and (Copy(MaskEdit1.Text,i,1) <> '$') and (Copy(MaskEdit1.Text,i,1) <> ' ') then s := s + (Copy(MaskEdit1.Text,i,1)); n := StrToFloat(s); end; Abs. Progr'amador.

Olá Guilherme014, você ta usando cinco tabelas numa select sem relacionar elas. Deveria fica tipo assim: (Exemplo) SELECT NF.ID_VALUE, NF.VALOR, INF.COD_PRODUTO, P.PRODUTO FROM NOTA_FISCAL NF, ITEM_NOTA_FISCAL INF, PRODUTO P WHERE P.COD_PRODUTO = INF.COD_PRODUTO AND INF.ID_VALUE = NF.ID_VALUE Ou seja, as suas tabelas deveram ter campos que possa ser relacionadas entre si. Deve ser isso!!! Abs. Progr'amador.

Olá monalisa, você ta digitando o Zero tambem? O melhor é digitar o cpf completo, inclusive o Zero. Abs. Progr'amador.

Olá Renato, Como você ta tirando a mascara? Posta ae o código que você ta usando, Ok? Abs. Progr'amador.