Material II-Bimestre

1. Universidade do Vale do ParaíbaColégio Técnico Antônio Teixeira FernandesDisciplina Banco de Dados I. Material II-Bimestre Objetos de Controle, Eventos Funções de Manipulação de data e hora, Manipulação de Strings site: http://www1.univap.br/~wagner Prof. Responsáveis Wagner Santos C. de Jesus

2. Objetos de Controle Delphi conta com uma barra de tarefas capaz de permitir a confecção de rotinas mas sofisticadas com relação a parte visual da aplicação.

3. Usando Objetos principais do Delphi Criando uma caixa de lista. (ListBox)

4. Atribuindo dados para caixa de lista. Usando a propriedade Items. Permite acrescentar em cada posição da caixa de lista um item enviado pelo métodos Add() que adiciona criando uma nova posição na caixa de texto. Exemplo : ListBox1.items.Add("Maria"); ListBox1.Items.Add("José"); ListBox1.Items.Add("Célia");

5. Saída :

6. Capturando o Item Selecionado por intermédio da propriedade ItemIndex. Exemplo : x := ListBox1.ItemIndex; ShowMessage(IntToStr(x)); Obs : No exemplo acima x será um número de 0 a 2.

7. Capturando uma "String" da caixa de Lista. Método Strings[]. Exemplo : x := ListBox1.ItemIndex; a := ListBox1.Items.Strings[x]; Obs : Irá retorna com a string selecionada na caixa de Lista pelo usuário armazenando o conteúdo na variável (a).

8. Criando uma Caixa de Combinação. (ComboBox).

9. Atribuindo dados para uma caixa de combinação. Exemplo : ComboBox1.Items.Add("Item-1"); ComboBox1.Items.Add("Item-2"); ComboBox1.Items.Add("Item-3"); ComboBox1.Items.Add("Item-4");

10. Saída :

11. Removendo dados de uma caixa de Combinação. Método Delete().

12. Atenção : Todas as propriedades e métodos usados para a caixa de lista (ListBox) valem para a caixa de combinação (ComboBox1).

13. Criando uma caixa de verificação. (CheckBox)

14. Saida :

15. Criando botões de rádio. (RadioGroup)

16. Saída :

17. Capturando a informação selecionada no botão de rádio.

18. Criando uma Barra de Rolagem. (ScrollBar).

19. Capturando dados de uma Barra de Rolagem. procedure TForm1.ScrollBar1Change(Sender: TObject); var y:Integer; begin y := ScrollBar1.Position; Label1.Caption := IntToStr(y); end;

20. Criando um Painel. (Panel).

21. Exemplo : (Panel)

22. Manipulando os Eventos. Evento vem a ser qualquer tipo de operação disparada por um usuário da aplicação desenvolvida.

23. OnClick - Dispara o código de programa ao selecionar o objeto com o click do mouse. Exemplo: procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(‘Ok, Botão foi Clicado !!’); end;

24. OnChange - Dispara o código quando um objeto sofre algum tipo de modificação. procedure TForm1.Edit1Change(Sender: TObject); begin if (Edit1.text <> 'D') and (Edit1.text <> 'N') and (Edit1.text <> '') then begin ShowMessage('O período deve ser diurno ou noturno..'); edit1.Clear; end; end;

25. OnEnter - Dispara o código quando o objeto for selecionado. procedure TForm1.Edit1Enter(Sender: TObject); begin ShowMessage('Digite D ou N maiusculo !!'); end;

26. OnExit - Dispara o código quando o foco abandonar o mesmo. procedure TForm1.Edit1Exit(Sender: TObject); begin ShowMessage('Foi Digitado o caracter '+ edit1.text); end;

27. OnDblClick - Dispara o código quando for selecionado com um duplo click. procedure TForm1.FormDblClick(Sender: TObject); begin Button1.Left := Button1.Left + 5; end;

28. OnActivate - Dispara o código após ter desenhado o formulário. procedure TForm1.FormActivate(Sender: TObject); begin ShowMessage('Não Esquecer de verificar a data...'); end;

29. OnCreate - Dispara o código antes de desenhar o formulário. procedure TForm1.FormCreate(Sender: TObject); begin Edit2.text := 'Nada na caixa'; end;

