<?php
	include_once('conexao.php');
	include('funcoes.php');

	CriarLista('Estado');
?>

A conexão é bem simples, faça como quiser.
Já a função, baseia-se na instrução SQL: SHOW FULL COLUMNS FROM TB_CLIENTE. Essa instrução retorna uma lista com os campos: Field, Type, Collation, Null, Key, Default, Extra Privileges e Comment. Para nós, nesse momento só interessam Field e Comment. Explico. Pegaremos os campos que retornam nessa SQL e com eles, comporemos a nova SQL com os campos que a primeira retornou, ficou claro?
Nos comments da tabela em questão, eu coloquei a descrição dos campos, tipo o campo EST_CODIGO tem o comentário “Código”.

Para usar, eu fiz o trechinho de código abaixo:

		$sql = 'SHOW FULL COLUMNS FROM ' . $tabela; // Crio a string
		$res = mysql_query($sql); // Envia a string para o banco e guarda o retorno
		$sql = 'select '; // Crio a nova SQL
		$estrutura = array(); // Inicializo o array
		$pos = 1; // Inicializa 1ª posição

		echo "<table border='1'>
				<tr>"; // Monta o início da tabela

		while ($lin = mysql_fetch_assoc($res)) {
			echo "<td>".$lin['Comment']."</td>";
			$estrutura[$pos++] = $lin;
			$sql .= $lin['Field'] . ', ';
		}
		echo "</tr>";
		$sql = substr($sql, 0, strlen($sql) - 2);
		$sql .= " from ". $tabela ;

Com esse código ai conseguimos compor uma nova SQL, algo como Select EST_CODIGO, EST_NOME from ESTADO. Assim, poderemos fazer a nova consulta como deve ser. Além disso, todo o resultado daquele resource fica armazenado em um array chamado estrutura, para consulta posterior.
Com esses dados em mãos, vamos simplesmente fazer a nova consulta no banco e trazer os dados para dentro da tabela. Veja como fica esse trecho:

		$res = mysql_query($sql);
		while ($lin = mysql_fetch_assoc($res)) {
			echo "<tr>";
			foreach ($estrutura as $campo) {
				echo "<td>".$lin[$campo['Field']]."</td>";
			}
			echo "</tr>";
		}
		echo "</table>";

e assim funciona, e no próximo post eu coloco o arquivo para download e também como paginar o resultado dessa função.

Até mais

Piadas à parte, vamos ao ponto, no último post que eu tratei sobre o assunto (Orientação à Objetos) a coisa ficou meio descontextualizada, principalmente por se tratar de uma palestra que fiz aqui na Produtec. Assim, vou tentar simplificar um pouco mais o conceito, sem necessariamente entrar na conversa com o banco.
Primeiro vamos imaginar um problema. Alguém lhe fez a solicitação:

Criar uma classe Lampada, que tenha como ser ligada, desligada e possa me responder seu atual estado (ON/OFF). Essa pessoa lhe solicitou também um formulário que interagisse com essa classe, acessando os seus métodos.

Então vejamos, temos uma classe mais ou menos como a desenhada abaixo:

Como vemos, teremos então a classe Lampada, que possuirá um atributo privado chamado acesa do tipo boleano e três métodos públicos bastante simples; ligarLampada() muda o atributo acesa para true, desligarLampada() seta o atributo para false e isLampadaLigada() que retorna o estado do atributo. Até aqui bem simples.
Para a implementação eu vou herdar de TControl, por enquanto isso será suficiente, afinal não quero ter que implementar as coisas mais básicas na mão, como a criação do componente e tal. Isso fica mais ou menos assim:

unit uLampada;

interface

uses Controls;

type
  TLampada = class(TControl)
  private
      Facesa: Boolean;
      procedure Setacesa(const Value: Boolean);
      property acesa: Boolean read Facesa write Setacesa;
  public
      procedure LigarLampada;
      procedure DesligarLampada;
      function isLampadaLigada: Boolean;
  end;

implementation

{ TLampada }

procedure TLampada.DesligarLampada;
begin
   acesa := False;
end;

function TLampada.isLampadaLigada: Boolean;
begin
   Result := acesa;
end;

