DBA D@y Online

Aumente seus conhecimentos como DBA e passe a gerenciar múltiplos bancos de dados

Gerenciar diversas plataformas de bancos de dados dificulta o trabalho do DBA. Uma série de diferentes questões que podem surgir devem ser abordadas. Pode um DBA administrar todos os diferentes sistemas de gerenciamento de dados ou cada DBMS requer um DBA dedicado?

DBA Day é um dia inteiro de apresentações online, 100% técnicas e exclusivo para DBAs, focado em questões relacionadas ao desenvolvimento e gerenciamento de banco de dados.

Você aprenderá a:

• Entender a arquitetura do banco de dados e compartilhar informação com o seu time de desenvolvimento
• Usar uma única interface para gerenciar bancos de dados Oracle, DB2, SQL Server, Sybase e MySQL
• Localizar e resolver problemas com SQL em um clique
• Detectar problemas em banco de dados antes que eles ocorram, sendo proativo e não reativo
• Reduzir erros, re-trabalho e esforço através do gerenciamento de mudanças no banco de dados integrado com desenvolvimento de software
  

Um dia inteiro de apresentações online, 100% técnicas e exclusivo para DBAs.

Faça sua inscrição aqui

DelphiLive 2009

Meet the Delphi Development Team! Meet an International Crowd of Delphi Gurus!
Live and Face to Face!

Visite the website click here

III Maratona Interna de Programação Univale

FATEC Promove III Maratona de Programação

Será promovido dia 23 de maio a III Maratona Interna de Programação.
Evento além de promover uma atividade de interação entre todos alunos da FATEC funciona como objeto de seleção para a primeira fase da XIV Maratona Nacional de Programação.
NLI deseja boa sorte a todos participantes.

Mais informações no site: http://maratona.ime.usp.br/

Em breve estarei postando aqui, dicas de como se preparar.

Dicas Delphi - Arredondando valores

procedure RoundDecimal(var AValue: double; Const ADecimal: integer);
var
strValue : string;
begin
strValue := FloatToStrF(AValue,ffFixed,18,ADecimal);
AValue := StrToFloat(strValue);
end;

Dicas Delphi - Adicionando zeros a esquerda

function StrZero(const AValue: integer; ALength: integer): string;
var
base : string;
begin
base := '%.'+IntToStr(ALength)+'d';
result := Format(base,[AValue]);
end;

Dicas Delphi - Criando Forms em tempo de execução

Para você economizar memória, pode-se criar os forms de sua aplicação somente no momento da execução. Na criação do Form você define se ele é MODAL ou NÃO MODAL. Para Isso observe os seguintes códigos:

MODAL - Mostra form em modo exclusivo

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);{Carrega form na memória}
Try
Form2.ShowModal;{Mostra form em modo exclusivo}
Finally
Form2.Free; {Libera Memória}
End;
end;

No evento OnClose do Form2 coloque o seguinte código.

procedure TForm2.FormClose (Sender: Tobject; var Action : TCloseAction);
begin
Action:= caFree;
end;

Aliado a este código, deve alterar no delphi, no menu Options, opção Project. Mudando os forms a serem criados dinamicamente da coluna Auto-Create Forms para Avaliable Forms.

Dicas Delphi - Obtendo data do primeiro dia do mês, ou Primeiro Dia útil, de uma data informada

Function FirstDayOfMonth (Data : TDateTime; lSabDom : Boolean) : TDateTime;
var
Ano, Mes, Dia : word;
DiaDaSemana : Integer;

begin
DecodeDate (Data, Ano, Mes, Dia);
Dia := 1;
if lSabDom Then
begin
DiaDaSemana := DayOfWeek (Data);
if DiaDaSemana = 1 Then
Dia := 2
else
if DiaDaSemana = 7 Then
Dia := 3;
end;
FirstDayOfMonth := EncodeDate (Ano, Mes, Dia);
end;

Dicas Delphi - Obtendo o Último Dia Útil caso a data informada caia em um fim de semana

