Instalação e Configuração do Firebird 2.5

Delphi: Validando CPF

Hoje em dia todas as pessoas físicas possuem CPF e por isso as vezes se torna necessário que seja validado se o mesmo numero informado por uma pessoa estão corretos, para isto tenho essa função que faz isso, ela retorna "true" e "false" (verdadeiro e falso respectivamente).

Criando a Função:

function doCPFValidation(CPF: string): Boolean;
var
  dig10, dig11: string;
  s, i, r, peso: integer;
begin
  if ((CPF = '00000000000') or (CPF = '11111111111') or
      (CPF = '22222222222') or (CPF = '33333333333') or
      (CPF = '44444444444') or (CPF = '55555555555') or
      (CPF = '66666666666') or (CPF = '77777777777') or
      (CPF = '88888888888') or (CPF = '99999999999') or
      (length(CPF) <> 11)) then
      begin
        doCPFValidation := false; exit;
      end;
  try { *-- Cálculo do 1o. Digito Verificador --* }
    s := 0; peso := 10;
    for i := 1 to 9 do
    begin
      s := s + (StrToInt(CPF[i]) * peso);
      peso := peso - 1;
    end;
    r := 11 - (s mod 11);
    if ((r = 10) or (r = 11)) then
      dig10 := '0'
    else
      str(r:1, dig10); { Cálculo do 2o. Digito Verificador }
    s := 0; peso := 11;
    for i := 1 to 10 do
    begin
      s := s + (StrToInt(CPF[i]) * peso); peso := peso - 1;
    end;
    r := 11 - (s mod 11);
    if ((r = 10) or (r = 11)) then
      dig11 := '0'
    else
      str(r:1, dig11); { Verifica se os digitos calculados conferem com os digitos informados. }
    if ((dig10 = CPF[10]) and (dig11 = CPF[11])) then
      doCPFValidation := true
    else
      doCPFValidation := false;
  except
    doCPFValidation := false
  end;

Como usar está função em seu código:

Pode ser usado no "on exit" de um "edit" ou no próprio botão de Salvar.

procedure TF_ClienteCadastro.edtCPFExit(Sender: TObject);
begin
  if edtCPF.Text <> ' . . - ' then
  begin
    if doCPFValidation(edtCPF.Text) = False then
    begin
      ShowMessage('CPF '+edtCPF.Text+' invalido !');
      edtCPF.SetFocus;
    end;
  end;
end;

Espero que tenha ajudado!

Como fazer backup e restaurar um banco de dados MySQL

Fazer backup por linha de comando utilizando o MysqlDump

Se você está armazenando qualquer coisa em bancos de dados MySQL que você não quer perder, é muito importante fazer backups regulares de seus dados para protegê-lo de perda. Este tutorial irá mostrar-lhe duas maneiras fáceis de fazer backup e restaurar os dados em seu banco de dados MySQL. Você também pode usar esse processo para mover seus dados para um novo servidor web.

Se você tiver shell ou acesso telnet para seu servidor web, você pode fazer backup de seus dados MySQL usando o comando mysqldump. Este comando conecta ao servidor MySQL e cria um arquivo de despejo SQL. O arquivo de despejo contém as instruções SQL necessárias para recriar o banco de dados. Aqui está a sintaxe apropriada:


Mysqldump --opt -u [uname] -p [pass] [dbname] > [backupfile.sql]

• [uname] Seu nome de usuário de banco de dados.
• [pass] A senha para seu banco de dados.
• [dbname] O nome do seu banco de dados.
• [backupfile.sql] O nome do arquivo para o seu banco de dados de backup.
• [--opt] A opção mysqldump.

Por exemplo, para fazer backup de um banco de dados chamado 'Tutoriais' com o 'root' username e sem senha a um tut_backup.sql arquivo, você deve realizar o seguinte comando:

$ mysqldump -u root -p Tutorials > tut_backup.sql

Restaurar Banco de Dados MySql

Acima de backup que o banco de dados Tutoriais em arquivo tut_backup.sql. Para recriar o banco de dados Tutoriais você deve seguir duas etapas:

• Criar um banco de dados apropriadamente chamado na máquina de destino.
• Carregue o arquivo usando o comando mysql:

$ mysql -u [uname] -p[pass] [db_to_restore] < [backupfile.sql]

Dê uma olhada como você pode restaurar o arquivo tut_backup.sql ao banco de dados Tutoriais.

$ mysql -u root -p Tutorials < tut_backup.sql