Ribbon Controls Delphi - Rodrigo Mourão - DevMedia

 

Sabe o o que é um chatbot  ? Sabe onde pode ser aplicado ?? Veja os exemplos em Delphi aqui.


Acesse mais informações sobre Delphi aqui

SQL para definir valores default no Firebird.

Define o valor default para campos númericos, e campos varchar e char de tamanho 1 que começarem com FL_ (flag)

update RDB$RELATION_FIELDS set rdb$default_source = 'default 0' where RDB$RELATION_FIELDS.rdb$field_source in (
select
trim(rdb$relation_fields.rdb$field_source)
from rdb$relations
join rdb$relation_fields on rdb$relation_fields .rdb$relation_name = rdb$relations.rdb$relation_name
join rdb$fields on rdb$relation_fields.rdb$field_source = rdb$fields .rdb$field_name
join rdb$types on trim(rdb$types.rdb$type) = trim(rdb$fields.rdb$field_type)
where rdb$types.rdb$type_name in ('FLOAT','DOUBLE','INT64')
and rdb$relation_fields.rdb$field_name not like '%$%'
or ((rdb$types.rdb$type_name in ('VARYING','TEXT')) and (rdb$field_length = 1) and rdb$relation_fields.rdb$field_name like 'FL_%'))

Animação em formulário Delphi - Animate Window

Utilize a função
AnimateWindow

AW_BLEND - Funciona apenas em Windows 2000
AW_CENTER - Abre o formulário do meio para fora
AW_HOR_POSITIVE - Abre o formulário na horizontal da direita para esquerda
AW_HOR_NEGATIVE - Abre o formulário na horizontal da esquerda para direita
AW_VER_POSITIVE - Abre o formulário na vertical de cima para baixo
AW_VER_NEGATIVE - Abre o formulário na vertical de baixo para cima

AnimateWindow(form1.handle,1000,funcao)

Sabe o o que é um chatbot  ? Sabe onde pode ser aplicado ?? Veja os exemplos em Delphi aqui.


Acesse mais informações sobre Delphi aqui

Mostrando os milisegundos entre códigos Delphi, útil para testar a performace de SQL

var
startTick, endTick: Int64;

begin
startTick := GetTickCount;
//insira seu código SQL aqui
endTick := GetTickCount;
ShowMessage(IntToStr(endTick - startTick));
end;

Sabe o o que é um chatbot  ? Sabe onde pode ser aplicado ?? Veja os exemplos em Delphi aqui.


Acesse mais informações sobre Delphi aqui

Criando e conectando o banco com isql no Firebird/Linux

Primeiramente acesse o prompt do seu Linux e vá até a pasta
cd /opt/firebird/bin

Depois disso execute
./isql para acessar o prompt de execução de comandos do FB.

Comando de criação de uma nova base de dados
Cuidado nessa parte com as permissões na pasta bin.
create database 'teste.fdb' user 'SYSDBA' password 'masterkey';

Se o prompt mudou para o sinal SQL> sinal que as coisas funcionaram.

Então teste e execute
select * rom rdb$relations;

Para sair execute
exit;

Script de instalação do Firebird 2.1 em Centos ou Ubuntu

Gostou do blog, curta a página no Facebook.


clear
echo Centos [c] ou Ubuntu [u]???
read linux

case $linux in
c) echo Instalando biblioteca compat-libstdc++-33 ; yum install compat-libstdc++-33 ;;
u) echo Instalado biblioteca libstdc++.so.5 ; apt-get install libstdc++5 ;;
*) echo Parâmetro Invalido ; exit ;;
esac

echo Baixando Firebird 2.1 ...
wget http://downloads.sourceforge.net/firebird/FirebirdSS-2.1.3.18185-0.i686.tar.gz

echo Firebird baixado, descompactando
gzip -d FirebirdSS-2.1.3.18185-0.i686.tar.gz
tar -xf FirebirdSS-2.1.3.18185-0.i686.tar

echo Acessando pasta do Firebird
cd FirebirdSS-2.1.3.18185-0.i686

echo Instalando Firebird
./install.sh

Script de backup do Firebird em Centos

Bom, vamos lá.

Todo mundo sabe da segurança que é fazer backup de qualquer banco de dados existente. Muitas empresas não estão nem aí para a segurança dos dados, mas vc já pensou em toda o rebuliço que ia acontecer se acaso o banco de dados fosse perdido ou corrompido ??

Chega de blá blá e vamos para mão na massa.

Gostou do blog, curta a página no Facebook.

Primeiramente acesse seu querido servidor linux e crie o arquivo backup_firebird.sh desta maneira:

vi /etc/cron.daily/backup_firebird.sh

Fazendo isso ele vai criar o arquivo backup_firebird.sh e abri-lo para edição, nesse arquivo insira os seguintes comandos:

#!/bin/bash
#usuário do BD
login="SYSDBA"
# senha do usuário
senha="masterkey" # senha do usuário
#caminho da sua base de dados
dir="/basedados"
# data atual, dia, mês e ano, do backup para ser concatenada no arquivo backup
data=`date +%d%m%y`
# Uma dica na data é deixá-la no formato data=`date +%d`, desse maneira o arquivo de backup #ficará como backup16.gbk, backup17.gbk, sendo que o número é o dia do mês, dessa maneira #sobreescreve os backups de 30 dias atrás.
# pasta + arquivo do BD
banco="$dir/teste.fdb"
# pasta e arquivo de backup
backup="$dir/backup/backup-$data.gbk"
clear
# Imprime o nome do arquivo de backup
echo "Iniciando backup dia $data."

# Executa gfix para verificar a integridade
# executa o comando gfix para verificar a integridade do banco.
echo "Verificando a integridade dos dados..."
/opt/firebird/bin/gfix -v -f -user $login -password $senha $banco


echo "Validando os dados e eliminando fisicamente registros deletados..."
/opt/firebird/bin/gfix -sweep -user $login -password $senha $banco

# Realiza o backup
# executa o gbak para fazer o backup e gera o nome do backup com o nome do banco + a data
echo "Realizando o Backup para o Arquivo: $backup ..."
/opt/firebird/bin/gbak -b -user $login -password $senha $banco $backup

Feito isso salve o arquivo e vá até a pasta /etc/cron.daily,
chown root:root backup_firebird.sh, para setar o dono e grupo do arquivo
chmod 770 backup_firebird.sh, para permissão de execução do arquivo.

Feito isso, ainda na pasta /etc/cron.daily, tente executar o arquivo dessa maneira
./backup_firebird.sh

Se nenhum erro aparecer, seu backup será executado na hora que foi programada no arquivo /etc/crontab na linha /etc/cron.daily.

Lembre-se tbm de tirar esses backups do servidor onde está instalado o bd, pois se caso o servidor explodir, ou sofrer algum atentado, o backup da base de dados se encontra em algum lugar longe dali