Jhonas

Mensagem de erro quando um usuário de sua página da Web executa uma pesquisa em FrontPage: " HTTP / 1.1 404 Objeto Não Encontrado " Da uma verificada na Solução da Microsoft http://support.microsoft.com/kb/317390

basta ligar o componente TDataSource a propriedade DataSource do DBGrid

simulando o precionamento da tecla <Enter> procedure TForm1.Button1Click(Sender: TObject); begin keybd_event(VK_RETURN, 0, 0, 0); // simulando o precionar da tecla enter end;

pergunta: a select esta no formulario ou no report? se estiver no formulario voce tem que fazer a referencia no report atraves da propriedade DataSet do Report e se estiver no report este codigo deveria estar na propiedade BeforePrint do report ... faz um teste ai ... vlw OBs ... verifique se os campos (dados) no report estão apontando para o mesmo lugar

Se é um exemplo de formulario (como ficaria visualmente na tela) que voce quer ... da uma olhada neste endereço http://www.activedelphi.com.br/promocao.php

ou ainda pode ser feita desta maneira criação de formularios dinamicamente http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=584

desative e ative (sempre) a sua TADOQuery caso contrario o resultado não sera alterado

Algumas dicas sobre o assunto http://www.activedelphi.com.br/modules.php...r=0&thold=0 http://www.guiadodelphi.com.br/ler.php?codigo=646 http://www.ericksasse.com.br/multi-thread-...banco-de-dados/ exemplos http://developer.novell.com/wiki/index.php...on_(Delphi_APP) ou usar thread com componentes para internet http://www.ramosdainformatica.com.br/art_r...es01.php?CDA=37 vlws

verifique o que foi instalado no seu micro antes de começar a dar este problema.

No help do delphi temos: traduzindo Memoria dinamica usando C++ http://www.linhadecodigo.com.br/Artigo.aspx?id=1198 Mais sobre criação de formularios dinamicamente ( uso de memoria ) http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=584 abraço

Leitura e escrita na Porta serial Componente VaComm do pacote Async32 http://www.veloso.kit.net/rs232.html abraço

Complementando o que o Churc já disse, acho que voce esta confundindo as coisas Processos Um processo é um programa que está sendo executado no seu computador. Em todas as versões recentes do Windows, é possível ver uma lista dos processos através do Gerenciador de Tarefas, que pode ser acessado clicando com o botão direito na barra de tarefas ou apertando as teclas Ctrl, Alt e Delete ao mesmo tempo (cuidado, se apertar duas vezes seu computador irá reiniciar). Acho que voce esta querendo é o codigo para pegar os dados que você salvou na tabela de vendas e gerar um titulo ( Relatório) de contas receber, tem que ter também para o vice-versa, um que ligue o compras com o ( Relatório) de contas a pagar Fica dificil fazer isto para voce ... entretando para te dar uma ligeira ideia, entre neste endereço e procure por Contas a Pagar e Contas a Receber http://www.activedelphi.com.br/promocao.php#

qual a versao do seu delphi e qual o banco de dados utilizado ?

