Jhonas

Só daria esse erro , se o seu aplicativo estivesse aberto 2 vezes Veja neste link ... Componente compatível com Delphi 3, 4 e 5, adiciona facilmente capacidades de backup e restauração para sua aplicação, com os seguintes recursos: compressão de dados, backup e restauração completos ou incrementais, Delphi nativo: nenhuma DLL é necessária, e outros. Executável e código fonte inclusos http://www.ec-software.com/delphi/backfile.zip abraço

Lista de indice fora do escopo Se o erro foi nesta linha , use o debuge o delphi para saber qual o valor de dm.ComponentCount for Cont := 0 to dm.ComponentCount - 1 do depois tente assim, e veja qual o valor de ComponentCount for Cont := 0 to ComponentCount - 1 do abraço

Voce tera que estudar um pouco sobre referencia cruzada http://74.125.93.132/search?q=cache:RoLj6p...=clnk&gl=br http://imasters.uol.com.br/artigo/7308/con...erencia_cruzada abraço

Possivel é, mas terá que pesquisar ... veja onde encontrar mais sobre o assunto: http://www.google.com.br/search?hl=pt-BR&a...8&o que=webser http://www.google.com.br/search?hl=pt-BR&a...q=webservice+de WebService com Delphi e php http://www.google.com.br/search?hl=pt-BR&a...mp;aq=f&o que= WebService com Delphi e Java http://www.google.com.br/search?hl=pt-BR&a...mp;aq=f&o que= abraço

"circular datalink are not allowed" Esse erro não é de código mais sim de configuração de componente... os componentes de acesso estão ligados de forma errada, ou seja , se voce liga um componente a um outro e nesse outro voce liga de volta. Então voce deve desfazer essa ligação de retorno... um exemplo seria voce usar a popriedade Connection do ADOQuery e definir tambem a propriedade ConnectionString do Proprio ADOQuery abraço

Realmente ela é unica .. nem gemeos identicos tem impressão digital igual A pesquisa por pontos depende do números de pontos de detalhe característicos (minúcias). http://comprar.todaoferta.uol.com.br/leito...HPVSXARHPO#rmcl Sim, a menos que a pessoa tenha sofrido uma queimadura grave ou tenha tido vários cortes na região da digital Pode usar Interbase , firebird, MYSQL, Oracle ... sem problemas abraço

Veja neste link http://www.activedelphi.com.br/forum/viewtopic.php?t=35354 abraço

