[es] - Automatska promena statusa u BDE

CaSper01
CaSper 01

Član broj: 148267
Poruke: 17
*.156.nat-pool-bgd.sbb.co.yu.

Profil

^{24.11.2007. u 16:42 - pre 199 meseci}

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

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Automatska promena statusa u BDE

^{24.11.2007. u 23:52 - pre 199 meseci}

> 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:

Code:

Table.Edit;
Table.FieldByName('STATUS').AsString := '1';
Table.Post;

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.

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

CaSper01
CaSper 01

Član broj: 148267
Poruke: 17
*.156.nat-pool-bgd.sbb.co.yu.

Profil

Re: Automatska promena statusa u BDE

^{25.11.2007. u 02:21 - pre 199 meseci}

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

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Automatska promena statusa u BDE

^{25.11.2007. u 10:02 - pre 199 meseci}

> 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)?

Odgovor na temu

CaSper01
CaSper 01

Član broj: 148267
Poruke: 17
*.156.nat-pool-bgd.sbb.co.yu.

Profil

Re: Automatska promena statusa u BDE

^{25.11.2007. u 14:26 - pre 199 meseci}

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

Odgovor na temu

CaSper01
CaSper 01

Član broj: 148267
Poruke: 17
*.201.nat-pool-bgd.sbb.co.yu.

Profil

Re: Automatska promena statusa u BDE

^{30.11.2007. u 20:50 - pre 199 meseci}

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.

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Automatska promena statusa u BDE

^{01.12.2007. u 09:29 - pre 199 meseci}

> 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.

Odgovor na temu

CaSper01
CaSper 01

Član broj: 148267
Poruke: 17
*.201.nat-pool-bgd.sbb.co.yu.

Profil

Re: Automatska promena statusa u BDE

^{01.12.2007. u 18:46 - pre 199 meseci}

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...

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Automatska promena statusa u BDE

^{01.12.2007. u 20:24 - pre 199 meseci}

> 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;

Odgovor na temu

CaSper01
CaSper 01

Član broj: 148267
Poruke: 17
*.201.nat-pool-bgd.sbb.co.yu.

Profil

Re: Automatska promena statusa u BDE

^{02.12.2007. u 15:56 - pre 199 meseci}

Resio problem,
Jos jednom hvala
Pozdrav

Odgovor na temu