procedure TLampada.LigarLampada;
begin
   acesa := True;
end;

procedure TLampada.Setacesa(const Value: Boolean);
begin
   Facesa := Value;
end;

end.

Percebam aqui algumas particularidades do Delphi. Pra começar, os métodos tem um “tipo”. Métodos que necessitam retornar valores são declarados como function e os que não precisam retornar valor, portanto são somente procedimentos, são assim chamados procedure. Ambos podem receber parâmetros, mas no nosso exemplo não tivemos necessidade. A única diferença é mesmo o retorno.

Para declarar a propriedade acesa, eu simplesmente digitei property acesa:boolean; e pressionei o atalho Ctrl+Shift+C. Isso nos leva a outro ponto legal de destacar que é o encapsulamento. Veja como ficou o código:

  private
      Facesa: Boolean;
      procedure Setacesa(const Value: Boolean);
      property acesa: Boolean read Facesa write Setacesa;

Assim, na prática, o valor será gravado em Facesa (o “F” é padrão do Delphi, não pergunte). Como se percebe ele completou a linha com as cláusulas read e write, determinado assim o Getter e o Setter da propriedade acesa. Portanto quando uma chamada um outro objeto acessar a propriedade acesa, a classe irá ler o valor da variável Facesa e na hora de atribuir o valor, o procedimento Setacesa(const Value: Boolean);.

A cláusula const antes do parâmetro indica que o mesmo não pode ser alterado no corpo do procedimento. Ele pode ser atribuído normalmente na chamada.

Com o procedimento SetAcesa podemos colocar quaisquer tratamentos que se fizerem necessários. Mas isso é assunto para outro post.

Para a aplicação rodar como pedido, devemos criar um formulário que interaja com um objeto da classe criada. Vou não criar muita firula aqui, serão apenas 3 botões, Ligar, Desligar e Status.

Aqui fica mais clara ainda a simplicidade desse sistema. Basta criar uma instância da classe TLampada e fazer com que os botões acessem os seus métodos. Veja como ficou simples.

unit uInterruptor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, uLampada;

type
  TfrmInterruptor = class(TForm)
    btnLigar: TButton;
    btnDesligar: TButton;
    btnStatus: TButton;
    procedure btnStatusClick(Sender: TObject);
    procedure btnDesligarClick(Sender: TObject);
    procedure btnLigarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    MinhaLampada: TLampada;
  public
  end;

var
  frmInterruptor: TfrmInterruptor;

implementation

{$R *.dfm}

procedure TfrmInterruptor.btnDesligarClick(Sender: TObject);
begin
   MinhaLampada.DesligarLampada;
end;

procedure TfrmInterruptor.btnLigarClick(Sender: TObject);
begin
   MinhaLampada.LigarLampada;
end;

procedure TfrmInterruptor.btnStatusClick(Sender: TObject);
var
   cMsg: String;
begin
   cMsg := 'A lâmpada ';

   if not MinhaLampada.isLampadaLigada then
      cMsg := cMsg + 'não ';

   cMsg := cMsg + 'está ligada.';
   ShowMessage(cMsg);
end;

procedure TfrmInterruptor.FormCreate(Sender: TObject);
begin
   MinhaLampada := TLampada.Create(Self);
end;

end.

A única dica é criar a MinhaLampada na criação do formulário. Não preciso me preocupar com dispor dela, pois ela foi criada “afiliada” ao form, portanto quando um for para o vinagre o outro vai junto.

Bom pessoal, agora que desaceleramos e começamos de maneira mais básica acho que consegui isolar um pouco mais os conceitos. Acredito que todos entendem que temos uma classe TLampada, com atributos privados, com métodos públicos que nos permitem controlar a lâmpada. Esclarecemos também que o que se manipula posteriormente é a instancia, o objeto MinhaLampada, não a classe. E podemos ter quantas instancias da Lampada criadas dentro da nossa aplicação.

No próximo post sobre o assunto vamos criar um serviço que controle a “energia” do exemplo. Até lá.

procedure TForm1.ExecutaScript;
var
  ErrorCode: Integer;