30. OnMouseDown- Dispara o código ao soltar o botão de direito do mouse. procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var i : integer; begin Label1.Caption := 'Houve um clique'; end;

31. OnMouseMove - Dispara o código ao mover o mouse no objeto. procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Label1.Caption := 'Clique aqui para sair'; end;

32. OnClose - Dispara o código antes de fechar o formúlario. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin ShowMessage('O sistema irá fechar todos os programas e irá sair'); end;

33. Funções e Procedimentos Função vem a ser um fragmento de código ao ser executado retornar um valor para o programa principal.

34. Funções Numéricas Abs() - Retornar o valor absoluto de um número dado. Exemplo : x := abs(-3); retorna com valor 3 para variável x.

35. Trunc() - retorna com truncamento de número real.Retornando um inteiro. Sintaxe : <varInteira> := trunc(<real>); Exemplo : x := trunc(23.45); Retorna o truncamento do número para 23.

36. Sqr() - Eleva um determinado valor ao quadrado. Sintaxe : <varReal> := Sqr(<Valor>); Exemplo : y := Sqr(3); Retorna o valor de y igual 9.

37. Sqrt() - Retorna com a raiz quadrada de um valor em ponto flutuante. Sintaxe : <valor> := Sqrt(<valor>); Exemplo : xy = Sqrt(49); Retorna o valor 7.

38. Power() - Retorna o resultado de uma base elevada a um expoente. Sintaxe : <valorReal> := Power(<Base>,<Exp>); Exemplo : x := power(10,2); Retorna com 100 resultado de 10 ao quadrado.

39. Ln() - Calcula o logaritmo Natural de um número Sintaxe : <VarReal> := Ln(<valor>); Exemplo : y := Ln(100); Retorna o valor de y com 4.605170.

40. Exp() - Retorna com o valor especificado, ou seja de e elevado a x operação contrária a ln(). Sintaxe : <varReal> := Exp(<Valor>); Exemplo : k := Exp(4.60); Retorna para o valor de k aproximadamente 100.

41. Pi - Retorna com valor do número Pi. Sintaxe: <VarReal> := Pi; Exemplo : v := Pi; Retorna para v, valor de pi = 3.1415926535897932385.

42. Sin() - Retorna com seno de um ângulo em graus Sintaxe: <VarReal> := Sin(<Valor>); Exemplo : v := Sin(30*Pi/180); Retorna o valor do seno convertido em radianos o valor será 0.5.

43. cos() - Retorna com cosseno de um ângulo em graus Sintaxe: <VarReal> := cos(<Valor>); Exemplo : v := cos(30*Pi/180); Retorna o valor do seno convertido em radianos o valor será 0.5.

44. frac() - Retorna a parte fracionária de um valor dado. Sintaxe: <VarReal> := frac(<Valor>); Exemplo : y := frac(4.987); Retorna o valor para y = 0.987.

45. log10() - Retorna o logaritmo na base dez para um valor especificado. Sintaxe: <VarReal> := log10(<Valor>); Exemplo : y := log10(100); Retorna o valor para y = 2.

46. logN() - Retorna o logaritmo na base N para um valor especificado. Sintaxe: <VarReal> := logN(<base>,<valor>); Exemplo : y := logN(10,100); Retorna o valor para y = 2.

47. max() - Retorna com o maior entre dois valores. Sintaxe: <VarTipo> := max(<valor-x>,<valor-y>); Exemplo : y := max(100,30); Retorna o valor para y = 100.

48. min() - Retorna com o menor entre dois valores. Sintaxe: <VarTipo> := min(<valor-x>,<valor-y>); Exemplo : y := min(100,30); Retorna o valor para y = 30. Obs : A função max(), mim() são polimorficas.

49. Inc() - Incrementa um a uma determinada variável. Sintaxe: <VarTipo> := Inc(<valor-x>[,<valor-y>]); Exemplo : y := Inc(x,3); Retorna o valor de x = 3, se no caso o x for igual a zero. / Função dec análoga a função Inc, decrementando o valor.

50. odd() - Retorna true se o número dado for um número impar. Sintaxe: <Varboolean> := odd(<valor>); Exemplo : y := odd(13); Retorna true para o argumanto impar.