tpsystools_4.04/source/StDb2DBC.pas

(* ***** BEGIN LICENSE BLOCK *****
 * Version: MPL 1.1
 *
 * The contents of this file are subject to the Mozilla Public License Version
 * 1.1 (the "License"); you may not use this file except in compliance with
 * the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 * for the specific language governing rights and limitations under the
 * License.
 *
 * The Original Code is TurboPower SysTools
 *
 * The Initial Developer of the Original Code is
 * TurboPower Software
 *
 * Portions created by the Initial Developer are Copyright (C) 1996-2002
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 *
 * ***** END LICENSE BLOCK ***** *)

{*********************************************************}
{* SysTools: StDb2DBC.pas 4.04                           *}
{*********************************************************}
{* SysTools: Data-aware Two-Dimensional Barcodes         *}
{*********************************************************}

{$I StDefine.inc}

unit StDb2DBC;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  St2DBarC,
  Db,
  DbCtrls;

type

  TStDbPDF417Barcode = class(TStPDF417Barcode)
    protected {private}
      {.Z+}
      FCaptionDataLink : TFieldDataLink;
      FCodeDataLink    : TFieldDataLink;

      procedure CaptionDataChange(Sender : TObject);
      procedure CodeDataChange(Sender : TObject);
      function GetCaptionDataField : string;
      function GetCodeDataField : string;
      function GetDataSource : TDataSource;
      procedure SetCaptionDataField(const Value : string);
      procedure SetCodeDataField(const Value : string);
      procedure SetDataSource(Value : TDataSource);

    public
      constructor Create(AOwner : TComponent); override;
      destructor Destroy;
        override;
      {.Z+}
    published
      property Code stored False;
      property Caption stored False;

      property CaptionDataField : string
               read GetCaptionDataField write SetCaptionDataField;
      property CodeDataField : string
               read GetCodeDataField write SetCodeDataField;

      property DataSource : TDataSource read GetDataSource write SetDataSource;
  end;

  TStDbMaxiCodeBarcode = class(TStMaxiCodeBarcode)
    protected {private}
      {.Z+}
      FCaptionDataLink      : TFieldDataLink;
      FCodeDataLink         : TFieldDataLink;
      FCountryCodeDataLink  : TFieldDataLink;
      FPostalCodeDataLink   : TFieldDataLink;
      FServiceClassDataLink : TFieldDataLink;

      procedure CaptionDataChange (Sender : TObject);
      procedure CodeDataChange (Sender : TObject);
      procedure CountryCodeChange (Sender : TObject);

      function GetCaptionDataField : string;
      function GetCodeDataField : string;
      function GetCountryCodeDataField : string;
      function GetDataSource : TDataSource;
      function GetPostalCodeDataField : string;
      function GetServiceClassDataField : string;

      procedure PostalCodeChange (Sender : TObject);
      procedure ServiceClassChange (Sender : TObject);

      procedure SetCaptionDataField (const Value : string);
      procedure SetCodeDataField (const Value : string);
      procedure SetCountryCodeDataField (const Value : string);
      procedure SetDataSource (Value : TDataSource);
      procedure SetPostalCodeDataField (const Value : string);
      procedure SetServiceClassDataField (const Value : string);

    public
      constructor Create(AOwner : TComponent); override;
      destructor Destroy;
        override;
      {.Z+}
    published
      property Code stored False;
      property Caption stored False;

      property CaptionDataField : string
               read GetCaptionDataField write SetCaptionDataField;
      property CarrierCountryCodeDataField : string
               read GetCountryCodeDataField write SetCountryCodeDataField;
      property CarrierPostalCodeDataField : string
               read GetPostalCodeDataField write SetPostalCodeDataField;
      property CarrierServiceClassDataField : string
               read GetServiceClassDataField write SetServiceClassDataField;
      property CodeDataField : string
               read GetCodeDataField write SetCodeDataField;

      property DataSource : TDataSource read GetDataSource write SetDataSource;
  end;

