|
Pravim program za videoteku  i kod vraćanja filmova imam problem. Napravio sam dva grida. Prvi ću filtrirati po TEdit (upišem šifru člana ili šifru filma) zavisno od toga šta je odabrano u combobox-u i filtrira mi tu.
Ispod tog grida nalazi se jedan button na čiji klik bi trebalo da vraća filmove, tj u tabeli gdje su izdani filmovi da radi update da stavlja vraceno=1 (true) da je vracen film.
A drugi grid tu sam planirao kao račun. I sad napravio sam dvije tabele racuni i racunistavke. Klikom na button taj gdje bi se stavljali filmovi na racun (a usput i radio update da su vraceni) clientdataset racuna sam nastimao da je active:=False;
I sada dole:
If cdsracun.Active=False then
begin
ovdje kreira racun, procedura se izvrsava
end
I dole ide cdsracun.Active:=True (dakle aktivan je tj otvoren) i dole sam izvrsavao proceduru za racunstavke (MSSQL)
with spracunstavke do
begin
ParamByName('@action').AsInteger:=1;
ParamByName('@idracunstavka').Clear;
ParamByName('@idracun').AsInteger:=spracun.ParamByName('@idracunout').AsInteger;
ParamByName('@sifrafilma').AsString:=cdsizdatosifrafilma.asstring;
ParamByName('@idclana').AsInteger:=cdsizdatoidclana.AsInteger;
end;
try
spracunstavke.ExecProc;
cdsracun.Filtered:=False;
cdsracun.Filter:='idracun='+IntToStr(spracun.ParamByName('@idracunout').AsInteger);
cdsracun.Filtered:=True;
cdsracun.Close;
cdsracun.Open;
except
on E:Exception do
begin
ShowMessage(e.message);
end;
end;
I sad kad odaberem novi film i kliknem da ga prebacim na racun i oznacim kao da je vracen ne valja... vjerovatno ono active:=true/false ne valja.. treba bolje rjesenje, pa me zanima kako biste vi to rjesili? Ne znam sta dalje.
to sam uradio da dole psotavlja nakon sto kreira racun da postavlja da je aktivan i nakon iduceg klika nece kreirat racun je jer je vec active a potreban false i onda sam mislio jos jedan button gdje ce biti ono novi racun, dovrsi bla bla... i tu ponovo stavi da je active:=false .... tj ponovo je potrebno otvaranje, ali nesto ne stima ovdje...
sta da radim??
|