Vamos a um exemplo que talvez ajude: jogue num form os seguintes componentes DirectoryListBox1 DriveComboBox1 FileListBox1 FilterComboBox1 ListView1 BitBtn1 Label1 na propriedade Filelist do DirectoryListBox1 coloque o FileListBox1 na propriedade DirList do DriveComboBox1 coloque o DirectoryListBox1 na propriedade FileList do FilterComboBox1 coloque o FileListBox1 na propriedade colums do ListView1 coloque Nome Tipo Tamanho Data na proriedade ViewStyle coloque vsReport de 2 clicks no componente ListView1 mude a propriedade Alignment do ListView1.Colums[1] para taRigthJustify mude a propriedade Alignment do ListView1.Colums[2] para taRigthJustify mude a propriedade Alignment do ListView1.Colums[3] para taRigthJustify agora vamos ao codigo: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, Outline, FileCtrl, StdCtrls, ComCtrls, ImgList; type TForm1 = class(TForm) FileListBox1: TFileListBox; DirectoryListBox1: TDirectoryListBox; DriveComboBox1: TDriveComboBox; FilterComboBox1: TFilterComboBox; ListView1: TListView; Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; ListaDir : TStringList; implementation {$R *.DFM} { retorna o tamanho do arquivo, ou -1 se o arquivo não for encontrado } function tbFileSize(const FileName: string): integer; var SR: TSearchRec; I: integer; begin I := FindFirst(FileName, faArchive, SR); try if I = 0 then Result := SR.Size else Result := -1; finally FindClose(SR); end; end; {função para pegar a data do arquivo} function GetFileDate(Arquivo: String): String; var FHandle: integer; begin FHandle := FileOpen(Arquivo, 0); try Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end; end; {função para pegar o nome do arquivo sem a extensão} function RemoveExt(pStrValue: string ): string; var i : integer; begin i := Pos('.',pStrValue); if i <> 0 then begin result := copy(pStrValue,1,i - 1); end else begin result := pStrValue; end; end; {função para pegar a extensão do arquivo sem o nome} function TipoArquivo(Nome: String): String; var SR: TSearchRec; I: integer; begin I := FindFirst(Nome+'.*', faAnyFile, SR); if I = 0 then Result := copy(Sr.Name,Pos('.',Sr.Name),4) else Result := ''; end; // Cria um stringList com todos os arquivos de um diretório // Aceita mascaras function GetFileList(FDirectory, Filter: TFileName; ShowFolder:Boolean): TStringList; var ARec: TSearchRec; Res: Integer; begin if FDirectory[Length(FDirectory)] <> '\' then begin FDirectory := FDirectory + '\'; end; Result := TStringList.Create; try Res := FindFirst(FDirectory + Filter, faAnyFile or faArchive, ARec); while Res = 0 do begin if ((ARec.Attr and faArchive) = faAnyFile) or ((ARec.Attr and faArchive) = faArchive) then begin if ShowFolder then begin Result.Add(FDirectory + ARec.Name); end else begin Result.Add(ARec.Name); end end; Res := FindNext(ARec); end; FindClose(ARec); except Result.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); var ListItem : TListItem; i: integer; tam : real; begin //ListaDir.Clear; //ListaDir := GetFileList(DriveComboBox1.Text,'*.*',true); ListView1.Items.Clear; // limpa a lista no ListView1 Label1.Caption := 'Total Arq = ' + inttostr(FileListBox1.Items.Count); // mostra o total de arquivos for i := 0 to FileListBox1.Items.Count-1 do begin tam := 0; {adicionar um item} ListItem:= ListView1.Items.Add; {pegar o nome do arquivo} ListItem.Caption:=(RemoveExt(ExtractFileName(FileListBox1.Items.Strings[i]))); if Pos('[', ListItem.Caption) > 0 then continue; {pegar a extensão do arquivo} ListItem.SubItems.add(trim(TipoArquivo(FileListBox1.Items.Strings[i]))); {pegar o tamanho do arquivo} tam := tbFileSize(FileListBox1.Items.Strings[i]) / 1024; if tam > 1 then ListItem.SubItems.add(floattostr(round(tam)) + ' KB') else ListItem.SubItems.add(floattostr(round(tam+1)) + ' KB'); {pegar a data e a hora do arquivo} ListItem.SubItems.add(GetFileDate(FileListBox1.Items.Strings[i])); end; end; end. voce pode usar a função GetFileList no lugar do FileListBox1 , esta é uma ideia inicial para o que voce esta querendo OBS: este codigo vai mostrar em um ListView o nome, tipo, tamanho e data dos arquivos que são mostrados no FileListBox e a quantidade de arquivos num Label abraço

