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

Hirdetés

Legfrissebb anyagok

Mobilarena témák

PROHARDVER! 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

#992 Tele von Zsinór őstag Notes #989

Új Válasz 2005-10-27 21:15:49 #992
Ú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
Privát üzenet küldése

Tele von Zsinór

őstag

válasz Notes #989 üzenetére

Igaza van az előttem szólónak. Egy ojjektum szülőjét létrehozáskor állítja be a delphi, ha utólag húznád rá akkor az nem fog menni. Esetleg az object treeview-ben is át lehet húzni, na meg a form forrását kézzel szerkeszteni
#990 BlackWoOd aktív tag Notes #989

Új Válasz 2005-10-27 19:46:51 #990
Ú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
Privát üzenet küldése

BlackWoOd

aktív tag

válasz Notes #989 üzenetére

Semmit nem csinálsz rosszul.

Esetleg csináld úgy, hogy kijelölöd a komponenseket, amiket a groupboxba akarsz pakolni, majd ''Edit/Cut'', aztán ráklattyantasz a groupboxra és ''Edit/Paste''.

B verzió: használd az ''Object treeview'' panelt, azon működik a drag&drop.
#874 btotyi tag Notes #868

Új Válasz 2005-08-25 20:05:55 #874
Ú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
Privát üzenet küldése

btotyi

tag

válasz Notes #868 üzenetére

Ha jól értem master-detail riportot szeretnél.

A master táblát állítsd be a laphoz tartozó datasetnek, a detailt pedig egy detail-band-hez kösd hozzá.
#800 g4dg3t senior tag Notes #790

Új Válasz 2005-05-18 00:56:53 #800
Ú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
Privát üzenet küldése
g4dg3t

senior tag
válasz Notes #790 üzenetére
A gond ott van hogy elobb hivatkozol a parameterekre es csak kesobb hozod oket letre. Mikor meghivod a ParamByName metodust az SQL stringnek mar tartalmaznia kell a lekerdezest a parameterhivatkozasokkal egyutt!

Tehat helyesen:

...
with Query1, SQL do begin
Close;
Clear;
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)');

ParamByName('Felhaszn').AsString:=LekerdFelhComboBox.Text;
ParamByName('Partn').AsString:=LekerdPartnerComboBox.Text;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;

Prepare;
Open;
end;
...

Lathatod azt is hogy mikor kell hivni a Prepare metodust (Open elott). Ez annyit csinal, hogy elore lefoglalja a Query futtatasahoz szukseges eroforrasokat igy a lekerdezes vmivel gyorsabban lefut!

[Szerkesztve]
#797 Robiba tag Notes #790

Új Válasz 2005-05-17 23:37:15 #797
Ú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
Privát üzenet küldése

Robiba

tag

válasz Notes #790 üzenetére

Add ('AND (Felhasznalo= elhaszn)'); helyett
Add ('AND (Felhasznalo='+QuotedStr(Felhaszn)+')');
és ue. a Partn-nél is.

Mivelhogy az SQL ott stringet vár.
#208 <Adamsky> nagyúr Notes #207

Új Válasz 2004-11-26 12:36:08 #208
Ú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
Privát üzenet küldése

<Adamsky>

nagyúr

válasz Notes #207 üzenetére

Megtaláltam, de sajna nem igazán tudom, hogyan is tudnám én ezt használni.
A helpben és a legtöbb példprogramban így találtam meg:
... TComponent(Sender).Tag ...
#198 BlackWoOd aktív tag Notes #194

Új Válasz 2004-11-24 18:33:21 #198
Ú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
Privát üzenet küldése

BlackWoOd

aktív tag

válasz Notes #194 üzenetére

Hát, meglehet. 7-es verzióban benne van, de abban a 2.0-ás.
Esetleg ha a Companion CD-n szétnézel, lehet, hogy ott van eldugva.
(Nincs előttem 5-ös telepítő készlet, nem tudom megnézni sajna.)

Viszont sem a borland.com-on sem a bdn.borland.com-on nem találok demo-letöltést. (Tuti, hogy volt trial változata, ide a rozsdás bökőt, ha nem...)

szerk.: a 2.0 nem biztos, de tuti, hogy 1.0 fölötti volt.

