Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. veja http://www.sbf1.sbfisica.org.br/eventos/sn...mos/T0242-1.pdf abraço
  2. a logica Inicio inteiro: i, j; m: vetor[1..4, 1..4] de inteiro; para i de 1 até 4 faça para j de 1 até 4 faça imprima(“Digite um número:”); leia(m[i, j]); fim para; fim para; para i de 1 até 4 faça para j de 1 até 4 faça imprima (m[i, j]); fim para; fim para; fim. abraço
  3. a melhor linguagem seria assembler, mas não seria a mais indicada por ser em liguagem de maquina ... então voce pode partir para uma linguagem de alto nivel, tipo c++, visual c++, delphi, java ... etc o uso da linguagem, depende do que voce pretende fazer ... abraço
  4. Jhonas

    SELECT ESTOQUE

    veja http://www.google.com.br/search?hl=pt-BR&a...405l2-6.2.1l9l0 abraço
  5. exemplo: http://www.planetadelphi.com.br/dica/5329/...do-para-o-excel abraço
  6. como voce pode perceber, a definição dos campos da sua tabela, e os campos que servirão de indices tem que estar corretos. veja o manual do mysql http://dev.mysql.com/doc/refman/5.1/en/ abraço
  7. veja na terceira pagina http://continuepensando.files.wordpress.co...pplication1.pdf abraço
  8. Faça uma pesquisa no Forum ... já tem varios posts sobre a sua duvida http://scriptbrasil.com.br/forum/index.php...e=resolu%E7%E3o abraço
  9. pesquise no forum por ECF ou NFE http://scriptbrasil.com.br/forum/index.php...2067&hl=ecf abraço
  10. veja se nesse cd (curso de windows xp) na parte central, proximo ao eixo de rotação, existe um código de barra ou um codigo escrito
  11. no forum tem posts relacionados ... vej se ajuda https://www.scriptbrasil.com.br/forum/lofiv....php/t6667.html abraço
  12. veja http://sites.google.com/site/xhcode/programas abraço
  13. exemplos para te ajudar http://www.ee.usyd.edu.au/tutorials_online...xtras/plot.html abraço
  14. exemplo: program teste; uses crt; var num,i,cont:integer; begin cont:=0; readln(num); if num>3 then for i:=1 to num do begin if num mod i=0 then cont:=cont+1; end; if (cont=2) or (cont=0) then writeln('O numero ',num,' é primo') else writeln('O numero ',num,' não é primo'); readkey; end. abraço
  15. pode ate causar, pois esta alterando o registry do windows no final esta reportando para esta pagina www.gempi.com.br abraço
  16. se voce esta indexando o seu campo cod_cliente, voce não pode preencher com ZEROFILL ... ele tem que ficar em branco abraço
  17. DBX Error: Unsupported field type. Tipo de campo não suportado OBS: Veja as definições de campos para o MYSQL http://help.scibit.com/mascon/masconMySQL_Field_Types.html abraço
  18. a melhor maneira seria assim... exemplo: StatusBar1.Panels[0].Text := IBDataSet1ASSIST.Value; no seu caso IBDataSet1.Active := false; IBDataSet1.SelectSQL.Clear; IBDataSet1.SelectSQL.Add(strSql); IBDataSet1.Active := true; StatusBar1.Panels[0].Text:= 'INC: ' + IBDataSet1data_inc.Value; StatusBar1.Panels[1].Text:=' ALT: ' + IBDataSet1data_alt.Value; StatusBar1.Panels[3].Text:= ' ' + IBDataSet1ID.Value; abraço
  19. No MCI device open pode ser um arquivo de som no topo da pop-up está escrito moinho.treinamento (este arquivo não existe, só existe cdviewer.exe) limpe a lista do pop_up ( se for um componente que voce esta usando ) copie do HD para o CD .... OBS: pode ter arquivos ocultos que não são copiados, se voce não não torna-los visivel abraço
  20. Colega, antes de postar, faça uma pesquisa no forum, para saber se já existe algo a respeito sobre sua dúvida http://scriptbrasil.com.br/forum/index.php...st&p=251307 abraço
  21. use o QuickDesk, ou outro para verificar o estado da tabela http://www.freedownloadscenter.com/Program...k_Download.html abraço
  22. O código funciona perfeitamente ... o evento OnDrawDataCell funciona como um loop infinito ... ele é acionado assim que o form é ativado, e fica sendo executado, até que o form seja desativado ou fechado. vale lembrar que a figura deverá ser do tipo bmp ( obs: a figura deverá ter o tamanho do dbgrid, para que o mesmo seja preenchido totalmente )... outro tipo causará erro obs: acabei de testar aqui... está funcionando unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, Grids, DBGrids, jpeg, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Image1: TImage; DBGrid1: TDBGrid; Query1: TQuery; DataSource1: TDataSource; 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 abraço
  23. mas o código esta correto http://delphitutorial.info/how-to-make-tra...ent-dbgrid.html abraço
×
×
  • Criar Novo...