Jhonas

O delphi 2007 tem mais recursos que o delphi 7 ... tem acesso nativo a outros bancos de dados e é mais voltado para contrução de paginas web interativas. (Vista e Ajax ) A versão Enterprise ( update ... inclui todas as características do professional, mais apoio para o Enterprise à acesso a banco de dados SQL (Oracle 10g, MS SQL Server 2000/2005, Informix 9x, IBM DB2 8.x, Sybase 12.5). A Versão Enterprise também inclui funcionalidades melhoradas para a Plataforma (UML), incluindo novos diagramas, XMI 1/1 Import / Export, documentação geração, bem como auditorias e métricas. ) custa $ 1299, muito salgado para o bolso, mas se voce puder comprar vai gostar. abraço

Faça uma pesquisa no forum ... veja se encontra o que procura em algum post ( existe link para download do pacote zeos ) http://scriptbrasil.com.br/forum/index.php...p;highlite=zeos abraço

Acho que voce está fazendo uma confusão.... veja: 1 - quando voce usa parametro em uma SQL, ao clicar no botão salvar o seu DBgrid ficara vazio ( está correto ) pois na passagem do parametro o seu COD estará com um numero que não existe na tabela. 2 - para a pesquisa voce deve montar uma SQL sem parametros, mas que não traga todos os registros da tabela mas somente uma quantidade fixa ( Ex: 500 ) para não sobregarregar o trafego da rede 3 - Na pesquisa voce pode selecionar pelo campo que deseja pesquisar ( ex: NOME, ENDERECO, CODIGO, etc... ) por exemplo: voce traz para a tela de pesquisa somente 500 NOMES. Desses voce seleciona 1. 4 - Depois de selecionado o registro, voce pode usar uma outra SQL para trazer apenas este registro para a sua tela e editar os seus campos. Querer fazer as 2 coisas ao mesmo tempo não dá ( salvar e pesquisar usando a mesma SQL ) abraço

é exatamente dessa maneira que tem que funcionar se voce estiver usando parametros ... em uma pesquisa voce usará o codigo gerado para ele mostrar o registro o teste que fiz aqui sem usar parametros e está funcionando sem problemas procedure TForm1.Button1Click(Sender: TObject); var TD: TTransactionDesc; begin if not SQLConnection1.InTransaction then begin TD.TransactionID := 1; TD.IsolationLevel := xilREADCOMMITTED; SQLConnection1.StartTransaction(TD); try ClientDataSet1.ApplyUpdates(-1); SQLConnection1.Commit(TD); ClientDataSet1.Active := FALSE; ClientDataSet1.Active := TRUE; except SQLConnection1.Rollback(TD); end; end; end; abraço

E sim ... basta fazer esta modificação procedure TForm1.Button1Click(Sender: TObject); var Caminho: TextFile; Line, S : string; begin S := ''; AssignFile(Caminho, 'c:\HTML.txt'); Reset(Caminho); while not EOF(Caminho) do begin ReadLn(Caminho, Line); S := S + LINE; end; CloseFile(Caminho); if pos('http://',S)> 0 then begin s := copy(S,pos('http://',S),pos('.doc?',S)); s := copy(S,pos('http://',S),pos('.doc?',S)+3); end; edit1.text := S; end; abraço

Veja nestes endereços http://www.alphaskins.com/ http://fatotecnologia.com.br/downloads/skinsdelphi.zip http://74.125.95.132/search?q=cache:7OyTur...=clnk&gl=br abraço

Voce precisa jogar o codigo em algum lugar para que possa procurar o que deseja Exemplo: Se o conteudo da pagina for jogado dentro de um memo, voce pode usar dessa maneira procedure TForm1.Button1Click(Sender: TObject); var s : string; begin if pos('http://',memo1.lines.text)> 0 then begin s := copy(memo1.lines.text,pos('http://',memo1.lines.text),pos('.doc?',memo1.lines.text)-1); s := copy(s,pos('http://',s),pos('.doc?',s)+3); end; edit1.text := s; end; o resultado seria este http://dc95.4shared.com/download/6514429/e61457b3/Delphi_-_A_Biblia_-_Borland.doc voce pode tentar outras maneiras abraço

Se voce quiser pode deixar os 2 instalados na sua máquina sem problemas Se voce não tem problemas na maquina usano o delphi 7 tambem não terá usando o delphi 2007 abraço

