Automatska promena statusa u BDE

Pozdrav svima,
Potrebna mi je hitno Vasa pomoc.Radim na jednom programu za DVD klub i imam problema.Radim sa tabelama BDTabels znaci ne koristim SQL.Sve je mi radi ok:unos datuma ,filmova ,korisnika...jedini problem je kad film iznamim na recimo 3 dana a korisnik ne vraca, kako bi mogao da odradim filtriranje; tj. sve korisnike koje ne vracaju na vreme da se automatsko menja status ili tako nesto.Za filtriranje sam koristio DBPro komponentu.
Hvala unapred

> ok:unos datuma ,filmova ,korisnika...jedini problem je kad film iznamim na recimo 3 dana a korisnik ne vraca, kako bi mogao da odradim
> filtriranje; tj. sve korisnike koje ne vracaju na vreme da se automatsko menja status ili tako nesto.Za filtriranje sam koristio DBPro komponentu.

Filtriranje je jedno a promena statusa tj. izmene u tabeli nešto drugo, nije jasno šta tebi od ta dva treba. Ako nećeš da koristiš TQuery onda u TTable imaš Filter property gde možeš upisati željeni uslov ili OnFilterRecord gde možeš ispitati uslov. A izmenu statusa (pretpostavljam da je to neko polje) radiš sa:


Mislim da ti je bolje da umesto statusa držiš informaciju koliko dana kasni, odnosno kada je iznajmio i koliko je dana prošlo od tada.

Potpis

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

Vidi ovako da Vam pojasnim situaciju.Unosim korisnike,unosim datum iznajmljvanja, po default ima vreme vracanja recimo 3 dana.Ukoliko to vreme istakne automatski da se taj korisnik prebaci u drugi status.Najvaznije je da ja mogu da listam korisnike koje ne vracaju na vreme tj. ciji je period od tri dana isteko.
Mislim da sam sad malo jasnije opisao moj problem

> Najvaznije je da ja mogu da listam korisnike koje ne vracaju na vreme tj. ciji je period od tri dana isteko.

Šta ti je konkretno problem? Da li si probao pomoću Filter svojstva ili OnFilterRecord (bolja varijanta)?

Potpis

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

Resen problem.
Svaka cast, care
Evo ovako sam resio problem:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := Danasnji_Datum.Date > DataSet['Datum.Iznajmljvanja'] + 3;
end;

To je ono sto sam trazio..... Hvala jos jednom

Pozdrav,
Opet je.Pojavio mi se novi problem.
Kada sam postavio filer panel i dodao ovo:

procedure TForm1.filterFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := Danasnji_datum > DataSet['datumiznajmljivanja'] +30;
end;

/////Filter ON
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
filter.Filtered:=true;
end;

////Filter OFF
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
filter.Filtered:=false;
end;

Filtriranje po datumu radi ali mi zeza sve ostalo.Ne mogu da filtriram po imenu, prezimenu ....
Da li je potrebno da se postavi neki uslov ili sta vec.
Probao sam da odradim filter i kodom ali isti slucaj.

> Filtriranje po datumu radi ali mi zeza sve ostalo.Ne mogu da filtriram po imenu, prezimenu ....
> Da li je potrebno da se postavi neki uslov ili sta vec. Probao sam da odradim filter i kodom ali isti slucaj.

Uslov postavljaš na isti način kao i za datum u OnFilterRecord ili u Filter svojstvu, verovatno si nešto pogrešno napisao, pokaži kod za filtriranje.

Potpis

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

procedure Filter;
var
sField : String;
sSearch: String;
begin
case frmMain.cbField.ItemIndex of
0 : sField := 'JMBG';
1 : sField := 'Prezime';
2 : sField := 'Adresa';
end;

sSearch := frmMain.edtSearch.Text;
if sSearch = '' then
begin
TABLE1.Filter := '';
TABLE1.Filtered := False;
Exit;
end;

while Pos('?',sSearch) > 0 do
sSearch[Pos('?',sSearch)] := '%';

if sSearch[Length(sSearch)] <> '%' then sSearch := sSearch + '%';
TABLE1.Filter := sField+ ' like '+''''+sSearch+'''';
TABLE1.Filtered := True;
end;
Ovo je kod koji sam koristio za filtriranje mada sam probao da koristim komponentu DBPro.Postoji vec gotov filter panel kome je dovoljno da se daje ime fildova pa cak ni to ne treba.Sve radi sam.
Jedini problem je to da kad mu aktiviram filter on filtrira datum a ne ime ili prezim.To mi je proble i u slucaju koda.Jedino mi je potrebno nesto kao check button ili tako nesto da recimo kad je cekirano onda da filtrira datum a ka nije da filtrira imena,prezimena...

> Jedini problem je to da kad mu aktiviram filter on filtrira datum a ne ime ili prezim.To mi je proble i u slucaju koda.Jedino mi je potrebno nesto
> kao check button ili tako nesto da recimo kad je cekirano onda da filtrira datum a ka nije da filtrira imena,prezimena...

Kada želiš da isključiš filtiranje preko OnFilterRecord eventa jednostavno napišeš Table.OnFilterRecord := nil; Kada hoćeš da uključiš napišeš
Table.OnFilterRecord := NazivFilterMetode;

Potpis

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