Blog com corridas de Formula 1

Blog com corridas de F1 - muito bom fica a dica para quem gostar

http://denisonformula1.blogspot.com.br

BACKUP USANDO GBAK FIREBIRD 2.52

GBAK -B -G -IG -L C:\PASTA\BANCO.FDB C:\PASTA\BKP\BACKUP.FBK -USER USUARIO -PAS senha -V

Video Aula - DBGRID em delphi

http://www.4shared.com/rar/LrF4cp25/dbgrid-aulas.html

muito bom mini-curso sobre as dbgrid

CD João Carreiro e Capataz - lado a lado b

http://www.4shared.com/rar/-EieEKAX/joao_carreiro_e_capataz_lado_a.html

DELPHI - TIPOS DE MENSAGENS

No delphi estão disponíveis três métodos: ShowMessage, MessageDlg e MessageBox.

ShowMessage:

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
    ShowMessage('A sua Mensagem');
end;
MessageDlg

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
    MessageDlg('Mensagem qualquer', mtInformation, mbOKCancel, 0);
end;
Sendo que o 1º parâmetro é uma string, a mensagem propriamente dita. O 2º parâmetro é o tipo da mensagem. O 3º parâmetro é os botões que serão exibidos na caixa de diálogo.

Para este tipo de caixa de diálogo os seguintes tipos de diálogo estão disponíveis:

1
2
3
4
5
mtWarning
mtError
mtInformation
mtConfirmation
mtCustom
e os seguintes tipos de botões:

1
2
3
4
5
mbYesNoCancel
mbYesAllNoAllCancel
mbOkCancel
mbAbortRetryIgnore
mbAbortIgnore
MessageBox

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
    Application.MessageBox('Mensagem', 'Título', mb_IconError + mb_Ok);
end;
Repare no trecho:

1
Application.MessageBox('...
A função MessageBox precisa de um handler. Neste trecho definimos que o Handler da MessageBox será a própria aplicação:

1
Application.MessageBox
. Caso contrário, seria necessário passar este handler como o primeiro parâmetro:

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
    MessageBox(handler, 'Mensagem', 'Título', mb_IconError + mb_Ok);
end;
Ainda sobre a função MessageBox, temos as seguintes opções quanto ao tipo de mensagem:

1
2
3
4
MB_ICONINFORMATION
MB_ICONERROR
MB_ICONWARNING
MB_ICONQUESTION
E os seguintes tipos de botões:

1
2
3
4
5
6
MB_OK
MB_OKCANCEL
MB_YESNO
MB_YESNOCANCEL
MB_RETRYCANCEL
MB_ABORTRETRYIGNORE
Para as funções MessageDlg e MessageBox existem Tipos de retorno, que nada mais é do que a resposta do usuário: o botão clicado:

1
2
3
4
5
6
7
IDOK
IDCANCEL
IDYES
IDNO
IDABORT
IDRETRY
IDIGNORE
Exemplos:
> MessageDlg

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
    if(MessageDlg('Deseja salvar o arquivo?', mtConfirmation, mbOKCancel, 0) = IdOk)then
     begin
       //Execute a ação de salvar o arquivo
     end;
end;
> MessageBox

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
    if(Application.MessageBox('Deseja salvar o arquivo?', 'Salvar', MB_ICONINFORMATION + MB_OKCANCEL) = IdOk)then
     begin
       //Execute a ação de salvar o arquivo
     end;
end;
Nota: Existem mais tipos de mensagens, botões e retorno do usuário, que são constantes definidas na unit ‘Windows’.

DESCOBRIR O TAMANHO DE UM ARQUIVO DO COMPUTADOR - DELPHI

{ A função abaixo retorna o tamanho do arquivo, ou -1
  se o arquivo não for encontrado }

function TFORM1.FileSize(const FileName: string): integer;
var
  SR: TSearchRec;
  I: integer;
begin
  I := FindFirst(FileName, faArchive, SR);
  try
    if I = 0 then
      Result := SR.Size
    else
      Result := -1;
  finally
    FindClose(SR);
  end;
  WTAMANHO_ARQUIVO:=RESULT;
end;

COLOQUE O CODIGO ABAIXO EM UM BOTAO:

   filesize(EDITWPASTA.TEXT+'\'+EDITWARQUIVO.TEXT);
   SHOWMESSAGE(INTTOSTR(WTAMANHO_ARQUIVO));

UPDATE EM UMA TABELA COMO DADOS DE OUTRA TABELA

UPDATE TABELA1 A SET A.CAMPO1 =
(SELECT B.CAMPO2 FROM TABELA2 B
WHERE A.CAMPO_CAHVE=B.CAMPO_CHAVE
AND A.CAMPO_CHAVE2=B.CAMPO_CHAVE2
AND A.CAMPO_CHAVE3=B.CAMPO_CHAVE3)
WHERE A.CAMPO_CONDICAO = '06/01/2012'