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. Competência • Identificar os componentes de aceso a banco de dados, aplicando as técnicas apropriadas para implementação de aplicações cliente servidor

4. Roteiro • IDE Delphi • Principais componentes acesso a banco de dados • Manipulação dos componentes • Eventos • Propriedades • Relatórios • Atividade para avaliação da competência

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

6. Criando Uma Conexão ODBC – Windows 7 • Passo a passo: • Vána pasta c:\windows\sysWon64 • Execute o aplicativoodbcad32.exe

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

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

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

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

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

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

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

14. 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.

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

16. 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.

17. 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.

18. 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.

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

20. No Delphi • Adcionar um DataModule ao projeto

21. No Delphi

22. Table DataBase Paleta BDE

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

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

25. Table Adcionar um Table No DataModule

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

27. 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

28. DataSource

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

30. Paleta DataControls DBGrid DBEdit DBNavigator DBText

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

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

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

34. 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.

35. Ir no Object Inspector do Form Principal e escolher a aba de eventos, o OnDestroy

36. Form Principal • Colocar os seguintes comandos abaixo, no evento OnDestroy do Form Principal, para fechar a conexão.

37. Propriedades do Projeto • Ir no Menu Project -> options • Colocar a criação do datamodule como o primeiro

38. Rodar a Aplicação • Resultado

39. Componente TTable • Locate • Filter

40. Localizando Registros • Para localizar registros você pode usar vários métodos, mas o melhor deles é o Locate, no exemplo abaixo é feita uma pesquisa exata. • if not DtmCli.Tbl.Locate('CodCli', Edt.Text, []) then •   ShowMessage('Cliente não encontrado.'); • Você também pode fazer uma pesquisa parcial e/ou sem sensitividade de caso usando o terceiro parâmetro, que é um conjunto de opções. • DtmCli.Tbl.Locate('Nome', Edt.Text, [loPartialKey, loCaseInsensitive]); • Lopartialkey – pesquisas parciais, só precisa informar parte do nome. • LocaseInsensitive – desconsidera maiúsculas e minúsculas • Se você precisar fazer uma pesquisa por mais de um campo, separe os nomes dos campos por ponto e vírgula e use a função VarArrayOf para criar um array com os valores que você quer procurar. • if not DtmPed.Tbl.Locate('Vendedor;Data', VarArrayOf([EdtVendedor.Text, EdtData.Text]), [loCaseInsensitive]) then  ShowMessage('O vendedor não realizou nenhuma venda nessa data'); • Caso os campos pesquisados sejam indexados, a pesquisa será muito mais eficiente, senão será criado um filtro temporário da BDE para localizar os registros • Para utilizar o Locate em um formulário é necessário colocar na claúsula USES do form, a classe DB.

41. Utilizando o filter • Utilizamos a propriedade Filter e Filtered do componente TTable, para filtrar um determinado número de registros na tabela. • A propriedade Filter recebe uma String com o filtro. Ex: nomeDoCampo = ‘conteúdo da pesquisa’ • A propriedade Filtered ativa o filtro, tendo como valores: false ou true.

42. Tela • Adicionar na tela • Um Edit e um Botão, para ser utilizado na consulta com Locate. • Um Edit e dois Botões para ser utilizado com o filter

43. Locate • Clique do botão consultar com locate, colocar este código.

44. Filter • Clique dos botões Filtrando e Limpando filtro.

45. Tela antes de utilizar os comandos Locate e Filter

46. Locate • Ao informar no Edit a palavra Wra, o locate localizou o primeiro registro da tabela que continha a palavra.

47. Locate • Informando um nome que não existe na tabela

48. Filter • Foi informado a palavra Snapper, ele filtrou e deixou apenas os registro que continham a palavra informada.

49. Dica • CharSet da aspa simples #39 • Podemos concatenar strings que precisam de aspas simples assim: • Variavel := 'state = '+#39+Texto+#39; • Variavel := ‘state = ‘ + ‘’’’ + texto + ‘’’’;

50. Status do Componente Table • Insert • Append • Edit • Post • Cancel • Delete • Refresh