Function DiaUtilAnterior (dData : TDateTime) : TDateTime;
begin
if DayOfWeek(dData) = 7 then
dData := dData - 1
else if DayOfWeek(dData) = 1 then
dData := dData - 2;

DiaUtilAnterior := dData;

end;

Dicas Delphi - Fazendo Cálculo de Horas

procedure TForm3.Button5Click(Sender: TObject);
var
hora1: TDateTime;
hora2: TDateTime;
total: TDateTime;
begin
hora1 := StrToTime(Edit1.Text);
hora2 := StrToTime(Edit2.Text);
total := Hora2 - Hora1;
Label1.Caption := FormatDateTime('hh:nn:ss',total);
end;

Dicas Delphi - Verificando se uma data informada cai em um final de semana

Function IsWeekEnd (dData : TDateTime) : boolean;
begin
result := false;
if (DayOfWeek(dData) = 1) or (DayOfWeek(dData) = 7) Then
result := true;
end;

Dicas Delphi - Verificando Ano Bixesto

// Verifica se um ano é bixesto, retornando True em caso positivo}

function AnoBis(Data: TDateTime): Boolean;
var
Dia,Mes,Ano : Word;
begin
DecodeDate(Data,Ano,Mes,Dia);
if Ano mod 4 <> 0 then
AnoBis := False
else if Ano mod 100 <> 0 then
AnoBis := True
else if Ano mod 400 <> 0 then
AnoBis := False
else
AnoBis := True;
end;

Dicas Delphi - Acertando a Data e Hora do Sistema

procedure TForm1.Button1Click(Sender: TObject);
var
DataHora: TSystemTime;
Data, Hora: TDateTime;
Ano, Mes, Dia,
H, M, S, Mil: word;
begin
Data := StrToDate(Edit1.Text);
Hora := StrToTime(Edit2.Text);
DecodeDate(Data, Ano, Mes, Dia);
DecodeTime(Hora, H, M, S, Mil);
with DataHora do
begin
wYear := Ano;
wMonth := Mes;
wDay := Dia;
wHour := H;
wMinute := M;
wSecond := S;
wMilliseconds := Mil;
end;
SetLocalTime(DataHora);
end;

No Edit1 digite a nova data e no Edit2 digite a nova hora.

Dicas Delphi - Teclas de Função [F1, F2, F3...]

Mude a propriedade KeyPreview do Form para True

procedure Tform1.FormKeyDown(Sender:TObject; var Key: Word; Shift: TShifState);
begin
if key = vk_F1 Then
{comando desejado}
end;

Dicas Delphi - Enter funcionar com Tab

Para fazer a tecla Enter funcionar como Tab é um processo de 3 passos:

1) Setar a propriedade KeyPreview da Form para True

2) Setar a propriedade Default de todos os botões da Form para False

3) Criar um evento OnKeyPress para a Form como este:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
Perform(Wm_NextDlgCtl,0,0);
end;
end;

DBA Day Online

Aumente seus conhecimentos como DBA e passe a gerenciar múltiplos bancos de dados

Gerenciar diversas plataformas de bancos de dados dificulta o trabalho do DBA. Uma série de diferentes questões que podem surgir devem ser abordadas. Pode um DBA administrar todos os diferentes sistemas de gerenciamento de dados ou cada DBMS requer um DBA dedicado?

DBA Day é um dia inteiro de apresentações online, 100% técnicas e exclusivo para DBAs, focado em questões relacionadas ao desenvolvimento e gerenciamento de banco de dados.

Você aprenderá a:

• Entender a arquitetura do banco de dados e compartilhar informação com o seu time de desenvolvimento
• Usar uma única interface para gerenciar bancos de dados Oracle, DB2, SQL Server, Sybase e MySQL
• Localizar e resolver problemas com SQL em um clique
• Detectar problemas em banco de dados antes que eles ocorram, sendo proativo e não reativo
• Reduzir erros, re-trabalho e esforço através do gerenciamento de mudanças no banco de dados integrado com desenvolvimento de software
  

Um dia inteiro de apresentações online, 100% técnicas e exclusivo para DBAs.

Faça sua inscrição aqui