[es] - Program Bibliotekar za evidenciju knjiga i korisnika pomoc

dr.zmaj
Drazen Zmaj
prof.
Beograd

Član broj: 63416
Poruke: 259
*.ptt.yu.

Sajt: kompaskmt.9f.com

Profil

Program Bibliotekar za evidenciju knjiga i korisnika pomoc

^{23.12.2006. u 19:58 - pre 211 meseci}

Treba mi pomoc da isprogramiram aplikaciju koja omogucava unos knjiga i evidenciju izdatih knjiga. Glavna forma ima 4 edit polja za prikaz podataka o knjizi i 3 polja za podatke o korisniku. Jedan check box koji je True ako je knjiga izdata. Spisak knjiga se nalazi na ListBox-u. Kada se klikne na knjigu na ListBoxu, podaci su vidljivi u Edit poljima, a ukoliko je knjiga izdata treba da se pokazu i podaci o korisniku. Ukoliko knjiga nije izdata labele i editi korisnika su sivi. Na glavnoj formi nalazi se i dugme koje omogucava da se prikaze druga forma koja treba da prikaze knjige koje su izdate. Sve ovo treba da se koliko sam razumeo uradi sa slogovima i nizom. Problem je sto ja ne mogu da dodjem na ideju kako da ovo realizujem. Problem je ako sve podatke stavljam u jedan record, kada preskocim edit polja za korisnika javlja mi gresku. Znaci treba mi pomoc kako da povezem podatke za knjige sa podacima korisnika.

Odgovor na temu

StevanD
Stevan Dejanovic
Indjija

Član broj: 17185
Poruke: 19
212.200.179.*

ICQ: 107420192

Profil

Re: Program Bibliotekar za evidenciju knjiga i korisnika pomoc

^{23.12.2006. u 22:36 - pre 211 meseci}

Rado bih ti pomogao ali cini mi se da nisam bas shvatio problem jer mi se cini da je to sve bas jednostavno....
da li koristis neku bazu podatka?
koliko tabela imas?
mozes li malo da detaljnije opises gde te koci...

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Program Bibliotekar za evidenciju knjiga i korisnika pomoc

^{23.12.2006. u 22:57 - pre 211 meseci}

Pseudokod bi ovako izgledao

Code:

type
  TPodaci = record
    ...
  end;

var
  NizPodataka: array of TPodaci;

...

procedure Popuni(I: Integer);
begin
  NizPodataka[I].NekiPodatak = EditX.Text;
  ...
end;

Play Store

Odgovor na temu

Brkic

Član broj: 55360
Poruke: 1222
*.dynamic.sbb.co.yu.

Profil

Re: Program Bibliotekar za evidenciju knjiga i korisnika pomoc

^{23.12.2006. u 23:01 - pre 211 meseci}

Problem je krajnje jednostavan, isti princim kao i program za Video klub (kasete-clanovi),za clana vezi koji broj klnjige je uzeo, ali veci ti je problem sto radis sa record pa ce ucitavanje fajla korisnika i knjiga biti dugotrajno vec preko 1000.
Predji na neku bazu da to radi kako treba.

Odgovor na temu

dr.zmaj
Drazen Zmaj
prof.
Beograd

Član broj: 63416
Poruke: 259
*.ptt.yu.

Sajt: kompaskmt.9f.com

Profil

Re: Program Bibliotekar za evidenciju knjiga i korisnika pomoc

^{24.12.2006. u 19:48 - pre 211 meseci}

Zadatak je da koristim slogove i nizove, a ne baze i tabele. Kao primer radili smo adresar, koji ima polja definisana u jednom record-u. To je sve u redu, ali zadatak je da preko npr. dugmeta za NOVI podatak unesem podatke o knjizi, dugme menja ime u UPISI, podatak se premesta u ListBox, a Edit polja se brisu i spremna su za novi podatak. Medjutim kada upisem podatke za knjigu, javlja mi gresku kada zelim da upisem podatke u listbox, jer sam ostavio prazna Edit polja za korisnika. Kada kliknem na Naziv knjige u ListBoxu (u ListBoxu treba samo da se pojavi naziv knjige i autor), treba da se pojave svi podaci o knjizi u Edit poljima, a ako je knjiga izdata da se automatski cekira CheckBox, a Edit polja za korisnika budu ispisana podacima o korisniku. Ukoliko knjiga nije izdata, mora se omoguciti rucno cekiranje cime se aktiviraju Edit polja za unos korisnika. Dugme za OBRISI, PROMENI, nisu mi problem.

