Jhonas

exemplos http://www.planetadelphi.com.br/delphi/exe...es/00004881.zip abraço

Veja se ao clicar no componente o foco vai para outro componente. ComboBox1.DroppedDown := True; abraço

Help do Delphi O operador IN só usa operandos do tipo ordinal ou set ... então para o seu código funcionar deveria se assim: if 283 in [279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 289] then begin ShowMessage('SIM!!'); exit; end; uma maneira mais pratica seria dessa forma: var Form1: TForm1; Vector: array of Integer; implementation {$R *.dfm} function IntegerInArray(Value: integer; Vector: array of integer): Boolean; var I: Integer; begin Result := False; for I := 1 to Value do Result := Result or (Value = Vector[I]); end; procedure TForm1.Button1Click(Sender: TObject); var k : integer; begin // definir uma matriz de 10 elementos SetLength(Vector, 9); // atribuir valores a matriz de 0 a 9 for k := Low(Vector) to High(Vector) do Vector[k] := k; // testar se o numero esta dentro da matriz if IntegerInArray(10,Vector) then showmessage('sim') else showmessage('não'); // o 10 esta fora dos valores da matriz ( 0..9 ) end; ou voce pode tentar endender funções mais avançadas em delphi http://www.rosseeld.be/DRO/PIC/BitUtils.mpas abraço

veja esses links http://www.firebirdnews.org/docs/fb2min_ptbr.html http://www.thundercheats.com.br/forum/delp...-no-delphi.html ou pesquise no forum http://scriptbrasil.com.br/forum/index.php...ghlite=firebird abraço

ou tem incompatibilidade de versão da biblioteca instalada sugiro a voce conseguir na net a versão da fbclient.dll ( 32 ou 64 bits ) dependendo da versão do windows 7 ou veja http://www.babooforum.com.br/forum/index.p...-windows-seven/ abraço

Não pode carregar a biblioteca fbclient.dll. A biblioteca fbclient.dll não foi encontrada para o caminho do sistema ou tem incompatibilidade de versão da biblioteca instalada OBS: essa biblioteca tem que estar na pasta do executavel, ou na pasta do sistema ( c:\windows\system32 ), ou ainda ter o caminho definido na Library do delphi abraço

então nesse caso terá que verificar quais os componentes que estão dentro do form e depois testa-los com relação as suas posições relativas dentro do form .... veja se consegue abraço

acho que não deverá dar problema... faça o teste abraço

voce não esta esquecendo nada, no entanto voce vai notar que durante o desenvolvimento desse projeto, a interface com o usuário deverá ser amigavel e intuitiva talvez a unica coisa que faltou, seriam as telas de pesquisas e os relatórios envolvidos esse tipo de trabalho deve durar de 15 a 30 dias para a sua realização, se voce tiver boa pratica de programação abraço

esse programa ( Main.exe ) do link é de uma empresa chamada KOG, versão 1.0.0.1 foi desenvolvido em C e não em delphi voce pode pegar qualquer endereço dentro do escopo do executavel que vai de 000000 a 6af7ee entretanto qualquer alteração nesses endereços pode prejudicar o funcionamento correto do software abraço

A diferença está no tipo do campo Date ou DateTime defina o campo da tabela como Date e não terá que fazer mais nada para que funcione exemplo: procedure TForm1.Button1Click(Sender: TObject); begin Query1.Active := false; Query1.SQL.Clear; Query1.SQL.Append('SELECT distinct NOME FROM Clientes WHERE DATA = :Dia'); Query1.Params[0].AsDate := DateTimePicker1.Date; Query1.Active := true; end; abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php?showtopic=141549 procure pelas palavras chave: IBDataSet, IBTable, ApplyUpdates, IBTransaction ... etc tem alguns posts no forum que vão ajuda-lo nessa dúvida veja tambem http://ibexpert.net/ibe/index.php?n=Doc.IB...PersonalEdition abraço