` É do exemplo .. voce não precisa usar Esta correto a maneira como voce colocou ... fiz um teste aqui, criei uma tabela no IB com 2 campos ( COD - autoincremento e NOME - string ) e está funcionando ... o codigo aparece na tabela após o ApplyUpdates e o Commit Experimenta Fechar a tabela e abrir novamente após o commit e veja o que acontece abraço

Esta parecendo que voce esqueceu de dar o Commit na transação para atualizar os dados exemplo: procedure TForm1.TransferButtonClick(Sender: TObject); var Amt: Integer; TD: TTransactionDesc; begin if not SQLConnection1.InTransaction then begin TD.TransactionID := 1; TD.IsolationLevel := xilREADCOMMITTED; SQLConnection1.StartTransaction(TD); try Amt := StrToInt(AmtEdit.Text); Debit.Params.ParamValues['Amount'] := Amt; Credit.Params.ParamValues['Amount'] := Amt; SQLConnection1.Commit(TD); {sucesso}; except SQLConnection1.Rollback(TD); {falhou}; end; end; end; abraço

Não entendi isso ... explique melhor

Nãao é necessário se o retorno da sua query for apenas um registro, caso contrário voce pode usar para localizar um registro especifico dentro de um grupo de registros. abraço

Se voce olhar na propriedade DropDownRows do DBLookupComboBox1 verá que tem o numero 7 que é o numero de linhas que ele deverá mostrar O DBLookupComboBox1 não é para escrever nele e sim selecionar uma das opções que apareçe ( que corresponde a um registro especifico da sua tabela ) conforme for digitando ele vai me trazendo as opções. Voce não disse o que quer fazer depois que escolher a opção ... voce pode listar os registros em outros componentes ComboBox, ListBox, Memo, etc ... por isso mencionei que voce deve adptar o código as suas necessidades abraço

Acho que o que voce esta querendo é algo assim procedure TForm1.Edit1Change(Sender: TObject); begin Query1.Active := false; ClientDataSet1.Active := false; Query1.sql.Clear; Query1.sql.Append('select * from produtos where DESCRICAO like :DESC'); Query1.Params[0].DataType := ftString; Query1.Params[0].ParamType := ptInput; ClientDataSet1.Params[0].DataType := ftString; ClientDataSet1.Params[0].ParamType := ptInput; ClientDataSet1.Params[0].AsString := Edit1.Text+'%'; Query1.Active := true; ClientDataSet1.Active := TRUE; DBLookupComboBox1.DropDown; end; No DBLookupComboBox1 voce coloca: ListSource = DataSource1 ListField = DESCRICAO KeyField = DESCRICAO Quando voce estiver digitando no Edit o DBLookupComboBox1 abrirá uma lista conforme o Google Voce deve adaptar o código as suas necessidades abraço

Use um componente Edit para digitar ... no evento OnChange voce coloca a select para fazer a pesquisa use um componente DBGrid linkado a sua tabela para ir mostrando os registros encontrados pela select, conforme voce for digitando abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=546156 abraço

Então tente assim : if (qAtende.FieldByName('CD_ATENDIMENTO').AsInteger) > 0 then begin if MessageDlg('Atendimento já existe, deseja continuar ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin // comandos end else begin // comandos end; end; abraço

Usando a placa de fax-modem voce pode usar este componente https://www.scriptbrasil.com.br/script/delphi/spbina1.zip Pirambu! ... o programa spbina1 funciona perfeitamente no delphi 5 .. para funcionar no delphi 7 voce precisa baixar da Net a VCLJPG50.bpl ou copiar do delphi 5 abraço

agora é o seguinte: meu banco de dados, ficaria em um servidor na internet e as fotos também ??? Sim ... voce pode guardar as fotos em um campo Blob da sua tabela no banco de dados eu continuaria apenas referenciando o Path das fotos armazenadas ??? Se voce quiser pode até criar uma pasta no servidor para guardar as fotos e fazer referência a elas Em termos de desenvolvimento de sistema, é realmente mais fácil armazenar apenas o path e nome do arquivo das imagens, porém se estivermos rodando o sistema em uma rede, será preciso exportar o path das imagens e montá-lo em todas as estações para poder acessar as imagens. para incluir uma nova foto ou excluir uma já existente ... como faria isso ??? Para inserir o caminho da foto ... existem outras maneiras tblFotos.append; tblFotos.FieldByName('IDCLIENTE').AsInteger := idcliente; tblFotos.FieldByName('PATHFOTO').AsString := openPictureDialog1.FileName; tblFotos.post; Para deletar tblFotos.Delete OBS: Uma vez tendo acesso a tabela, trabalhe com ela como se ela estivesse localmente em sua máquina Onde tblFotos pode ser o ZQuery ou ZTable Veja tambem https://www.scriptbrasil.com.br/forum/lofiv...hp/t114397.html http://forum.imasters.uol.com.br/lofiversi...hp/t235450.html http://www.mail-archive.com/delphi-br@yaho...r/msg71346.html abraço

Se as fotos forem Bmp converta para JPEG..usará menos espaço em disco .... Para armazenar as fotos em um servidor na internet ( Banco de dados MYSQL ) voce pode usar componentes ZEOS ou ADO http://scriptbrasil.com.br/forum/index.php...p;highlite=zeos abraço

tente assim if qAtende.RecordCount > 0 then // condição abraço

Veja neste endereço http://www.psoft.sk/download/evaldemo.zip http://delphi.icm.edu.pl/ftp/d30share/eval.htm abraço

Qual é o seu nível de conhecimento na linguagem ?

Um exemplo o uso da sintaxe: SELECT COUNT( * ) FROM TABELA WHERE COD = 'UNI2' no seu caso qGeral.SQL.Clear; qGeral.SQL.Text := 'SELECT COUNT(*) FROM LUIZEDUARDO.SIAL WHERE CD_ATENDIMENTO ='+DBEdit2.Text; qGeral.Open; Observe no exemplo acima, que o conteudo do DBEdit2.Text terá que estar entre apostrofes então ficaria assim: qGeral.SQL.Clear; qGeral.SQL.Text := 'SELECT COUNT(*) FROM LUIZEDUARDO.SIAL WHERE CD_ATENDIMENTO ='+'''' + dBEdit2.Text + ''''; qGeral.Open; Vale lembrar que este DBEdit2.Text estiver linkado com a mesma tabela que estiver dentro da select, voce não terá valor algum nele. Voce deveria passar um valor para a select atravez de um Edit qGeral.SQL.Clear; qGeral.SQL.Text := 'SELECT COUNT(*) FROM LUIZEDUARDO.SIAL WHERE CD_ATENDIMENTO ='+'''' + Edit1.Text + ''''; qGeral.Open; abraço

Veja neste endereço http://rs218.rapidshare.com/files/97775364/Vers_o_1.0.1.zip http://scriptbrasil.com.br/forum/index.php...st&p=476461 abraço