Desenvolvimento de Aplicações Desktop Delphi

1. Desenvolvimento de Aplicações DesktopDelphi Prof. Melo

2. Apresentação • Nome: Hildeberto Melo; • Técnico em Desenvolvimento de Software. Ibratec, PE; • Bacharel em Sistemas de Informação. FIR, PE; • Pós-Graduação em Docência do Ensino Superior. FMN, PE; • Mestre em Ciência da Computação. CIN/UFPE.

3. Roteiro • Competências • Habilidades • Resumo do Programa • Plano de Aula • Critério de Avaliação • Regras de Convivência • Material do Aluno • Avaliações

4. Delphi

5. Delphi

6. Funções • Trim(string) – remove os espaços em branco no início e no fim do texto. • Ex: x := trim(‘ Hildeberto Melo ‘); • X = ‘Hildeberto Melo’; • TrimLeft(string) – remove os espaços em branco no início do texto. • Ex: x := trim(‘ Hildeberto Melo ‘); • X = ‘Hildeberto Melo ’; • TrimRight(string) – remove os espaços em branco no fim do texto. • Ex: x := trim(‘ Hildeberto Melo ‘); • X = ‘ Hildeberto Melo’;

7. Funções • Inc(integer) – acrescenta uma unidade ao valor; • Ex: var x : integer; • X := 10; • Inc(x); • X = 11; • Dec(integer) - – decrescenta uma unidade ao valor; • Ex: var x : integer; • X := 10; • Dec(x); • X = 9;

8. Funções • Strtoint(string) – converte um valor string em um valor inteiro. • Strtofloat(string) – converte um valor string em uma valor float. • Strtotime(string) – converte um valor string em uma valor hora. • Strtodate(string) – converte um valor string em uma valor data. • Strtodatetime(string) - converte um valor string em uma valor data/hora. • Strotocurr(string) - converte um valor string em uma valor moeda.

9. Funções • Length(string) – retorno o tamanho de um texto. • Ex: var int x; • X = length(‘Hildeberto Melo’); • X = 15; • IntToStr(integer) – Converte um valor inteiro em um valor texto. • FloatToStr(float) – Converte um valor float em um valor texto.

10. Funções • IntToStr(integer) – Converte um valor inteiro em um valor texto. • FloatToStr(float) – Converte um valor float em um valor texto. • FloatToCurr(float) – Converte uma valor float em um valor moeda.

11. Mensagens • ShowMessage(texto) • ShowMessage('Hildeberto Melo');

12. Mensagens • Application.MessageBox(texto da mensagem, titulo, ícone); • Application.MessageBox('Hildeberto Melo','Hand',MB_ICONHAND); • Application.MessageBox('Hildeberto Melo','Quaestion',MB_ICONQUESTION); • Application.MessageBox('Hildeberto Melo','Exclamation',MB_ICONEXCLAMATION); • Application.MessageBox('Hildeberto Melo','Asterik',MB_ICONASTERISK); • Application.MessageBox('Hildeberto Melo','Warning',MB_ICONWARNING);

13. Mensagens • Application.MessageBox(texto da mensagem, titulo, ícone); • Application.MessageBox('Hildeberto Melo','Error',MB_ICONERROR); • Application.MessageBox('Hildeberto Melo','Information',MB_ICONINFORMATION); • Application.MessageBox('Hildeberto Melo','Stop',MB_ICONSTOP); • Application.MessageBox('Hildeberto Melo','Mask',MB_ICONMASK);

14. Mensagens • MessageDlg(texto, tipo, botões): integer;

15. Mensagens • MessageDlg(texto, tipo, botões); • MessageDlg('Hildeberto Melo',mtWarning,mbYesNoCancel,0);

16. Mensagens • MessageDlg(texto, tipo, botões); • MessageDlg('Hildeberto Melo',mtInformation,mbYesAllNoAllCancel,0);

17. Mensagens • MessageDlg(texto, tipo, botões); • MessageDlg('Hildeberto Melo',mtError,mbOKCancel,0);