Da li na forumu postoji negde program za videoteku, ali da je uradjen pomocu slogova i nizova.

Odgovor na temu

dr.zmaj
Drazen Zmaj
prof.
Beograd

Član broj: 63416
Poruke: 259
*.ptt.yu.

Sajt: kompaskmt.9f.com

Profil

Re: Program Bibliotekar za evidenciju knjiga i korisnika pomoc

^{30.12.2006. u 20:10 - pre 210 meseci}

Resio sam problem oko neprihvatanja praznih polja u slogu tako sto sam sva polja u slogu odredio kao string. Evo deo koda.

TKnjiga = record
NazKnjige: string[30];
Autor: string[20];
Godina: string[10];
Sifra: string[15];
Ime: string[30];
Tel: string[20];
Datum: string[15];
end;

TBibNiz=array [1..MAX] of TKnjiga;
TBibFile= file of TKnjiga;
.....................................................
public
BibZapis: TBibNiz;
TotalBib: integer;
unos_u_toku: Boolean;

.........................................................

procedure TBiblioPro.DodajZapis;
begin
inc(TotalBib);
BibZapis[TotalBib].NazKnjige := NazivKnjEdit.Text;
BibZapis[TotalBib].Autor := AutorEdit.Text;
BibZapis[TotalBib].Godina := GodinaEdit.Text;
BibZapis[TotalBib].Sifra := SifraEdit.Text;
BibZapis[TotalBib].Ime := ImeKorEdit.Text;
BibZapis[TotalBib].Tel := TelefonEdit.Text;
BibZapis[TotalBib].Datum := DatumEdit.Text;

if not KnjigaCheck.Checked then begin
if MessageDlg('Upis novog podatka u fajl',
MtInformation,[mbyes,mbno],0)=mryes then begin
PopuniSveEdite;
end;
end;
end;

U ListBox-u prikazuju se samo podaci o nazivu knjige i autoru sledecim kodom:

var i : integer;
begin
KnjigeList.Items.Clear;
for i := 1 to TotalBib do
KnjigeList.Items.Add(BibZapis.NazKnjige + ', ' + BibZapis.Autor);
end;

Na drugoj Formi imam takodje ListBox u kojem se trebaju prikazati samo izdate knjige, odnosno oni slogovi kod kojih postoji upisan korisnik. Znam kako prikazati podatke kao na prvoj Formi, ali kako da se samo prikazu knjige koje su izdate.
Molim za pomoc ako neko zna kako ovo da resim.

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Program Bibliotekar za evidenciju knjiga i korisnika pomoc

^{30.12.2006. u 22:13 - pre 210 meseci}

> Na drugoj Formi imam takodje ListBox u kojem se trebaju prikazati samo izdate knjige, odnosno oni slogovi kod kojih postoji upisan korisnik.
> Znam kako prikazati podatke kao na prvoj Formi, ali kako da se samo prikazu knjige koje su izdate.

Zar nisi sam dao odgovor na pitanje? To su slogovi kod kojih postoji upisan korisnik. Ako je korisnika čuvaš u polju Ime, prođi kroz sve slogove i upiši one gde je ime prazno.
Ako to nije ono što tražiš, onda razjasni.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

dr.zmaj
Drazen Zmaj
prof.
Beograd

Član broj: 63416
Poruke: 259
*.ptt.yu.

Sajt: kompaskmt.9f.com

Profil

Re: Program Bibliotekar za evidenciju knjiga i korisnika pomoc

^{31.12.2006. u 13:15 - pre 210 meseci}

Pa verovatno jeste to resenje, ali nemam ideju kako bi to izgledalo u kodu. U ListBoxu treba da se pojavi samo naziv knjige i autor iz sloga u kojem imamo ime korisnika. Ne znam kako bi to u kodu izveo.

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Program Bibliotekar za evidenciju knjiga i korisnika pomoc

^{31.12.2006. u 13:33 - pre 210 meseci}

> Pa verovatno jeste to resenje, ali nemam ideju kako bi to izgledalo u kodu. U ListBoxu treba da se pojavi samo naziv knjige i autor iz
> sloga u kojem imamo ime korisnika. Ne znam kako bi to u kodu izveo.

Code:

var
  i : integer;
begin
  KnjigeList.Items.Clear;
  for i := 1 to TotalBib do
    if BibZapis[i].Ime <> '' then
      KnjigeList.Items.Add(BibZapis[i].NazKnjige + ', ' + BibZapis[i].Autor);
end;

Odgovor na temu