Keresés: - Delphi programozás - PROHARDVER! Hozzászólások

Hirdetés

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Új hozzászólás Aktív témák

#991 Notes senior tag BlackWoOd #990

Új Válasz 2005-10-27 20:01:32 #991
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

válasz BlackWoOd #990 üzenetére

Köszi!
#989 Notes senior tag

Új Válasz 2005-10-27 19:39:32 #989
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

Ha a formon létrehozok egy GroupBox-ot arra utólg bármit rá tudok pakolni, de ha egy előtte már meglévő elemet (pl. button) akarok egérrel ráhúzni akkor ''alá'' kerül. Mit csinálok rosszul?
#868 Notes senior tag

Új Válasz 2005-08-07 12:24:10 #868
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

Sziasztok!

Report-ot gyártok éppen. Két Paradox táblából szedem ki az adatokat, két Query-vel (pl. Q1,Q2) Az a gondom, hogy (tudtommal) a QuickRep-nek csak egy DataSet jellemzője lehet, így az egyik Query nem érvényesül, csak amelyik ide be van állítva. A másikhoz tartozó QRDBText egyszerűen nem jelenik meg, illetve a QRExpr nullát ad vissza. Hogy lehet ezt megoldani?
#806 Notes senior tag g4dg3t #801

Új Válasz 2005-05-19 09:35:40 #806
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Notes

senior tag
válasz g4dg3t #801 üzenetére
Köszi! Végre életet leheltél a fórumba!

Végül így oldottam meg (Thx to prog.hu community!):

Begin
Close;
Clear;

Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');

If LekerdFelhComboBox.ItemIndex>0 Then
Add ('AND (Felhasznalo= '+ Quotedstr(LekerdFelhCombobox.text)+')');
If LekerdPartnerComboBox.ItemIndex>0 Then
Add ('AND (Partner= ' + Quotedstr(LekerdPartnerCombobox.text)+')');
If LekerdCimletCombobox.Itemindex>0 Then
Add ('AND '+ VPDataModule.TranzTabla.Fields[(LekerdCimletComboBox.ItemIndex)+5].FieldName +' is not null');
Prepare;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;

Open;
end;
end;

Ez egy DBGrid-re irányítva hibátlanul működik. De ha a Query-t egy Reportra teszem és annak az OnPreview eseményekor hívom meg a fenti kódot, akkor mindig csak a feltételeknek elsőként megfelelő rekord jelenik meg, de az annyiszor, ahány rekord megfelel az SQL statement-nek. Nem tudom ez így érthető-e?
Az egyik könyvben azt olvastam, hogy a Query-hez kapcsoljak DataSource-t is. Minek? Lehet közvetlenül is hivatkozni rá nem?
#790 Notes senior tag

Új Válasz 2005-05-16 14:20:43 #790
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Notes

senior tag
No elkezdtem SQL-ezni. A SELECT utasítás egyszerűségéből fakadó sikerélmények után ( :) ) Kicsit elakadtam. Az alábbi kód a form-on lévő ComboBox-ok adatai alapján szűri a táblát. Pontosabban nem szűri... 'Parameter 'Felhaszn' not found-al leáll futás közben. Mit rontottam el?

With Query1, SQL Do
Begin
Close;
Clear;
ParamByName('Felhaszn').AsString:=LekerdFelhComboBox.Text;
ParamByName('Partn').AsString:=LekerdPartnerComboBox.Text;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
If LekerdFelhComboBox.ItemIndex>0 Then
Add ('AND (Felhasznalo= :Felhaszn)');
If LekerdPartnerComboBox.ItemIndex>0 Then
Add ('AND (Partner= :Partn)');
Open;
end;
end;

Illetve átolvastam 3 könyvet, de a Prepare helyes használatát nem sikerült megértenem (leginkább akkor működik minden jól, ha nem használom...) Erről is jó lenne egy kis útbaigazítás.
Köszi!

[Szerkesztve]
#207 Notes senior tag <Adamsky> #206

Új Válasz 2004-11-26 11:45:37 #207
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

válasz <Adamsky> #206 üzenetére

Fejből most nem tudom, de a formon lévő komponenseknek van valami azonosítójuk (szám) ami automatikusan létrejön, és az alapján lehet rájuk hivatkozni. Talán ''tag'' vagy mi... nézz szét a súgóban az jó lehet neked.
#194 Notes senior tag BlackWoOd #185

Új Válasz 2004-11-23 20:15:23 #194
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

válasz BlackWoOd #185 üzenetére

Sajnos semmit nem találtam erről a model maker-ről. Mondjuk nekem csak 5-ös Delphi-m van. Lehet, hogy abban még nem volt?
#182 Notes senior tag

Új Válasz 2004-11-22 07:31:12 #182
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

Tud valaki olyan progit ami Delphi kódbol csinál UML-t? Tudom, hogy fordítva illenen, dehát... ez van na!

(Google-t ismerem, de nincs időm próbálgatni ezeket az UML kriétöröket, ha van valakinek jól bevált... plíz!)
#159 Notes senior tag lao ce #158

Új Válasz 2004-11-20 15:37:03 #159
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

válasz lao ce #158 üzenetére

Milyen ID-ket?

De ha már itt tartunk ez az egész Form arról szól, hogy egy táblából feltöltök combobox-kat (mezőnként egy box), aztán egy lekérdez megnyomásásval a user csak azokat a rekordokat kapja vissza egy reportban, amiknek a tartalma megegyezik a comboboxok tartalmáva. Persze a dolog nem ilyen egyszerű, mert egy dátumtól-ig szűrés mindenképpen van a többi szűrés viszont csak akkor, ha a combobox előtti checkbox-ot kipipálja a felhasználó. Na képzelheted azt az Acces ágat az OnFilterRecord eseménykezelőben... mire azt összehozom... Azt hiszem erre mondják, hogy tipikus SQL megoldást kívánó dolog, de azt nem vágom. Valami ötlet?
#157 Notes senior tag lao ce #156

Új Válasz 2004-11-20 15:16:55 #157
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

válasz lao ce #156 üzenetére

Igazad van! Itt a megoldás! Illetve itt van az, hogy miért nincs megoldás... Ez egy DBLookUPComboBox (Utálom ezeket a hosszú neveket...) És annak már tényleg nincs ItemIndex tulajdonsága. Akkor marad a jó öreg ComboBox, meg egy kis kódolás a feltöltésére.
#155 Notes senior tag

Új Válasz 2004-11-20 14:53:21 #155
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

Na jó azt hiszem, inkább a táblából feltöltök egy sima ComboBox-ot. Az kicsit rugalmasabb jószág.
#154 Notes senior tag lao ce #153

Új Válasz 2004-11-20 14:34:49 #154
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

válasz lao ce #153 üzenetére

Jó ötlet. Sajnos cc nem kínálta fel... Akkor hogy a csudába állítsam ''semmi''-re a DBComboBox-ot, anélkül, hogy ''elmozdítanám'' alatta a rekordokat?
#152 Notes senior tag

Új Válasz 2004-11-20 14:09:34 #152
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

akarmiDBComboBox.ItemIndex:=-1;

Undeclared identifier 'ItemIndex'-et kapok. Csak a sima ComboBox-nál van ItemIndex?
#71 Notes senior tag Divi #70

Új Válasz 2004-09-26 18:44:21 #71
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

Notes

senior tag

válasz Divi #70 üzenetére

A trigger egy adott tábla, meghatározott eseményéhez (pl. before delete) kötött kód, amit Te hozol létre. Értelemszerűen mindig végrehajtódik az adott esemény bekövetkeztekor. A letárolt eljárás kb. ugyanez, csak azt meg is lehet hívni.