begin
   try
      ErrorCode := Conexao.ExecuteDirect(MemoSQL.Text);
      // Conexao é um TSQLConnection já conectado ao banco.

      if ErrorCode = 0 then
          ShowMessage('Script rodado com sucesso');

      {Se retornar diferente de "0" é porque algo de errado aconteceu}
      if ErrorCode <> 0 then
         raise Exception.Create( 'Error: code = ' + IntToStr( ErrorCode ) )

   except
      on E: Exception do
         ShowMessage( E.Message );
   end
end;

Só testei em Oracle, mas não vejo motivos para não rodar em Interbase.

Hoje, o componente em questão, estava com a máscara ‘!00:00:00;1;_’ o que obriga o que as posições marcadas pelo 0 sejam preenchidas. Por mais bobo que seja, basta trocar o 0 por 9 e fazer o tratamento no evento que mais lhe convier, no meu caso no OnExit do mesmo, como se segue:

procedure TFrmCadFichaOper.edTempoExit(Sender: TObject);
var
tTemp: TDateTime;
begin
try
tTemp := StrToTime(edTempo.Text);
except
MsgAtencao('Formato de tempo inválido, preencha corretamente.');

if (edTempo.CanFocus) then
edTempo.SetFocus;
end;
end; 

No final a máscara ficou assim: ‘!99:99:99;1;_’.

Para quem riu da minha velha memória, isso eu vi em 1997 na revista Clube Delphi e vou transcrever o artigo todo aqui:

A propriedade EditMask é uma variável do tipo string que define a máscara que limita os dados que podem ser digitados num componente do tipo EditMask ou em um campo de um registro de um Banco de Dados. A máscara limita os caracteres considerados válidos a serem digitados pelo usuário.

Uma máscara consiste de três campos separados por ponto-e-vírgula. O primeiro campo é a máscara propriamente dita, o segundo campo consiste num caracter que define se os caracteres ou máscara devem ser salvos como parte dos dados. O terceiro define o caracter usado para representar os espaços em branco na máscara.

• ! – Se um ! aparecer na máscara, caracteres em branco não são armazenados como dados.
• > – Se um > aparecer na máscara, todos os caracteres seguintes estarão em letras maiúsculas, até que seja encontrado um caractere igual a <.
• < – Se um < aparecer na máscara, todos os caracteres seguintes estarão em letras maiúsculas, até que seja encontrado um caractere igual a >.
• <> – Este sinal significa que as letras maiúsculas e minúsculas serão armazenadas como digitadas pelo usuário.
• \ – Os caracteres que seguem este sinal serão tratados como literais.
• L – Apenas caracteres alfabéticos (a-z e A-Z) sejam aceitos nessa posição.
• l – Apenas caracteres alfabéticos (a-z e A-Z) sejam aceitos nessa posição, mas aceita que sejam omitidos.
• A – Apenas caracteres alfanuméricos (0-9, a-z e A-Z) sejam aceitos nessa posição.
• a – Apenas caracteres alfanuméricos (0-9, a-z e A-Z) sejam aceitos nessa posição, mas aceita que sejam omitidos.
• C – Este caractere faz com que quaisquer caracteres sejam aceitos nesta posição.
• c – Este caractere faz com que quaisquer caracteres sejam aceitos nesta posição, mas aceita que sejam omitidos.
• 0 – Apenas caracteres numéricos (0-9) sejam aceitos nessa posição.
• 9 – Apenas caracteres numéricos (0-9) sejam aceitos nessa posição, mas aceita que sejam omitidos.
• # – Apenas caracteres numéricos (0-9) e sinais de mais (+) ou menos(-) sejam aceitos nessa posição, mas aceita que sejam omitidos.
• : – Este caractere (dois pontos) é usado para separar horas, minutos e segundos em dados horários. Se outro caractere separador de horas, minutos e segundos é definido nos atributos internacionais do Painel de Controle do sistema, este caractere será usado ao invés dos dois pontos.
• / – É usado para separar meses, dias e anos em dados de datas. Se outro caractere separador de meses, dias e anos é definido nos atributos internacionais do Painel de Controle do sistema, este caractere será usado ao invés do caractere /.
• ; – O ponto-e-vírgula é usado para separar máscaras.
• _ – O caractere _ insere espaços em branco na caixa de edição.

