Destaque

Trabalhando com transações com PHP e MySQL Transações é um recurso muito interessante do MySQL, pois permite que você execute uma sequência de comandos SQL de uma só vez, permitindo que você execute determinadas inserções, somente se todas as inserções forem realizadas com sucesso. Isto assegura que você mantenha seu banco...

Read more

PHP: Detectando Browsers diferentes Segue uma função simples abaixo para detectar o navegador que o usuário está usando, inclusive para o Internet Explorer 10

Read more

Windows Seven: Ativando a conta de Administrador Por padrão, a conta de Administrador no Windows Seven vem desabilitada, portanto, mesmo se você possui permissões de Administrador no sistema, sempre que for necessário alguma tarefa específica, como por exemplo, instalação de softwares ou drivers, o Controle de Conta de Usuário (UAC) será acionado,...

Read more

PHP: Função só número com Expressão Regular Existe uma função no PHP que permite filtrar valores de uma variável, deixando passar somente os valores que desejamos. Veja no exemplo abaixo function soNumero($str) { return preg_replace("/[^0-9]/", "", $str); } $filtro = soNumero("teste321"); echo $filtro; // 321 fonte:...

Read more

Delphi: Variáveis do tipo Variants Esta flexível e poderosa Estrutura de Dados, que popularizou-se bastante através da linguagem Clipper, carrega consigo recursos extremamente interessantes para a manipulação de tipos e trabalhos com arrays. Mas o melhor de tudo, é que, estes recursos estão disponíveis a nós, “Programadores...

Read more

Delphi: CheckCombobox

0

Postado em : 05-06-2012 | By : Paulo H Oliveira | In : Delphi

Algumas vezes precisamos selecionar mais de um item na tabela para filtrar determinados registros, podemos usar o cxCheckComboBox da DevExpress para isso conforme mostra o exemplo abaixo:

uses
  cxCheckBox, cxLookAndFeelPainters  
 
...
 
procedure TForm1.FormShow(Sender: TObject);
Var
 CheckComboboxItem: TcxCheckComboboxItem;
begin
  qryEmpresas.Open;
  while not qryEmpresas.Eof do
  begin
    CheckComboboxItem := ckbEmpresas.Properties.Items.AddCheckItem(qryEmpresas.FieldByName('NOME').AsString);
    CheckComboboxItem.Tag := qryEmpresas.FieldByName('ID').AsInteger;
    qryEmpresas.Next;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  s := '';
  for i:=0 to ckbEmpresas.Properties.Items.Count - 1 do
  begin
    if ckbEmpresas.States[i] = cbsChecked then
      s := s+IntToStr(ckbEmpresas.Properties.Items[i].Tag)+' ';
  end;
  ShowMessage(s);
end;

Delphi: WebServices

0

Postado em : 04-06-2012 | By : Paulo H Oliveira | In : Delphi, Internet, Tecnologia

WebServices

Emerson Facunte

Para explicar de maneira adequada o significado da tecnologia WebServices, é interessante fazer uma breve introdução aos problemas atuais no mundo da tecnologia.

Read the rest of this entry »

Delphi: Resolução de video

0

Postado em : 25-03-2012 | By : Paulo H Oliveira | In : Delphi

As vezes precisamos fazer com que nosso form principal, seja redimensionado conforme a configuração de video de nossos clientes, segue uma dica para que
todos os componentes do form sejam redimensionados em sua criação.

Read the rest of this entry »

Delphi: Teclas de atalhos

0

Postado em : 23-03-2012 | By : Paulo H Oliveira | In : Delphi

Olá galera, nesta Quick Tips, irei mostrar uma lista de várias teclas de atalho que nos ajudam no dia-a-dia nesta maravilhosa ferramenta de desenvolvimento que é o Delphi, além de ser rápida tem várias teclas de atalho para facilitar o desenvolvimento.

Read the rest of this entry »

Delphi: Função BreakApart()

0

Postado em : 17-02-2012 | By : Paulo H Oliveira | In : Delphi

Esta função eu fiz para quebrar uma string pelo último espaço em branco e retornar um StringList.

function BreakApart(strBase: String; iColunas: Integer):TStringList;
var
  sStr: String;
  i: Integer;
  Strings : TStringList;
begin
  Result := TStringList.Create;
  if Length(strBase) <= iColunas then
    Result.Add(strBase)
  else
  begin
    Strings               := TStringList.Create;
    Strings.Delimiter     := ' ';
    Strings.DelimitedText := strBase;
    sStr                  := '';
    for i:=0 to Strings.Count - 1 do
    begin
      if Length(Trim(sStr + ' ' +Strings[i])) >= iColunas then
      begin
        Result.Add(Trim(sStr));
        sStr := '';
      end;
      sStr := Trim(sStr + ' ' +Strings[i]);
    end;
    if sStr <> '' then
      Result.Add(Trim(sStr));
  end;
end;

Delphi: Criptografia em Base64

0

Postado em : 10-02-2012 | By : Paulo H Oliveira | In : Delphi

Segue abaixo duas funções EncodeBase64 e DecodeBase64 para criptografias de strings.

Read the rest of this entry »

Delphi: Input Query com Senha

0

Postado em : 25-08-2011 | By : Paulo H Oliveira | In : Delphi

As vezes temos a necessidade de usar o input query em algumas vezes para informar uma senha, para que ninguem veja a senha digitada segue um exemplo de mascara-la.

Read the rest of this entry »

Delphi: Salvar layout das cxGrids

0

Postado em : 21-07-2011 | By : Paulo H Oliveira | In : Delphi

Galera,  para salvar o último layout do cxGrid definido pelo usuário que usou a máquina:

Read the rest of this entry »

Delphi: cxGrid Deixar Colunas Fixas

1

Postado em : 21-07-2011 | By : Paulo H Oliveira | In : Delphi

Galera, para fixar um coluna no cxGrid da DevExpress você deve usar o DBBandView em vez de DBTableView, e definir a propriedade FixedKind para fkLeft e a propriedade Options.HoldOwnColumnsOnly para True

Read the rest of this entry »

Delphi: Exportar dados do cxGrid para Excel, Texto, XML e HTML

0

Postado em : 14-07-2011 | By : Paulo H Oliveira | In : Delphi

Como eu precisei exportar os dados de um cxGrid (DevExpress QuantumGrid) para Excel, achei essa solução muito boa e ele exporta como a Gride está, com os agrupamentos e totais, caso existam na hora da exportação.

Read the rest of this entry »