O EducSist e uma solucao que oferece as escolas publicas e privadas uma maneira simples, eficaz e eficiente de gerir seus recursos.

Banco de Dados: Da modelagem à SQL - Aprenda a criar e trabalhar com banco de dados da modelagem ao uso em produção.

Segundo Componente Visual

Autor: Tadeu Pereira

Este componente será usado para receber e validar CNPJ e CPF. Assim como o TMaskEdit nosso componente terá uma mascara de edição.

Novamente repita todos os procedimentos do primeiro componente criado mudando apenas as opções abaixo:

  Ancestor Component: TCustomMaskEdit
  Class Name: TCNPJCPFEdit
  Pallete Page: CursoDelphi
  Unit File Name: CNPJCPFEdit.pas

Inclua o código abaixo:

01	unit CNPJCPFEdit;
02
03	interface
04
05	uses
06	SysUtils, Classes, Controls, StdCtrls, Mask, Dialogs;
07
08	type
09	TTipoDoc = (tdCNPJ, tdCPF);
10
11	TCNPJCPFEdit = class(TCustomMaskEdit)
12	private
13	{ Private declarations }
14	procedure cmExit(var message: TCMExit); message cm_Exit;
15	procedure ConfigEditMask;
16	function CNPJ: Boolean;
17	function CPF: Boolean;
18	protected
19	{ Protected declarations }
20	public
21	{ Public declarations }
22	constructor Create(AOwner: TComponent); override;
23	published
24	{ Published declarations }
25	property TipoDoc: TTipoDoc;
26	property WidthCNPJ: Integer;
27	property WidthCPF: Integer;
28	property OnChange;
29	property OnClick;
30	property OnDblClick;
31	property OnDragDrop;
32	property OnDragOver;
33	property OnEndDock;
34	property OnEndDrag;
35	property OnEnter;
36	property OnExit;
37	property OnKeyDown;
38	property OnKeyPress;
39	property OnKeyUp;
40	property OnMouseDown;
41	property OnMouseMove;
42	property OnMouseUp;
43	property OnStartDock;
44	property OnStartDrag;
45	end;
46
47	procedure Register;
48
49	implementation
50
51	procedure Register;
52	begin
53	RegisterComponents('CursoDelphi', [TCNPJCPFEdit]);
54	end;
55
56	end.

Pressione Ctrl+Shift+C e continue incluindo o código mostrado:

001	unit CNPJCPFEdit;
002
003	interface
004
005	uses
006	SysUtils, Classes, Controls, StdCtrls, Mask, Dialogs;
007
008	type
009	TTipoDoc = (tdCNPJ, tdCPF);
010
011	TCNPJCPFEdit = class(TCustomMaskEdit)
012	private
013	FWidthCNPJ: Integer;
014	FWidthCPF: Integer;
015	FTipoDoc: TipoDoc;
016	procedure SetTipoDoc(const Value: TTipoDoc);
017	procedure SetWidthCNPJ(const Value: Integer);
018	procedure SetWidthCPF(const Value: Integer);
019	{ Private declarations }
020	procedure cmExit(var message: TCMExit); message cm_Exit;
021	procedure ConfigEditMask;
022	function CNPJ: Boolean;
023	function CPF: Boolean;
024	protected
025	{ Protected declarations }
026	public
027	{ Public declarations }
028	constructor Create(AOwner: TComponent); override;
029	published
030	{ Published declarations }
031	property TipoDoc: TTipoDoc read FTipoDoc write SetTipoDoc;
032	property WidthCNPJ: Integer read FWidthCNPJ write SetWidthCNPJ;
033	property WidthCPF: Integer read FWidthCPF write SetWidthCPF;
034	property OnChange;
035	property OnClick;
036	property OnDblClick;
037	property OnDragDrop;
038	property OnDragOver;
039	property OnEndDock;
040	property OnEndDrag;
041	property OnEnter;
042	property OnExit;
043	property OnKeyDown;
044	property OnKeyPress;
045	property OnKeyUp;
046	property OnMouseDown;
047	property OnMouseMove;
048	property OnMouseUp;
049	property OnStartDock;
050	property OnStartDrag;
051	end;
052
053	procedure Register;
054
055	implementation
056
057	procedure Register;
058	begin
059	RegisterComponents('CursoDelphi', [TCNPJCPFEdit]);
060	end;
061
062	{ TCNPJCPFEdit }
063
064	procedure TCNPJCPFEdit.cmExit(var message: TCMExit);
065	begin
066	case Self.FTipoDoc of
067	tdCNPJ:if not( CNPJ ) then Self.SetFocus;
068	tdCPF:if not( CPF ) then Self.SetFocus;
069	end;
070	end;
071
072	function TCNPJCPFEdit.CNPJ: Boolean;
073	var
074	n1, n2, n3, n4, n5, n6, n7, n8, n9, n10, n11, n12, d1, d2: Integer;
075	Num, Digitado, Calculado: string;
076	begin
077	Num := StringReplace(Self.Text, '.', '', [rfReplaceAll]);
078	Num := StringReplace(Num, '-', '', [rfReplaceAll]);
079	Num := StringReplace(Num, '/', '', [rfReplaceAll]);
080	if ( Trim( Num ) = '' ) then
081	begin
082	Result := True;
083	Exit;
084	end;
085	if ( Length( Num ) <> 14 ) then
086	begin
087	MessageDlg('CNPJ incompleto. Digite novamente.',
088	mtError, [mbOk], 0 );
089	Result := False;
090	Exit;
091	end;
092	n1 := StrToInt( Num[1] );
093	n2 := StrToInt( Num[2] );
094	n3 := StrToInt( Num[3] );
095	n4 := StrToInt( Num[4] );
096	n5 := StrToInt( Num[5] );
097	n6 := StrToInt( Num[6] );
098	n7 := StrToInt( Num[7] );
099	n8 := StrToInt( Num[8] );
100	n9 := StrToInt( Num[9] );
101	n10 := StrToInt( Num[10] );
102	n11 := StrToInt( Num[11] );
103	n12 := StrToInt( Num[12] );
104	*d1 := n122+n113+n104+n95+n86+**
105	*n77+n68+n59+n42+n33+n24+n15;**
106	d1 := 11 - ( d1 mod 11 );
107	if ( d1 >= 10 ) then d1 := 0;
108	*d2 := d12+n123+n114+n105+n96+n87+*
109	*n78+n69+n52+n43+n34+n25+n16;**
110	d2 := 11 - ( d2 mod 11 );
111	if ( d2 >= 10 ) then d2 := 0;
112	Calculado := IntToStr(d1) + IntToStr(d2);
113	Digitado := Num[13] + Num[14];
114	if ( Calculado = Digitado ) then Result := True
115	else
116	begin
117	MessageDlg('CNPJ inválido.', mtError, [mbOk], 0);
118	Result := False;
119	end;
120	end;
121
122	procedure TCNPJCPFEdit.ConfigEditMask;
123	begin
124	Self.Clear;
125	case FTipoDoc of
126	tdCNPJ:
127	begin
128	Self.EditMask := '!99.999.999/9999-99;1;_';
129	Self.Width := WidthCNPJ;
130	end;
131	tdCPF:
132	begin
133	Self.EditMask := '!999.999.999-99;1;_';
134	Self.Width := WidthCPF;
135	end;
136	end;
137	end;
138
139	function TCNPJCPFEdit.CPF: Boolean;
140	var
141	n1, n2, n3, n4, n5, n6, n7, n8, n9, d1, d2: Integer;
142	Num, Digitado, Calculado: string;
143	begin
144	Num := StringReplace(Self.Text, '.', '', [rfReplaceAll]);
145	Num := StringReplace(Num, '-', '', [rfReplaceAll]);
146	if ( Trim( Num ) = '' ) then
147	begin
148	Result := True;
149	Exit;
150	end;
151	if ( Length( Num ) <> 11 ) then
152	begin
153	MessageDlg('CPF incompleto. Digite novamente.',
154	mtError, [mbOk], 0);
155	Result := False;
156	Exit;
157	end;
158	n1 := StrToInt( Num[1] );
159	n2 := StrToInt( Num[2] );
160	n3 := StrToInt( Num[3] );
161	n4 := StrToInt( Num[4] );
162	n5 := StrToInt( Num[5] );
163	n6 := StrToInt( Num[6] );
164	n7 := StrToInt( Num[7] );
165	n8 := StrToInt( Num[8] );
166	n9 := StrToInt( Num[9] );
167	*d1 := n92+n83+n74+n65+n56+n47+n38+n29+n110;**
168	d1 := 11 - ( d1 mod 11 );
169	if ( d1 >= 10 ) then d1 := 0;
170	*d2 := d12+n93+n84+n75+n66+n57+n48+n39+n210+n111;*
171	d2 := 11 - ( d2 mod 11 );
172	if ( d2 >= 10 ) then d2 := 0;
173	Calculado := IntToStr(d1) + IntToStr(d2);
174	Digitado := Num[10] + Num[11];
175	if ( Calculado = Digitado ) then Result := True
176	else
177	begin
178	MessageDlg('CPF inválido.', mtError, [mbOk], 0);
179	Result := False;
180	end;
181	end;
182
183	constructor TCNPJCPFEdit.Create(AOwner: TComponent);
184	begin
185	inherited;
186	Self.FWidthCNPJ := 110;
187	Self.FWidthCPF := 85;
188	Self.FTipoDoc := tdCNPJ;
189	Self.Width := WidthCNPJ;
190	Self.Clear;
191	Self.EditMask := '!99.999.999/9999-99;1;_';
192	end;
193
194	procedure TCNPJCPFEdit.SetTipoDoc(const Value: TTipoDoc);
195	begin
196	FTipoDoc := Value;
197	ConfigEditMask;
198	end;
199
200	procedure TCNPJCPFEdit.SetWidthCNPJ(const Value: Integer);
201	begin
202	FWidthCNPJ := Value;
203	if ( Self.FTipoDoc = tdCNPJ ) then Width := Value;
204	end;
205
206	procedure TCNPJCPFEdit.SetWidthCPF(const Value: Integer);
207	begin
208	FWidthCPF := Value;
209	if ( Self.FTipoDoc = tdCPF ) then Width := Value;
210	end;
211
212	end.

Crie um arquivo DCR e um bitmap para o componente (Figura 1). Depois acrescente este componente ao nosso pacote dê um Build, nÃ£o Ã© precisando chamar o Install do pacote.

Figura 1 – Imagem do componente TCNPJCPFEdit