Embora essa dica pareça muito boba, ajuda muito lembrar dessas coisas no momento de apuro.

Segue o material do nosso último treinamento, sobre como usar o Delphi, orientado à objetos.
Embora pareça que estamos trabalhando com OO desde sempre, afinal instanciamos objetos baseados em classes, isso não é inteiramente verdade.
Como me disse um professor certa vez: “Seu sistema é orientado à objetos? Ótimo. Me mostre a sua classe NotaFiscalSaída.”

Assim achei por bem usar um exemplo bem simples, estados e cidades para mostrar o poder que o Delphi tem e de quebra demonstrar que o que está errada é a maneira como programamos e não a linguagem que usamos, seja ela qual for.

Primeiramente, começamos com alguns paralelos. No Delphi, para criarmos uma classe, precisamos cria-la como um componente, para mais tarde, criar instancias dele. Usando o Delphi 2006, eu vou em File > New > Package. Então no Project Manager eu clico sobre o pacote com o botão direito e escolho Add New > Other…

A janela que se abrirá me dá várias opções, a que vamos usar está em Delphi Projects > Delphi Files > Component. No Wizard seguinte escolhemos de qual componente o nosso irá herdar suas características (não vou explicar herança aqui). Nesse momento escolheremos TComponent, para pegar somente o mínimo necessário. Na próxima tela, escolha o nome do componente em Class Name, para nós será TCidade (o “T” é padrão do Delphi, use sem questionar). Escolha a Pallete Page que deseja ou digite uma nova, lembre que esse campo é Case Sensitive, portanto atenção ao digitar. Preencha os demais campos se precisar.

A classe cidade:

unit cidade;

interface

uses
  SysUtils, Classes, Estado;

type
  TCidade = class(TComponent)
  private
    Fcid_nome: string;
    Fcid_codigo: integer;
    Festado: TEstado;
    procedure Setcid_codigo(const Value: integer);
    procedure Setcid_nome(const Value: string);
    procedure Setestado(const Value: TEstado);
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property cid_codigo: integer read Fcid_codigo write Setcid_codigo;
    property cid_nome: string read Fcid_nome write Setcid_nome;
    property estado: TEstado read Festado write Setestado;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Objetos Produtec', [TCidade]);
end;

{ TCidade }

procedure TCidade.Setcid_codigo(const Value: integer);
begin
  Fcid_codigo := Value;
end;

procedure TCidade.Setcid_nome(const Value: string);
begin
  Fcid_nome := Value;
end;

procedure TCidade.Setestado(const Value: TEstado);
begin
  Festado := Value;
end;

end.

Vamos falar um pouco da classe cidade. Nela eu coloquei os principais atributos de uma cidade, somente para exemplo. Percebam que os mesmos foram criados baseado na seguinte estrutura:

private
    Fcid_nome: string;
published
    property cid_nome: string read Fcid_nome write Setcid_nome;

(…)

procedure TCidade.Setcid_nome(const Value: string);
begin
  Fcid_nome := Value;
end;

Traduzindo, teremos uma propriedade com o nome cid_nome, do tipo string (notem que sem tamanho definido) que lê o valor para uma variável Fcid_nome e grava através de uma procedure chamada como Setcid_nome. Ótimo, mas o que ganhamos com isso? Para que esconder o real valor de uma variável ao invés de simplesmente torná-la pública? E para que criar um procedimento para atribuir o valor, se a mudança da visibilidade já resolveria? Parece tudo uma grande perda de tempo, mas é um foco na segurança e no reuso.
Imaginem que em determinado momento, nós precisaremos delimitar o tamanho da cidade para o máximo de caracteres que existem no banco de dados, que para o nosso exemplo é de 60 caracteres. Alterando o procedimento SetCid_Nome todo, eu disse TODO, o sistema passa a respeitar a nova regra, sem precisar avisar a nenhuma outra parte do sistema que isso aconteceu. Vejam como ficaria:

procedure TCidade.Setcid_nome(const Value: string);
begin
   if Length(Value) < 60 then
      Fcid_nome := Value;
end;

