Jhonas

exemplo usando table e query Table1.Filtered := False; Table1.Filter := 'Data = 10/03/2013 '; Table1.Filtered := True; Query1.Filtered := False; Query1.Filter := 'Data = 10/03/2013 '; Query1.Filtered := True; ou Table1.Filtered := False; Table1.Filter := 'Data = '+QuotedStr(datetostr(DateEdit1.date)); Table1.Filtered := True; Query1.Filtered := False; Query1.Filter := 'Data = '+QuotedStr(datetostr(DateEdit1.date)); Query1.Filtered := True; abraço

experimente executar esse codigo sozinho em outra aplicação, e veja o resultado se for o mesmo, refaça a sua tabela abraço

possivel é .... mas vai dar algum trabalho começe pesquisando na net http://www.google.com.br/search?q=webservi...c.1.AOGBfJVVEKA abraço

exemplo com fontes ( Batalha Naval em Delphi ) http://www.planetadelphi.com.br/downloading/4543 abraço

tente assim: QItenOrdemServer.Active := false; QItenOrdemServer.SQL.Clear; QItenOrdemServer.SQL.Add('Select * From ORDSERVMOV '); QItenOrdemServer.SQL.Add('Where ID_ORDEMSERVICO = :Cod '); QItenOrdemServer.SQL.Add('order by ID_MVTOORSV desc '); QItenOrdemServer.Parameters.ParamByName('Cod').Value:= QOrdemServicoID_ORDEM.AsInteger; QItenOrdemServer.Active := true; veja se esta passando o valor para o Cod abraço

veja se consegue nesse link http://www.sourcecodeprojects.com/1282322/ OBS: se não conseguir, basta voce trocar o TwwDBLookupCombo pelo TDBLookupComboBox ( nativo do delphi ) que vai funcionar do mesmo jeito abraço

nesse link tem uma duvida parecida com a sua http://www.mail-archive.com/delphi-br@yaho...r/msg53594.html abraço

veja http://www.google.com.br/search?q=update+d...c.1.39a3K0Hki_w abraço

o ADO usa o adortl70.bpl o DBE usa o dbrtl70.bpl O erro: Violação de endereço de memoria no modulo dbrtl70.bpl, significa que alguma outra rotina esta tentando escrever em uma posição de memoria já alocada pelo modulo dbrtl70.bpl. OBS: já que voce mudou toda a aplicação para ADO, verifique em todo o seu projeto, se voce não esqueceu de tirar da uses alguma chamada para o DBE Isso tambem pode ser bug da dbrtl70.bpl ... no link abaixo existe um Update para o Delphi 7 que corrige esse erro http://edn.embarcadero.com/article/32337 abraço

coloque o codigo que esta na TwwDBLookupCombo

Var i : Integer; begin inherited; DM2.ADOQry.SQL.Clear; DM2.ADOQry.Close; for i := 0 to item.Items.Count - 1 do begin DM2.ADOQry.SQL.text:= 'Select * from tab Where num_processo like :ParamNumProcListview'; DM2.ADOQry.Parameters.ParamByName('ParamNumProcListview').Value:=(item.Items[i].SubItems[0]); DM2.ADOQry.Open; if not DM2.ADOQry.IsEmpty then begin showmessage(dm2.ADOQrynum_processo.Value); //DM2.ADOQry.Close; //DM2.ADOQry.SQL.Clear; with dm2.ADOQry do begin DM2.ADOQry.SQL.Add('Update tab set nome= :ParamNomeListview, num_processo= :ParamNumProcListview, obs= :ParamObsListview where num_processo= :ParamNumProcListview'); DM2.ADOQry.Parameters.ParamByName('ParamNomeListview').Value:=(item.Items[i].Caption); DM2.ADOQry.Parameters.ParamByName('ParamNumProcListview').Value:=(item.Items[i].SubItems[0]); DM2.ADOQry.Parameters.ParamByName('ParamObsListview').Value:=(item.Items[i].SubItems[1]); showmessage(item.Items[i].Caption); DM2.ADOQry.ExecSQL; end; end else begin //DM2.ADOQry.Close; //DM2.ADOQry.Open; DM2.ADOQry.Insert; DM2.ADOQry.FieldByName('nome').AsString:= item.Items[i].Caption; DM2.ADOQry.FieldByName('num_processo').AsString:= item.Items[i].SubItems[0]; DM2.ADOQry.FieldByName('obs').AsString:= item.Items[i].SubItems[1]; DM2.ADOQry.Post; end; end; item.Clear; Edit1.SetFocus; end; Erro: Objeto parameter definido incorretamente veja 2 maneiras de se usar o parametro no ADOQuery var MyDate: TDateTime AdoQuery1.ParamByName('DueDate').AsDateTime := MyDate // data padrão do windows //vs AdoQuery1.ParamValues['DueDate'] := MyDate // pode ser usado outros formatos de data OBS: voce na sua sentença SQL esta adicionando um comando Update e um Insert sem que tenha fechado a query Sugetão: execute a query por partes e descobrira o erro abraço

DM_CONEXAO_BD.TB_ACESSO.Filtered := false; DM_CONEXAO_BD.TB_ACESSO.Filter := 'Data >=' + QuotedStr(DateToStr(DateTimePicker1.Date)) + 'and Data <=' + QuotedStr(DateToStr(DateTimePicker2.Date)); DM_CONEXAO_BD.TB_ACESSO.Filtered := True; DM_CONEXAO_BD.TB_ACESSO.Open; seu código esta correto... a banda no QR onde devera aparecer os valores deve ser a Detail se voce esta com duvida que como fazer, veja no forum: http://scriptbrasil.com.br/forum/index.php...te=quick+report ou no google http://www.google.com.br/search?q=tutorial...c.1.xpe4c53NYu4 abraço

