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: Função para Deixar o Primeiro Caracter do Nome Maiusculo

0

Postado em : 09-06-2011 | By : Paulo H Oliveira | In : Delphi

Aí Pessoal, encontrei esta função da internet que deixa o primeiro caracter de cada palavra maiusculo fazendo excessão as preposições “da”, “de”, “do”

Read the rest of this entry »

Delphi: Calcular Percentuais

0

Postado em : 03-06-2011 | By : Paulo H Oliveira | In : Delphi

Pessoal fiz esta função para calcular percentuais que sempre estamos fazendo a formula toda vez que precisamos, (ValorTotal * Percentual) / 100.
Read the rest of this entry »

Delphi: cxGrid multiselect com bookmark

1

Postado em : 20-05-2011 | By : Paulo H Oliveira | In : Delphi

Olá Pessoal, essa dica é bem útil para quem usa a biblioteca DevExpress e quer manipular registros de uma gride para alterar, ou excluir, etc.

Read the rest of this entry »

Delphi: Função que retorna se um programa está aberto

0

Postado em : 18-05-2011 | By : Paulo H Oliveira | In : Delphi

Verifica se um determinado .exe está em execução, mesmo sendo fora do Delphi, como a Calculadora por exemplo.

Read the rest of this entry »

Delphi: Função de Criptografia de strings

0

Postado em : 18-05-2011 | By : Paulo H Oliveira | In : Delphi

Função de criptografia de strings em Delphi
Depois de testar dezenas de funções de criptografia em delphi que achei pela internet, essa função realmente funciona.

Read the rest of this entry »

Delphi: Dicas de Instalação de Componentes

0

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

Olá Pessoal quem nunca teve dificuldades de instalação de componentes na vida. Bom pensando nisso escrevi esse post para vocês não sofrerem tanto.

Read the rest of this entry »

Delphi: Valor por extenso de taxas

0

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

Quem nunca precisou transformar uma taxa em extenso. Aqui fica minha função que uso para transformar, aproveitem !

Read the rest of this entry »

Delphi: Valor por extenso de moedas

1

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

Quem nunca precisou transformar um valor real em extenso. Aqui fica minha função que uso para transformar, aproveitem !

Read the rest of this entry »

Delphi: Função CriptBin (Criptográfia Binária)

0

Postado em : 12-05-2011 | By : Paulo H Oliveira | In : Delphi

Sabemos que 1 Byte são na verdade 8 Bits numa sequência de 0(s) e 1(s), então se invertemos um desses valores num determinado ponto da seguência teremos outro caracter, não é verdade ? Tendo isso mente vejam a função abaixo:

Read the rest of this entry »

Delphi: Transação DBExpress (Vários exemplos)

0

Postado em : 19-07-2009 | By : Paulo H Oliveira | In : Delphi
var
Transacao: TTransactionDesc;
begin
SQLDataSet1.CommandText:= ‘select ID, NOME from CLIENTES where ID = :id;
SQLDataSet1.ParamByName(‘id’).AsInteger:= 1;
ClientDataSet1.Open; // Note que apenas o TClientDataSet deve ser aberto
with ClientDataSet1 do
begin
Append;
FieldByName(‘ID’).AsInteger:= 2005;
FieldByName(‘NOME’).AsString:= ‘ClubeDelphi’;
Post;
Transacao.TransactionID:= 1;
Transacao.IsolationLevel:=  xilReadCommitted;
SQLConnection1.StartTransaction(Transacao);
if  ApplyUpdates(0) = 0 then
SQLConnection1.Commit(Transacao)
else SQLConnection1.Rollback(Transacao);
end;
==============================================
var
TudoOK: Boolean;
Transacao: TTransactionDesc;
begin
TudoOK:= False;
Transacao.TransactionID:= 1;
Transacao.IsolationLevel:=  xilReadCommitted;
SQLConnection1.StartTransaction(Transacao);
// Aplicando os updates
if ClientDataSet1.ApplyUpdates(0) = 0 then
if ClientDataSet2.ApplyUpdates(0) = 0 then
if ClientDataSet3.ApplyUpdates(0) = 0 then
if ClientDataSet4.ApplyUpdates(0) = 0 then
TudoOK:= True;
// Note que TudoOK só será true se não houver nenhum erro em nenhum dos Updates
if TudoOK then
begin
SQLConnection1.Commit(Transacao);
ShowMessage(‘Atualizações OK.’);
end
else
begin
SQLConnection1.Rollback(Transacao);
ShowMessage(‘Ocorreram erros. Alterações descartadas.’);
end;
end;
==============================================
var
Transacao: TTransactionDesc;
begin
with SQLDataSet1 do
begin
CommandText:= ‘insert into CLIENTES (ID, NOME) values (:id, :nome)’;
ParamByName(‘id).AsInteger:= 2005;
ParamByName(‘nome’).AsString:= ‘ClubeDelphi’;
Transacao.TransctionID:= 1;
Transacao.IsolationLevel:=  xilReadCommitted;
SQLConnection1.StartTransaction(Transacao);
try
ExecSQL;
SQLConnection1.Commit (Transacao);
except
on E: Exception do
begin
SQLConnection1.Rollback(Transacao);
ShowMessage(‘Ocorreram erros.’ + #13 + E.Message);
end;
end;
end;
end;

var

Transacao: TTransactionDesc;

begin

SQLDataSet1.CommandText:= ‘select ID, NOME from CLIENTES where ID = :id;

SQLDataSet1.ParamByName(‘id’).AsInteger:= 1;

ClientDataSet1.Open; // Note que apenas o TClientDataSet deve ser aberto

with ClientDataSet1 do

begin

Append;

FieldByName(‘ID’).AsInteger:= 2005;

FieldByName(‘NOME’).AsString:= ‘ClubeDelphi’;

Post;

Transacao.TransactionID:= 1;

Transacao.IsolationLevel:=  xilReadCommitted;

SQLConnection1.StartTransaction(Transacao);

if  ApplyUpdates(0) = 0 then

SQLConnection1.Commit(Transacao)

else SQLConnection1.Rollback(Transacao);

end;

Read the rest of this entry »