Viram que simples? Poderíamos melhorar ainda, criando uma mensagem de erro (exceção) que poderia ser tratada pela tela que realizou a chamada ou simplesmente exibida diretamente em tela. Algo mais ou menos assim:

procedure TCidade.Setcid_nome(const Value: string);
begin
   if Length(Value) < 60 then
      Fcid_nome := Value
   else
      raise Exception.Create('O nome da cidade não pode conter mais do que 60 caracteres.');
end;

Várias validações ou procedimentos poderiam ser feitos no momento em que a propriedade é atribuída, como preencher uma outra propriedade, carregar outros componentes em tela, enfim, o limite fica por conta da necessidade do programador.
Se eu não disse antes, o nome desse método chama-se encapsulamento, pois os atributos ficam protegidos (encapsulados) em métodos que lêem e escrevem nas variáveis.
Isso é meio caminho para um estereótipo usado em UML chamado JavaBean, que os meninos que mexem com Java devem conhecer bem.

HÁ GRANDE DIFERENÇA ENTRE FOCO NO PROBLEMA E FOCO NA SOLUÇÃO!!!

O meu amigo, Professor Burnes, montou um evento super legal, o IT Conf. Vai ser um ciclo de palestras aqui em Maringá com algumas cabecinhas bem interessantes, como Ricardo Piologo (Mundo Canibal) e Rodrigo Fernandes (Jacaré Banguela).

IT Conf

As inscrições estão abertas no site do evento. Vou tentar conseguir uns convites extras e sortear pra galera aqui.

Acompanhem por aqui ou pelo twitter. Em breve vou divulgar como vai ser o sorteio.

PS: o evento tem o patrocínio da W3Host e da W3Tutor

Em ’Heróis de Verdade’, o escritor combate a supervalorização das aparências, diz que falta ao Brasil competência, e não auto-estima.

ISTO É - Quem são os heróis de verdade?

Roberto Shinyashiki — Nossa sociedade ensina que, para ser uma pessoa de sucesso, você precisa ser diretor de uma multinacional, ter carro importado, viajar de primeira classe.
O mundo define que poucas pessoas deram certo.
Isso é uma loucura. Para cada diretor de empresa, há milhares de funcionários que não chegaram a ser gerentes.
E essas pessoas são tratadas como uma multidão de fracassados.
Quando olha para a própria vida, a maioria se convence de que não valeu à pena, porque não conseguiu ter o carro, nem a casa maravilhosa.
Para mim, é importante que o filho da moça que trabalha na minha casa, possa se orgulhar da mãe.
O mundo precisa de pessoas mais simples e transparentes.
Heróis de verdade são aqueles que trabalham para realizar seus projetos de vida, e não para impressionar os outros.
São pessoas que sabem pedir desculpas e admitiram que erraram.

ISTO É -O Sr. citaria exemplos?

Shinyashiki – Quando eu nasci, minha mãe era empregada doméstica e meu pai, órfão aos sete anos, empregado em uma farmácia.
Morávamos em um bairro miserável em São Vicente (SP) chamado Vila Margarida. Eles são meus heróis.
Conseguiram criar seus quatro filhos, que hoje estão bem.
Acho lindo quando o Cafu põe uma camisa em que está escrito ’100% Jardim Irene’.
É pena que a maior parte das pessoas esconda suas raízes.
O resultado é um mundo vítima da depressão, doença que acomete hoje 10% da população americana.
Em países como o Japão, a Suécia e a Noruega, há mais suicídio do que homicídio.
Por que tanta gente se mata?
Parte da culpa está na depressão das aparências, que acomete a mulher, que embora não ame mais o marido, mantém o casamento, ou o homem que passa décadas em um emprego, que não o faz se sentir realizado, mas o faz se sentir seguro.

ISTO É – Qual o resultado disso?

Shinyashiki — Paranóia e depressão cada vez mais precoce.
O pai quer preparar o filho para o futuro e mete o menino em aulas de inglês, informática e mandarim. Aos nove ou dez anos a depressão aparece.
A única coisa que prepara uma criança para o futuro, é ela poder ser criança.
Com a desculpa de prepará-los para o futuro, os malucos dos pais estão roubando a infância dos filhos.. Essas crianças serão adultos inseguros e terão discursos hipócritas.
Aliás, a hipocrisia já predomina no mundo corporativo.