veja http://www.pythonize.org/transformando-seu...l-com-o-py2exe/ http://abop-ptbr.berlios.de/livro/executab...n-programs.html http://www.dcc.ufrj.br/~wendel/comp2/tutor...2exe_basico.pdf abraço

algumas sugestões usar um componente para isso .... procure nesse link por Professional Screen Camera Component v.5.2.3.0 FWS 594 k http://www.torry.net/pages.php?id=168 se quiser uma solução mais rapida... veja Screen Recorder 7.8 http://www.riverpast.com/en/download/ abraço

Faça uma pesquisa no forum para ver ser encontra o que procura http://scriptbrasil.com.br/forum/index.php...ite=componentes abraço

veja na apostila http://www.tutorialspoint.com/python/python_loops.htm http://www.python.org.br/wiki/Documentacao...et=python24.pdf abraço

aparece esta mensagem de erro "OLe erro desconhecido", isso pode ser erro na configuração de um campo Blob da tabela ( o conteudo pode ser imagem ou texto muito grande ) ou pode ser que foi alterado a popriedade Provider do AdoConnection verifique abraço

Alessandra, já te indiquei uma possivel solução ( formatar a data antes de jogar para a tabela e salvar e ao ler da data da tabela, converter para a data padrão ) vamos ver se algum outro colega do forum tem uma outra ideia para voce abraço

No database desktop, se eu coloco 17/10/2010 ele não da erro, mas salva 10/17/2010 2 sugestões: 1 - apague essa tabela e crie uma nova e faça o teste .... se não adiantar, tente a 2 2 - mude a configuração regional do windows e teste novamente obs: voce ainda não disse qual é o componente de acesso a tabela que esta usando como dito acima, voce pode fazer a mudança da data padrão pelo formato da data do banco //Converter data padrão p/ mm/dd/yyyy function DataMysql(Vr: string): string; var ValorData: string; begin ValorData := Vr; Result := Copy(valordata, 7, 4) + '-' + Copy(valordata, 4, 2) + '-' + Copy(valordata, 1, 2); end; abraço

outra causa pode ser o componente de acesso ao banco qual componente voce esta usando ? voce pode corrigir isso pelo delphi mudando o formato da data exemplo //Converter data mm/dd/yyyy p/ data padrão dd/mm/yyyy function DataPadrao(Vr: string): string; var ValorData: string; begin ValorData := Vr; Result := Copy(valordata, 1, 2) + '/' + Copy(valordata, 4, 2) + '/' + Copy(valordata, 7, 4); end; abraço

veja http://webcache.googleusercontent.com/sear...hwQ&ct=clnk http://www.del.ufms.br/tutoriais/matlab/capitulo6.htm http://mdicas.blogspot.com.br/2008/11/graf...-no-matlab.html abraço

se o seu windows for em portugues, nas configurações regionais deveria estar dd/MM/aaaa está salvando como mm/dd/yyyy. esse padrão é salvo quando se está usando o mysql outra causa pode ser o componente de acesso ao banco abraço

faça as modificações para o seu uso var Form1: TForm1; cc : integer = 0; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var i :Integer; const str = '2345'; max = 2; begin Edit1.Text:=''; for i:= 1 to max do Edit1.Text:=Edit1.Text+str[random(length(str))+1]; if (edit1.text = '34') or (edit1.text = '54') then begin showmessage('voce adiquiriu um item 1'); inc(cc); edit2.Text := edit2.Text + ' ' + inttostr(cc); end; if edit1.text = '43' then begin showmessage('voce adiquiriu um item 2'); inc(cc); edit2.Text := edit2.Text + ' ' + inttostr(cc); end; end; abraço

mostra como deveria ficar aparecendo no seu edit seria assim ? 25(1) 25(2) 25(3) ...

não tenho o python instalado, mas fiz algo em delphi para demonstrar o uso da variavel boleana ( true or false ) function Modulo11(Valor: string; Base: Integer = 9; Resto: Boolean = False): string; { Rotina muito usada para calcular dígitos verificadores Pega-se cada um dos dígitos contidos no parâmetro VALOR, da direita para a esquerda e multiplica-se pela seqüência de pesos 2, 3, 4 ... até BASE. Por exemplo: se a base for 9, os pesos serão 2,3,4,5,6,7,8,9,2,3,4,5... Se a base for 7, os pesos serão 2,3,4,5,6,7,2,3,4... Soma-se cada um dos subprodutos. Divide-se a soma por 11. Faz-se a operação 11-Resto da divisão e devolve-se o resultado dessa operação como resultado da função Modulo11. Obs.: Caso o resultado seja maior que 9, deverá ser substituído por 0 (ZERO). } var Soma, Contador, Peso, Digito: Integer; begin Soma := 0; Peso := 2; for Contador := Length(Valor) downto 1 do begin Soma := Soma + (StrToInt(Valor[Contador]) * Peso); if Peso < Base then Peso := Peso + 1 else Peso := 2; end; if Resto then Result := IntToStr(Soma mod 11) else begin Digito := 11 - (Soma mod 11); if (Digito > 9) then Digito := 0; Result := IntToStr(Digito); end; end; procedure TForm1.Button1Click(Sender: TObject); var s, s1, danfe : string; Resto: Boolean; begin danfe := '31060243816719000108550000000010001234567897'; s := Modulo11(danfe,0,false); // compara o resultado do modulo 11 com o digito verificador da danfe if copy(danfe,length(danfe),1) = s then resto := true else resto := false; end; abraço