Cadastre-se Revistas DevMedia Cursos
  Live chat by Netwatts

Space de EMERSON MARTINS
Busca Autor


Últimas 20 atualizações de EMERSON MARTINS

Artigo - SQLs mais usados no Oracle

VARIAVEIS DE AMBIENTE

CONN SYSTEM@INSTANCIASPOOLmailto:SYSTEM@INSTANCIASPOOL">SYSTEM@INSTANCIASPOOL>
C:\LOGSSET ECHO ONSET TIMING ONSET LINES 1000SET SQLBL ON
ALTER SESSION SET NLS_DATE_FORMAT = ‘DD/MM/YYYY HH24:MI:SS’;SELECT SYSDATE FROM DUAL;

SHOW USER

– VERIFICA INSTANCIA

SELECT * FROM GLOBAL_NAME;
DUMP<!--[if !supportLineBreakNewLine]--><!--[endif]-->
– VERIFICAR QUAIS SÃO OS USUÁRIOS DO SISTEMA
SELECT USERNAME FROM DBA_USERSWHERE USERNAME LIKE ‘USER%‘;

– CONTA OBJETOS DO SCHEMA
SELECT COUNT(OBJECT_TYPE), OBJECT_TYPEFROM DBA_OBJECTSWHERE OWNER LIKE ‘USER%‘GROUP BY OBJECT_TYPE;SPOOL OFF

– NO TERMINAL LINUX

$export ORACLE_SID=INSTANCE
$exp system@INSTANCE BUFFER=1000000 FILE=EXP_INSTANCE_USER_DATA.DMP LOG=EXP_INSTANCE_USER_DATA.LOG OWNER=USUÁRIOS LISTADOS CONSISTENT=Y
gzip EXP_INSTANCE_USER_DATA*
<!--[endif]-->

DESATIVAÇÃO DE UM SCHEMA

– VERIFICAR SE TEM ALGUM USUÁRIO USANDO O SISTEMA

SELECT SADDR, SID, USERNAME, LOGON_TIME, STATUS, OSUSER, MACHINE, PROGRAMFROM V$SESSIONWHERE USERNAME LIKE ‘USER%‘;


– VERIFICAR QUAIS SÃO OS USUÁRIOS DO SISTEMA

SELECT USERNAME FROM DBA_USERSWHERE USERNAME LIKE ‘USER%‘;

– VERIFICA ATRIBUTOS DO USUÁRIO

SELECT * FROM DBA_USERSWHERE USERNAME LIKE ‘USER%‘;SELECT * FROM DBA_TAB_PRIVSWHERE GRANTOR LIKE ‘USER%‘;


– VERIFICA PREVILEGIOS DO USUÁRIO

SELECT * FROM DBA_SYS_PRIVSWHERE GRANTEE LIKE ‘USER%‘;SELECT * FROM DBA_ROLE_PRIVSWHERE GRANTEE LIKE ‘USER%‘;

– CONTA OBJETOS DO SCHEMA
SELECT COUNT(OBJECT_TYPE), OBJECT_TYPEFROM DBA_OBJECTSWHERE OWNER LIKE LIKE ‘USER%‘GROUP BY OBJECT_TYPE;

– DESATIVA USUÁRIO
ALTER USER USER ACCOUNT LOCK;ALTER USER USER PASSWORD EXPIRE;


– VERIFICA STATUS DA CONTA
SELECT USERNAME, ACCOUNT_STATUS FROM DBA_USERSWHERE USERNAME LIKE ‘USER%’;SPOOL OFF


DESATIVAÇÃO DE UMA INSTANCIA
– VERIFICAR SE TEM ALGUM USUÁRIO USANDO O SISTEMA
SELECT SADDR, SID, USERNAME, LOGON_TIME, STATUS,OSUSER, MACHINE, PROGRAMFROM V$SESSION;


– VERIFICAR QUAIS SÃO OS USUÁRIOS DO SISTEMA
SELECT USERNAME FROM DBA_USERS ;


– VERIFICA ATRIBUTOS DO USUÁRIO
SELECT * FROM DBA_USERS;
SELECT * FROM DBA_TAB_PRIVS;


""> ...

Exibição do post interrompida. Para ler conteúdo completo, clique aqui
5/23/2009 3:16:00 PM





Artigo - Protegendo seu Sistema utilizando Criptgrafias no arquivo de Configuração

   Nos que desenvolvemos sistemas hoje não importando a linguagem de programação  utilizada, devemos nos preocupar com os dados da empresa, principalmente com a Segurança do Banco de Dados. Muitos como eu ainda utilizamos arquivos .ini como String de Conexao com o banco de Dados, entao decidi abordar um assunto simples porem de muita eficacia.   
 
  Então amigos vamos ao que interessa, não usarei principios sobre Conexao a banco de Dados por arquivos, pois ja existe um artigo sobre isso.
 
 
  Observação: Pessoal existem muitas outras forma de Criptografias no mercados com chaves de 128 bits, e soluções muito mais eficientes para banco de dados. Porém quero deixar bem claro que estamos querendo mostrar uma solução simples apenas para esclarecimento e conhecimento dos iniciantes.
   
 
 1 - Iniciar uma nova Aplicação no Delphi.
 
  Usaremos o banco de dados feito em Firebird porem, o metodo pode ser aplicado a  qualquer banco.
 
 Usuario : SYSDBA
 Senha : masterkey 
 
 
 
 
 2 - Criar um DataModule da aplicação, iremos chamalo de DM.
 
 
 

 
 