18. Mensagens • MessageDlg(texto, tipo, botões); • MessageDlg('Hildeberto Melo',mtConfirmation,mbAbortRetryIgnore,0);

19. Mensagens • MessageDlg(texto, tipo, botões); • MessageDlg('Hildeberto Melo',mtCustom,mbAbortIgnore,0);

20. Mensagens • MessageDlg(texto, tipo, botões); • MessageDlg('Hildeberto Melo',mtWarning,mbYesNoCancel,0); • MessageDlg('Hildeberto Melo',mtInformation,mbYesAllNoAllCancel,0); • MessageDlg('Hildeberto Melo',mtError,mbOKCancel,0); • MessageDlg('Hildeberto Melo',mtConfirmation,mbAbortRetryIgnore,0); • MessageDlg('Hildeberto Melo',mtCustom,mbAbortIgnore,0);

21. Conexão Com Banco de Dados • 1ª parte da disciplina

22. Criando Uma Conexão ODBC • Vá em: • Iniciar do Windows • Configurações • Painel de Controle • Ferramentas Administrativas • Fontes de Dados ODBC

23. Criando Uma Conexão ODBC Para adicionar uma nova fonte clique no botão Adcionar

24. Access • Aparecerá esta tela com os drives disponíveis para conexão • Vamos escolher o Driver do Microsoft Access (*.mdb) e clicar em concluir

25. Access • Informar o nome da fonte de dados, ex: CTD2008 • Selecionar o Banco de Dados, clicando no botão selecionar

26. Access • Informe onde está o arquivo do banco • Depois confirme clicando no ok

27. SQL Server • Aparecerá esta tela com os drives disponíveis para conexão • Vamos escolher o Driver do SQL Server e clicar em concluir

28. SQL Server • Informar o nome do alias • Escolher o servidor no qual deseja se conectar

29. SQL Server • Após informado os dados clicar em avançar.

30. SQL Server • Caso não haja um usuário definido no banco de dados escolher a opção Com autenticação do windows, caso contrário escolha a opção com autenticação do SQL Serve, nesse caso deverá ser informado o login e senha. • Clicar em avançar.

31. SQL Server • Escolher o banco de dados no qual deseja se conectar. • Clicar em avançar.

32. SQL Server • Aparecerá esta tela com opções de mudança de idioma e outras informações, não há necessidade de alterar as opções. • Clicar em concluir.

33. SQL Server • Aparecerá esta tela com as informações da conexão • Clique no botão testar conexão pra verificar se está conectando com sucesso.

34. SQL Server • Aparecerá esta tela com o resultado do teste. • Após estas etapas, basta ir clicando nos botões de OK/Confirmar e está concluída a etapa de criação da conexão.

35. No Delphi • Abrir o Delphi e Iniciar um nova aplicação

36. No Delphi • Adcionar um DataModule ao projeto

37. No Delphi

38. Table DataBase Paleta BDE

39. Informar o Alias criado anteriormente No DataModule • Adcionar o componente DataBase Informar o nome do componente

40. Propriedades do DataBase Colocar a opção LoginPropt para True Colocar a opção Connected para True

41. Table Adcionar um Table No DataModule

42. Table Informar o DataBaseName Ativar a Table Informar a TableName

43. Adcionando os Campos a Table • Dar um duplo clique no componente Table1 do DataModule • Irá aparecer uma caixa, onde clicaremos com botão direito do mouse nesta caixa • Escolheremos a opção “Add All Fields” 3 2 1

44. DataSource

45. DataSource • Colocar um DataSource no DataModule • Escolher a tabela a qual irá se vincular 1 2

46. Paleta DataControls DBGrid DBEdit DBNavigator DBText

47. Form Principal • Colocar os Componentes DBGrid e DBNavigator • Fazer com que o Form Principal use o DataModule 1 2

48. Form Principal • Vincular a propriedade DataSource do DBNavigator e DBGrid ao DataSource1

49. Ir no Object Inspector do Form Principal e escolher a aba de eventos, o evento OnCreate

50. Form Principal • Colocar os seguintes comandos abaixo, no evento OnCreate do Form Principal, para ativar a conexão com o banco de dados e ativar a tabela.