Postagens

Mostrando postagens de Maio, 2010

Anotações Aula Banco de Dados Oracle

Deixo aqui minhas anotações das aulas do prof. Ackermann, acredito que possam ser úteis, um primeiro post sobre isto já foi escrito e pode ser acessado aqui.

 --- O QUE FAZER SE VOCE ESQUECEU DE CRIAR O CAMPO PRIMARY KEY E JÁ

INSERIU DADOS? cRIA O CAMPO PK E MANTÉM A CONSTRAINT DISABLE, INSERIR
OS VALORES NO NOVO CAMPO NOS REGISTROS JÁ INSERIDOS E DEPOIS PASSA A
CONSTRAINT PARA ENABLE, ATIVA ELA.

ALTER TABLE TABELA ADD CAMPOCHAVENOVO NUMBER(4) CONSTRAINT
TABELA_PK_CAMPOCHAVENOVO PRIMARY KEY DISABLE;

--- COMO EXCLUIR UMA TABELA
DROP TABLE TABELA;
--- REDO: GRAVAM FISICAMENTE OS REGISTROS, INSEREM NO BANCO E GRAVAM NO DISCO.
--- TRUNCATE LIMPA/EXCLUI REGISTROS DA TABELA, DELETE TAMBÉM FAZ ISSO
MAS ANTES ELE FAZ BKP E PODE-SE USAR ROLLBACK, JÁ O TRUNCATE LIMPA
TUDO E JÁ ERA.

---------------- COMANDOS ----------------------------------

- Criar novo usuário:
CREATE USER NOMEUSUARIO IDENTIFIED BY SENHAAQUI DEFAULT TABLESPACE USERS TEMPORARY TABLESPACE TEMP;
- Dar permissões para este usuário se logar e cri…

Instalando componentes Rave Reports no Delphi

Imagem
Primeiramente vá em Component->Install Packages.

Click ADD e vá até o diretório da figura abaixo, selecione o arquivo dclRave.bpl e clique abrir.

Vai importar o pacote e já vai aparecer marcado o pacote do Rave.

Os componetes vão aparecer no final da Tool Palete.

Para criar um relatório com Rave vai precisar de três componentes:

- RvProject: Responsável pela ligação entre o projeto Delphi e o projeto de relatórios Rave.
- RvDataSetConnection: Exporta um DataSet do projeto Delphi para o projeto Rave.
- RvSystem:Responsável pelo envio do relatório para a impressora ou para a tela de Preview.

Mas isto fica pra uma próxima. Até.

Baskara Delphi

Programinha pra calcular Baskara no Delphi, tarefa de aula, vale compartilhar :D.

procedure TForm1.Button1Click(Sender: TObject);
var
  A,B,C,D,R1,R2:double;
begin
  try
    A := strtofloat(edta.Text);
    B := strtofloat(edtB.Text);
    C := strtofloat(edtC.Text);
    if A <> 0 then
    begin
      D := (B*B)-(4*A*C);
      if D >= 0 then
      begin
        R1 := ((-1*B)+SQRT(D))/(2*A);
        R2 := ((-1*B)-SQRT(D))/(2*A);
        EDTR.Text := FloatToStr(R1);
        EDTR2.Text := FloatToStr(R2);
    {    // exibir resultado em outro form
        final.Edit1.Text := FloatToStr(R1);
        final.Show;
     } end else
      begin
        ShowMessage('Erro na operação!! Delta menor que zero.');
      end;
    end else
    begin
      ShowMessage('Valor de A deve ser diferente de zero (0).');
    end;
  except on e:exception do
    ShowMessage(e.message);
  end;
end;