Jhonas

Tutoriais e apostilas http://www.unidev.com.br/curso/blitz3d/cursodescricao.asp http://www.brmaker.com.br/forum/index.php?...p;mode=threaded http://www2.dem.inpe.br/val/homepage/links/index.html http://superdownloads.uol.com.br/download/...d-(blitzbasic)/ software para desenvolvimento http://planetadosjogos.getgoo.net/libs-e-e...orma-3d-t29.htm http://www.mediafire.com/?3qo00fzi22d http://www.blitzbasic.com/ http://www.tudodownloads.com.br/download/4...basic_1_83.html abraço

http://progol.vilabol.uol.com.br/basic.htm abraço

Veja nestes endereços http://www.download.com/IDE-Cobol/3000-2212_4-10562275.html http://www.geocities.com/Tokyo/Flats/3590/kedit.zip ou tente engenharia reversa usando um descompilador para cobol ( um tanto dificil ) abraço

O lógica é que para se alterar um registro primeiro voce deve procurá-lo então ao clicar no botão alterar a primeira coisa é fazer e procurar o registro ... uma vez selecionado então voce traz os dados para o form OBS: voce deve dar uma melhorada no seu código .. otimizar o código... exemplo: por default o delphi já faz isso se voce usar o TAB...basta colocar na seguencia os componentes do form usando o TAB Order ( clicando com o botão direito no form ) .... então voce pode tirar todas essas linhas bloquear e desbloquear campos voce pode usar procedure TFom1.desbloquear; var i : integer; begin for i := 0 to ComponentCount -1 do begin if Components[i] is TDBEdit then TDBEdit(Components[i]).Enabled := true; if Components[i] is TDateEdit then TDateEdit(Components[i]).Enabled := true; if Components[i] is TCurrencyEdit then TCurrencyEdit(Components[i]).Enabled := true; if Components[i] is TComboBox then TComboBox(Components[i]).Enabled := true; if Components[i] is TEdit then TEdit(Components[i]).Enabled := true; end; procedure TFom1.bloquear; var i : integer; begin for i := 0 to ComponentCount -1 do begin if Components[i] is TDBEdit then TDBEdit(Components[i]).Enabled := false; if Components[i] is TDateEdit then TDateEdit(Components[i]).Enabled := false; if Components[i] is TCurrencyEdit then TCurrencyEdit(Components[i]).Enabled := false; if Components[i] is TComboBox then TComboBox(Components[i]).Enabled := false; if Components[i] is TEdit then TEdit(Components[i]).Enabled := false; end; voce pode fazer isso com qualquer componente ........................................................................................... Resumindo ... quando voce dá este comando: frmLocalPro.Close; voce fechou o form de busca e consequentemente o select que foi feito então voce deve guardar o txtCadPro_CodPro para poder localiza-lo novamente no form : procedure TfrmCadPro.btnAlterarClick(Sender: TObject); caso contrário cada vez que voce clicar no botão alterar o registro será sempre o ultimo ou o primeiro dependendo da maneira como está trabalhando com os dados abraço

Coloque este código no OnActive do 1º form que é chamado pela sua aplicação se este não for o form do Menu onde estão os componente de conexão com o banco de dados procedure TFApres1.FormActivate(Sender: TObject); var l : Arq : TextFile; Linha : string; begin AssignFile(Arq, 'C:\MEUPROG\Net.txt'); Reset(Arq); while not EOF(Arq) do begin ReadLn(Arq, Linha); FMenu.IBDatabase1.DatabaseName := Linha; end; CloseFile(Arq); end; crie um arquivo pelo bloco de notas chamado Net.txt e digite dentro dele o seguinte: Se for um caminho para a máquina local C:\MEUPROG\Dados\DADOS.fdb Se for um caminho da rede SERVIDOR:C:\MEUPROG\Dados\DADOS.fdb abraço

se voce entendeu esta parte, então voce deve fazer uma reinstalação do delphi e do zeos , mas limpe os registros do windows depois de desinstalar ( use o easycleaner para isto ) http://superdownloads.uol.com.br/download/73/easycleaner/ abraço

voce tentou este componente ? webbrowser para delphi 3 http://www.cubique.ro/products/vcl/WebNavigator.zip Passe para mim os parametros do componente que voce esta usando abraço

Faça referencia dos edits aos componentes qrlabels no quick report exemplo: QRRecibo.QRLabel1.Caption := Edit1.Text; QRRecibo.QRLabel2.Caption := Edit2.Text; QRRecibo.QRLabel3.Caption := Edit3.Text + ' - ' + Edit8.Text; QRRecibo.QRLabel4.Caption := Edit4.Text + ' - ' + Edit5.Text; QRRecibo.QRLabel5.Caption := Edit6.Text; QRRecibo.QRLabel6.Caption := Edit7.Text; QRRecibo.Prepare; QRRecibo.PreviewModal; outras informações sobre quick report http://scriptbrasil.com.br/forum/index.php...te=quick+report abraço

será que removeu mesmo ???? será que não existe nenhum componente table ou query ou código fazendo referencia ao antigo banco de dados ? no seu micro funciona porque a referencia é encontrada. voce tem que verificar tudo com muita atenção abraço

Os parametros que voce esta passando para o componente não é o esperado Não pode compilar a unit UnitGoogle.pas voce deve verificar quais são os parametros que este componente pede. o erro desta linha ( :WebBrowser1.Navigate(ConsultaEndereco); ) significa que este não é o parametro esperado OBS: não tenho certeza mas acho que este é um componente webbrowser para delphi 3 http://www.cubique.ro/products/vcl/WebNavigator.zip abraço

