[es] - Punjenje BP iz TListView-a? Pitanje za iskusnije delphi programere

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.

Profil

Punjenje BP iz TListView-a? Pitanje za iskusnije delphi programere - Part II

^{26.06.2006. u 16:19 - pre 216 meseci}

Pozdrav,

sam naslov teme govori, ali nije greda da vam malo približim problem. Naime, upload-ovao sam primer na kojem bih voleo da mi pokažete kako ga rešiti.
Dakle, imam tabelu sa poljima ( za primer ): RB, PREZIME, IME, ARTIKL, KOLICINA.
Hteo bih u TListView da ubacim više ARTIKLOVA sa svojim KOLIČINAMA i kad završim dodavanje, odradim INSERT u tabelu.
S tim, da, rezultat u tabeli izgleda ovako:

Citat:

RB|PREZIME|IME | ARTIKL |KOLICINA
1 Peric Pera Sapun 2
1 Peric Pera Maslac 1
1 Peric Pera hleb 2

Tako da, kad se vrši pretraga, odradi se upit za RB i izbace se podaci za račun pod rednim brojem npr. 1 !!!
Nadam se da ćete razumeti... A ako se to ne radi tako kako sam zamislio, molim, da mi to predočite i kažete kako je ispravno...

Someone's sitting in the shade today because someone planted a tree a long time ago.

Prikačeni fajlovi

TListView Punjenje BP.rar - 15.53k

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.

Profil

Re: Punjenje BP iz TListView-a? Pitanje za iskusnije delphi programere - Part II

^{27.06.2006. u 13:36 - pre 216 meseci}

Pozdrav,

ili me niste razumeli, ili je zaista tako nešto komplikovano, da mi ne možete objasniti?!

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Punjenje BP iz TListView-a? Pitanje za iskusnije delphi programere - Part II

^{27.06.2006. u 15:08 - pre 216 meseci}

Kad zavrsis sa unosom, protrci kroz ListView i uradi INSERT :)

Itemi u list view se nalaze u Items property-u. Broj itema je u Items.Count. Prva kolona je u Items[Index].Caption, druga je Items[Index].SubItems[0], treca je Items[Index].SubItems[1], itd...

Napravis SQL koji izgleda npr ovako:

INSERT INTO Racuni (RB, PREZIME, IME, ARTIKL, KOLICINA)
VALUES (:RBPARAM, :PREZIMEPARAM, :IMEPARAM, :ARTIKLPARAM, :KOLICINAPARAM)

Postavis parametre i izvrsis query.

Play Store

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.

Profil

Re: Punjenje BP iz TListView-a? Pitanje za iskusnije delphi programere - Part II

^{27.06.2006. u 19:12 - pre 216 meseci}

Problem?!!!

Dakle, kao u primeru, postavio sam TListView(VilevStyle=vsReport) i dodelio kolone:
0 - ARTIKL (ListView1.Columns(0))
1 - KOLICINA (ListView1.Columns(1))

Iz TEdit1 i TEdit2, TListView1 punim:

Code:

Item := ListView1.Items.Add;
Item.Caption := IntToStr(ListView1.ComponentCount);
Item.SubItems.Add(Edit1.Text);
Item.SubItems.Add(Edit2.Text);

Posle toga treba unos u bazu?! OVako ide:

Code:

with ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO Naziv_Tabele (RB,PREZIME,IME,ARTIKL,KOLICINA');
SQL.Add('VALUES (:RB,:PREZIME,:IME,:ARTIKL,:KOLICINA');
Parameters.ParamByName('RB').Value:=StrToInt(EditRB.Text);
Parameters.ParamByName('PREZIME').Value:=EditPREZIME.Text;
Parameters.ParamByName('IME').Value:=EditIME.Text;
Parameters.ParamByName('ARTIKL').Value:= //ovde treba unos iz TListView
Parameters.ParamByName('KOLICINA').Value:= //ovde treba unos iz TListView
ExecSQL;
end;

Pokušao sam neke varijante, ali nisam skontao, tako da mi treba kod kojim ću dodeliti:
Parameters.ParamByName('ARTIKL').Value:= ???
Parameters.ParamByName('KOLICINA').Value:=???

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Punjenje BP iz TListView-a? Pitanje za iskusnije delphi programere - Part II

^{27.06.2006. u 20:17 - pre 216 meseci}

Citat:

Kad zavrsis sa unosom, protrci kroz ListView i uradi INSERT :)

Mislim da bi ti for petlja jako pomogla u resavanju tog problema.

Play Store

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.

Profil

Re: Punjenje BP iz TListView-a? Pitanje za iskusnije delphi programere - Part II

^{27.06.2006. u 20:36 - pre 216 meseci}

Kako?

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Punjenje BP iz TListView-a? Pitanje za iskusnije delphi programere - Part II

^{27.06.2006. u 20:39 - pre 216 meseci}

Da li bi ti pomoglo ako bih ti rekao da za svaki red moras da napraivs poseban INSERT?

Play Store

Odgovor na temu

marcha
Nikola Marcic
Beograd/Leskovac

Član broj: 6454
Poruke: 108
*.36.eunet.yu.

ICQ: 156892888

+1 Profil

Re: Punjenje BP iz TListView-a? Pitanje za iskusnije delphi programere - Part II

^{28.06.2006. u 05:40 - pre 216 meseci}

Citat:

Pokušao sam neke varijante, ali nisam skontao, tako da mi treba kod kojim ću dodeliti:
Parameters.ParamByName('ARTIKL').Value:= ???
Parameters.ParamByName('KOLICINA').Value:=???

Code:

// i - index itema u listi
// x,y - index subitema u kome si upisao vrednosti za art i kol
Parameters.ParamByName('ARTIKL').Value:= ListView1.Items[i].SubItems[x];
Parameters.ParamByName('KOLICINA').Value:=ListView1.Items[i].SubItems[y];

Marcha
-----------------------------------
Pretpostavka je majka zajeba.

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.

Profil

Re: Punjenje BP iz TListView-a? Pitanje za iskusnije delphi programere - Part II

^{28.06.2006. u 17:44 - pre 216 meseci}

Ovaj deo je rešen, hvala puno...

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu