terça-feira, 27 de agosto de 2013

JavaScript: Move condicional

JavaScript: Move condicional
receptor = ( (condição) ? verdadeiro : falso)
Exemplo: NomeSexo = ((VarSexo == "M") ? "Masculino" : "Feminino")
Os eventos são fatos que ocorrem durante a execução do sistema, a partir dos quais você pode definir ações a serem realizadas pelo programa. Logo abaixo apresentamos a lista dos eventos possíveis, indicando os momentos em que eles podem ocorrer, bem como, os objetos passíveis de sua ocorrência.

EVENTOS E OCORRÊNCIAS
onload
na carga do documento. Ou seja, só ocorre no BODY(corpo) do documento.
onunload
Ocorre na descarga (saída) do documento. Também só ocorre no BODY(corpo).

onchange
Ocorre quando o objeto perde o focus e houve mudança de conteúdo. Válido
onblur
Ocorre quando o objeto perde o focus, independente de ter havido mudança. Válido para os objetos Text, Select e Textarea.

onfocus
Ocorre quando o objeto recebe o focus. válido para os objetos Text, Select e Textarea.
onclick
Ocorre quando o objeto recebe um Click do Mouse. válido para os objetos Buton, Checkbox, Radio, Link, Reset e Submit.

onmouseover
onmouseover  Ocorre quando o ponteiro do mouse passa por sobre o objeto. válido apenas para Link.

onselect
Ocorre quando o objeto é selecionado. Válido para os objetos Text e Textarea.         
onsubmit
Ocorre quando um botão tipo Submit recebe um click do mouse.
Válido apenas para o Form.
           
Mas espera aí! Onde se usam esses eventos?
Não se preocupe. Eles também serão muito usados e você entenderá aos poucos cada um.
Apartir desses comandos, operadores e eventos, começamos a ter uma base interessante para os exemplos dos próximos posts.

Abraço! E Volte sempre!

JavaScript: Comandos Condicionais


JavaScript: Estruturas de Controle ou Comandos Condicionais

Existem algumas estruturas de controle que lhe permitem modificar o fluxo de execução de um programa ou seja elas possui comandos que condicionam a execução de uma certa tarefa à veracidade ou não de uma determinada condição, ou enquanto determinada condição for verdadeira.

São eles: (IF, FOR, WHILE)

Comando IF
if (condição)
{ /*ação para condição satisfeita*/ }
[ else
{ /*ação para condição não satisfeita*/ } ]
Exemplo:
if (Idade <>
{Categoria = "Menor" }
else
{Categoria = "Maior"}
Comando FOR
for ( [inicialização/criação de variável de controle ;]
[condição ;]
[incremento da variável de controle] )
{ ação }
Exemplo:
for (x = 0 ; x <= 10 ; x++)
{alert ("X igual a " + x) }
Comando WHILE
Executa uma ação enquanto determinada condição for verdadeira.
while (condição)
{ ação }
Exemplo:
var contador = 10
while (contador > 1)

{ contador-- }

JavaScript: Controles Especiais


JavaScript: Controles Especiais

CONTROLES ESPECIAIS E SIGNIFICADO
\b
backspace
\f
form feed
\n
new line caracters
\r
carriage return
\t
tab characters
//
Linha de comentário
/*....*/
Delimitadores para inserir um texto com mais de uma linha como comentário.

Os delimitadores naturais para uma string são " ( aspas dupla) ou ' ( aspas simples). Caso seja necessário a utilização destes caracteres como parte da string, utilize \ precedendo " ou '. Como por exemplo : alert ("Cuidado com o uso de \" ou \' em uma string")

            

JavaScript:OPERADORES MATEMÁTICOS E SIGNIFICADO

JavaScript: Principais Comandos, Eventos e Operadores
Hoje abordaremos mais uma parte básica do JavaScript.
JavaScript: Operadores Matemáticos
Os operadores Matemáticos a serem utilizados em cálculos, referências de indexadores e manuseio de strings são :
OPERADORES MATEMÁTICOS E SIGNIFICADO
+
adição de valor e concatenação de strings.
-
subtração de valores
*
multiplicação de valores
/
divisão de valores
%
obtém o resto de uma divisão


Estes operadores serão largamente utilizados, portanto, teremos uma noção mais precisa do seu funcionamento.

JavaScript: Operadores Lógicos


JavaScript: Principais Comandos, Eventos e Operadores

Hoje abordaremos mais uma parte básica do JavaScript.

JavaScript: Operadores Lógicos

Os principais operadores lógicos a serem utilizados em comandos condicionais são:

OPERADORES LÓGICO E SIGNIFICADO

= =
Igual
!=
Diferente
> 
Maior
>=
Maior ou Igual
< 
Menor
<=
Menor ou Igual
&&
E
||
Ou


Delphi - Máscara em Edites


Delphi - Máscara em Edit´s
Delphi - Caracteres usados nas máscaras dos Edit´s

! Faz com que a digitação da máscara fique parada no primeiro caracter, fazendo com que os caracteres digitados que se movam. Ex: !;0;_

> Todos os caracteres alfabéticos digitados após este símbolo serão convertidos para maiúsculos. Ex: >aaa;0;_

< Todos os caracteres alfabéticos digitados após este símbolo serão convertidos para minúsculos. Ex: <aaa;0;_

<> Anula o uso dos caracteres > e <. Ex: >aaa<>aaa;0;_

\ Utilizado para marcar determinado caractere não especial como fixo, não podendo sobrescrevê-lo. Ex: !\(999\)000-0000;0;_

L Caracteres alfabéticos (A-Z, a-z.) de preenchimento obrigatório. Ex: LLL;1;_

l (Letra ele minúscula) Caracteres alfabéticos (A-Z, a-z.) de preenchimento opcional. Ex: lll;1;_

A Caracteres alfanuméricos (A-Z, a-z, 0-9) de preenchimento obrigatório. Ex: AAA;1;_

a Caracteres alfanuméricos (A-Z, a-z, 0-9) de preenchimento opcional. Ex: aaa;1;_

C Exige preenchimento obrigatório com qualquer caractere para a posição. Ex: CCC;1;_

c Permite qualquer caractere para a posição de preenchimento opcional. Ex: ccc;1;_

0 Caracteres numéricos (0-9) de preenchimento obrigatório. Ex: 000;1;_

9 Caracteres numéricos (0-9) de preenchimento opcional. Ex: 999;1;_

# Caracteres numéricos (0-9) e os sinais de - ou + de preenchimento opcional. Ex: ###;1;_

: Utilizado como separador de horas, minutos e segundos. Ex: !00:00:00;1;_

/ Utilizado como separador de dia, mês e ano. Ex: !99/99/9999;1;_

; Separa os três campos da máscara.


_ Caractere usado normalmente nas posições do campo ainda não preenchidas.

Exportar para o Excel

Delphi - Exportar para o Excel
// Baseado num exemplo encontrado em:
// { http://www.swissdelphicenter.ch/torry/showcode.php?id=379 }
// Uses Windows, DB, Variants, ComObj, SysUtils;


function ExportarParaExcel(DataSet: TDataSet; xlOrientacao: Integer): Boolean;
   function RefToCell(RowID, ColID: Integer): String;
   var
     ACount, APos: Integer;
   begin
     ACount := ColID div 26;
     APos := ColID mod 26;
     if APos = 0 then
     begin
       ACount := ACount - 1;
       APos := 26;
     end;

     if ACount = 0 then
       Result := Chr(Ord('A') + ColID - 1) + IntToStr(RowID)
     else if ACount = 1 then
       Result := 'A' + Chr(Ord('A') + APos - 1) + IntToStr(RowID)
     else
       Result := Chr(Ord('A') + ACount - 1) + Chr(Ord('A') + APos - 1) + IntToStr(RowID);
   end;
const
   xlWBatWorkSheet = -4167;
var
   XLApp, Sheet, Data: OLEVariant;
   linha, coluna: Integer;
   nRec: TBookmark;
begin
   Result := False;
   // Prepara os dados
   Data := VarArrayCreate([1, DataSet.RecordCount+1, 1, DataSet.FieldCount], varVariant);
   // Obs: DataSet.RecordCount + 1 -> ( + 1 ) é por causa dos nomes das colunas.
   linha := 1;
   for coluna := 0 to Pred(DataSet.FieldCount) do
   begin
      Data[linha, coluna + 1] := DataSet.Fields[coluna].DisplayLabel;
   end;
   nRec := DataSet.GetBookmark;
   try
      with DataSet do
      begin
         DisableControls;
         First;
         while not eof do
         begin
            inc(linha);
            for coluna := 0 to Pred(DataSet.FieldCount) do
            begin
               Data[linha, coluna + 1] := DataSet.Fields[coluna].Value;
            end;
            Next;
         end;
      end;
      // Cria o objeto Excel-OLE
      XLApp := CreateOleObject('Excel.Application');
      try
         // Esconde o Excel
         XLApp.Visible := False;

         // Adiciona um novo Workbook
         XLApp.Workbooks.Add(xlWBatWorkSheet);
         Sheet := XLApp.Workbooks[1].WorkSheets[1];

         // Preenche a planilha
         Sheet.Range[RefToCell(1, 1), RefToCell(DataSet.RecordCount+1, DataSet.FieldCount)].Value := Data;
         Sheet.Range[RefToCell(1, 1), RefToCell(DataSet.RecordCount+1, DataSet.FieldCount)].EntireColumn.AutoFit;
         XLApp.Workbooks[1].WorkSheets[1].PageSetup.Orientation := xlOrientacao;
         XLApp.Visible := True;
         Result := True;
      Except
         // Fecha o Excel, sem nenhuma mensagem
         if not VarIsEmpty(XLApp) then
         begin
            XLApp.DisplayAlerts := False;
            XLApp.Quit;
            XLAPP := Unassigned;
            Sheet := Unassigned;
         end;
      end;
   finally
      Dataset.GotoBookmark(nRec);
      Dataset.FreeBookmark(nRec);
      Dataset.EnableControls;
   end;
end;

//
// Exemplo de uso:
//
procedure TForm1.BitBtn1Click(Sender: TObject);
const xlOrientacao: Integer = 2;
// 1= xlPortrait
// 2= xlLandscape;
begin
   if not ExportarParaExcel(ClientDataSet1, xlOrientacao) then
     ShowMessage('Erro na exportação para o Excel.');

end;