ISTO É - Por quê?

Shinyashiki – O mundo corporativo virou um mundo de faz-de-conta, a começar pelo processo de recrutamento.
É contratado o sujeito com mais marketing pessoal.
As corporações valorizam mais a auto-estima do que a competência.
Sou presidente da Editora Gente e entrevistei uma moça que respondia todas as minhas perguntas com uma ou duas palavras.
Disse que ela não parecia demonstrar interesse.
Ela me respondeu estar muito interessada, mas como falava pouco, pediu que eu pesasse o desempenho dela, e não a conversa. Até porque ela era candidata a um emprego na contabilidade, e não de relações públicas.
Contratei-a na hora.
Num processo clássico de seleção, ela não passaria da primeira etapa.

ISTO É - Há um script estabelecido?

Shinyashiki – Sim. Quer ver uma pergunta estúpida feita por um presidente de multinacional no programa ‘O Aprendiz’?
- Qual é seu defeito?
Todos respondem que o defeito é não pensar na vida pessoal:
- Eu mergulho de cabeça na empresa. Preciso aprender a relaxar.
É exatamente o que o Chefe quer escutar.
Por que você acha que nunca alguém respondeu ser desorganizado ou esquecido?
É contratado quem é bom em conversar, em fingir.
Da mesma forma, na maioria das vezes, são promovidos aqueles que fazem o jogo do poder.
O vice-presidente de uma as maiores empresas do planeta me disse:
‘Sabe, Roberto, ninguém chega à vice-presidência sem mentir’.
Isso significa que quem fala a verdade não chega a diretor!

ISTO É - Temos um modelo de gestão que premia pessoas mal preparadas?

Shinyashiki - Ele cria pessoas arrogantes, que não têm a humildade de se preparar, que não têm capacidade de ler um livro até o fim e não se preocupam com o conhecimento.
Muitas equipes precisam de motivação, mas o maior problema no Brasil é competência.
Cuidado com os burros motivados.
Há muita gente motivada fazendo besteira.
Não adianta você assumir uma função, para a qual não está preparado.
Fui cirurgião e me orgulho de nunca um paciente ter morrido na minha mão.
Mas tenho a humildade de reconhecer que isso nunca aconteceu graças a meus chefes, que foram sábios em não me dar um caso, para o qual eu não estava preparado.
Hoje, o garoto sai da faculdade achando que sabe fazer uma neurocirurgia.
O Brasil se tornou incompetente e não acordou para isso.

ISTO É - Está sobrando auto-estima?

Shinyashiki – Falta às pessoas a verdadeira auto-estima.
Se eu preciso que os outros digam que sou o melhor, minha auto-estima está baixa.
Antes, o ter conseguia substituir o ser.
O cara mal-educado dava uma gorjeta alta para conquistar o respeito do garçom.
Hoje, como as pessoas não conseguem nem ser, nem ter, o objetivo de vida se tornou parecer.
As pessoas parecem que sabem, parece que fazem, parece que acreditam.
E poucos são humildes para confessar que não sabem.
Há muitas mulheres solitárias no Brasil, que preferem dizer que é melhor assim.
Embora a auto-estima esteja baixa, fazem pose de que está tudo bem.

ISTO É - Por que nos deixamos levar por essa necessidade de sermos perfeitos em tudo e de valorizar a aparência?

Shinyashiki - Isso vem do vazio que sentimos.
A gente continua valorizando os heróis.
Quem vai salvar o Brasil? O Lula.
Quem vai salvar o time? O técnico.
Quem vai salvar meu casamento? O terapeuta.
O problema é que eles não vão salvar nada!
Tive um professor de filosofia que dizia:
‘Quando você quiser entender a essência do ser
humano, imagine a rainha Elizabeth com uma crise de diarréia durante um jantar no Palácio de Buckingham’. Pode parecer incrível, mas a rainha Elizabeth também tem diarréia.
Ela certamente já teve dor de dente, já chorou de tristeza, já fez coisas que não deram certo.
A gente tem de parar de procurar super-heróis, porque se o super-herói não segura a onda, todo mundo o considera um fracassado.