implementation

{ TStDbPDF417Barcode }

constructor TStDbPDF417Barcode.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);

  FCaptionDataLink := TFieldDataLink.Create;
  FCaptionDataLink.OnDataChange := CaptionDataChange;
  FCodeDataLink := TFieldDataLink.Create;
  FCodeDataLink.OnDataChange := CodeDataChange;
end;

destructor TStDbPDF417Barcode.Destroy;
begin
  FCaptionDataLink.OnDataChange := nil;
  FCaptionDataLink.Free;
  FCaptionDataLink := nil;
  FCodeDataLink.OnDataChange := nil;
  FCodeDataLink.Free;
  FCodeDataLink := nil;

  inherited Destroy;
end;

procedure TStDbPDF417Barcode.CaptionDataChange(Sender : TObject);
begin
  if FCaptionDataLink.Field = nil then
    Caption := '12345678922'
  else
    Caption := FCaptionDataLink.Field.DisplayText;
end;

procedure TStDbPDF417Barcode.CodeDataChange(Sender : TObject);
begin
  if FCodeDataLink.Field = nil then
    Code := '12345678922'
  else
    Code := FCodeDataLink.Field.DisplayText;
end;


function TStDbPDF417Barcode.GetCaptionDataField : string;
begin
  Result := FCaptionDataLink.FieldName;
end;

function TStDbPDF417Barcode.GetCodeDataField : string;
begin
  Result := FCodeDataLink.FieldName;
end;

function TStDbPDF417Barcode.GetDataSource : TDataSource;
begin
  Result := FCaptionDataLink.DataSource
end;

procedure TStDbPDF417Barcode.SetCaptionDataField(const Value : string);
begin
  FCaptionDataLink.FieldName := Value;
end;

procedure TStDbPDF417Barcode.SetCodeDataField(const Value : string);
begin
  FCodeDataLink.FieldName := Value;
end;

procedure TStDbPDF417Barcode.SetDataSource(Value : TDataSource);
begin
  FCaptionDataLink.DataSource := Value;
  FCodeDataLink.DataSource := Value;
end;

{ TStDbMaxiCodeBarcode }

constructor TStDbMaxiCodeBarcode.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);

  FCaptionDataLink := TFieldDataLink.Create;
  FCaptionDataLink.OnDataChange := CaptionDataChange;
  FCodeDataLink := TFieldDataLink.Create;
  FCodeDataLink.OnDataChange := CodeDataChange;
  FCountryCodeDataLink := TFieldDataLink.Create;
  FCountryCodeDataLink.OnDataChange := CountryCodeChange;
  FPostalCodeDataLink := TFieldDataLink.Create;
  FPostalCodeDataLink.OnDataChange := PostalCodeChange;
  FServiceClassDataLink := TFieldDataLink.Create;
  FServiceClassDataLink.OnDataChange := ServiceClassChange; 
end;

destructor TStDbMaxiCodeBarcode.Destroy;
begin
  FCaptionDataLink.OnDataChange := nil;
  FCaptionDataLink.Free;
  FCaptionDataLink := nil;
  FCodeDataLink.OnDataChange := nil;
  FCodeDataLink.Free;
  FCodeDataLink := nil;
  FCountryCodeDataLink.OnDataChange := nil;
  FCountryCodeDataLink.Free;
  FCountryCodeDataLink := nil;
  FPostalCodeDataLink.OnDataChange := nil;
  FPostalCodeDataLink.Free;
  FPostalCodeDataLink := nil;
  FServiceClassDataLink.OnDataChange := nil;
  FServiceClassDataLink.Free;
  FServiceClassDataLink := nil;

  inherited Destroy;
end;

procedure TStDbMaxiCodeBarcode.CaptionDataChange(Sender : TObject);
begin
  if FCaptionDataLink.Field = nil then
    Caption := '12345678922'
  else
    Caption := FCaptionDataLink.Field.DisplayText;
end;

procedure TStDbMaxiCodeBarcode.CodeDataChange(Sender : TObject);
begin
  if FCodeDataLink.Field = nil then
    Code := '12345678922'
  else
    Code := FCodeDataLink.Field.DisplayText;
end;

procedure TStDbMaxiCodeBarcode.CountryCodeChange (Sender : TObject);
begin
  if FCountryCodeDataLink.Field = nil then
    CarrierCountryCode := 0
  else
    CarrierCountryCode := FCountryCodeDataLink.Field.AsInteger;
end;

function TStDbMaxiCodeBarcode.GetCaptionDataField : string;
begin
  Result := FCaptionDataLink.FieldName;
end;

function TStDbMaxiCodeBarcode.GetCodeDataField : string;
begin
  Result := FCodeDataLink.FieldName;
end;

function TStDbMaxiCodeBarcode.GetCountryCodeDataField : string;
begin
  Result := FCountryCodeDataLink.FieldName;
end;

function TStDbMaxiCodeBarcode.GetDataSource : TDataSource;
begin
  Result := FCaptionDataLink.DataSource
end;

function TStDbMaxiCodeBarcode.GetPostalCodeDataField : string;
begin
  Result := FPostalCodeDataLink.FieldName;
end;

function TStDbMaxiCodeBarcode.GetServiceClassDataField : string;
begin
  Result := FServiceClassDataLink.FieldName;
end;

procedure TStDbMaxiCodeBarcode.PostalCodeChange (Sender : TObject);
begin
  if FPostalCodeDataLink.Field = nil then
    CarrierPostalCode := '000'
  else
    CarrierPostalCode := FPostalCodeDataLink.Field.DisplayText;
end;

procedure TStDbMaxiCodeBarcode.ServiceClassChange (Sender : TObject);
begin
  if FServiceClassDataLink.Field = nil then
    CarrierServiceClass := 0
  else
    CarrierServiceClass := FServiceClassDataLink.Field.AsInteger;
end;

procedure TStDbMaxiCodeBarcode.SetCaptionDataField(const Value : string);
begin
  FCaptionDataLink.FieldName := Value;
end;

procedure TStDbMaxiCodeBarcode.SetCodeDataField(const Value : string);
begin
  FCodeDataLink.FieldName := Value;
end;

procedure TStDbMaxiCodeBarcode.SetCountryCodeDataField (const Value : string);
begin
  FCountryCodeDataLink.FieldName := Value;
end;

procedure TStDbMaxiCodeBarcode.SetDataSource(Value : TDataSource);
begin
  FCaptionDataLink.DataSource := Value;
  FCodeDataLink.DataSource := Value;
  FCountryCodeDataLink.DataSource := Value;
  FPostalCodeDataLink.DataSource := Value;
  FServiceClassDataLink.DataSource := Value;
end;

procedure TStDbMaxiCodeBarcode.SetPostalCodeDataField (const Value : string);
begin
  FPostalCodeDataLink.FieldName := Value;
end;

procedure TStDbMaxiCodeBarcode.SetServiceClassDataField (const Value : string);
begin
  FServiceClassDataLink.FieldName := Value;
end;

