Jhonas

não tem não ... abraço

em um daqueles tópicos voce iria achar um link para isso: Criar na seção type da sua unit principal a seguinte procedure: procedure DoEnterAsTab(var Msg: TMsg; var Handled: Boolean); digite CTRL+SHIT+C pra implementar a mesma. Em sua implementação codificar: procedure TfrmPrincipal.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean); begin if Msg.Message = WM_KEYDOWN then if Msg.wParam = VK_RETURN then Keybd_event(VK_TAB, 0, 0, 0); end; No evento onCreate do form principal codificar o seguinte: procedure TfrmPrincipal.FormCreate(Sender: TObject); begin Application.OnMessage := DoEnterAsTab; end; Pronto daqui para frente você pode trocar a tecla tab pelo enter em todos os seus formulários, e mudará de campo com a tecla < Enter >. OBS: quando peço para pesquisar é porque sei que voce vai achar o que esta querendo em um dos posts.. ok ? abraço

var i: integer; NomeCampo: String; begin dm.q_pag_inq.First; While Not dm.q_pag_inq.Eof Do Begin dm.q_gerados_inq.Append; For i := 0 To dm.q_pag_inq.FieldCount - 1 Do Begin NomeCampo := dm.q_pag_inq.Fields[i].FieldName; dm.q_gerados_inq.FieldbyName(NomeCampo).Value := dm.q_pag_inq.FieldbyName(NomeCampo).Value; End; dm.q_gerados_inq.Post; dm.q_pag_inq.Next; Application.ProcessMessages; End; End; Essa rotina só vai funcionar se as tabelas estiverem a mesma estrutura. Se você estiver usando interbase, pode usar um comando mais simples insert into tabela2 select * from tabela1 abraço

q_gerados_inq: Dataset not in edit or insert mode O DataSet não esta em modo de edição ou inserção experimente assim: while dm.q_pag_inq.Eof do begin dm.q_gerados_inq.Last; dm.q_gerados_inq.append; dm.q_gerados_inq.Edit; dm.q_gerados_inq.Fields[0].value := dm.q_pag_inq.Fields[0].value; dm.q_pag_inq.next; end; abraço

se voce já tem os dados resultantes de uma sql, e quer Copiar registro de uma tabela para outra faça: usando table while not Table2.Eof do begin Table1.Fields[0].value := Table2.Fields[0].value table2.next end ou usando query while not Query1.Eof do begin Query2.Fields[0].value := Query1.Fields[0].value Query1.next end ou usando ClientDataSet1 while not ClientDataSet1.Eof do begin ClientDataSet2.Fields[0].value := ClientDataSet1.Fields[0].value ClientDataSet1.next end OBS: a estrutura de ambas as tabelas deve ser a mesma.

se voce estiver usando o TIBUpdateSQL... sim duvidas ... leia ( as diferenças são minimas do FB 1.0 para o FB 2.5 ) seria mais para voce entender os comandos http://www.comunidade-firebird.org/cflp/do...s/CFLP_O012.PDF abraço

eu te passei 1 componente que voce deve instalar, o outro é um componente tambem e um exemplo do seu uso. pesquise no google por Vu Meter delphi , voce vai achar muitos exemplos, inclusive com gauge abraço

voce precisa usar Tab por Enter ... veja no forum http://scriptbrasil.com.br/forum/index.php...e=tab+por+enter abraço

solução da microsoft http://support.microsoft.com/kb/911799 abraço

Erro 1402. Não foi possível abrir a chave: UNKNOWN\Installer\Products\C560CFAE67509ED4F8BDD449337605E6\SourceList\Media. Verifique se tem acesso suficiente a essa chave, ou contate o pessoal de suporte. veja a parte de Resolução http://support.microsoft.com/kb/236592 abraço

veja http://scriptbrasil.com.br/forum/index.php...st&p=601306 http://forum.imasters.com.br/topic/388746-...ritmos-visualg/ abraço

