Portfólio
[pic] SISTEMA DE ENSINO PRESENCIAL CONECTADO ANÁLISE E DESENVOLVIMENTO DE SISTEMAS SILVIO ERMELINDO GONÇALVES or7 to view nut*ge produção textual interdiciplinar INDIVIDUAL orientação a objetos) e bibliotecas dinâmicas. A linguagem Borland Delphi, apesar de ser um sistema pago, permite sincronizar datasets mestres e detalhes sem programação adlcional. ode-se incluir, excluir e alterar registros sem qualquer programação adicional, tem o suporte para automação remota completo e tem o depurador mais robusto (mostra a pilha de chamadas a procedimentos e funções, necessária quando se faz euso de código), além de oferecer mais opções de instalação e não executar um evento cada vez que o usuário se movimenta para um novo registro na tela. O Delphi originalmente é direcionado para a plataforma Microsoft Windows, mas também pode ser utilizadada por desenvolvedores que programam aplicações para Linux com o (Borland Kylix), e para o Microsoft .
NET framework com suas versões mais recentes. 04 Vantagens da orientação a objetos • A programação orientada a objetos tem como principal objetivo reduzir a complexidade no desenvolvimento de software e aumentar sua produtividade. A análise, projeto e programação orientadas a objetos são as respostas para o aumento da complexidade dos ambientes computacionais, que se caracterizam por sistemas heterogêneos, distribuídos em redes, em camadas e baseados em interfaces gráficas.
As principais vantagens da POO são maior facilidade para reutilização de código e por consequência do projeto possibilidade do desenvolvedor trabalhar em um nível mais elevado de abstração – utiliza ão de um único padrão conceitual durante todo o processo d oftware – maior para desenvolvimento e manutenção de sistemas. O Borland Delphi se enquadra muito bem nesses termos.
OS Código em gorland Delphi para o sistema requerido unit Unitl; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, Dg, DBTables, Grids, DBGrids, DBCtrIs, ADODB; type -rporrnl = class(TForm) BitBtn2: TBitBtn; BitBtn3: TBit3tn; Bitgtn4: TBitgtn; p anel 1 : -rpanel; DataSource1: TDataSource; pane12: TPaneI; ADOConnection1 : TADOConnection; ADOQrysenhas: TADOQuery; Bit3tr15: TBit3tn; ADOQyListaSenhas: TADOQuery; Labe13: TLabel; Labe12: TLabel; PAGF3rl(F7 Senha ‘+inttostr(proximo)+’, atendimento Caixa 1′; ADOQrySenhas.
Active false; ADOQrysenhas. SQL. CIear; ADOQrySenhas. SQLAdd(‘update Senhas set Caixa = :vCaixa, Status – :vStatus where NumeroSenha – :vNumeroSenha’); ADOQrySenhas. Parameters[O]. Value – // Numero do Caixa Atendente ADOQrySenhas. Parameters[1]. Value ‘AR’; //Atendimento Realizado ADOQrySenhas. Parameters[2]. Value proximo; ADOQrysenhas. ExecSQL; end 07 begin // Se não houver senhas para atender Showmessage(‘Não há clientes para atendmento. ‘); end; ADOQryListaSenhas. Active := false; ADOQryListaSenhas. SQLClear; ADOQryListaSenhas. SQL.
Add(‘select * from Senhas order by NumeroSenha’); ADOQryListasenhas. ExecsQL; ADOQryListaSenhas. Active true; procedure TForm1. BitBtn 1 Click(Sender: TObject); var ultimo : integer; begin procedure TForm1 . FormClose(Sender: TObject; var Action: TCloseAction); free; procedure TForm1. BitBtn3Click(Sender: TObject); ADOQrySenhasActive false; ADOQrySenhas. SQL. Add(‘select * from Senhas where Status = ustatus order by NumeroSenhai); ADOQrysenhas. parametersw]. value ‘AA’; ADOQrySenhas. ExecSQL; ADOQrySenhas. Active := true; if ADOQrySenhas. Empty = false then // Se houver senhas para atender begln ADOQrySenhas. First; proximo ADOQrySenhas. FieldgyName(‘NumeroSenha’). Aslnteger; Panell . Caption ‘Senha ‘+inttostr(proximo)+’, atendimento Caixa 2′; ADOQrySenhas. Parameters 0 . Value 2; // Numero do ADOQrySenhas. Parameters[0]. Value ‘AA ADOQrysenhas. ExecsQL; ADOQrySenhas. Active true; proxima ADOQrySenhas. FieldByName(‘NumeroSenha’). AsInteger; atendimento Caixa 3′; Caixa = :vCaixa, Status :vStatus where NumeroSenha NNumeroSenha’); ADOQrySenhas. Parameters[O]. VaIue 3; // Numero do ‘AR’; ‘[Atendimento ADOQrySenhas. Parameters[21.
Value proxlmo; Showmessage(‘Náo há clientes para atendimento. ‘); ADOQryListaSenhas. Active false; ADOQryListaSenhasSQLClear; ADOQryListaSenhas. SQLAdd(‘select * from Senhas order by ADOQO/LiStasenhas. EX PAGFsrl(F7 ADOQryListaSenhas. SQL. Add(‘select * from Senhas arder by Numerosenha’); ADOQ ryListaSenhas. ExecSQL; ADOQryListaSenhasActive true; end. Tela de demonstração 12 Equipamentos de transmissão de dados Apesar da ampla gama de equipamentos de transmissão de dados que podem ser utilizados nesse sistema o intuito é torná-lo mais simples e m o possível, então deve- PAGFarlf7