Tente essa mudança: procedure TForm1.Button1Click(Sender: TObject); var Vcpo, Vvlr : TStringList; i : Integer; begin Vcpo:= TStringList.Create; Vvlr:= TStringList.Create; with VCpo do begin clear; Add( 'DtCad' ); end; with VVlr do begin Clear; Add( #39 + FormatDateTime('dd.mm.yyyy', now) + #39 ); end; ShowMessage(VCpo[i]); ShowMessage(VVlr[i]); Vcpo.Free; VVlr.Free; end; abraço

Conectar o banco ... voce pode fazer isso automaticamente pelo seu programa ( procure no forum ) Instalar o Firebird até dá, mas se tiver que configurá-lo terá que ser na mão. abraço

Versão do JEDI para instalação no delphi 7 JEDI Code Library (JCL) 1.97.2172 http://www.sourcecodeonline.com/details/je...rary__jcl_.html abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...lite=WebService abraço

DM.ZQUnidade.Active := false; DM.ZQUnidade.SQL.Clear; DM.ZQUnidade.SQL.Add('SELECT * FROM UNIDADE_FORNECIMENTO'); DM.ZQUnidade.SQL.Add('WHERE CODIGO LIKE "%' + edLocalizar.Text + '%"'); DM.ZQUnidade.SQL.Add('OR DESCRICAO LIKE "%' + edLocalizar.Text + '%"'); DM.ZQUnidade.SQL.Add('OR SIMBOLO LIKE "%' + edLocalizar.Text + '%"'); DM.ZQUnidade.SQL.Add('AND SITUACAO = "' + edSituacao.Text + '"'); DM.ZQUnidade.Active := true; Vamos aos erros: 1 - deixe apenas o simbolo % final, dessa maneira somente a primeira ocorrencia da string é que será achada, pois se voce usar os 2 a string procurada podera estar no começo, no meio ou no fim 2 - veja que voce usou o operador OR e edLocalizar.Text para os campos CODIGO, DESCRICAO e SIMBOLO , o que estaria errado exemplo: se o seu edLocalizar.Text receber o valor 'E002' que seria o valor do CODIGO , na sua SQL esse valor estaria sendo atribuido tando para o campo DESCRICAO ou SIMBOLO tambem. 3 - se o campo SITUACAO vai receber o valor do Combobox então não há necessidade de colocar o edSituacao.Text, a menos que o valor do Combobox estivesse sendo atribuido ao edSituacao.Text em termos praticos deveria ser assim: DM.ZQUnidade.Active := false; DM.ZQUnidade.SQL.Clear; DM.ZQUnidade.SQL.Add('SELECT * FROM UNIDADE_FORNECIMENTO'); DM.ZQUnidade.SQL.Add('WHERE CODIGO LIKE ' + edCodigo.Text + '%'); DM.ZQUnidade.SQL.Add('OR DESCRICAO LIKE ' + edDescricao.Text + '%'); DM.ZQUnidade.SQL.Add('OR SIMBOLO LIKE ' + edSimbolo.Text + '%'); DM.ZQUnidade.SQL.Add('AND SITUACAO = ' + ComboBox1.Items.Strings[ComboBox1.ItemIndex]); DM.ZQUnidade.Active := true; abraço

De 2 clicks com o mouse fora da area de impressão da banda para chamar a janela do Report Settings... Em Units ( unidade ) coloque MM ( milimetros ) e clique no botão < Apply > abraço

Achei que voce tinha entendido esse código, que é parecido com o que voce está querendo ... basta trabalhar a idéia abraço

ofAllowMultiSelect Allows users to select more than one file in the dialog. Selecionar um ou mais aquivo no dialog Se é leitura de todos os arquivos, de um select all abraço

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function GetComputerNetName: string; var buffer: array[0..255] of char; size: dword; begin size := 256; if GetComputerName(buffer, size) then Result := buffer else Result := '' end; Function GetUserFromWindows: string; Var UserName : string; UserNameLen : Dword; Begin UserNameLen := 255; SetLength(userName, UserNameLen); If GetUserName(PChar(UserName), UserNameLen) Then Result := Copy(UserName,1,UserNameLen - 1) Else Result := 'Unknown'; End; procedure TForm1.Button1Click(Sender: TObject); begin // nome do computador Edit1.Text := GetComputerNetName; // nome do usuario Edit2.Text := GetUserFromWindows; end; end. abraço

Is there any news about NULL functions like ( NVL in oracle, NZ in SqlServer ) in the near version of Interbase. It is a simplify the work in this statement : Select NVL (MyField, 0) * 0.5 // para o interbase versões novas From MyTable; I know that I can do it in StoredProcedure, but it is more easy to use NVL or whatever. COALESCE is the SQL-standard function for this and the latest version of Interbase supports it, thus you can use it. SELECT COALESCE(MyField, 0) * 0.5 // para o interbase versões passadas FROM MyTable No MySql essa função (NVL) se chama IfNull Select emp_nome, emp_ramo, ifNull(emp_contato,"Sem Contato") from empresa where emp_cod = 1 No Sql Server essa função se Chama IsNull(coluna,valor de nulo) No sql server uma função equivalente a essa ( NVL ) é a função IsNull Select emp_nome, emp_ramo, isNull(emp_contato,"Sem Contato") from empresa where emp_cod = 1 abraço

Use o componente OpenPictureDialog http://scriptbrasil.com.br/forum/index.php...enpicturedialog abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...st&p=443454 http://scriptbrasil.com.br/forum/index.php...e=login+e+senha abraço

O equivalente está em negrito abraço

Quando se usa o DataSet do Report o controle de avanço dos registros fica por conta do report e nesse caso voce não pode usar qry_mov_estoque.Next; experimente usar apenas os comandos ifs dentro do campo... o value desse campo receberá o valor e será impresso if qry_mov_estoque.FieldByName('AN_OPERACAO').AsString = 'S' then lbl_saldo_dia.Caption := FloatToStr(estoque_inicial - qry_mov_estoque.FieldByName('AN_QUANTIDADE').AsFloat) else lbl_saldo_dia.Caption := FloatToStr(estoque_inicial + qry_mov_estoque.FieldByName('AN_QUANTIDADE').AsFloat); end else begin if qry_mov_estoque.FieldByName('AN_OPERACAO').AsString = 'S' then lbl_saldo_dia.Caption := FloatToStr(StrToFloat(lbl_saldo_dia.Caption) - qry_mov_estoque.FieldByName('AN_QUANTIDADE').AsFloat) else lbl_saldo_dia.Caption := FloatToStr(StrToFloat(lbl_saldo_dia.Caption) + qry_mov_estoque.FieldByName('AN_QUANTIDADE').AsFloat); end; Value := lbl_saldo_dia.Caption; abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...te=salvar+fotos http://scriptbrasil.com.br/forum/index.php...e=salvar+imagem abraço

Isso tá parecendo incompatibilidade de versões, para testar se é isso mesmo te passei o link de uma outra versão http://www.vclcomponents.com/Delphi/Labels...brary-info.html abraço

Poderia ser placa de rede se voce não conseguisse ver outro micro da rede pelo windows. Já tive um problema assim e descobri que era por causa das atualizações do windows ( ainda não consegui descobrir qual ) mas colocando o service pack 2 do XP o programa funcionava normalmente em rede. abraço

Uma boa placa de video nunca é desperdício... amanhã ou depois ela fara falta para algum aplicativo novo. abraço