Apostila Delphi 7 em Formato Livreto para Imprimir
Apostila Delphi 7 em Formato Livreto para Imprimir
Apostila Delphi 7 em Formato Livreto para Imprimir
qryAcesso.Params.ParamByName('prmVend').Value := Antes de começar a trabalhar com o Delphi, é importante ter algumas noções
oVenda.Vendedor.ID;
qryAcesso.Params.ParamByName('prmNum').Value := oVenda.Numero;
do que está envolvido na programação Windows e no Delphi em particular.
qryAcesso.Params.ParamByName('prmData').Value := Algumas coisas tornam a tarefa de programação no Windows (e ambientes
oVenda.DataVenda; baseados em eventos e interface gráfica) bem diferente de outros ambientes e
qryAcesso.Params.ParamByName('prmValor').Value := oVenda.Valor;
das técnicas de programação estruturada normalmente ensinadas nos cursos
end; de lógica de programação:
qryAcesso.ExecSQL;
IBTransaction.Commit; Independência do Hardware: No Windows, o acesso aos dispositivos de
Result := True; hardware é feito com intermédio de drivers fornecidos pelo fabricante do
hardware, o que evita que o programador tenha que se preocupar com
except on e: exception do
ShowMessage('Problemas no acesso ao banco de dados ' + #13 + detalhes específicos do hardware. Como acontecia com a programação em
e.Message); DOS.
end;
End;
Configuração Padrão: O Windows armazena centralmente as configurações
procedure TdtmVenda.ObterTotalVendas(dataRef1, dataRef2: TDateTime; de formato de números, moeda, datas e horas, além da configuração de cores,
IdVendedor: integer); livrando o programador de se preocupar com esses detalhes específicos.
begin
try
if not IBConexao.Connected then Multitarefa: Antigamente, no DOS (não estamos falando do Prompt do MS-
begin
IBConexao.Open;
DOS), um programa geralmente tomava o controle da máquina só para si, e
IBTransaction.StartTransaction; outros programas não rodavam até que o mesmo fosse fechado. Já no
end; Windows vários programas são executados de maneira simultânea e não há
if qryAcesso.Active then
como evitar isso.
qryAcesso.Close;
Controle da Tela: No DOS geralmente um programa ocupa todo o espaço da
qryAcesso.SQL.Clear;
qryAcesso.SQL.Add('select ven."IDVenda", ven."IDVendedor", tela, e o usuário via e interagia apenas com aquele programa. Já no Windows,
ven."Numero", ven."Data", ven."Valor"'); todas informações mostradas e todas entradas recebidas do usuário são feitas
qryAcesso.SQL.Add('from venda ven'); por meio de uma janela, uma área separada da tela que pode ser sobreposta
qryAcesso.SQL.Add('where ("IDVendedor" = :prmNum and ven."Data"
between :prmData1 and :prmData2)'); por outras janelas do mesmo ou de outros programas.
qryAcesso.Params.ParamByName('prmNum').Value := IdVendedor; Padrões de Interface: No Windows, todos os elementos de interface
qryAcesso.Params.ParamByName('prmData1').Value := dataRef1;
qryAcesso.Params.ParamByName('prmData2').Value := dataRef2; aparecem para o usuário e interagem da mesma forma. Além disso, existem
padrões definidos pela Microsoft que são recomendados para conseguir a
qryAcesso.Open; consistência entre aplicativos. Falaremos de alguns deles no curso, mas a
except melhor forma de aprendê-los é analisar os aplicativos Windows mais usados do
on e: exception do mercado.
ShowMessage('Problemas no acesso ao banco de dados ' + #13 +
e.Message);
end; Eventos e a Cooperação com o Sistema: Num programa criado para DOS
end; (como os programas escritos em Clipper) ele é responsável pelo fluxo de
end. processamento, temos que definir claramente não só que instruções, mas
também em que ordem devem ser executadas, ou seja a execução segue uma
ordem preestabelecida pelo programador, e o programa só chama o sistema
operacional quando precisa de alguma coisa dele. Em Windows não é bem
assim. Nosso programa não controla o fluxo de processamento, ele responde e
trata eventos que ocorrem no sistema. Existem muitos eventos que podem
ocorrer, sendo que os principais são aqueles gerados pelo usuário através do
mouse e do teclado. A coisa acontece mais ou menos assim: O usuário clica o end;
mouse e o Windows verifica que aplicação estava debaixo do mouse no if qryAcesso.Active then
momento em que foi clicado. Em seguida ele manda uma mensagem para a qryAcesso.Close;
aplicação informando que ocorreu um clique e as coordenadas do cursor do qryAcesso.SQL.Clear;
mouse na tela no momento do clique. A aplicação então responde à mensagem qryAcesso.SQL.Add('select ven."IDVenda", ven."IDVendedor",
executando uma função de acordo com a posição do mouse na tela. É claro ven."Numero", ven."Data", ven."Valor"');
qryAcesso.SQL.Add('from venda ven');
que o Delphi toma conta do serviço mais pesado e facilita muito as coisas para qryAcesso.SQL.Add('where ven."Numero" = :num');
o programador. Detalhes como as coordenadas da tela em que ocorreu o
clique, embora estejam disponíveis, dificilmente são necessários nos qryAcesso.Params.ParamByName('num').Value := iNum;
programas. Isso, como veremos, afeta radicalmente o estilo de programação e qryAcesso.Open;
a forma de pensar no programa. A seqüência de execução do programa
depende da seqüência de eventos. if qryAcesso.RecordCount <> 0 then
begin
result := True;
oVenda.Numero := iNum;
Conhecendo o Delphi 6 oVenda.DataVenda := qryAcesso.FieldByName('Data').AsDateTime;
oVenda.Valor := qryAcesso.FieldByName('Valor').AsFloat;
Esta apostila se baseia na versão 6 do Borland Delphi, mas seus conceitos oVenda.Vendedor.BuscaMatricula(qryAcesso.FieldByName('IDVendedor').AsInt
eger);
podem ser estendidos para qualquer versão do Delphi que possua recursos Id := qryAcesso.FieldByName('IDVenda').AsInteger;
semelhantes. end;
except
on e: Exception do
O Delphi oferece dois níveis de programação distintos. Existe o nível que o ShowMessage('Problemas no acesso ao banco de dados ' + #13 +
E.Message);
manual chama de designer, que utiliza os recursos de programação visual e end;
aproveita os componentes prontos, e o nível do component writer, onde end;
escrevemos os componentes para o designer utilizar nas aplicações. Podemos function TdtmVenda.Grava(oVenda: TVenda): Boolean;
dizer que o component writer programa em um nível mais baixo e o designer begin
em um nível mais alto. Para este curso, consideraremos apenas a Result := false;
try
programação no nível do designer. if not IBConexao.Connected then
begin
Inicie o Delphi clicando no ícone Delphi 6 que normalmente se encontra no IBConexao.Open;
IBTransaction.StartTransaction;
menu Iniciar / Programas / Borland Delphi 6. end;
if qryAcesso.Active then
qryAcesso.Close;
qryAcesso.SQL.Clear;
qryAcesso.Params.ParamByName('prmId').Value := oVenda.ID;
qryAcesso.Params.ParamByName('prmVend').Value :=
oVenda.Vendedor.ID;
qryAcesso.Params.ParamByName('prmNum').Value := oVenda.Numero;
qryAcesso.Params.ParamByName('prmData').Value :=
oVenda.DataVenda;
qryAcesso.Params.ParamByName('prmValor').Value := oVenda.Valor;
end
qryAcesso.SQL.Clear;
qryAcesso.SQL.Add('select ven."IDVendedor", ven."Matricula",
ven."Nome", ven."SalarioBruto", ven."PercentualComissao"');
qryAcesso.SQL.Add('from vendedor ven');
qryAcesso.Open;
except on e:exception do
ShowMessage('Problemas na conexão com a base de dados ' + #13 +
e.Message);
end
end;
end.
unit DMVenda;
interface
uses
SysUtils, Classes, CLVenda, IBDatabase, DB, IBCustomDataSet, IBQuery,
Dialogs;
type
TdtmVenda = class(TDataModule)
IBConexao: TIBDatabase;
qryAcesso: TIBQuery;
IBTransaction: TIBTransaction; Quando ativamos o Delphi, a tela inicial é parecida com a acima. Os itens que
private você está vendo formam o que chamamos de IDE, com um projeto novo
{ Private declarations }
public aberto. Na janela superior, temos a barra do menu principal do Delphi, à
function Grava(oVenda : TVenda) : Boolean; esquerda a SpeedBar, com as opções mais comuns e à direita a paleta de
function Busca(iNum : integer; oVenda : TVenda; componentes. Estes componentes formam a base da programação visual e é
var Id : integer) : boolean;
procedure ObterTotalVendas(dataRef1, dataRef2:TDateTime; IdVendedor onde o designer vai buscar recursos para criar sua aplicação.
: integer); A seguir, vamos analisar as ferramentas que compõe o ambiente de
end; desenvolvimento e os arquivos que constituem um projeto.
var
dtmVenda: TdtmVenda;
Janela Principal
implementation
uses CLVendedor;
{$R *.dfm}
{ TdtmVenda }
if qryAcesso.Active then
qryAcesso.Close;
qryAcesso.SQL.Clear;
Id := qryAcesso.FieldByName('IDVendedor').AsInteger;
Component Palette (Paleta de Componentes)
end;
except on e:exception do
ShowMessage('Problemas na conexão com a base de dados ' + #13 + Cada ícone na paleta refere-se a um componente que, quando colocado em
e.Message); um Form, executa determinada tarefa: por exemplo, um TLabel mostra um
end
end; texto estático, e um TEdit é uma caixa de edição que permite mostrar e alterar
dados, o TComboBox é uma caixa que permite selecionar um dentre os itens
function TdtmVendedor.BuscaMatricula(iId: integer;
oVendedor: TVendedor): Boolean;
de uma lista, etc.
begin
result := false;
try A paleta de componentes tem diversas guias, nas quais os componentes são
if not IBConexao.Connected then agrupados por funcionalidade. Outras guias podem ser criadas com a
begin
IBConexao.Open;
instalação de componentes de terceiros.
IBTransaction.StartTransaction; Segue abaixo a relação completa de todas as guias que compõe o Delphi 6
end;
Enterprise:
if qryAcesso.Active then
qryAcesso.Close;
qryAcesso.SQL.Clear;
qryAcesso.SQL.Add('select ven."IDVendedor", ven."Matricula",
ven."Nome", ven."SalarioBruto", ven."PercentualComissao"');
qryAcesso.SQL.Add('from vendedor ven');
Standard: componentes padrão da interface do Windows, usados para barras
qryAcesso.SQL.Add('where ven."IDVendedor" = :prmId'); de menu, exibição de texto, edição de texto, seleção de opções, iniciar ações
de programa, exibir listas de itens etc. Geralmente são os mais usados.
qryAcesso.Params.ParamByName('prmId').Value := iId;
qryAcesso.Open;
unit DMVendedor;
interface
Data Access: componentes de acesso a bancos de dados e conexão com uses
controles de exibição de dados. SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, IBQuery,
CLVendedor, Dialogs;
type
TdtmVendedor = class(TDataModule)
IBConexao: TIBDatabase;
qryAcesso: TIBQuery;
Data Controls: componentes semelhantes aos encontrados nas guias IBTransaction: TIBTransaction;
private
Standard e Additional, porém ligados a banco de dados. { Private declarations }
public
function Grava(oVendedor : TVendedor) : boolean;
function Busca(sMatricula : string; oVendedor : TVendedor;
var Id: integer) : boolean;
function BuscaMatricula(iId : integer; oVendedor : TVendedor) :
Boolean;
dbExpress: componentes de conexão com bancos de dados SQL introduzida procedure obterVendedoresAtivos;
no Delphi 6 e no Kylix (Delphi para Linux). Entre os principais recursos desta { Public declarations }
end;
nova arquitetura estão dispensar o uso do BDE (Borland Database Engine)
para acesso a dados e fazer um acesso muito mais rápido e leve. A var
configuração e instalação também são mais simples que a do BDE. Atualmente dtmVendedor: TdtmVendedor;
existem drivers para Oracle, DB/2, Interbase e MySQL entre outros. Não existe implementation
suporte para bancos de dados Desktop, assim, não permite acesso a dBase,
Paradox ou Access para estes você deverá continuar a utilizar o BDE. {$R *.dfm}
{ TdtmVendedor }
qryAcesso.SQL.Clear;
qryAcesso.SQL.Add('select ven."IDVendedor", ven."Matricula",
ven."Nome", ven."SalarioBruto", ven."PercentualComissao"');
qryAcesso.SQL.Add('from vendedor ven');
BDE: componentes de acesso a dados utilizando a BDE (até o Delphi 5 faziam qryAcesso.SQL.Add('where ven."Matricula" = :prmMat');
parte da guia Data Access). A BDE é a engine que acompanha o Delphi desde
qryAcesso.Params.ParamByName('prmMat').Value := sMatricula;
sua primeira versão. Muito completa, permite acessar desde bases de dados
desktop, como Paradox, dBase ou Access, até bases de dados SGDB, como qryAcesso.Open;
Interbase, DB/2, Oracle, Informix, SyBase ou MS-SQL Server, todos em modo
if qryAcesso.RecordCount <> 0 then
nativo. Permite ainda o acesso a outros bancos de dados através de ODBC. begin
First;
while not eof do
begin
oVenda := TVenda.Create;
ADO: componentes de acesso a dados da interface dbGo (introduzida no
oVenda.Numero := FieldByName('Numero').AsInteger; Delphi 5 como o nome de ADO Express) através da tecnologia ADO (ActiveX
oVenda.DataVenda := FieldByName('Data').AsDateTime; Data Objects), da Microsoft. Tanto a ADO como o OLE DB (drivers de acesso)
oVenda.Valor := FieldByName('Valor').AsFloat;
estão incluídos no MDAC (Microsoft Data Access Components) e permitem
oVenda.Vendedor.BuscaMatricula(FieldByName('IDVendedor').AsInteger); acesso a uma série de bancos de dados e à ODBC. Sua principal vantagem é
oVenda.FID := FieldByName('idvenda').AsInteger; estar incorporada as versões mais recentes do Windows (2000/XP e ME) não
lstVendas.Add(oVenda); sendo necessário nenhuma instalação de engine de acesso. Também é
Next; escalável, permitindo acesso desde bases de dados desktop até aplicações
multicamadas. A desvantagem é que não é portável para outras plataformas,
end;
end; caso queira portar seu sistema para Linux, terá que trocar todos os
end; componentes de acesso a dados.
Result := lstVendas;
end;
end.
WebServices: componentes que formam a BizSnap, uma plataforma RAD para
Implementação da Terceira Camada (Persistência) desenvolvimento de Web services, que simplifica a integração B2B criando
conexões e Web services baseados em XML/SOAP
A terceira camada cuida da gravação dos dados em nosso banco de dados.
Para simplificar, usaremos o banco Firebird e conexão via IBX.
end;
procedure TVenda.Clear;
begin
FID := 0;
Qreport: QuickReport é um gerador de relatórios que acompanha o Delphi e se FNumero := 0;
integra totalmente ao mesmo, sem a necessidade de run-time ou ferramentas FData := 0;
externas como o Cristal Report, etc. Estes componentes permitem a criação de FValor := 0;
FVendedor.Clear;
diversos tipos de relatórios de forma visual e também a criação de preview end;
personalizado.
constructor TVenda.Create;
begin
FVendedor := TVendedor.Create;
end;
destructor TVenda.Destroy;
Dialogs: O Windows tem caixas de diálogo comuns, como veremos, que begin
FVendedor.Free;
facilitam mostrar uma interface padrão dentro do seu programa para as tarefas inherited;
comuns, como abrir e salvar arquivos, impressão, configuração de cores e end;
fontes etc. Esta guia tem componentes que permitem utilizar essas caixas de
function TVenda.Grava: boolean;
diálogo comuns. begin
result := dtmVenda.Grava(Self);
end;
Win 3.1: esta guia contém controles considerados obsoletos, que estão var lstVendas : TList;
disponíveis apenas para compatibilidade com programas antigos. Não crie oVenda : TVenda;
begin
programas novos que utilizem esses controles. lstVendas := TList.Create;
with dtmVenda.qryAcesso do
begin
if RecordCount <> 0 then
Samples: contém exemplos de componentes para que você possa estudá-los begin
e aprender a criar seus próprios componentes. O código fonte desses
exemplos está no subdiretório SOURCE\SAMPLES do diretório de instalação
do Delphi.
lstVendas.Free;
Result := rTotal;
end;
end;
Abra uma nova unit e salve com o nome de CLVendas. Veja o código na Figura
abaixo: Indy Clients: componentes para criação de aplicativos clientes para protocolos
HTTP, TCP, FTP, DNS Resolver, POP3, SMTP, TELNET, entre outros.
unit CLVenda;
interface
uses
Classes, CLVendedor; Indy Servers: componentes para criação de aplicativos servidores de HTTP,
type
TCP, FTP, TELNET, GOPHER, IRC, entre outros.
TVenda = class
protected
FID : integer;
FNumero : integer;
FData : TDateTime;
FValor : real;
FVendedor : TVendedor; Indy Misc: componentes complementares aos das guias Indy Clients e Indy
Servers, para criação de aplicativos clientes e servidores com acesso a
procedure SetNumero(iNumero : integer);
procedure SetValor(rValor : real);
internet, como clientes de ftp, irc e browsers.
public
constructor Create;
destructor Destroy; override;
function Busca(iNumero : integer) : boolean;
function Grava : boolean;
procedure Clear;
Servers: componentes para automatização do Microsoft Office, permitindo o
class function ObterTotalVendas(dataRef1, dataRef2 : TDateTime; controle, impressão e criação de documentos destes aplicativos dentro do seu
idVendedor : integer) : TList;
programa.
constructor TVendedor.Create;
begin
inherited;
Formulário para criação do Aplicativo FSalarioBruto := 0;
FSalarioLiquido := 0;
FPercentualComissao := 0;
end;
dtmVendedor.obterVendedoresAtivos;
with dtmVendedor.qryAcesso do
begin
if RecordCount > 0 then
begin
first;
while not eof do
begin
oVendedor := TVendedor.Create;
oVendedor.FId := FieldByName('IdVendedor').AsInteger;
oVendedor.FMatricula := FieldByName('Matricula').AsString;
oVendedor.FNome := FieldByName('Nome').AsString;
oVendedor.FSalarioBruto :=
FieldByName('SalarioBruto').AsFloat;
oVendedor.FPercentualComissao :=
FieldByName('PercentualComissao').AsFloat;
Cada aplicativo criado em Delphi é chamado de projeto e pode ser formado por
um ou mais formulários (Janelas), ou ainda em casos especiais não possuírem lstVendedores.Add(oVendedor);
janela alguma (Console Application). Next;
end;
É sobre estes formulários que serão colocados os componentes para a criação end;
end;
da interface do aplicativo.
Result := lstVendedores;
end;
Todo formulário possui um arquivo de programa-fonte correspondente,
chamado Unit, que pode ser visualizado no editor de código (Code Editor). A function TVendedor.obterTotalVendas(dataRef1, dataRef2: TDateTime):
janela do editor de código pode ser acessada clicando-se no botão Toggle real;
var
Form/Unit da SpeedBar caso o Formulário esteja selecionado; você também iAux : integer;
pode clicar na borda que aparece logo abaixo do formulário, ou ainda rTotal : real;
pressionando-se a tecla F12 que permite alternar entre o editor de código e o lstVendas : TList;
oVenda : TVenda;
formulário. begin
lstVendas := TList.Create;
lstVendas := TVenda.ObterTotalVendas(dataRef2, dataRef2, self.ID);
rTotal := 0;
implementation
{ TVendedor }
procedure TVendedor.Clear;
begin
FId := 0;
Object TreeView
FMatricula := '';
FNome := '';
FSalarioBruto := 0;
FPercentualComissao := 0;
end;
procedure TFrmConsultaComissoes.btnVerificarClick(Sender: TObject);
var
oVendedor : TVendedor;
rSalLiq, rSalBruto, rComissao: real;
begin
if (cmbVendedor.Text <> '') and (edtData1.Date <> 0) and
(edtData2.Date <> 0) then
begin
oVendedor := (cmbVendedor.Items.Objects[cmbVendedor.ItemIndex] as
TVendedor);
rSalBruto := oVendedor.SalarioBruto;
rSalLiq := oVendedor.CalcularSalarioLiquido(edtData1.DateTime,
edtData2.DateTime);
O Delphi 6 introduziu uma nova janela, o Object TreeView, que mostra o
rComissao := rSalLiq - rSalBruto;
relacionamento entre os componentes que são colocados no Form. Como
veremos adiante, existem componentes que funcionam como “recipientes”, ou edtSalBruto.Text := FloatToStr(rSalBruto);
seja, podem conter outros componentes dentro de si. O Object TreeView edtComissao.Text := FloatToStr(rComissao);
edtSalLiquido.Text := FloatToStr(rSalLiq);
permite a visualização destes relacionamentos e o acesso rápido a estes
objetos. end;
end;
end.
Vejamos como fica a implementação de nossas classes. Abra uma nova unit e
salve com o nome de CLVendedor. Veja como fica o código na figura abaixo:
Objeto
atualmente unit CLVendedor;
selecionado.
interface
uses
Classes, DateUtils;
type
TVendedor = class
protected
FId : integer;
FMatricula : string;
FNome : string;
FSalarioBruto : real;
FSalarioLiquido : real;
O Object Inspector é a ferramenta responsável por permitir a modificação das FPercentualComissao : real;
propriedades dos componentes/objetos de forma visual, durante o projeto procedure SetSalarioBruto(rSalario : real);
procedure SetPercentualComissao(rPercentual : real);
(Design Time). Por enquanto, pense em propriedades como sendo as function obterTotalVendas(dataRef1, dataRef2 : TDateTime) : real;
características dos componentes, tanto visuais quanto funcionais. O combobox public
na parte superior desta janela dá acesso a todos os objetos do Form atual e constructor Create;
function CalcularSalarioLiquido(dataRef1, dataRef2 : TDateTime) :
sempre exibe o nome do objeto/componente selecionado. Uma vez real;
selecionado você pode inspecionar suas propriedades e altera-las se desejar. function Busca(sMatricula : string) : boolean;
A alteração das propriedades pode modificar a aparência de objetos visuais e function BuscaMatricula(iID : integer):boolean;
também seu funcionamento padrão.
A alteração o valor de uma propriedade depende de seu tipo, para textos e
unit CNComissoes; números basta apenas digita-los no quadro correspondente (em frente ao
interface nome da propriedade). Caso o mesmo seja formado por uma lista, será
fornecido um combobox com os valores possíveis neste mesmo local.
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Se existir um sinal de adição à esquerda do nome da propriedade, isto indica
Forms, que a mesma possui subpropriedades, para acessá-las clique no sinal de
Dialogs, ComCtrls, StdCtrls; adição que as mesmas serão exibidas. Algumas propriedades possuem um
type
editor de propriedade, nestes casos é fornecido um botão com reticências.
TFrmConsultaComissoes = class(TForm) Clicando-se neste botão a tela de edição da propriedade deve ser exibida.
Label1: TLabel;
cmbVendedor: TComboBox;
Label2: TLabel; A ordem e as propriedades que devem ser exibidas no Object Inspector podem
edtData1: TDateTimePicker; ser configuradas clicando-se com o botão direito do mouse sobre o mesmo
Label3: TLabel; para acionar seu menu popup. A opção View permite selecionar as categorias
edtData2: TDateTimePicker;
btnVerificar: TButton; a serem exibidas, desativando uma categoria, todas as propriedades que
Label4: TLabel; pertencem a elas não serão mostradas. A opção Arrange do menu permite
Label5: TLabel; ordenar por categoria ou por nome.
edtSalBruto: TEdit;
edtSalLiquido: TEdit;
Label6: TLabel; Além da modificação das propriedades, os componentes sofrem a ação de
edtComissao: TEdit; eventos. Um evento ocorre quando o programa está sendo executado e o
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); usuário pressiona o botão do mouse ou uma tecla, por exemplo. Você pode
procedure btnVerificarClick(Sender: TObject); querer que seu programa execute uma determinada tarefa se uma dessas
private
{ Private declarations }
ações ocorrem.
public
{ Public declarations }
end;
var
FrmConsultaComissoes: TFrmConsultaComissoes;
implementation
{$R *.dfm}
uses CLVendedor;
Vejamos um esquema gráfico de como é estruturado um projeto em Delphi: procedure TfrmVendas.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
action := caFree;
end;
Project1
end.
(arquivo de projeto)
extensão .DPR
(Delphi PRoject)
Consultar Comissões
Form1 Form2 Unit3 Vá em File – New – Form e desenhe a tela descrita na figura abaixo, que será
a tela de consulta de comissões:
extensão .DFM extensão .DFM extensão .PAS
(Delphi ForM
Unit1 Unit2
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
edtData.Date := oVenda.DataVenda;
edtValor.Text := FloatToStr(oVenda.Valor);
cmbVendedor.Text := oVenda.Vendedor.Nome; type
end; TForm1 = class(TForm)
end;
end;
private
{ Private declarations }
procedure TfrmVendas.FormCreate(Sender: TObject); public
var
lstVendedores : TList;
{ Public declarations }
oVendedor : TVendedor; end;
iAux : integer;
begin
oVenda := TVenda.Create; var
lstVendedores := TVendedor.obterListaVendedoresAtivos; Form1: TForm1;
for iAux := 0 to lstVendedores.Count - 1 do
begin implementation
oVendedor := lstVendedores[iAux];
cmbVendedor.AddItem(oVendedor.Nome, oVendedor); {$R *.dfm}
end;
end; end.
procedure TfrmVendas.FormDestroy(Sender: TObject);
begin
OVenda.Free; Vamos analisar o código acima:
end;
• Na primeira linha, o nome em frente à palavra unit, no caso Unit1, indica
procedure TfrmVendas.btnGravarClick(Sender: TObject);
begin
o nome dado ao arquivo com a programação do formulário. Se o
if (edtNumero.Text <> '') and formulário fosse salvo com este nome ele geraria um arquivo externo
(edtData.Date <> 0) and com o nome de Unit1.pas e outro com o nome de Unit1.dfm. (Quando for
(edtValor.Text <> '') and
(cmbVendedor.Text <> '') then salvar seus formulários você deve dar nomes mais significativos).
begin
oVenda.Numero := StrToInt(edtNumero.Text); • Na linha seguinte, a palavra interface delimita a seção de interface na
oVenda.DataVenda := edtData.Date; qual serão colocadas as definições de funções, procedimentos, tipos e
oVenda.Valor := StrTofloat(edtValor.Text); variáveis que poderão ser vistos por outras units da aplicação.
oVenda.Vendedor := • A cláusula Uses dentro da seção interface indica quais units deverão ser
(cmbVendedor.Items.Objects[cmbVendedor.ItemIndex] as TVendedor);
ligadas para poder complementar a nossa . Ao criar um Form as Units
if oVenda.Grava then definidas no código acima são inseridas automaticamente, pois
begin fornecem o suporte para criação do mesmo. Ao inserir componentes
edtNumero.Clear;
edtData.Date := Date; num Form, outras Units podem ser adicionadas a esta lista.
edtValor.Clear;
cmbVendedor.Text := ''; • A seguir temos a definição dos tipos do programa, identificada pela
edtNumero.SetFocus; palavra type. Neste ponto temos a definição de uma classe TForm1 que
oVenda.Clear;
end
é derivada da classe base TForm. Ao se acrescentar componentes no
else Form também será gerado no código definição correspondente aos
edtData.SetFocus; mesmos. (O conceito de classes e objetos será explicado no Capítulo 2)
end
else • O próximo item é a definição de variáveis e constantes globais, através
begin
ShowMessage('Campos inválidos');
da palavra reservada var. Neste ponto é criada uma variável com
end; visibilidade global (pode ser vista em outras units nas quais a mesma
end; seja incluída na cláusula uses)
• A palavra chave implementation delimita a segunda seção da unit,
onde serão colocadas as funções e variáveis que serão acessadas
apenas por ela mesma (não são visíveis em outras units).
• O símbolo {$R *.dfm} faz a associação da unit com seu respectivo form
unit CDVendas;
e não deve ser modificado. Uma unit de funções não possui esta
diretiva. interface
• Ao Final da Unit, temos uma linha com end. Ele é o marcador de final de uses
arquivo. Qualquer coisa colocada após esta linha será ignorada. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
• Opcionalmente, uma unit pode ter ainda duas seções: initialization e Dialogs, ComCtrls, StdCtrls, IDGlobal;
finalization, com comandos que são executados quando a aplicação é type
iniciada ou finalizada. TfrmVendas = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Um exemplo não muito comum mas interessante Label4: TLabel;
edtValor: TEdit;
edtNumero: TEdit;
Este exemplo não é algo que você faz regularmente quando está cmbVendedor: TComboBox;
desenvolvendo suas aplicações, mas ele serve para mostrar a independência edtData: TDateTimePicker;
btnGravar: TButton;
entre o Code Editor e o Designer. Inicie o Delphi e clique em File | New | btnCancelar: TButton;
Application. Coloque um button do Tool Palette no formulário como abaixo: procedure btnCancelarClick(Sender: TObject);
procedure edtNumeroExit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnGravarClick(Sender: TObject);
procedure edtValorKeyPress(Sender: TObject; var Key: Char);
procedure edtNumeroKeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmVendas: TfrmVendas;
implementation
{$R *.dfm}
Agora recorte o button do formulário usando o menu Edit ou as teclas de atalho procedure TfrmVendas.edtNumeroExit(Sender: TObject);
Ctrl-X. Depois, pressione F12 para abrir o editor de código e posicione o cursor begin
if edtNumero.Text = '' then
no final do arquivo. Escolha Paste (ou Ctrl-V) o button será copiado no Code begin
Editor. edtData.Date := Date;
edtValor.Clear;
cmbVendedor.Text := '';
end
else
begin
if oVenda.Busca(StrTOInt(edtNumero.Text)) then
begin
ShowMessage('Valor inválido');
edtSalBruto.SetFocus;
end;
end
end;
end;
end;
end. O código que você vê acima é igual ao código que aparece nos arquivos de
formulário *.dfm. Você pode modificar o código acima. Que tal mudarmos, via
código, o button para um checkbox? Para isso temos que mudar o tipo do
objeto para a classe TcheckBox. Você também poderá mudar outras
Cadastrar Vendas
propriedades, mude a propriedade Caption para ‘&Aprovado’. As alterações
são mostradas abaixo:
Vá em File – New – Form e desenhe a tela descrita na figura abaixo, que será
o nosso cadastro de vendas.
crie um programa chamado “Alô Mundo!” (Hello World!). Não quebraremos esta procedure TfrmVendedores.btnGravarClick(Sender: TObject);
tradição aqui. begin
if (edtMatricula.Text <> '') and
Agora iremos adicionar um controle do tipo Button no form. Mudaremos (edtNome.Text <> '') and
algumas propriedades do nosso form. Clique no formulário para “setar” o focus. (edtSalBruto.Text <> '') and
(edtPercentualComissao.Text <> '') then
Usando o Object Inspector, configure a propriedade Caption do formulário begin
para “Hello World Demo”. oVendedor.Matricula := edtMatricula.Text;
oVendedor.Nome := edtNome.Text;
Selecione o Button no form. Altere a propriedade Caption para “Click oVendedor.SalarioBruto := StrTOFloat(edtSalBruto.Text);
oVendedor.PercentualComissao :=
here”. StrTOfloat(edtPercentualComissao.Text);
De um duplo clique no Button para abrir o evento Click. O Delphi já cria e if oVendedor.Grava then
registra para você um evento chamado ButtonClick event handler. Você begin
poderá começar escrever seu código que será executado quando o Button for edtMatricula.Clear;
edtNome.Clear;
clicado. edtSalBruto.Clear;
edtPercentualComissao.Clear;
edtMatricula.SetFocus;
oVendedor.Clear;
end
else
edtNome.SetFocus;
end
else
ShowMessage('Campos inválidos');
end;
Vá em File – New – Form e desenhe a tela descrita na figura abaixo que será
Movendo Componentes o nosso cadastro de vendedores.
unit CDVendedores;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, IDGlobal;
Outra maneira fácil de fazer múltipla seleção de componentes é pressionar a
type
tecla Shift enquanto você vai clicando nos componentes que você quer TfrmVendedores = class(TForm)
selecionar.
Para os eventos OnClick dos itens “Cadastro de Vendedor”, “Cadastro de Depois de selecionar múltiplos componentes, eles todos podem ser movidos
Vendas” e “Consulta de Comissões”, digite o código abaixo. Não esqueça de juntos para uma nova posição no formulário.
colocar no início da seção Implementation, a cláusula uses apontando para as
referidas units.
Redimensionando Componentes
unit MenuPrincipal;
interface
Você pode também mover/redimensionar componentes via teclado
diretamente.
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, • Ctrl+<teclas de setas> moverá o controle ou grupo de controles para
Forms, pixel por pixel.
Dialogs, Menus;
• Shift+<teclas de setas> redimensionará o controle ou grupo de controles
type
TfrmMenu = class(TForm)
pixel por pixel.
MainMenu1: TMainMenu;
Cadastro1: TMenuItem;
Vendedor1: TMenuItem;
Vendas1: TMenuItem;
Consulta1: TMenuItem;
Vendedores1: TMenuItem;
Comisses1: TMenuItem;
Relatrio1: TMenuItem;
Emitir1: TMenuItem;
EmitirFolhadePagamentodeComisses1: TMenuItem;
Sair1: TMenuItem;
procedure Vendedor1Click(Sender: TObject);
procedure Vendas1Click(Sender: TObject);
procedure Sair1Click(Sender: TObject);
procedure Comisses1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmMenu: TfrmMenu;
implementation
{$R *.dfm}
uses
CDVendedores, CDVendas, CNComissoes;
Vamos montar a tela principal de nossa aplicação para poder a partir dela,
chamar rotinas que caracterizarão nossa “primeira camada”.
Cadastro
Vendedor
Vendas
Consulta
Vendedores
Comissões
Relatório
Emitir Faturamento
Emitir Folha de Pagamento de Comissões
Para criar um formulário MDI, crie um novo projeto e mude a propriedade do
Form FormStyle para fsMDIForm. Coloque nomes mais significativos para
as propriedades Name (FormPrincipal) e Caption (Progenitora
encontramos depoimentos de produtos estáveis, oferecendo performance e MDI) do Form. Adicione também um componente do TMainMenu e deixe-o
segurança. São alguns dos bancos de objeto de mercado: Cachê configurado como abaixo:
(InterSystems www.intersystems.com.br) , Jasmine da Computer Associates
(www.ca.com) e Gemstone da Gemstone (www.gemstone.com). Esperamos
ansiosamente que eles completem a travessia (já percorria há muito tempo
pelos bancos relacionais) e conquistem a confiança dos usuários.
Vejamos quais seriam as tabelas geradas a partir das classes para o nosso
programa de vendas: Ao executar o aplicativo, nota-se que o progenitor já abre automaticamente os
três Form filhos definidos anteriormente. Para que isso não aconteça devemos
Vendedor Venda tirar os formulários filhos do Auto-Create no Delphi. Em tempo de projeto vá no
IDVendedor IDVenda menu Project | Options:
Matricula IDVendedor
Nome Numero
SalarioBruto Data
PercentualComissao Valor
Capítulo 3
Implementando OO em Camadas
A partir da análise dos requisitos (que aqui não estão explicitamente descritos),
chegamos à seguinte lista (simplificada) de casos de uso:
• Cadastrar vendedores
• Lançar Vendas
• Consultar vendedores
• Consultar comissões
• Emitir faturamento
• Emitir folha de Pagamento de Comissões
Cadastro
Deixe no campo Auto-Create forms somente o FormPrincipal (formulário Vendedor
progenitor), os demais devem ser transferidos para o campo Available forms. Vendas
Isso impedirá que a aplicação cria automaticamente esses formulários filhos no
momento da execução. Consulta
Nota: Sempre faça esse procedimento quando criar novos Forms filhos. Vendedores
Comissões
Iremos agora criar os formulários filhos a partir do Menu criado no formulário Relatório
progenitor. As seleções do menu (como File, seguido da opção de submenu Emitir Faturamento
Child 1, Child 2 e Child 3 seguido da opção de menu Window) são métodos Emitir Folha de Pagamento de Comissões
comuns utilizados para criar novas janelas filhas.
Para criar o formulário a partir do menu adicione o seguinte código no evento Cada item de menu estará chamando uma tela, que pode pertencer à própria
OnClick do submenu Child 1: aplicação ou a classe. Se a tela pertencer à própria aplicação, ela será uma
classe visual que se encarregará de coletar as informações do usuário e
transmitir às classes, por meio de troca de mensagens.
A primeira resposta seria: por meio dos bancos de objetos. Esses bancos
Faça o mesmo para as opções Child 2 e Child 3 do menu. permitem armazenar mais do que somente textos, mas também imagens, sons,
vídeo, etc. Todavia, os bancos de objetos ainda estão buscando “um lugar ao
sol” no mercado. Mais é certo que muito se evoluiu nos últimos anos. E já
with (oMedia as TMediaPonderada) do
begin No próximo capítulo introduziremos conceitos sobre OOP (Object Oriented
Valor1 := StrToFloat(edtValor1.Text); Programming – Programação Orientada a Objeto) e analisaremos em maior
Valor2 := StrToFloat(edtValor2.Text);
Peso1 := StrToInt(edtPeso1.Text); profundidade as propriedades e os eventos do Form e de alguns componentes.
Peso2 := StrToInt(edtPeso2.Text);
end;
end;
rMedia := oMedia.CalcularMedia;
ShowMessage('A média é ' + FloatToStr(rMedia));
except
ShowMessage('Problemas na associação dos valores');
end;
end;
Propriedades Básicas
Da mesma forma, crie uma nova unit, salve com o nome de Name: É comum a todos os componentes da paleta. O Delphi nomeia
CLMediaPonderada e digite o código abaixo: automaticamente todos os componentes que são incluídos no form (inclusive o
proprio form). Usa o nome da classe do componente mais um número
sequencial. O nome atribuído pelo Delphi pode ser mantido, mas é
unit CLMediaPonderada; aconselhável renomear os componentes que serão referidos no programa. No
interface nosso primeiro exemplo, o programa AloMundo, o Form e o Label que
inserimos tinham os nomes de Form1 e Label1, mas nós os alteramos para
uses Classes, CLMEdia;
FormPrincipal e LabelMensagem. Como não fizemos nenhuma programação
type isso seria até desnecessário, mas você deve criar o hábito de renomear todos
TMediaPonderada = class(TMedia) os componentes que utiliza, caso seja feita referência a eles no código fonte, é
protected
FPeso1 : integer;
muito mais claro imaginar que um botão chamado ButtonFechar seja para
FPeso2 : integer; fechar seu form do que se o nome fosse Button1 ou Button13. Quando você
procedure SetPeso1(valor : integer); renomeia um componente, o Delphi atualiza automaticamente todo o código
procedure SetPeso2(valor : integer);
public gerado por ele, o que inclui o cabeçalho da Unit, os eventos do componente e
constructor Create; as propriedades de outros componentes que fazem referência ao componente
function CalcularMedia : real; override; renomeado, mas não atualiza o código gerado por você. Exemplo: se
property Peso1 : integer read FPeso1 write SetPeso1; renomearmos um botão de Button1 para ButtonIncluir, o Delphi atualizará o
property Peso2 : integer read FPeso2 write SetPeso2; cabeçalho da unit, o nome dos eventos de Button1, mas você terá que atualizar
end; todas as referências que você fez ao Button1 em seu código com o novo nome.
implementation Aliás, esta é uma regra geral no Delphi: ele nunca modifica automaticamente o
código gerado pelo programador, mesmo que esteja em comentário. E por
{ TMediaPonderada } segurança, você deve fazer o mesmo, não modifique o código gerado por ele, a
function TMediaPonderada.CalcularMedia: real; não ser que saiba exatamente o que está fazendo, poderá inutilizar seu form,
var rMedia : real; em alguns casos tendo problemas até para salva-lo.
iSomaPesos : integer;
begin
rMedia := ( Valor1 * Peso1 ) + ( Valor2 * Peso2 ); Caption: Todos os componentes que podem apresentar um rótulo tem esta
iSomaPesos := Peso1 + Peso2; propriedade. Armazena a string que será mostrada quando o componente for
rMedia := rMedia / iSomaPesos;
desenhado. No Form ele corresponde ao texto exibido na barra de título.
Result := rMedia;
end; Left e Top: Esquerda e Topo. Armazenam a posição do componente em
constructor TMediaPonderada.Create; relação ao form ou painel que o contém. Movendo o componente, estas
begin propriedades se atualizam automaticamente, e alterando estas propriedades, o
inherited; componente é movido.
FPeso1 := 1;
FPeso2 := 1;
end; Height e Width: Altura e comprimento do componente, alterando estas
propriedades, o componente terá seu tamanho alterado.
procedure TMediaPonderada.SetPeso1(valor: integer);
begin
if valor > 1 then Font: Permite selecionar a fonte, o tamanho, o estilo e a cor da fonte que será
FPeso1 := valor usada para escrever o texto no componente.
else
FPeso1 := 1;
end; Color: Cor do componente. Existe uma lista de cores padrão usadas pelo
procedure TMediaPonderada.SetPeso2(valor: integer);
Windows e pelo Delphi, mas é possível definir qualquer cor através de seus
begin componentes RGB.
if valor > 1 then
FPeso2 := valor
else
TabOrder: Ordem do componente no Form ou painel. Quando há vários
FPeso2 := 1; componentes selecionáveis no Form ou painel, a tecla Tab permite navegar
end; entre os componentes. Esta propriedade define a ordem em que os
end. componentes são selecionados quando o usuário tecla Tab.
Hint: (Dica) Este é um recurso muito útil e fácil de usar. Permite que apareça
um texto de ajuda quando o usuário posiciona o cursor do mouse sobre um protected
FValor1 : real;
componente. Todos os componentes podem ter Hint. Na propriedade Hint, FValor2 : real;
você deve digitar a frase que deve aparecer. Veja a propriedade abaixo. procedure SetVal1(valor : real);
procedure SetVal2(valor : real);
public
ShowHint: Ativa o hint para o componente. Se estiver desligado, o hint não é constructor Create;
mostrado. function CalcularMedia : real; virtual;
implementation
OnClick: É gerado cada vez que o botão esquerdo do mouse é pressionado e
{ TMedia }
solto. O evento só ocorre quando o usuário libera o botão. O Delphi já direciona
o evento para o componente que está debaixo do cursor do mouse. function TMedia.CalcularMedia: real;
begin
Result := (Valor1 + Valor2) / 2;
OnDblClick: Gerado quando é feito um duplo clique no botão esquerdo. end;
OnKeyPress: Gerado quando o usuário pressiona (e libera) uma tecla no constructor TMedia.Create;
begin
teclado. FValor1 := 0;
FValor2 := 0;
OnEnter: Gerado quando o foco de atenção do Windows “cai” sobre o end;
componente. Exemplo: Suponha uma tela de entrada de dados, onde vários procedure TMedia.SetVal1(valor: real);
campos (caixas de texto) devem ser digitados. Quando a tela é apresentada, o begin
foco, ou o cursor de texto, está sobre o primeiro campo. Depois de digitar o if valor > 0 then
FValor1 := valor
campo, o usuário pressiona Tab para passar para o campo seguinte. Veja que else
o que passa para o campo seguinte é a atenção da aplicação e do Windows. FValor1 := 0;
end;
Essa atenção é chamada de foco, ou focus em inglês. Este evento é gerado
assim que o componente recebe o foco, antes de executar qualquer código do procedure TMedia.SetVal2(valor: real);
componente. begin
if valor > 0 then
OnExit: Gerado imediatamente antes de o foco deixar o componente. FValor2 := valor
else
OnResize: Gerado quando o tamanho do componente é alterado. É usado FValor2 := 0;
end;
principalmente em forms e painéis.
end.
OnChange: Gerado quando o valor do componente muda. Só é aplicado em
componentes que permitem edição de seu conteúdo. Para que na interface possamos criar um único objeto que trabalhe,
dependendo dos valores dos pesos, com a média aritmética ou ponderada,
precisaremos de uma declaração especial nas classes.
Métodos Básicos Quando definimos uma operação na classe, esta é definida como estática, ou
seja, seu método (código) é determinado no momento da compilação. Para que
Show: Desenha o componente. Se for uma janela (form) ela é desenhada e possamos definir o método apenas na execução, devemos defini-lo como
ativada. virtual. Para tanto, deve-se colocar a palavra-chave virtual (acompanhada de
um ponto-e-vírgula), logo após a declaração na superclasse.
Close: Fechar. Aplicado geralmente em forms e componentes de acesso a
dados. Quando utilizado no form principal, encerra a aplicação. Nas subclasses, quando essa operação for redefinida, coloca-se a palavra-
chave override (acompanhada de um ponto-e-vírgula), logo após a
Repaint: Repintar. Redesenha o componente ou form. redeclaração da operação.
Implementando Herança e Polimorfismo Refresh: Tem o mesmo efeito que o Repaint, mas antes de desenhar, apaga o
componente. Quando aplicado em componentes de acesso a dados, faz com
Demonstraremos agora com implementamos herança e polimorfismo. Para que o buffer do arquivo seja recarregado.
tanto, vamos considerar uma superclasse Media que possua os atributos valor1
e valor2. Esta classe possui, ainda uma operação CalcularMedia que calcula a Create: Aloca memória para criar um componente ou form, dinamicamente.
média aritmética destes valores. Se criarmos uma subclasse MediaPonderada
que herde da classe Media, teremos um problema na operação CalcularMedia, Free: Libera a memória alocada com o Create.
pois na superclasse o cálculo é feito sobre a Média Aritmética e no segundo
caso sobre a média ponderada. Assim, manteremos a herança, porém fazendo
com que a operação CalcularMedia seja polimórfica. Chegamos, então ao Implementando Orientação à Objetos em Delphi
diagrama de classes da figura abaixo:
Iniciaremos a implementação de OO em Delphi criando uma classe que simule
um contador de cédulas. Os objetivos dessa classe é emitir a quantidade de
notas necessárias para compor um determinado valor. A fim de simplificar a
classe, não aceitaremos centavos e a saída da distribuição de nota será na
Média
realidade uma string descritiva.
calcularMedia : real
ContagemCedulas
interface
type
TContagemCedulas = class
protected
FValorContagem : integer;
FQtdNotas100 : integer;
FQtdNotas50 : integer;
FQtdNotas10 : integer;
FQtdNotas5 : integer;
FQtdNotas2 : integer;
FQtdNotas1 : integer;
procedure Distribuicao;
procedure DefineValorContagem(valor: integer);
public
function ObterDistribuicao: TStringList;
property ValorContagem: integer read FValorContagem
write DefineValorContagem;
end;
implementation
uses Math;
{ TContagemCedulas }
procedure TContagemCedulas.Distribuicao;
var iAux: integer;
begin
iAux := FValorContagem;
FQtdNotas1 := iAux;
end;
end;
end;
end;
end;
procedure TfrmFormatacao.FormCreate(Sender: TObject);
begin procedure TContagemCedulas.DefineValorContagem(valor: integer);
oFormato1 := TTexto.Create; begin
oFormato2 := TTexto.Create; if valor < 0 then
end; FValorContagem := 0
else
procedure TfrmFormatacao.FormDestroy(Sender: TObject); begin
begin FValorContagem := valor;
oFormato1.Free; Distribuicao();
oFormato2.Free; end;
end; end;
Encapsulamento
• AutoSize – False
Repare que os atributos, sendo protegidos, não poderão ser acessados pelas • Height – 41
instâncias dessas classes. Nesse caso, precisamos criar operações que • Width – 377
realizem esse acesso: • Color – clWhite
Type Tfuncionario = class Vamos passar para a unit do Formulário. Para que o objeto usado no primeiro
Protected botão (Criar Formatos) seja usado pelo segundo botão (Aplicar Formatos), é
Fnome: string;
Fsalario: real; necessário que o objeto seja criado público na classe. Assim, localize a seção
Public implementation do formulário e digite as linhas abaixo para respectivamente,
Procedure DefinirNome(sNome:string);
Procedure DefinirSalario(rSalario:real);
ligar o formulário à classe Texto e definir objetos de formatação públicos.
Procedure ObterNome:string;
Procedure ObeterSalario:real;
End; implementation
uses CLTexto;
var
oFormato1, oFormato2 : TTexto;
Na definição dessas operações estamos determinando que quando quisermos
atribuir valores para os atributos Nome e Salario devemos chamar as
operações DefinirNome e DefinirSalario, respectivamente, passando os valores Como os objetos oFormato1 e oFormato2 são públicos à unit, é uma boa
por parâmetro. Da mesma forma, quando quisermos ler os valores de Nome e opção cria-los no momento da criação do Formulário e destruí-los no momento
Salário, devemos chamar as operações ObterNome e ObterSalario, que são do da destruição do formulário. Assim, volte ao formulário e acione os eventos
tipo funções e retornam os valores desejados. Por exemplo: OnCreate e OnDestroy do Formulário. Neles digite o código abaixo:
public
constructor Create; Var
destructor Destroy; override; oFuncionario: TFuncionario;
sNome: string;
procedure formataTxt(componente : TLabel); rSalario: real;
begin
property Valor : string read FValor write FValor; ...
property Estilo: TEstilo read FEstilo write FEstilo; oFuncionario.DefinirNome(‘Maria’);
end; oFuncionario.DefinirSalario(2000);
...
implementation sNome := oFuncionario.ObterNome;
rSalario := oFuncionario.ObterSalario;
...
{ TTexto }
constructor TTexto.Create;
begin
FValor := ''; Uma property também define um atributo, todavia podendo associar a ações
FEstilo := TEstilo.Create; relacionadas à leitura ou modificação de sues dados. Assim, ao acessarmos
end;
uma property não estaríamos acessando diretamente o conteúdo de um
destructor TTexto.Destroy; atributo, e sim, um procedimento que seria um intermediário desse acesso.
begin Esse procedimento permite a escrita de códigos de validação e formatação dos
FEstilo.Free;
inherited; atributos.
end; Para o mesmo exemplo anterior, veja como ficaria a definição da classe,
utilizando a property.
procedure TTexto.formataTxt(componente: TLabel);
begin
componente.Caption := Valor;
componente.Font.Name := FEstilo.Fonte;
Type Tfuncionario = class
componente.Font.Size := FEstilo.Tamanho;
Protected
end;
Fnome: string;
end. Fsalario: real;
Procedure DefinirNome(snome: string);
Procedure DefinirSalario(rSalario: real);
Public
Property Nome: string read Fnome write DefinirNome;
Criação dos métodos Constructor e Destructor Property Salario: real read Fsalario write DefinirSalario;
End;
Note que nessa classe atemos os métodos Create e Destroy criados,
explicitamente. Isto foi necessário pois possuímos um atributo na Classe Texto,
que é a instância de outra classe, ou seja, um objeto. Ao criarmos a classe
Texto, se nada for dito à classe Estilo, esta não será criada. Na hora de nos Utilizando o exemplo anterior, vejamos, para essa classe, como ficaria o código
referenciarmos à Estilo da Classe Texto, uma exceção será gerada. de acesso aos atributos:
Assim, aproveitamos o método Constructor para instanciar o atributo Festilo.
Também foi inicializado a classe com um valor default, que permite que a
Var
chamada da operação formataTxt nunca gere erro (lembrando que o Create da oFuncionario: TFuncionario;
classe Estilo também inicializa o objeto com valores default). sNome: string;
rSalario: real;
begin
Vamos criar, agora, a interface que usará essa classe. Retorne ao formulário ...
do projeto e coloque dois botões e três componentes label, conforme figura oFuncionario.Nome := ‘Maria’;
abaixo, e salve o formulário com o nome DLTexto. oFuncionario.Salario := 2000;
...
sNome := oFuncionario.Nome;
rSalario := oFuncionario.Salario;
...
Seções Interface e Implementation Começaremos pela definição das classes. Crie uma nova aplicação. Deixe de
lado, temporariamente o formulário criado automaticamente pelo Delphi e
A estrutura de uma unit determina que as definições das procedures, funções vamos criar nossa primeira classe (menu File – new – Unit). Salve-a como o
ou dos métodos da classe fiquem na seção interface, enquanto que o código, nome de CLEstilo. Digite, então o código abaixo:
propriamente dito, fique na seção implementation. Assim na seção
implementation as operações “criam vida”. A definição do método na seção
implementation deve ser feito da seguinte forma: unit CLEstilo;
interface
Escopo Tipo-do-método Nome-da-Classe.Assinatura-da-Operação
uses Classes;
Toda classe possui seus métodos construtores de destrutores. Um método procedure TEstilo.SetTamanho(valor: integer);
construtor cria uma área em memória para o objeto, colocando nesta área a begin
if valor > 4 then
estrutura da classe, ou seja, instancia um objeto a partir da classe. No Delphi o Ftamanho := valor
método construtor de uma classe é definido da seguinte forma: else
Ftamanho := 4;
end;
constructor Nome-do-Método;
end.
Por exemplo:
constructor Create
A classe Tobject já possui um método constructor, o que facilita a criação de Da mesma forma, crie uma nova unit, salve com o nome de CLTexto e digite o
novas classes. Entretanto, se numa subclasse for necessário realizar alguma código abaixo:
ação especial na criação de uma instância, basta redefinir o método constructor
na subclasse. No corpo dos métodos, reescreve-se a assinatura da operação e
na seção de implementação, define-se novamente o métodos. Veja o exemplo: unit CLTexto;
interface
type
TTexto = class
protected
FValor : string;
FEstilo : TEstilo;
Ao executar este programa e informar o valor 1215, obtemos no campo Memo
o resultado demonstrado abaixo: Type Taluno = class
Private
...
Public
12 nota(s) de 100 ...
0 nota(s) de 50 Constructor Create;
...
1 nota(s) de 10 End;
1 nota(s) de 5
0 nota(s) de 2 Implementation
0 nota(s) de 1 ...
Constructor Taluno.Create;
Implementando Associação Begin
Inherited Create;
//novas ações...
Antes de exemplificar o relacionamento de associação, é preciso falar um End;
pouco sobre a modelagem de classes na fase de projeto. Os relacionamentos,
na realidade, são implementados no formado de atributos ou coleções de
objetos.
Na fase de projeto, diante de relacionamentos entre classes do tipo um para Da mesma forma, o método destrutor serve para eliminar o objeto da memória,
um, podemos gerar atributos simples em ambas as classes, que serão liberando o espaço ocupado. A redefinição também é possível para este
responsáveis pela ligação entre as mesmas. Para relacionamentos entre método. No Delphi o método destructor de uma classe é definido da seguinte
classes do tipo um para muitos, colocamos um atributo simples na classe que forma:
tem a multiplicidade muitos e/ou um atributo que representa uma coleção de
objetos na classe que tem a multiplicidade um. Para relacionamentos entre Destructor Nome-do-Método; override;
classes do tipo muitos para muitos, podemos colocar atributos representando
coleção de objetos em ambas as classes. Por exemplo:
Destructor Destroy; override;
Para exemplificarmos o relacionamento de associação, vamos considerar a
seguinte situação: necessitamos de uma classe que permita a formatação de Retornando ao formulário que deixamos de lado. Nele construiremos a
um label com um determinado estilo. Esse estilo está associado ao texto, interface que fará a ponte entre o usuário e nossa classe. Para isso, monte o
contendo a fonte e seu tamanho: formulário como abaixo:
Implementando o Código
Mude a propriedade name dos seguintes componentes:
• (Edit) : edtValorContagem
var
• (Button) : btnProcessar frmDLContagemCedulas: TfrmDLContagemCedulas;
• (Memo) : mmoCedulas
• (Formulário) : frmDLContagemCedulas implementation
uses CLContagemCedulas;
Salve o formulário com o nome de DLContagemCedulas.
{$R *.dfm}
Agora, precisamos fazer com que o formulário se relacione com a Classe procedure TfrmDLContagemCedulas.btnProcessarClick(Sender: TObject);
ContagemCedulas, passando o valor para contagem e recebendo a quantidade var oContagem : TContagemCedulas;
begin
de cédulas. Para isso, vamos acessar a Unit do Formulário. No código, procure oContagem := TContagemCedulas.Create;
seção implementation e logo abaixo coloque a cláusula uses acompanhada do
nome da unit CLContagemCedulas, conforme descrito a seguir: try
oContagem.ValorContagem := StrToInt(edtValorContagem.Text);
mmoCedulas.Clear;
mmoCedulas.Lines.AddStrings(oContagem.ObterDistribuicao);
Except
Implementation ShowMessage('Valo de contagem inválido');
{$R *.dfm} end;
Uses oContagem.Free;
CLContagemCedulas;
end;
end.
Essas duas linhas dizem ao Formulário que ele passará a enxergar a interface
da unit CLContagemCedulas, que é nossa classe ContagemCedulas.
Em seguida, volte ao Formulário, dê um duplo clique no botão “Contar Cédulas” Inicialmente foi criada uma variável oContagem que é do tipo Classe
a fim de acionar o evento default – o OnClick. O Delphi automaticamente cria a TcontagemCedulas. Essa definição da variável não cria efetivamente o objeto
estrutura deste evento. Basta que você digite o código que irá se comunicar na memória. Para isso necessitamos da linha:
com a classe. Assim, digite o código marcado em negrito que está abaixo. Note
que, para melhor entendimento, o exemplo apresenta toda a unit do formulário oContagem := TcontagemCedulas.Create.
DLContagemCedulas.
que, efetivamente, instancia um objeto da Classe TcontagemCedulas e o
identifica como oContagem.
unit UPrincipal;