[Szerkesztve]
#185 BlackWoOd aktív tag Notes #182

Új Válasz 2004-11-22 17:33:44 #185
Ú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
Privát üzenet küldése

BlackWoOd

aktív tag

válasz Notes #182 üzenetére

Model Maker erre van (Borland cucc, szintén. Demo/trial van a Delphi telepítő csomagban ill. azt hiszem, letölthető.)
Ezt pont azt csinálja, ami neked kéne (forrás -> UML).
#160 lao ce aktív tag Notes #159

Új Válasz 2004-11-20 16:02:18 #160
Ú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
Privát üzenet küldése

lao ce

aktív tag

válasz Notes #159 üzenetére

hat arrol van elkepzelesem hogy en ezt hogyan csinalnam.
kerdes amugy hogyha cmb1 = Kiss es cmb2 = Bela
akkor az osszes kiss vagy bela kell megjelenjen vagy az osszes kis es bela?

amugy a checkboxokat hanyagolnam, az elso item minden comboban lehetne (all) vagy (minden) valasztas. kevesebb objectum = egyszerubb interfesz.

aztan kb... van egy sql valtozo, mondjuk aSQL
a combokat elnevezheted ugy mint a fieldek nevei, de egy cmb-vel az elejen, tehat cmbFirstName, cmbKeresztnev

az eleje az aSQL-nek valami ilyesmi lesz (megtartanam space-eket a ' jelek utan es elott!)

aSQL := ' select f1, f2, f3, f4 from table where ';

itt a datum
aSQL := aSQL + ' ( DateField >= #' + MyDateObj1.Value + '# ';
aSQL := aSQL + ' and DateField <= #' + MyDateObj2.Value + '# ) ';

aztan ugyi... vegig egy for ciklussal a kombokon

for i := 0 to ComponentCount-1 do begin
___currCompName := copy (Components.Name, 1, 3);

___currFieldName := copy(Components.Name,4, Length(Components.Name)-3 );

aztan mikor komborol van szo es raadasul nem a (minden) van kivalasztva:

___if (currCompName = 'cmb') and
______((Components as TCombobox).ItemIndex > 0) then

akkor hozzaadjuk az aSQL valtozohoz azt a feltetelt hogy ' and fieldname = ertek '.
meg az is van hogy itt 'and' vagy 'or' attol fuggoen hogy kiss bela hogy kell megjelenjen az elso kerdesben.

persze, ez nem ENNYIRE egyszeru mert lehet szam is meg text is meg date is a tipusa a dolognak. ez most text akar lenni de csak nem biztos hogy szintaktikailag helyesen irom.

aSQL := aSQL + ' and ' + currFieldName + ' = ''' +
Components as TCombobox)..Items.Strings [ (Components as TCombobox).ItemIndex] + ''' '

aztan egy par end a vegere es lehet futtatni a query-t.

[Szerkesztve]
#158 lao ce aktív tag Notes #157

Új Válasz 2004-11-20 15:23:55 #158
Ú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
Privát üzenet küldése

lao ce

aktív tag

válasz Notes #157 üzenetére

kivancsi vagyok hogy megkerdezed-e hogy mikor egy text field-del kitoltod a combot akkor hogyan tudod a hatterben az ID-ket karbantartani
#156 lao ce aktív tag Notes #155

Új Válasz 2004-11-20 15:06:53 #156
Ú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
Privát üzenet küldése

lao ce

aktív tag

válasz Notes #155 üzenetére

- en mindig sima combo-t hasznalok
- az auto feltolteshez amugy is a DBLookupComboBox -t kellene hasznalni...
- a dbcombonak igenis VAN itemindex-e, annyira elbizonytalanitottal hogy megneztem a helpben
- szerintem (bar nem hasznalom) elallitodik, hiszen erre valo, hogy az itemindex-szel elallitodjon a db is, nem?
#153 lao ce aktív tag Notes #152

Új Válasz 2004-11-20 14:25:44 #153
Ú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
Privát üzenet küldése

lao ce

aktív tag

válasz Notes #152 üzenetére

valami elgepelesre gondolok.
amugy ha a code completion kiirja neked hogy itemindex akkor van olyan (lesz olyan).