voce terá que optar por outros componentes, que tenham essa propriedade abraço

Column does not belong to referenced table. Dynamic SQL Error. SQL error code = -206. Column unknown. TABELA1.STATUS. Firebird 1.5 IF (TABELA1.STATUS <> 'C') THEN BEGIN UPDATE TABELA2 SET TABELA2.CAMPO2 = 'S' WHERE TABELA2.CAMPO1 = TABELA1.CAMPO1; END FireBird 2.5 IF (NEW.STATUS <> 'C') THEN BEGIN UPDATE TABELA2 SET TABELA2.CAMPO2 = 'S' WHERE TABELA2.CAMPO1 = NEW.CAMPO1; END Na versão 2.5 tem que utlizar NEW(no caso do insert ou update) ou OLD ( no caso do delete) abraço

compilando e rodando fortran http://www.fortran.gantep.edu.tr/compiling...asic-guide.html http://www.fis.unb.br/utlmanfortran.html abraço

exemplos: http://codigofonte.uol.com.br/codigos/js-dhtml/validacao abraço

exemplos: http://codigofonte.uol.com.br/codigos/js-dhtml/validacao abraço

exe: http://www.inf.ufsc.br/~raul/livro/05-Caso...asDeSIstema.ppt http://www.dsc.ufcg.edu.br/~sampaio/cursos...es/usecases.htm abraço

exemplo http://www.fergonez.net/files/tut_sistoper.pdf abraço

Gratis é dificil http://www.zephyrcorp.com/api/hllapi-interface.htm http://baixar7.com/gratis-HLLAPI/ abraço

exemplo: ; Assemble options needed: none .MODEL SMALL,C .STACK .DATA mybuf BYTE 10 DUP (' ') pstring BYTE 0Dh,0Ah,"enter data: " ostring BYTE 0Dh,0Ah,"data entered: " abyte BYTE ? .CODE .STARTUP ; prompt user mov bx, 1 ; stdout mov cx, LENGTHOF pstring mov dx, SEG pstring mov ds, dx mov dx, OFFSET pstring mov ah, 40h INT 21h ; ignore possible errors ; read data mov bx, 0 ; stdin mov cx, LENGTHOF mybuf mov dx, SEG mybuf mov ds, dx mov dx, OFFSET mybuf mov ah, 3Fh INT 21h ; ignore possible errors mov bx, 1 ; stdout mov cx, LENGTHOF ostring mov dx, SEG ostring mov ds, dx mov dx, OFFSET ostring mov ah, 40h INT 21h ; ignore possible errors mov bx, 1 ; stdout mov cx, LENGTHOF mybuf mov dx, SEG mybuf mov ds, dx mov dx, OFFSET mybuf mov ah, 40h INT 21h ; ignore possible errors ; clear buffer mov bx, 0 ; stdin mov cx, 1 mov dx, SEG abyte mov ds, dx mov dx, OFFSET abyte mov ah, 3Fh INT 21h mov al, abyte cmp al, 0Ah jne clearbuf .EXIT END abraço

veja http://www.lncc.br/~gazoni/tutorial/Aponta...ATLAB_INTRO.pdf http://www.aedb.br/seget/artigos08/465_Eli...auss%5B1%5D.pdf http://www.cis.udel.edu/~portnoi/academic/...limination.html abraço

veja http://ensino.univates.br/~chaet/Materiais/CURSOmatlab52.pdf abraço

veja o manual http://ensino.univates.br/~chaet/Materiais/CURSOmatlab52.pdf abraço

Veja o manual http://www.inf.pucrs.br/~manssour/AWK/index.html abraço

exe: var i, x, y, mmc: Integer; begin Readln(x); Readln(y); mmc := x * y; for i := 1 to y do if (x*i mod x = 0) and (x*i mod y = 0) and (x*i < mmc) then mmc:= x*i; Writeln(mmc); end. abraço