Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Veja no manual de linguagem de programação http://www.dnautomacao.com.br/produto.asp?codSeqProduto=638 abraço
  2. para não dar erro no delphi seria uses math; cos((arctan(E2/D2))) and ((tan(arccos(F2))-(tan(arccos(G2))))* H2; veja tambem: http://www.efg2.com/Lab/Library/Delphi/Mat...ons/General.htm abraço
  3. Jhonas

    Dúvida com dbgrid

    Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...lite=dbcombobox abraço
  4. abra o prompt do DOS e digite o seguinte comando para restaurar as configuração originais da impressora. ^default calibrar xa ou ^@ Este comando RESETA a impressora. abraço
  5. se voce tiver o codigo em VB e possivel converte-lo para delphi existe essa dica, mas vai precisar de outros arquivos, que voce terá que procurar na net unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses setupapi; function Muda(Estado, PlacaDeRede: cardinal): boolean; //Estado 1 = habilita, 0 = desabilita var PropChangeParams: SP_PROPCHANGE_PARAMS; DeviceInfoData: SP_DEVINFO_DATA; hDI: HDEVINFO; State: Cardinal; begin result := false; case Estado of 0: State := DICS_DISABLE; 1: State := DICS_ENABLE; else exit; end; if not IsSetupApiLoaded then if not LoadSetupApi then exit; try hDI := SetupDiGetClassDevs(@GUID_DEVCLASS_NET, nil, 0, DIGCF_PRESENT); if cardinal(hDI) = INVALID_HANDLE_VALUE then exit else try DeviceInfoData.cbSize := SizeOf(SP_DEVINFO_DATA); if not SetupDiEnumDeviceInfo(hDI, PlacaDeRede, DeviceInfoData) then Exit; PropChangeParams.ClassInstallHeader.InstallFunction := DIF_PROPERTYCHANGE; PropChangeParams.ClassInstallHeader.cbSize := SizeOf(SP_CLASSINSTALL_HEADER); PropChangeParams.Scope := DICS_FLAG_GLOBAL; PropChangeParams.StateChange := State; if not SetupDiSetClassInstallParams(hDI, @DeviceInfoData, PSPCLASSINSTALLHEADER(@PropChangeParams), SizeOf(PropChangeParams)) then Exit; if not SetupDiCallClassInstaller(DIF_PROPERTYCHANGE, hDI, @DeviceInfoData) then Exit; Result := True; finally SetupDiDestroyDeviceInfoList(hdi); end; finally UnloadSetupApi; end; end; // Use esta função chamando Muda(Estado 1-> habilita 0-> desabilita, // em ordem de instalação de 0 até o numero de placas de rede - 1); procedure TForm1.button1Click(Sender: TObject); begin // desabilita a placa de rede instalada Muda(0,0); end; procedure TForm1.button2Click(Sender: TObject); begin // habilita a placa de rede instalada Muda(1,0); end; end. abraço
  6. Jhonas

    Ficheiro XML

    Eugenio... se voce quiser salvar tabelas com estrutras direferentes em um unico XML não vai conseguir, talvez tenha que fazer alguma transformação http://edn.embarcadero.com/article/37321 abraço
  7. //para desativar a conexão especifica de rede: procedure TForm1.Button1Click(Sender: TObject); begin WinExec(pchar('cmd /c ipconfig/release Conexão local'),SW_HIDE); end; //para reativar a conexão especifica de rede: procedure TForm1.Button2Click(Sender: TObject); begin WinExec(pchar('cmd /c ipconfig/renew Conexão local'),SW_HIDE); end; //para desativar todas as conexões de rede que comecem com "Con': procedure TForm1.Button1Click(Sender: TObject); begin WinExec(pchar('cmd /c ipconfig/release *Con*'),SW_HIDE); end; //para reativar todas as conexões de rede que comecem com "Con': procedure TForm1.Button2Click(Sender: TObject); begin WinExec(pchar('cmd /c ipconfig/renew *Con*'),SW_HIDE); end; //para desativar todas as conexões de rede que comecem com "EL': procedure TForm1.Button1Click(Sender: TObject); begin WinExec(pchar('cmd /c ipconfig/release *EL*'),SW_HIDE); end; //para reativar todas as conexões de rede que comecem com "EL': procedure TForm1.Button2Click(Sender: TObject); begin WinExec(pchar('cmd /c ipconfig/renew *EL*'),SW_HIDE); end; abraço
  8. na verdade eu preciso desabilitar e habilitar a conexão //para desativar a conexão de rede: procedure TForm1.Button1Click(Sender: TObject); begin WinExec(pchar('cmd /c ipconfig/release'),SW_HIDE); end; //para reativar a conexão de rede: procedure TForm1.Button2Click(Sender: TObject); begin WinExec(pchar('cmd /c ipconfig/renew'),SW_HIDE); end; abraço
  9. exemplo: // Conecta a uma unidade de rede procedure TForm1.button1Click(Sender: TObject); begin WNetConnectionDialog(Handle,RESOURCETYPE_DISK); end; // Desconecta de uma unidade de rede procedure TForm1.button2Click(Sender: TObject); begin WNetDisconnectDialog(Handle,RESOURCETYPE_DISK); end; abraço
  10. Não dá pra advinhar o que voce fez, então, sempre coloque o seu código ... fica mais facil te ajudar abraço
  11. veja como usar a clausula IF no Matlab http://www.del.ufms.br/tutoriais/matlab/ca...o7.htm#item_7_3 abraço
  12. Exemplo: Conectar a um servidor FTP e recuperar o arquivo README na pasta MATLAB atual: mw = ftp ("ftp.mathworks.com '); mget (mw, 'README'); close (mw); abraço
  13. veja esses links http://pt.wikipedia.org/wiki/Batch http://batch-satti.forumeiros.com/ abraço
  14. para voce que esta começando, veja: http://www.python.org.br/wiki/DocumentacaoPython http://www.python.org.br/wiki/Documentacao...et=python24.pdf http://www.tutorialspoint.com/python/ abraço
  15. veja esse material http://www.python.org.br/wiki/DocumentacaoPython http://www.python.org.br/wiki/Documentacao...et=python24.pdf http://www.tutorialspoint.com/python/ abraço
  16. Jhonas

    Ficheiro XML

    voce terá que fazer uma união entre as 2 tabelas usando um campo comum às duas. exemplo: SELECT prf_profissao.COD, prf_profissao.id_profissao, prf_profissao.profissao, tit_titulo.id_titulo, tit_titulo.titulo FROM prf_profissao INNER JOIN tit_titulo ON (prf_profissao.COD = tit_titulo.COD) OBS: Não use o mesmo nome de campo para o nome da tabela, isso causa problemas veja que existe um campo COD para a tabela prf_profissao e existe um campo COD para a tabela tit_titulo dessa maneira voce pode unir as duas tabelas e gerar apenas um resultado no ClientDataSet e assim poder salvar o seu conteudo ClientDataSet1.SaveToFile('c:\teste.xml'); abraço
  17. veja essas apostilas https://www.scriptbrasil.com.br/apostilas/programas/delphi/ abraço
  18. material sobre o assunto http://www.t2ti.com/curso/video/delphi/ini...os/Modulo10.pdf http://www.delphibr.com.br/artigos/des_qr.php http://www.planetadelphi.com.br/busca/quick%20report http://www.qusoft.com/WebInfoPage.aspx?WebInfoID=620 videos: http://www.youtube.com/watch?v=YdOsNonHJ4Y OBS: Veja na pasta demos do delphi, tem exemplos sobre o uso do quick report abraço
  19. Faça uma pesquisa no forum... http://scriptbrasil.com.br/forum/index.php...te=quick+report OBS: se não encontrar o que procura, informe abraço
  20. normalmente o erro de key violation ocorre quando foi definido um campo para chave primaria ( tipo código ) e voce tenta inserir um numero de código que já existe. para solucionar esse problema, ou voce pega o ultimo registro e acrescenta mais 1 ao numero, ou tira a chave primaria desse campo, ou ainda usa um campo auto-incremento. abraço
  21. existem algumas maneiras... uma delas seria procedure TForm1.MaskEdit1Exit(Sender: TObject); begin if maskedit1.Text = ' - ' then begin showmessage('PLACA NÃO PODE SER VAZIA'); ComboBox1.setfocus; end else ComboBox1.setfocus; end; procedure TForm1.ComboBox1Click(Sender: TObject); begin MaskEdit1.EditText := ComboBox1.Items.Strings[ComboBox1.ItemIndex]; end; procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char); begin if key = #27 then BitBtn1.SetFocus; end; procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char); begin if key = #27 then BitBtn1.SetFocus; end; abraço
  22. tente assim procedure TForm1.MaskEdit1Exit(Sender: TObject); begin if maskedit1.Text = ' - ' then begin showmessage('PLACA NÃO PODE SER VAZIA'); ComboBox1.setfocus; end else ComboBox1.setfocus; end; procedure TForm1.ComboBox1Click(Sender: TObject); begin MaskEdit1.EditText := ComboBox1.Items.Strings[ComboBox1.ItemIndex]; end; abraço
  23. sugestão: use um componente MaskEdit por cima do Combobox abraço
  24. coloque o seu código, fica mais facil para te ajudar abraço
  25. Desculpe ... me confundi No Band Style Editor Selecione: http://www.consist.it/rave_visual.htm abraço
×
×
  • Criar Novo...