Delphi 7 programiranje

[mirkomit]

Molim za pomoc kod sledecg problema u izradi aplikacije u Delphiju 7:
aplikacija koristi Paradox tabelu sa dva polja: polje "Text", tekstualno, koje je kljuc i polje "RBr" -redni broj, numericko. Tabela se prikazuje i azurira pomocu DBGrida, sa ta dva polja. Kako azurirati polje Redni broj pri brisanju i umetanju slogova? Pri svakom brisanju, dodavanju ili umetanju slogova Grid se azurira tako sto se "Text" azurira prema odgovarajucem kljucu - indexu automatski, a polje RBr treba da se azurira tako da bude 1,2,3... itd.
Brisanje slogova sam resio (mozda nije najelegantnije resenje) sledecim dogadjajem:

procedure TForm1.Table1AfterDelete(DataSet: TDataSet);
var
rc,i:Integer;
begin
Table1.Edit;
rc:=Table1.RecordCount;
Table1RBr.ReadOnly:=False;
Table1.First;
For i:=1 to rc do
begin
Table1.Edit;
Table1RBr.Value:= i;
Table1.Next;
end;
Table1.Edit;
Table1RBr.ReadOnly:=True;
end;

i ovo radi ispravno, dok kod dodavanja i insertovanja slogova ne mogu da pronadjem i isprogramiram dogadjaj koji ispravno azurira redne brojeve.
Aplikacija je maksimalno pojednostavljena, ali za mene je ovaj problem ispao komplikovan. Nadam se da sam razumljivo opisao problem i zahvaljujem unapred onome ko se pomuci da mi u ovome pomogne.

[Strog]

Mozda bi trebao da se malo pozabavis samim osnovama rada sa bazama podataka pre nego sto pocnes da radis nesto kako ne treba da se radi .

Salim se malo, nemoj da se ljutis .

Elem... Sama postavka "problema" ti je pogresna. Kada radis sa bazama i kada brises nesto iz baze ne trebas da diras primarni kljuc niti bilo koji drugi atribut ostalih zapisa jer jednostavno taj neki zapis vise nije taj zapis.

Zamisli da imas program za rad u prodavnici i da su ti na sifri 3 zvake, a na sifri 4 viski .

Danas prodajes zvake po 2 dinara, a viski po 1000 din i recimo na kraju dana obrises zvake iz programa i program azurira bazu tako da preuredi redne brojeve, tj. sifre i da ti je sada viski pod sifrom 3. Ako odes sutra na pregled prodaje naci ces malo glupo stanje, tj. videces da si prodavao viski po 2 dinara, a recimo hleb koji je bio sifra 5, a sada je sifra 4 zbog te izmene sifara je prodat po ceni od 1000 din.

Jednostavno se to u sustini nikada ne radi tako vec ostaju sifre kakve jesu bile, a ako vec ne mozes da odradis neki mehanizam koji ce ti reci da je ta i ta sifra slobodna da li da se doda nesto novo na tu sifru onda je bolje ostaviti i rupe u siframa nego sve ostale preuredjivati .

E sad... Ne znam o kakvom ti se programu tu radi i da li sve ovo sto sam rekao stvarno ima smisla i za tvoj slucaj, ali sam ti ovde izneo jedno opste resenje, tj. neko vise kao uputstvo za rad sa bazama jer mi se kako god pogledam to sto ti trazis cini malo nakaradno.

Daj vise detalja o programu ako zelis, tj. sta se tacno desava i kako, pa mozda i neki sshot te forme u radu, pa cemo mozda naci neko elegantnije resenje ili uspeti da odradimo ovo sto tebe muci .

Pozz i sorry ako sam smorio .

[mirkomit]

Bravo Strogi! Po tvom razumevanju problema vidim da cesto i uspesno programiras taj viski i zvake. Sve cestitke.
Ne mogu da verujem! Lepo sam u naslovu napisao "Delphi 7 programiranje". U ovom momentu vidim 48 pregleda i jedan nesuvisli, nadmeni i beskorisni "odgovor". Zasto ovoliko ljudi cita pitanje ako iz naslova vidi da nema (nezna) odgovor? Zao mi je, izgleda da sam postavio pitanje na pogresnom mestu, pa molim moderatore da uklone ovaj moj post, da nepotrebno ne zauzima prostor.

[Strog]

mirkomit kaže:

Bravo Strogi! Po tvom razumevanju problema vidim da cesto i uspesno programiras taj viski i zvake. Sve cestitke.
Ne mogu da verujem! Lepo sam u naslovu napisao "Delphi 7 programiranje". U ovom momentu vidim 48 pregleda i jedan nesuvisli, nadmeni i beskorisni "odgovor". Zasto ovoliko ljudi cita pitanje ako iz naslova vidi da nema (nezna) odgovor? Zao mi je, izgleda da sam postavio pitanje na pogresnom mestu, pa molim moderatore da uklone ovaj moj post, da nepotrebno ne zauzima prostor.

Ja se stvarno izvinjavam sto iz naslova nisam odmah ukapirao da ne znam kako da ti pomognem... Samo 9 godina programiram u Delphiju tako da sam pretpostavio da cu se snaci... Izgleda da sam debelo pogresio, evo, necu vise obecavam...

BTW da znas bar malo kako se radi sa bazama ne bi ni postavio ovo pitanje tako da izvini stvarno sto sam pokusao da ti pomognem...

[Todor-JF99]

Ljudi pomagajte!!!
Imam problem jer ne znam kako da napravim igricu u delphiju 7?
Ako neko zna molio bi ga da mi objasni!

[holodoc]

Todor-JF99 kaže:

Ljudi pomagajte!!!
Imam problem jer ne znam kako da napravim igricu u delphiju 7?
Ako neko zna molio bi ga da mi objasni!

Ih pa to nije bar problem.
Prvo moraš da imaš jako mnogo puno volje i da si spreman da rezervišeš bar ceo dan da napraviš igricu.

Posle toga moraš da skineš sa interneta Delphi 7. Vidi ako možeš negde da nađeš besplatnu verziju. To bi ti mnogo značilo.

Kad skineš Delphi moraš da ga instaliraš. To ne bi trebalo da bude problem a ako ne uspeš da ga instaliraš sigurno ti nije dobar Windows pa moraš prvo da reinstaliraš Windows.

Kada sve zavšiš kako sam ti reko onda pokreneš Delphi i isprogramiraš igru. Tu moraš da kucaš kod i da ubacuješ slike i muziku i da napraviš svoj "endžin" koji će sve to lepo da tera.

Kad završiš igricu moraš da napraviš instalaciju za nju da može korisnik kad je kupi od tebe da je instalira ili da pustiš kod koji si kucao u javni opticaj pa da sami korisnici kompajliraju jer to danas svako zna. Mislim čak je lakše da kompajliraju svi igricu kako im odgovara nego da ti trošiš vreme na kompajliranje. To više niko ni ne radi.

Pozdrav

[Todor-JF99]

ma hvala ti,to nisam znao!!!
Pitam nekog jer moze da mi pokaze kako da je napravim neka osnovna mi treba tipa loptica koja razbija cigle ili nesto jos prostije...ljudi pomagajte ako boga znate!!!