exatamente Ao final do projeto, basta gerar o pacote de instalação da aplicação na web. Sua aplicação feita em Delphi for PHP poderá ser executada em qualquer plataforma com PHP (Linux, Windows, Solaris etc).

Sugiro a voce usar o delphi for php http://br-linux.org/linux/delphi-para-php abraço

Leia com atenção este artigo http://www.howtodothings.com/pt/computador...a-web-em-delphi abraço

Tente este componente http://www.sourcecodeonline.com/details/de...ersistence.html abraço

Acho que voce precisa ler um pouco mais sobre o delphi neste endereço voce vai encontrar varias apostilas de delphi ( do basico ao avançado ) http://www.apostilando.com/sessao.php?cod=13 abraço

uma das maneiras SQLDataSet.Close; SQLDataSet.CommandText := ' Select * From Tabela Where ' + ' Upper(Campo1) like :Valor'; SQLDataSet.ParamByName('Valor').AsString := '%' + Edit1.Text + '%'; SQLDataSet.Open; Utilizando IBX IBQuery.Close; IBQuery.Sql.Clear; IBQuery.Sql.Add('Select * From Tabela Where'); IBQuery.Sql.Add('Upper(Campo1) like :Valor'); IBQuery.ParamByName('Valor').AsString := '%' + Edit1.Text + '%'; IBQuery.Open; Use um componente ApplicationEvents // para mudar com ENTER ao invés do TAB procedure TFPesquisa.MudarComEnter(var Msg: TMsg; var Handled: Boolean); begin if (ActiveControl is TDBGrid) then begin with TDBGrid(ActiveControl) do Application.OnMessage := ApplicationEvents1.OnMessage; end else If not ((Screen.ActiveControl is TCustomMemo) or (Screen.ActiveControl is TCustomGrid) or (Screen.ActiveForm.ClassName = 'TMessageForm')) then begin If Msg.message = WM_KEYDOWN then begin Case Msg.wParam of VK_RETURN,VK_DOWN : Screen.ActiveForm.Perform(WM_NextDlgCtl,0,0); //,VK_TAB VK_UP : Screen.ActiveForm.Perform(WM_NextDlgCtl,1,0); end; end; end; end; // e no evento OnMessage do ApplicationEvents1 coloque este código procedure TFPesquisa.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var i: SmallInt; begin if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do begin if Msg.message = WM_MOUSEWHEEL then begin Msg.message := WM_KEYDOWN; Msg.lParam := 0; i := HiWord(Msg.wParam); if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN; Handled := False; end; end; end; procedure TFPesquisa.FormActivate(Sender: TObject); begin Application.OnMessage := MudarComEnter; end; OBS: Desta maneira voce pode rolar com o scroll do mouse todos os registros de um dbgrid abraço

Procure no forum que voce vai encontrar alguns topicos resolvidos http://scriptbrasil.com.br/forum/index.php...e=login+e+senha abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...te=quick+report abraço

Tente estes endereços: http://superdownloads.uol.com.br/download/109/lazarus/ http://www.apostilando.com/download.php?co...ma%C3%A7%C3%A3o http://www.softwarelivreparana.org.br/modu...wcat.php?cid=20 abraço

De maneira bem simplista voce pode colocar em um form os seguintes componentes um Edit um botao um WebBrowser e use o seguinte código procedure TForm1.Button1Click(Sender: TObject); Var ConsultaEndereco : string; begin ConsultaEndereco := 'http://www.google.com.br/search?hl=pt-BR&q='+TRIM(Edit1.Text)+'&meta=&aq=0&o que='; ConsultaEndereco := ConsultaEndereco + TRIM(Edit1.Text); WebBrowser1.Navigate(ConsultaEndereco); end; OBS: no edit voce digita o medicamento e ele traz os endereços onde existem informãções a respeito dele na verdade este código serve para pesquisar no google usando qualquer palavra abraço

isso mesmo use o comando application.Terminate; abraço

com relação ao seu programa somente com estes componentes é bem estranho .. pode até ser vírus este seu executável deveria estar em torno de 200 k no máximo quando digo que memória não é problema é porque hoje voce pode trocar seu pente de memória por outro de maior capacidade sem problemas.. no entanto o processador e dependendo do chipset não dá pra discutir exemplo: tenho máquinas que não suportam a instalação do interbase, não por falta de memória e sim pelo fato do processador ser lento. entendeu ? abraço

existe... voce pode usar .... ZQuery1.Open; mas não creio que seja este o problema... talvez voce tenha esquecido de setar alguma propriedade do ZQuery ou do ZConnection1. ou pode ser a maneira como construiu a sua select reveja o seu código abraço

O uso de memória não é problema, mas o uso de CPU sim No gerenciador de tarefas do windows voce pode perceber que quando voce está com o IEXPLORE aberto, e vai abrindo novas páginas na internet, o tamanho da memória usada para o IEXPLORE vai aumentando sem necessariamente aumentar significativamente o uso da CPU entretanto uma pesquisa sql pode usar 100% de processamento da CPU, o que travaria outras funções o tamanho que ficar o seu executável é o tamanho que será usado pela memória, entretanto este mesmo executável pode exigir 100 % do processamento da CPU, dependendo do tipo de select feito em suas tabelas abraço

Não pode abrir um ResultSet Junto com o ZQuery voce deve usar um DataSource abraço