3 -  Implementando e Entendendo o Codigo:
 
unit Udm;
interface
uses
  SysUtils, Classes, DBXpress, DB, SqlExpr,
IniFiles; //Classe que trabalha com arquivos .INI
type
  TDm = class(TDataModule)
    Conexao: TSQLConnection;
    procedure ConexaoBeforeConnect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    UserBD,             { Usuário do Banco de Dados }
    PassDB,             { Senha do Banco de Dados }
    PathBD,             { Path do Banco de Dados }
    Fundo2,             {Imagem do Fundo}
    Path,                {Path do Banco de Dados}
    PathImage,        {Path das Imagens}
    PathSkin,           {Path dos Skins}
    Usuario: String;  {Armazena o Usuario}
 
   { Funções de Encriptação e Decriptação de Dados esta na sessão Public pois se trata de procedimento publico} 
    function Encrypt(const S: String; Key: Word): String;
    function Decrypt(const S: ShortString; Key: Word): String;
  end;
var
  Dm: TDm;
implementation
{$R *.dfm}
const
 
 { Constantes que irão ser utilizadas nos cálculos das rotinas de criptografia e podendo ser alteradas conforme o gosto do leitor.} 
 
  C1 = 52845;
  C2 = 22719;
 

 {Procedimento do Evento BeforeConnect do Objeto sqlConnection onde irá ler todas as informações do arquivo Ini criptografado} 
 
procedure TDm.ConexaoBeforeConnect(Sender: TObject);
var
ConfigIni : TIniFile;
Path : String;
begin
//Seta as propriedades da conexão em tempo de execução pegando os dados do arquivo config.ini
 ConfigIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
 Conexao.Params.Values['Database']:= ConfigIni.ReadString('CONFIG', 'DATABASE', '');
 ConfigIni.Free;
end;
 
 {Função declarada acima encarregada de encriptar os dados, como podemos ver as Contasntes C1 e C2
estão sendo utilizadas para a execução desse bloco d""> ...
Exibição do post interrompida. Para ler conteúdo completo, clique aqui
3/18/2008 5:41:00 PM





Artigo - Acessando o Banco de Dados em Rede atraves de Arquivos .ini

Olá colegas leitores do Devmedia, passei um bom tempo pra retornar aos artigos e agora com vídeo aulas.
Já tinha postado um exemplo fácil como colocar a aplicação em rede com os recursos do próprio componente sendo necessário uma recopilação do projeto, mas através de arquivos ini isso é totalmente configurável através do arquivo.
Este artigo orientar o desenvolvedor a utilizar arquivos ini para conexão com o Banco de Dados.
Os arquivos ini nada mais é que uma String de Conexão Externa que vai ser lida via código pelo Sistema ao se conectar ao banco de dados.
 
 
 
Vamos ao desenvolvimento.
 
1-      Inicie uma nova aplicação no Delphi ou uma aplicação que já esteja desenvolvida para que se possa implementar o código. No nosso caso peguei um DataModule de uma Aplicação minha e selecionei o componente SqlConnection.
 
 
 
...
Exibição do post interrompida. Para ler conteúdo completo, clique aqui
1/24/2008 4:56:00 PM





Aplicativo com fontes - Melhorando a interface dos Sistemas com VCLSkin


Melhorando a interface de sua Aplicação com o

Componente VCLSkin em Delphi 7.

 

 De : Emerson Martins

 

Primeiro vamos aprender a  instalar o componente VCLSkin  no delphi 7.

 Em seguida aprender a utiliza-lo em nossas aplicações.

 

Veio juntamente com a pasta  e so descompacta-lo e coloca-lo na pasta: C:\Arquivos de programas\borland\Delphi7\Projects\Bpl.Tambem um arquivo texto dando todas as instruções para a instalação do mesmo.Esta versao é uma versao Demo a versao ccompleta e propriedade de seus distribuidores.

 

-->">
3/22/2007 3:49:00 PM





Aplicativo com fontes - Exemplo de Como Conectar Delphi e FB/IB em rede


Baixa a aplicação e veja como e simples.

Qualquer duvida posta  uma mensagem para mim.

 

 

Emerson Martins

Analista de Sistemas

emersonmartins8@hotmail.com

-->">
10/13/2006 3:27:00 PM





 

emersonmartins8@hotmail.com

Analista de Sistemas e Especialista em Banco de Dados pela FAL - Faculdade de Alagoas,Atualmente Consultor Senior de Banco de Dados do Instituto de Tecnologia do Estado de Alagoas, utilizando PostgreSQL,SQL Sever,Oracle 10 g, programa em Delphi a mais de 5 anos.
Arquivo de atualizações
 2009
 2008
 2007
 2006

Estatísticas do Autor:
Número de posts: 5
Total de visualizações: 38853
Características dos posts deste autor:
Conteúdo:
Didática:
Utilidade:
22 2