
	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ó? |

Számla fejléc adatainak létrehozása

Internetes számlázó 7. rész

Példaprogram letöltése

61872 bájt

Számla készítő alkalmazásunk most jutott el addig a pontig, hogy elkezdhetünk foglalkozni a számla tényleges létrehozási funkcióinak megvalósításával. Ezt a feladatot több lépésben oldjuk meg, mivel az eddigieknél sokkal összetettebb megvalósítást kíván. Első lépésként a számla fejléc adatainak beviteli lehetőségét és a számlák listázását valósítjuk meg.

A mellékelt példa fordítása előtt szokás szerint ellenőrizze és szükség esetén javítsa a Constant.pas-ban lévő konstansok értékeit (TEMPLATEPATH, CONNECTIONSTRING, stb.).
Az előző cikkekben már létrehozott NetInvoice virtuális web könyvtár elérési útvonalát módosítsa úgy, hogy az a most mellékelt NetInvoice könyvtárra mutasson.

Az alkalmazásunk nyitó web oldalán bejelentkezés után már megjelenik a tools.dat tartalma. Ezt most kiegészítjük két további linkkel, melyek segítségével létrehozhatunk új számlát, vagy listázhatjuk a meglévőket.

<a href="/scripts/NetInvoice.exe?uid=<#uid>&command=11">Új számla</a><br>
<a href="/scripts/NetInvoice.exe?uid=<#uid>&command=12">Számlák listája</a><br>

Kezdjük most először a meglévő számlák listázásának elkészítésével. Ez a funkció nagyjából megegyezik az eddigiekben használt listázásokkal. Amikor tehát a Command paraméter 12-es értéket kap, akkor van szükség a lista elkészítésére.

procedure TWebModule1.Command;
…
    12: begin//számlák lista
      PageProducer1.HTMLFile:=TEMPLATEPATH+'invoicelist.dat';
      Response.Content:=PageProducer1.Content;
    end;

Ehhez létrehoztunk egy invoicelist.dat állományt, melyben egy Html táblázat kap helyet, amiben megtalálható a számlák táblájának fejléce, így programból nekünk csak a sorokat kell generálnunk attól függően, hogy rekord is található-e az invoice táblában. Elhelyezünk tehát egy invoicelistitems címkét a invoicelist.dat-ba, arra a helyre, ahová be kell szúrnunk az adatokat. Ezt a műveletet pedig rábízzuk a GetInvoiceListItems nevű függvényünkre.

procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag; const TagString: String;
    TagParams: TStrings; var ReplaceText: String);
…
                  if TagString='invoicelistitems' then begin
                    ReplaceText:=GetInvoiceListItems;
                  end;

Ebben a függvényben szokás szerint meghatározzuk a használandó adatbázis típusát és megnyitjuk azt.

function TWebModule1.GetInvoiceListItems: string;
…

Ezt követően egy ciklus segítségével végigmegyünk az összes rekordon és legeneráljuk az adatokkal együtt a HTML táblázat sorait.

  while not ds.Eof do begin
    result:=result+'<tr>';
    result:=result+'<td>'+ds.Fields[0].AsString+'</td>';
…
    result:=result+'</tr>';
    ds.Next;
  end;
…

A listázás mellett a másik funkció a számla létrehozása.

procedure TWebModule1.Command;
    11: begin//Új számlafej
      PageProducer1.HTMLFile:=TEMPLATEPATH+'invoicenew1.dat';
      Response.Content:=PageProducer1.Content;
    end;

Ha a felhasználó ezt választja, akkor az invoicenew1.dat állomány kerül felhasználásra, melyben egy olyan HTML Form kap helyet, amelyben fel tudjuk venni a számla fejléc adatait. Ezek kerülnek majd az Invoice táblába. Amikor a felhasználó itt befejezi a műveletet és a Tovább gombra kattint, akkor az invoicenew1.dat-ban lévő rejtett command mező 13-es értéke fogja jelölni, hogy most kell megadni a számla tétel adatait. A következő részben ezzel folytatjuk alkalmazásunk fejlesztését.

<form method=get action="/scripts/NetInvoice.exe">
<input type=hidden name=command value=13>

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
3916	Windows	A javascript nyelv bemutatása	1. rész
3946	Windows	Javascript változók és operátorok	2. rész
3975	Windows	Kódvezérlés JScript-ben	3. rész
4004	Windows	Függvények és objektumok	4. rész
4036	Windows	Fejlett funkciók a JavaScript nyelvben	5. rész
4066	Windows	Fejlett funkciók a JavaScript nyelvben - folytatás	6. rész
4116	Windows	Reguláris kifejezések	7. rész
4145	Windows	Reguláris kifejezések - folytatás	8. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 663. 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!