veja http://www.marcosdellantonio.net/2007/02/1...trs-dos-demais/ abraço

Se voce estiver usando um DBNavigator para isso, terá que fazer algumas alterações no código, mas já que quer usar botões seria: procedure TForm1.Button1Click(Sender: TObject); begin // Salvar modificações CDS_Cadcli.Post; CDS_Cadcli.ApplyUpdates(-1); CDS_Cadcli.Refresh; end; procedure TForm1.Button2Click(Sender: TObject); begin // Cancelar moficicações CDS_Cadcli.Cancel; end; isso é só um exemplo, pois existem outras maneiras ... depende de como o seu sistema foi concebido abraço

Configure o BDE via programação exemplo http://www.planetadelphi.com.br/delphi/exe...es/00001624.zip abraço

veja http://delphi.about.com/od/windowsshellapi/l/aa070400a.htm abraço

Erro: UNEXPECTED END OF EXPRESSION verifique a sua expressão no código ( como voce não postou , não dá pra adivinhar .. não é ? ) abraço

se a referencia for encontrada, aparecerá na aba 'Search for TPanel' abaixo do seu código de duplo clik onde aparece o TPanel, o cursor irá parar nessa linha de código, ( voce vai ver do lado esquerdo qual é o nome do Form ) abraço

exemplo no forum http://scriptbrasil.com.br/forum/index.php?showtopic=154976 abraço

Invalid class Typecast ParamByName('ProCod').AsInteger := ( Sender as TJvGradientHeaderPanel ).Tag; ParamByName('Hini').AsString := ( Sender as TJvGradientHeaderPanel ).LabelCaption; esse erro ocorre quando voce tenta converter um tipo em outro não compativel tente assim: ParamByName('ProCod').AsInteger := inttostr(TComponent(Components[i]).tag); ParamByName('Hini').AsString := TComponent(Components[i]).LabelCaption; abraço

então procure pela sua referencia ( TPanel ) no seu código e delete. faça o seguinte: vá em Menu > Search > Find in File... > Text to Find > digite TPanel e clique no botão OK se a referencia for encontrada, aparecerá na aba 'Search for TPanel' abaixo do seu código de duplo clik onde aparece o TPanel, o cursor irá parar nessa linha de código, bastanto a voce deleta-lo abraço

Class TPanel is not found Classe TPanel não foi encontrada Se voce tem um panel em seu form, basta remove-lo e adicioná-lo novamente. abraço

exemplo de uso SELECT COD, PESSOA, DATA, NOME, RUA, BAIRRO, CIDADE, UF, CEP, TELRES, TELCOM, CPF, RG, CONTATO, EMAIL FROM Clientes WHERE BAIRRO IS NULL no seu caso query3.SQL.Add('delete from dados_contas where data_inicial= :inicio and data_final= :final and num_recibo is null'); OBS: evite usar caracteres especiais no nome da tabela ( / ) abraço

Tem razão Progr'amador .... falta de atenção minha ... obrigado abraço

'Tipo de dados incompativel na expressão critério' edit1.text := 'Delphi' /// então voce pode usar de 2 maneiras table1.filter := 'campo = ' + QuotedStr(edit1.text); que tem o mesmo efeito de table1.filter := 'campo = ' + '''+ edit 1.text +''' ambas retornariam o seguinte valor para o table1.filter campo = 'Delphi' no seu caso ficaria: begin with dm.q_pag_prop do begin Close; SQL.Clear; SQL.Add('select * from tbl_pag_prop where id_prop = ' + '''+DBEdit1.Text+'''); SQL.Add('AND subcodigo = ' + QuotedStr(DBEdit33.Text)); Open; ou begin with dm.q_pag_prop do begin Close; SQL.Clear; SQL.Add('select * from tbl_pag_prop where id_prop = ' + QuotedStr(DBEdit1.Text); SQL.Add('AND subcodigo = ' + QuotedStr(DBEdit33.Text)); Open; abraço