
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

Vonalkód nyomtatása a QuickReport-al

Vonalkód 2. rész

Példaprogram letöltése

11593 bájt

Múlt heti cikkünkben bemutattunk egy vonalkód készítő komponenst, amelynek most egy lehetséges felhasználását mutatjuk be, méghozzá azt, hogy hogyan tudunk egy terméklistát kinyomtatni vonalkóddal együtt.

A mellékelt példaprogram megnyitása előtt a múlt héten közre adott BarCode.pas-ban lévő komponenst telepítenie kell a Delphi alá.

A feladat tehát a következő: van egy terméklistánk, amit ki szeretnénk nyomtatni, de úgy, hogy a termékkódból előállítjuk a vonalkódot, és azt is a termék neve alá nyomtatjuk. A legegyszerűbb megoldásnak az látszik, ha a vonalkód képét eltároljuk az adatbázisban a termék többi adata mellé. Ez viszont feleslegesen sok helyet foglalna, már csak azért is, mert a vonalkódot a komponens segítségével bármikor előállíthatjuk, ráadásul olyan paraméterekkel, amilyenre éppen szükségünk van. A legjobb megoldás tehát az lesz, hogy csak a nyomtatáskor állítjuk elő a vonalkódot.

A nyomtatáshoz QuickReport-ot fogunk használni. Erre felteszünk egy QRBand-et, rbDetail típussal. Erre elhelyezünk egy QRDBText, és egy QRImage komponenst. A QRDBText-ben megadjuk a termék nevét tartalmazó mezőt. A QRImage komponensnél az AutoSize property értékét állítsuk igazra (true).
Ahhoz, hogy a nyomtatás közben tudjuk a vonalkódot előállítani a QRBand BeforePrint eseményét használjuk fel. Ez azelőtt jön létre, mielőtt a QRBand kinyomtatásra kerülne.

procedure TQuickReport1.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  BarCode1.BarCode:=QRDBText1.DataSet.FieldByName('KOD').AsString;
  QRImage1.Picture.Bitmap.Assign(BarCode1.Bitmap);
end;

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
3333	Windows	Net Shell parancsok	1. rész
3367	Windows	Net Shell parancsok	2. rész
3396	Windows	Net Shell parancsok	3. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 251. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!