Jhonas

se todos os dados foram inseridos, a tabela já foi atualizada ... entretanto se voce quer alterar algum dado da tabela voce vai usar o procedimento usual que é usar um DBGrid para visualizar a tabela e os comandos para salvar as alterações pesquise no forum ... tem varios exemplos abraço

acho que voce já viu essa dica unit fTransparentGrid; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, Grids, DBGrids, ADODB, ExtCtrls; type TForm1 = class(TForm) ADOTable1: TADOTable; // ignorar se você não estiver usando componente ADO para acessar a tabela DataSource1: TDataSource; Image1: TImage; Panel1: TPanel; DBGrid1: TDBGrid; procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); var Text: string; Rct: TRect; begin Text := Field.AsString; Rct:= Rect; DBGrid1.Canvas.Brush.Color := clWhite; DBGrid1.Canvas.FillRect (Rct); BitBlt(DBGrid1.Canvas.handle, Rct.left, Rct.top, Rct.right - Rct.left, Rct.bottom - Rct.top, Image1.Canvas.Handle, Rct.left + DBGrid1.Left + Panel1.Left, Rct.Top + DBGrid1.Top + Panel1.Top, SRCCOPY); SetBkModE(DBGrid1.Canvas.Handle, TRANSPARENT); inc(Rct.Top ,2); inc(Rct.Left ,2); DBGrid1.Canvas.Font.Color := clBlack; DrawtextEx(DBGrid1.Canvas.Handle, PChar(Text), Length(Text), Rct, DT_WORDBREAK, nil); end; procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Panel1.Perform(WM_SYSCOMMAND, $F012, SC_MOVE); Application.ProcessMessages; BitBlt(GetDc(Panel1.Handle), 0, 0, Panel1.Width, Panel1.Height, Image1.Canvas.Handle , Panel1.Left, Panel1.Top, SRCAND); DBGrid1.refresh; end; end. abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...te=cheat+engine http://scriptbrasil.com.br/forum/index.php...;highlite=cheat abraço

veja http://scriptbrasil.com.br/forum/index.php?showtopic=154857 http://www.youtube.com/watch?v=OS6EUmRT0Yo http://forum.imasters.com.br/topic/394433-...ium-megaupload/ http://forum.imasters.com.br/topic/383708-...ium-megaupload/ outros http://www.google.com.br/search?hl=pt-BR&a...84l0.1.6.2.2l11 abraço

voce pode usar linhas de comentario na dll sem problemas... depois de um tempo basta olhar o comentario para lembrar o que foi feito abraço

o Pe Explorer é um programa muito bom para abrir dlls... mas está em ingles ( use o tradutor do google para ajudar ) http://translate.google.com.br/translate?h...ort_viewer.html outros programas para abrir dlls http://www.fileinfo.com/extension/dll abraço

vamos as possiveis soluções: Em Options do DBGrid, deixe a propriedade dgIndicator = true procedure TFAdm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin // fixar a primeira coluna do dbgrid TDrawGrid( DBGrid1 ).FixedCols := 2; // fixa a primeira coluna TDrawGrid( DBGrid1 ).Canvas.Font.Size := 9; // tamanho da fonte do titulo TDrawGrid( DBGrid1 ).Canvas.TextOut(0,0,' COD'); // nome do titulo da coluna end; outra solução http://www.planetadelphi.com.br/downloading/127 abraço

tem sim... mas para fazer isso, a primeira coluna (0) terá que mudar de lugar para se manter visivel, durante a rolagem da barra então por exemplo: col(0), col(1), col(2), col(3), col(4), col(5), col(6), col(7) então quando voce rolar a barra sera: col(0), col(1), col(2), col(3), col(4), col(5), col(6), col(7), col(8) // movendo a barra col(0), col(1), col(2), col(3), col(4), col(5), col(6), col(7),col(8), col(9) // movendo a barra col(0), col(1), col(2), col(3), col(4), col(5), col(6), col(7),col(8), col(9), col(10) // movendo a barra ou seja o valor da sua coluna(0) deverá mudar de lugar com a coluna(1), coluna(2), coluna(3) e assim por diante ate chegar ao final da barra o processo inverso tambem deverá ocorrer pense a respeito... se não conseguir passo um exemplo depois abraço

OK... vamos retornar ao começo voce quer mostrar um campo Lookup no dbgrid ... certo ? esse campo é calculado ? ou um Lookup ? Dm.CdsForma.Close; Dm.CdsPagtoPGT_CPS.AsInteger:=Dm.CdsMovVEN_CODIGO.AsInteger; Dm.CdsPagtoPGT_CODIGO.AsInteger :=Dm.CdsFormaFGT_CODIGO.AsInteger; Dm.CdsPagtoPGT_VALOR.AsFloat:=Dm.CdsItemTotalG.AsFloat; Dm.CdsPagtoPGT_USUARIO.AsInteger:=Dm.usuariocodigo; Dm.CdsPagtoPGT_CADASTRO.AsDateTime:=Date; Dm.CdsPagtoPGT_DATA.AsDateTime:=Date seu código esta incompleto ... pois esta faltando a edição dos campos, e posterior salvamento na tabela Dm.CdsPagto.Edit; Dm.CdsPagto.Post; se o campo for calculado, o valor será mostrado somente no dbgrid e não será salvo na tabela se o campo for lookup, o seu valor estará atrelado a chave do registro e o valor não poderá ser alterado então, por favor seja mais explicito em sua explicação, pois esta meio confuso o entendimento abraço