ISTO É - O conceito muda quando a expectativa não se comprova?

Shinyashiki – Exatamente. A gente não é super-herói nem superfracassado.
A gente acerta, erra, tem dias de alegria e dias de tristeza.
Não há nada de errado nisso.
Hoje, as pessoas estão questionando o Lula, em parte porque acreditavam que ele fosse mudar suas vidas e se decepcionaram.
A crise será positiva se elas entenderem que a responsabilidade pela própria vida é delas.

ISTO É - Muitas pessoas acham que é fácil para o Roberto Shinyashiki dizer essas coisas, já que ele é bem-sucedido. O senhor tem defeitos?

Shinyashiki -Tenho minhas angústias e inseguranças. Mas aceitá-las faz minha vida fluir facilmente.
Há várias coisas que eu queria e não consegui.
Jogar na Seleção Brasileira, tocar nos Beatles (risos). Meu filho mais velho nasceu com uma doença cerebral e hoje tem 25 anos.
Com uma criança especial, eu aprendi que, ou eu a amo do jeito que ela é, ou vou massacrá-la o resto da vida para ser o filho que eu gostaria que fosse.
Quando olho para trás, vejo que 60% das coisas que fiz deram certo.
O resto foram apostas e erros.
Dia desses apostei na edição de um livro, que não deu certo.
Um amigão me perguntou:
‘Quem decidiu publicar esse livro?’
Eu respondi que tinha sido eu. O erro foi meu. Não preciso mentir.

ISTO É - Como as pessoas podem se livrar dessa tirania da aparência?

Shinyashiki – O primeiro passo é pensar nas coisas que fazem as pessoas cederem a essa tirania e tentar evitá-las.
São três fraquezas:
A primeira é precisar de aplauso, a segunda é precisar se sentir amada e a terceira é buscar segurança.
Os Beatles foram recusados por gravadoras e nem por isso desistiram.
Hoje, o erro das escolas de música é definir o estilo do aluno.
Elas ensinam a tocar como o Steve Vai, o B. B. King ou o Keith Richards.
Os MBAs têm o mesmo problema: ensinam os alunos a serem covers do Bill Gates.
O que as escolas deveriam fazer é ajudar o aluno a desenvolver suas próprias potencialidades.

ISTO É - Muitas pessoas têm buscado sonhos que não são seus?

Shinyashiki – A sociedade quer definir o que é certo. São quatroloucuras da sociedade…
A primeira é instituir que todos têm de ter sucesso, como se eles não tivessem significados individuais.
A segunda loucura é:
Você tem de estar feliz todos os dias.
A terceira é:
Você tem que comprar tudo o que puder. O resultado é esse consumismo absurdo.
Por fim, a quarta loucura:
Você tem de fazer as coisas do jeito certo.
Jeito certo não existe.
Não há um caminho único para se fazer as coisas.
As metas são interessantes para o sucesso, mas não para a felicidade.
Felicidade não é uma meta, mas um estado de espírito.
Tem gente que diz que não será feliz, enquanto não casar, enquanto outros se dizem infelizes justamente por causa do casamento.
Você pode ser feliz tomando sorvete, ficando em casa com a família ou com amigos verdadeiros, levando os filhos para brincar ou indo à praia ou ao cinema..
Quando era recém-formado em São Paulo, trabalhei em um hospital de pacientes terminais.
Todos os dias morriam nove ou dez pacientes.
Eu sempre procurei conversar com eles na hora da morte.
A maior parte pega o médico pela camisa e diz:
‘Doutor, não me deixe morrer. Eu me sacrifiquei à vida inteira, agora eu quero aproveitá-la e ser feliz’.
Eu sentia uma dor enorme por não poder fazer nada. Ali eu aprendi que a felicidade é feita de coisas pequenas.
Ninguém na hora da morte diz se arrepender por não ter aplicado o dinheiro em imóveis ou ações, mas sim de ter esperado muito tempo ou perdido várias oportunidades para aproveitar a vida.

Original em: http://pecados7mortais.blogspot.com/2009/06/herois-de-verdade-cuidado-com-os-burros.html