end.
1	torben	2671	(* *** BEGIN LICENSE BLOCK ***
2			* Version: MPL 1.1
3			*
4			* The contents of this file are subject to the Mozilla Public License Version
5			* 1.1 (the "License"); you may not use this file except in compliance with
6			* the License. You may obtain a copy of the License at
7			* http://www.mozilla.org/MPL/
8			*
9			* Software distributed under the License is distributed on an "AS IS" basis,
10			* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
11			* for the specific language governing rights and limitations under the
12			* License.
13			*
14			* The Original Code is TurboPower SysTools
15			*
16			* The Initial Developer of the Original Code is
17			* TurboPower Software
18			*
19			* Portions created by the Initial Developer are Copyright (C) 1996-2002
20			* the Initial Developer. All Rights Reserved.
21			*
22			* Contributor(s):
23			*
24			* *** END LICENSE BLOCK *** *)
25
26			{*********************************************************}
27			{* SysTools: StDb2DBC.pas 4.04 *}
28			{*********************************************************}
29			{* SysTools: Data-aware Two-Dimensional Barcodes *}
30			{*********************************************************}
31
32			{$I StDefine.inc}
33
34			unit StDb2DBC;
35
36			interface
37
38			uses
39			Windows,
40			Messages,
41			SysUtils,
42			Classes,
43			St2DBarC,
44			Db,
45			DbCtrls;
46
47			type
48
49			TStDbPDF417Barcode = class(TStPDF417Barcode)
50			protected {private}
51			{.Z+}
52			FCaptionDataLink : TFieldDataLink;
53			FCodeDataLink : TFieldDataLink;
54
55			procedure CaptionDataChange(Sender : TObject);
56			procedure CodeDataChange(Sender : TObject);
57			function GetCaptionDataField : string;
58			function GetCodeDataField : string;
59			function GetDataSource : TDataSource;
60			procedure SetCaptionDataField(const Value : string);
61			procedure SetCodeDataField(const Value : string);
62			procedure SetDataSource(Value : TDataSource);
63
64			public
65			constructor Create(AOwner : TComponent); override;
66			destructor Destroy;
67			override;
68			{.Z+}
69			published
70			property Code stored False;
71			property Caption stored False;
72
73			property CaptionDataField : string
74			read GetCaptionDataField write SetCaptionDataField;
75			property CodeDataField : string
76			read GetCodeDataField write SetCodeDataField;
77
78			property DataSource : TDataSource read GetDataSource write SetDataSource;
79			end;
80
81			TStDbMaxiCodeBarcode = class(TStMaxiCodeBarcode)
82			protected {private}
83			{.Z+}
84			FCaptionDataLink : TFieldDataLink;
85			FCodeDataLink : TFieldDataLink;
86			FCountryCodeDataLink : TFieldDataLink;
87			FPostalCodeDataLink : TFieldDataLink;
88			FServiceClassDataLink : TFieldDataLink;
89
90			procedure CaptionDataChange (Sender : TObject);
91			procedure CodeDataChange (Sender : TObject);
92			procedure CountryCodeChange (Sender : TObject);
93
94			function GetCaptionDataField : string;
95			function GetCodeDataField : string;
96			function GetCountryCodeDataField : string;
97			function GetDataSource : TDataSource;
98			function GetPostalCodeDataField : string;
99			function GetServiceClassDataField : string;
100
101			procedure PostalCodeChange (Sender : TObject);
102			procedure ServiceClassChange (Sender : TObject);
103
104			procedure SetCaptionDataField (const Value : string);
105			procedure SetCodeDataField (const Value : string);
106			procedure SetCountryCodeDataField (const Value : string);
107			procedure SetDataSource (Value : TDataSource);
108			procedure SetPostalCodeDataField (const Value : string);
109			procedure SetServiceClassDataField (const Value : string);
110
111			public
112			constructor Create(AOwner : TComponent); override;
113			destructor Destroy;
114			override;
115			{.Z+}
116			published
117			property Code stored False;
118			property Caption stored False;
119
120			property CaptionDataField : string
121			read GetCaptionDataField write SetCaptionDataField;
122			property CarrierCountryCodeDataField : string
123			read GetCountryCodeDataField write SetCountryCodeDataField;
124			property CarrierPostalCodeDataField : string
125			read GetPostalCodeDataField write SetPostalCodeDataField;
126			property CarrierServiceClassDataField : string
127			read GetServiceClassDataField write SetServiceClassDataField;
128			property CodeDataField : string
129			read GetCodeDataField write SetCodeDataField;
130
131			property DataSource : TDataSource read GetDataSource write SetDataSource;
132			end;
133
134			implementation
135
136			{ TStDbPDF417Barcode }
137
138			constructor TStDbPDF417Barcode.Create(AOwner : TComponent);
139			begin
140			inherited Create(AOwner);
141
142			FCaptionDataLink := TFieldDataLink.Create;
143			FCaptionDataLink.OnDataChange := CaptionDataChange;
144			FCodeDataLink := TFieldDataLink.Create;
145			FCodeDataLink.OnDataChange := CodeDataChange;
146			end;
147
148			destructor TStDbPDF417Barcode.Destroy;
149			begin
150			FCaptionDataLink.OnDataChange := nil;
151			FCaptionDataLink.Free;
152			FCaptionDataLink := nil;
153			FCodeDataLink.OnDataChange := nil;
154			FCodeDataLink.Free;
155			FCodeDataLink := nil;
156
157			inherited Destroy;
158			end;
159
160			procedure TStDbPDF417Barcode.CaptionDataChange(Sender : TObject);
161			begin
162			if FCaptionDataLink.Field = nil then
163			Caption := '12345678922'
164			else
165			Caption := FCaptionDataLink.Field.DisplayText;
166			end;
167
168			procedure TStDbPDF417Barcode.CodeDataChange(Sender : TObject);
169			begin
170			if FCodeDataLink.Field = nil then
171			Code := '12345678922'
172			else
173			Code := FCodeDataLink.Field.DisplayText;
174			end;
175
176
177			function TStDbPDF417Barcode.GetCaptionDataField : string;
178			begin
179			Result := FCaptionDataLink.FieldName;
180			end;
181
182			function TStDbPDF417Barcode.GetCodeDataField : string;
183			begin
184			Result := FCodeDataLink.FieldName;
185			end;
186
187			function TStDbPDF417Barcode.GetDataSource : TDataSource;
188			begin
189			Result := FCaptionDataLink.DataSource
190			end;
191
192			procedure TStDbPDF417Barcode.SetCaptionDataField(const Value : string);
193			begin
194			FCaptionDataLink.FieldName := Value;
195			end;
196
197			procedure TStDbPDF417Barcode.SetCodeDataField(const Value : string);
198			begin
199			FCodeDataLink.FieldName := Value;
200			end;
201
202			procedure TStDbPDF417Barcode.SetDataSource(Value : TDataSource);
203			begin
204			FCaptionDataLink.DataSource := Value;
205			FCodeDataLink.DataSource := Value;
206			end;
207
208			{ TStDbMaxiCodeBarcode }
209
210			constructor TStDbMaxiCodeBarcode.Create(AOwner : TComponent);
211			begin
212			inherited Create(AOwner);
213
214			FCaptionDataLink := TFieldDataLink.Create;
215			FCaptionDataLink.OnDataChange := CaptionDataChange;
216			FCodeDataLink := TFieldDataLink.Create;
217			FCodeDataLink.OnDataChange := CodeDataChange;
218			FCountryCodeDataLink := TFieldDataLink.Create;
219			FCountryCodeDataLink.OnDataChange := CountryCodeChange;
220			FPostalCodeDataLink := TFieldDataLink.Create;
221			FPostalCodeDataLink.OnDataChange := PostalCodeChange;
222			FServiceClassDataLink := TFieldDataLink.Create;
223			FServiceClassDataLink.OnDataChange := ServiceClassChange;
224			end;
225
226			destructor TStDbMaxiCodeBarcode.Destroy;
227			begin
228			FCaptionDataLink.OnDataChange := nil;
229			FCaptionDataLink.Free;
230			FCaptionDataLink := nil;
231			FCodeDataLink.OnDataChange := nil;
232			FCodeDataLink.Free;
233			FCodeDataLink := nil;
234			FCountryCodeDataLink.OnDataChange := nil;
235			FCountryCodeDataLink.Free;
236			FCountryCodeDataLink := nil;
237			FPostalCodeDataLink.OnDataChange := nil;
238			FPostalCodeDataLink.Free;
239			FPostalCodeDataLink := nil;
240			FServiceClassDataLink.OnDataChange := nil;
241			FServiceClassDataLink.Free;
242			FServiceClassDataLink := nil;
243
244			inherited Destroy;
245			end;
246
247			procedure TStDbMaxiCodeBarcode.CaptionDataChange(Sender : TObject);
248			begin
249			if FCaptionDataLink.Field = nil then
250			Caption := '12345678922'
251			else
252			Caption := FCaptionDataLink.Field.DisplayText;
253			end;
254
255			procedure TStDbMaxiCodeBarcode.CodeDataChange(Sender : TObject);
256			begin
257			if FCodeDataLink.Field = nil then
258			Code := '12345678922'
259			else
260			Code := FCodeDataLink.Field.DisplayText;
261			end;
262
263			procedure TStDbMaxiCodeBarcode.CountryCodeChange (Sender : TObject);
264			begin
265			if FCountryCodeDataLink.Field = nil then
266			CarrierCountryCode := 0
267			else
268			CarrierCountryCode := FCountryCodeDataLink.Field.AsInteger;
269			end;
270
271			function TStDbMaxiCodeBarcode.GetCaptionDataField : string;
272			begin
273			Result := FCaptionDataLink.FieldName;
274			end;
275
276			function TStDbMaxiCodeBarcode.GetCodeDataField : string;
277			begin
278			Result := FCodeDataLink.FieldName;
279			end;
280
281			function TStDbMaxiCodeBarcode.GetCountryCodeDataField : string;
282			begin
283			Result := FCountryCodeDataLink.FieldName;
284			end;
285
286			function TStDbMaxiCodeBarcode.GetDataSource : TDataSource;
287			begin
288			Result := FCaptionDataLink.DataSource
289			end;
290
291			function TStDbMaxiCodeBarcode.GetPostalCodeDataField : string;
292			begin
293			Result := FPostalCodeDataLink.FieldName;
294			end;
295
296			function TStDbMaxiCodeBarcode.GetServiceClassDataField : string;
297			begin
298			Result := FServiceClassDataLink.FieldName;
299			end;
300
301			procedure TStDbMaxiCodeBarcode.PostalCodeChange (Sender : TObject);
302			begin
303			if FPostalCodeDataLink.Field = nil then
304			CarrierPostalCode := '000'
305			else
306			CarrierPostalCode := FPostalCodeDataLink.Field.DisplayText;
307			end;
308
309			procedure TStDbMaxiCodeBarcode.ServiceClassChange (Sender : TObject);
310			begin
311			if FServiceClassDataLink.Field = nil then
312			CarrierServiceClass := 0
313			else
314			CarrierServiceClass := FServiceClassDataLink.Field.AsInteger;
315			end;
316
317			procedure TStDbMaxiCodeBarcode.SetCaptionDataField(const Value : string);
318			begin
319			FCaptionDataLink.FieldName := Value;
320			end;
321
322			procedure TStDbMaxiCodeBarcode.SetCodeDataField(const Value : string);
323			begin
324			FCodeDataLink.FieldName := Value;
325			end;
326
327			procedure TStDbMaxiCodeBarcode.SetCountryCodeDataField (const Value : string);
328			begin
329			FCountryCodeDataLink.FieldName := Value;
330			end;
331
332			procedure TStDbMaxiCodeBarcode.SetDataSource(Value : TDataSource);
333			begin
334			FCaptionDataLink.DataSource := Value;
335			FCodeDataLink.DataSource := Value;
336			FCountryCodeDataLink.DataSource := Value;
337			FPostalCodeDataLink.DataSource := Value;
338			FServiceClassDataLink.DataSource := Value;
339			end;
340
341			procedure TStDbMaxiCodeBarcode.SetPostalCodeDataField (const Value : string);
342			begin
343			FPostalCodeDataLink.FieldName := Value;
344			end;
345
346			procedure TStDbMaxiCodeBarcode.SetServiceClassDataField (const Value : string);
347			begin
348			FServiceClassDataLink.FieldName := Value;
349			end;
350
351			end.