arquivos com extensões diferentes, somente fazendo a conversão individual para pdf ... existem programas pagos na net pelo delphi, só se voce usar o TQRComposite do Quick Report do Delphi ... nesse caso voce converte QR para PDF no forum existem exemplos ... faça uma pesquisa http://scriptbrasil.com.br/forum/index.php...mp;highlite=pdf abraço

para eventos do mouse veja http://delphi.about.com/od/vclusing/a/mouseadvanced.htm faça uma pesquisa no forum ... tem tópicos de como saber o nome da janela ativa http://scriptbrasil.com.br/forum/index.php...ighlite=janelas abraço

Um pequeno exemplo para que voce possa entender... um campo tipo data não pode comportar somente dd/mm ... neste caso o campo terá que ser tipo string procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := datetostr(now); Edit2.Text := formatdatetime('dd/mm',now); end; abraço

eventos do mouse, são padrão para todas as janelas do sistema ... voce que bloquear todos os eventos do mouse, para as janelas do seu sistema ? qual seria a finalidade ? abraço

essa dúvida já foi resolvida em algum tópico, mas não me lembro qual favor pesquisar no forum http://scriptbrasil.com.br/forum/index.php...e=salvar+imagem http://scriptbrasil.com.br/forum/index.php...highlite=imagem abraço

tudo não ... somente os componentes que não forem compativeis com a versão do delphi o código sofrerá somente pequenas alterações abraço

o erro "stack overflow' primeiro Dm.CdsPagtoPGT_CODIGO.AsInteger :=Dm.CdsFormaFGT_CODIGO.AsVariant; Dm.CdsPagtoPGT_CODIGO.AsInteger :=Dm.CdsFormaFGT_CODIGO.AsInteger; sempre use tipos iguais ... é possivel usar variant mas sob certas condições Dm.CdsPagtoPGT_DATA.AsDateTime:=Date; Dm.CdsPagtoPGT_DATA.AsDateTime:=Data; Date é uma palavra reservada do delphi ... isso pode causar erros OBS: Coloque o código no evento OnClick do componente ... o evento OnChange é chamado cada vez que uma tecla do teclado é pressionada abraço

a maneira correta é assim: procedure T_conscomprador.DBLookupComboBox2CloseUp(Sender: TObject); begin Editmemo.text:=TabmemoImovel.Text; DBMemo2.Lines.Append(Editmemo.text + FormatDateTime('dd/mm/yyyy',now)); end; abraço

experimente trocar o nome da tabela ... ou troque a versão do FB abraço

a sua dúvida já foi respondida em outro forum .... o que eu te passei é um complemento para te ajudar abraço

OBS: já tentei usar o access em meus programas, mas desisti ... não vale o esforço uso atualmente MYSQL, Interbase/Firebird e em alguns programas mais antigos Paradox7 voce verá que certas coisas é impossivel fazer com o access abraço

tente recuperar a tabela ( tabela corrompida ) http://www.republicavirtual.com.br/blog/20...erbasefirebird/ ou drop a tabela toda e refaça novamente essa tabela abraço

voce pode usar um Gauge ou um ProgressBar para indicar ao usuario que o processamento esta ocorrendo e que posição esta esse processamento para leitura do aquivo texto ou outro voce pode pegar o valor maximo de linhas do arquivo usando esse exemplo var aList : TStringList; max, lin : integer; begin aList := TStringList.Create; try aList.LoadFromFile('C:\arquivo.txt'); showmessage('Numero de linhas do arquivo: ' + IntToStr(aList.Count)); max := aList.Count; finally aList.Free; end; end; então no seu código voce coloca gauge1.MaxValue := max; AssignFile(f,caminho); Reset(f); //abre o arquivo para leitura; While not eof(f) do begin inc(lin); Readln(f,linha); gauge1.Progress := lin; if pos('F',linha) = 73 then Begin mov := StrToInt(copy(linha,158,6)); txtmov.Text := IntToStr(mov); label9.caption := IntToStr(mov); end; End; Closefile(f); gauge1.Progress := 0; Faça as adaptações necessarias para seu uso... para o resto do código, basta usar a mesma lógica abraço

veja http://underh.nstars.org/t12-delphi-criando-trainer-full abraço

NOTE about 64-bit MySQL is the only software in the main list (Apache, PHP, MySQL) that has a 64-bit Windows version. I did not test the 64-bit version of MySQL, but if you have a 64-bit Windows version, you should be fine if you want to download/install it. Otherwise use the 32-bit version (the 32-bit version will work on either type of machine). com o win7 64-bit voce precisa baixar a versão do MySQL Community Server 5.1.58 http://dev.mysql.com/downloads/mysql/5.1.html http://dev.mysql.com/downloads/mirror.php?id=403048 abraço

Incompatíveis coluna / host tipo de dados variáveis. Erro SQL dinâmico. SQL código de erro = -303. erro de conversão de string "13-MAY-1905". o erro esta na instrução SQL e não na tabela a configuração da data no FB deve ser 13/05/1905 abraço