Para minimizar a aplicação tendo outros form aparecendo, voce não pode usar form.showmodal e sim form.show se não estes form ficarão aparecendo mesmo minimizando o form principal. ao minimizar a aplicação voce pode colocar um icone ao lado do relogio, para isto voce tera que usar o componente do RX o RxTrayIcon1 e colocar este codigo procedure TForm1.RxTrayIcon1Click(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ShowWindow(Application.Handle, SW_SHOW); Application.Restore; end; Voce so tera que usar o proprio botão de minimizar do form ( principal ), e na proriedade Hint do RxTrayIcon1 voce coloca 'Maximizar' e na propriedade Icon voce coloca o icone que vai ficar aparecendo ao lado do relogio. Caso voce não queira que a aplicação fique aparecendo na barra de tarefas basta usar procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:= caNone; // Minimiza a aplicação Application.Minimize; ShowWindow(Application.Handle, SW_HIDE); end; OBS: para baixar os componentes do RX http://www.volny.cz/runat/download/delphi/rx275.zip abraço

abraço

Ao dar duplo na propriedade Expression voce vai ver a janela do Expression Wizard, clicando no botao Database Field voce podera perceber que ele requer campos de uma query ou table para poder calcular ou executar uma função, ou então voce pode criar um campo calculado dentro da propria query e joga-lo no QR.

Neste post voce vai encontrar o endereço de alguns componentes para voce usar no seu projeto http://scriptbrasil.com.br/forum/index.php...st&p=455482

procure nos topicos do forum, parece que já via alguma coisa a respeito.

sem saber como esta a estrutura do seu banco de dados fica meio dificil responder, no entanto para voce ter uma ideia inicial de como seria : 8 materias 10 questoes 5 respostas unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Memo1: TMemo; RadioGroup1: TRadioGroup; btMaterias: TButton; btQuestoes: TButton; procedure btMateriasClick(Sender: TObject); procedure RadioGroup1Click(Sender: TObject); procedure btQuestoesClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Materias, questoes, repostas : integer; cont, num : integer; implementation {$R *.DFM} procedure TForm1.btMateriasClick(Sender: TObject); begin randomize; cont := cont + 1; if cont > 8 then begin showmessage('Terminou o simulado'); cont := 0; exit; end; if cont = 1 then begin // colocar o codigo para selecionar as materias // usar o comando random para selecionar aleatoriamente end; end; procedure TForm1.btQuestoesClick(Sender: TObject); begin randomize; num := numt + 1; if num > 10 then begin showmessage('Vamos a proxima materia'); btMaterias.Click; num := 0; exit; end else begin // colocar o codigo para selecionar as questoes // usar o comando random para selecionar aleatoriamente // determinar qual sera a alternativa certa resp := random(0,4); // colocar as respostas nas alternativas // usar o comando random para selecionar aleatoriamente for respostas := 0 to 4 do RadioGroup1.Items.Append(respostas do banco de dados); end; end; procedure TForm1.RadioGroup1Click(Sender: TObject); begin if RadioGroup1.Itemindex = resp then showmessage('Correto !) else showmessage('Incorreto !); end; end.

O componente que voce quer não é gratuito, entretanto voce pode tentar usar este http://downloads.delphi32.com/218/1913/qrtlbs.zip

Acho que este exemplo vai servir para voce http://www.swissdelphicenter.ch/torry/showcode.php?id=593

Vamos a um exemplo: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Provider, DBClient, Db, DBTables, StdCtrls, Buttons; type TForm1 = class(TForm) sbIncluir: TBitBtn; sbEditar: TBitBtn; sbExcluir: TBitBtn; sbConfirmar: TBitBtn; sbCancelar: TBitBtn; DataSource1: TDataSource; Query1: TQuery; ClientDataSet1: TClientDataSet; DataSetProvider1: TDataSetProvider; sbFirst: TBitBtn; sbPrior: TBitBtn; sbNext: TBitBtn; sbLast: TBitBtn; procedure sbIncluirClick(Sender: TObject); procedure sbEditarClick(Sender: TObject); procedure sbExcluirClick(Sender: TObject); procedure sbConfirmarClick(Sender: TObject); procedure sbCancelarClick(Sender: TObject); procedure DataSource1DataChange(Sender: TObject; Field: TField); procedure sbFirstClick(Sender: TObject); procedure sbPriorClick(Sender: TObject); procedure sbNextClick(Sender: TObject); procedure sbLastClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.sbIncluirClick(Sender: TObject); begin // incluir registros ClientDataSet1.Last; ClientDataSet1.Append; ClientDataSet1.Edit; end; procedure TForm1.sbEditarClick(Sender: TObject); begin // incluir registros ClientDataSet1.Edit; end; procedure TForm1.sbExcluirClick(Sender: TObject); begin // excluir registros ClientDataSet1.Delete; end; procedure TForm1.sbConfirmarClick(Sender: TObject); begin // confirmar registros ClientDataSet1.Post; ClientDataSet1.ApplyUpdates(-1); end; procedure TForm1.sbCancelarClick(Sender: TObject); begin // cancelar registros ClientDataSet1.Cancel; end; procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); begin with ClientDataSet1 do //Aqui tanto faz, pode ser o TQuery, TTable, etc. begin sbIncluir.Enabled := (State = dsBrowse); sbEditar.Enabled := (State = dsBrowse) and (not IsEmpty); sbExcluir.Enabled := (State = dsBrowse) and (not IsEmpty); sbOK.Enabled := (State <> dsBrowse); sbCancel.Enabled := (State <> dsBrowse); sbFirst.Enabled := (not Bof) and (State = dsBrowse); sbPrior.Enabled := (not Bof) and (State = dsBrowse); sbNext.Enabled := (not Eof) and (State = dsBrowse); sbLast.Enabled := (not Eof) and (State = dsBrowse); end; end; procedure TForm1.sbFirstClick(Sender: TObject); begin // ir para o primeiro registro ClientDataSet1.First; end; procedure TForm1.sbPriorClick(Sender: TObject); begin // ir para o registro anterior ClientDataSet1.Prior; end; procedure TForm1.sbNextClick(Sender: TObject); begin // ir para o proximo registro ClientDataSet1.Next; end; procedure TForm1.sbLastClick(Sender: TObject); begin // ir para o ultimo registro ClientDataSet1.Last; end; end. OBS: voce tera que implementar o resto do codigo para que funcione adequadamente ... OK ? só exemplifiquei como ficaria com os botoes.

a mensagem "is not valid floating point value". a mensagem " não é valor de ponto flutuante válido. preço:= TProdPreco.AsFloat; quant:= StrToFloat(dbedit54.text); // erro de "is not valid floating point value". DBEdit154.Text := FloatToStr(quant * preço); vamos dizer que o valor do seu dbedit54.text seja '2.345,50' que é uma string ... ao tentar converte-lo para float ocorre o erro porque não é possivel converter o ponto ... para melhor entendimento veja: procedure TForm1.Button1Click(Sender: TObject); begin preço := 2345.78; // veja que aqui é ponto e não virgula quant := strtofloat('2.000,78'); // erro de "is not valid floating point value". result := preço * quant; edit3.text := format('%n',[result]); end; Obs: format('%n',[valor extendido]) Ex: valor = 2345,56 fica 2.345,56 Uma solução simploria seria retirar o ponto da string para depois fazer a conversão procedure TForm1.Button2Click(Sender: TObject); var s : string; begin preço := 345.78; S := '2.000,78'; while Pos('.', S) > 0 do delete(s,Pos('.', S),1); quant := strtofloat(trim(s)); result := preço * quant; edit3.text := format('%n',[result]); end;

Exemplo de como pegar o serial fisico do HD https://www.google.com.br/search?source=hp&q=serial+fisico+do+hd+delphi&o que=serial+fisico+do+hd+delphi&gs_l=psy-ab.3..0.1105.6192.0.7283.26.20.0.0.0.0.609.3718.2-5j2j0j3.10.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675%2Ccfro%3D1...0...1.1.64.psy-ab..16.10.3715...0i131k1j0i22i30k1j0i22i10i30k1.savWrREU-D8