- Mobil flották
- Prohardver app (nem hivatalos)
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Poco F6 5G - Turbó Rudi
- Magisk
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Fotók, videók mobillal
- Azonnali mobilos kérdések órája
- Samsung Galaxy Z Flip5 - ami kint, az van bent
- One mobilszolgáltatások
Aktív témák
-
-
Diskcopy
tag
Kell ugye két table, két datasource, egy dblookupcombobox. datasourceök szépen be legyenek állítva..
na a dblookupcomboboxban meg kéne csinálni ezeket
Datasource mutasson datasource1-re (amelyikre a DbGrid is mutat gondolom)
DataField mutasson arra amibe az infot akarod tenni
ListSource mutasson Datasource2-re
ListField mutasson a másik mezőre ahová akarod tenni.
A KeyField egy nagyon lényeges, ez adja meg a két table közötti összefüggést.
Mindkét tábla legyen Active.
amúgy van egy példa, nem teljesen ez az amit mondasz, de ez is le van benne írva.. Bővebben: link remélem hasznos lesz. -
Sátán44
addikt
Szal a helyzet! Ahogy elkezdted stimm,de a probléma a következő.Hogyan lehet megoldani,hogy ha viszek fel egy új számlát és közben a mégse gombra klikkelek törölje a bejegyzést a sorszámmal együtt.Ugyanis ha kitörlök mindent a sorszám akkor is megy tovább,ha ott üres tétel van,de éppen ezt szeretném megoldani.
Szemléltetve:
1.számlaszám: van adat
2.számlaszám: volt adat,csak törölve lett
3.számlaszám: van adat
na már itt a probléma,ha törlöm a 2-est a 3-nak a 2-es helyére kellene ugrania,mivel a sorszám automatikus nem tom megoldani!
SQL-ben hogyan lehet ezt megoldani,vagy delphiben? -
Gabeszfx
csendes tag
lenne még egy probléámám!
ime:
Van egy táblám fel van töltve adattal és ezt egy DbLookupcombobox-al kiválasztom egy mező adatát(1 darabot) a táblából!(ez az adat már megjelenik a DbLookupcombobox-ba) és a kiválasztott adatot át akarom rakni egy másik tábla mezőjébe ugyanazon a Form-on!
ha kiválasztom az adatot a DbLookupcombobox-al és utána a button gombra kattintva rakja bele a másik tábla mezőjébe!
Remélem érthetően leírtam
-
-
Diskcopy
tag
Nem igazán érteni mit akarsz, de gondolom van egy beviteli meződ(form) ahol van egy sorszám, ami automatikus, gondolom ezt egy változóból veszed. Ha kitöltötte, vagy OKt nyom vagy mégsemet.(gondolom én, csak tippelek). Ha dialogusablak, akkor csak 1xűen megnézed, hogy milyen értéket dob vissza, mégsemet, vagy Ok-t, ha meg saját form, akkor meg ha a nemre kattintott, nem növeled, ha az Igenre, akkor meg növeled.. de majd írd le pontosabban és akkor megértem mi a gond.
-
Alan
aktív tag
Ezek ujjgyakorlatok, ugyanarra szolgálnak a programozás oktatásában, mint a betűk kanyarítása az írás tanításában. Aki még ezeket is lusta megcsinálni, lusta elkezdeni gondolkodni, az később semmit sem fog tudni megoldani, vagy ha mégis, akkor nagyon nem fogja élvezni a dolgot.
Nincs mese, valamit be kell fektetni ahhoz, hogy valamit kaphassunk. Természetesen nem kell mindenkinek programozóvá válnia, de nálatok (nem fogok személyeskedni, akinek nem inge, ne vegye magára) nem ez a probléma, hanem az, hogy általánosságban nulla erőfeszítéssel akartok elérni valamit. -
khalox
őstag
És mivel az utóbbi pár hozzászólásom OFF volt, ezért megbüntettem magam és nyomtam egy COPY-PASTE-et... hogy valami legyen a témához is (bár a szóközöket tudom lenyeli, valamit dolgozzon is vele...):
Unit Lista;
Interface
Type
Elemtip = ??? ; (* a lista elemtipusa *)
Tipus = Pointer;
{ A lista adattipus muveletei: }
Procedure Letesit(Var L : Tipus);
Procedure Uresit(Var L : Tipus);
Function Urese(L : Tipus) : Boolean;
Function Elejen(L : Tipus) : Boolean;
Function Vegen(L : Tipus) : Boolean;
Procedure Elejere(Var L : Tipus);
Procedure Vegere(Var L : Tipus);
Procedure Tovabb(Var L : Tipus);
Procedure Kiolvas( L : Tipus;
Var X : Elemtip);
Procedure Modosit(Var L : Tipus;
Y : Elemtip);
Procedure Bovit(Var L : Tipus;
Y : Elemtip);
Procedure Torol(Var L : Tipus);
Procedure Kapcsol(Var L1,L2 : Tipus);
Implementation
Type
Lanctip = ^Cella;
Cella = Record
adat : Elemtip;
csat : Lanctip
End;
Reptip = Record (* az adattipus reprezentalo tipusa *)
lab, kurzor : Lanctip
End;
Procedure Letesit(Var L : Tipus);
Var Lr: ^Reptip Absolute L;
Begin
New(Lr);
With Lr^ Do
Begin
New(lab);
lab^.csat := lab; kurzor := lab
End
End (* Letesit *) ;
Procedure Uresit(Var L : Tipus);
Var Lr: ^Reptip Absolute L;
Begin
With Lr^ Do
Begin
lab := lab^.csat;
kurzor:= lab^.csat;
While kurzor <> lab Do
Begin
lab^.csat:= kurzor^.csat;
Dispose(kurzor);
kurzor := lab^.csat;
End;
End;
End (* Uresit *) ;
Function Urese(L : Tipus) : Boolean;
Var Lr: ^Reptip Absolute L;
Begin
Urese := Lr^.lab = Lr^.lab^.csat
End (* Urese *) ;
Function Vegen(L : Tipus) : Boolean;
Var Lr: ^Reptip Absolute L;
Begin
Vegen := Lr^.kurzor = Lr^.lab
End (* Vegen *) ;
Function Elejen(L : Tipus) : Boolean;
Var Lr: ^Reptip Absolute L;
Begin
Elejen := Lr^.kurzor = Lr^.lab^.csat
End (* Elejen *) ;
Procedure Elejere(Var L : Tipus);
Var Lr: ^Reptip Absolute L;
Begin
Lr^.kurzor := Lr^.lab^.csat
End (* Elejere *) ;
Procedure Vegere(Var L : Tipus);
Var Lr: ^Reptip Absolute L;
Begin
Lr^.kurzor := Lr^.lab
End (* Vegere *) ;
Procedure Tovabb(Var L : Tipus);
Var Lr: ^Reptip Absolute L;
Begin
If Lr^.kurzor <> Lr^.lab
Then Lr^.kurzor := Lr^.kurzor^.csat
End (* Tovabb *) ;
Procedure Kiolvas(L : Tipus; Var X : Elemtip);
Var Lr: ^Reptip Absolute L;
Begin
If Lr^.kurzor <> Lr^.lab Then
X := Lr^.kurzor^.csat^.adat
End (* Kiolvas *) ;
Procedure Modosit(Var L : Tipus; Y : Elemtip);
Var Lr: ^Reptip Absolute L;
Begin
If Lr^.kurzor <> Lr^.lab Then
Lr^.kurzor^.csat^.adat := Y
End (* Modosit *) ;
Procedure Bovit(Var L : Tipus; Y : Elemtip);
Var Lr: ^Reptip Absolute L;
ujcella : Lanctip;
Begin
New(ujcella);
With Lr^ Do
Begin
ujcella^.adat := Y; ujcella^.csat := kurzor^.csat;
kurzor^.csat := ujcella;
If kurzor = lab Then
lab := ujcella;
End
End (* Bovit *) ;
Procedure Torol(Var L : Tipus);
Var Lr: ^Reptip Absolute L;
Var P : Lanctip;
Begin
With Lr^ Do
If kurzor <> lab Then
Begin
If kurzor^.csat = lab Then
lab := kurzor;
P := kurzor^.csat;
kurzor^.csat := P^.csat;
Dispose(P);
End
End (* Torol *) ;
Procedure Kapcsol(Var L1, L2 : Tipus);
Var L1r: ^Reptip Absolute L1; L2r: ^Reptip Absolute L2;
Var P,Fej2 : Lanctip;
Begin
If (L1r^.lab <> L2r^.lab) And (L2r^.kurzor <> L2r^.lab^.csat) Then
Begin
P := L1r^.kurzor^.csat;
Fej2:= L2r^.lab^.csat;
L1r^.kurzor^.csat := Fej2^.csat;
Fej2^.csat:= L2r^.kurzor^.csat;
L2r^.kurzor^.csat := P;
If L1r^.kurzor = L1r^.lab Then
L1r^.lab := L2r^.kurzor;
If Fej2 = Fej2^.csat Then
L2r^.lab := Fej2;
L2r^.kurzor :=Fej2 ;
End
End (* Kapcsol *) ;
End (* Lista *) . -
-
rdi
veterán
Na jó, akkor írjon egy komponenst, ami láncolt listákat kezel
)
Amúgy a Delphi nem csak formokból áll, bár én se jutottam tovább.
Csak elő kell vegye a tankönyveket, nincs mese.
Off: A láncolt listáról nekem meg mindig a törökök által ejtett hadifoglyok jutnak ez eszembe, ahogy láncra verve masíroznak Isztambnul felé :_))) -
gLes
őstag
Megmondom őszintén: én ezeket tanulom, vagy legalábbis tanítják, de írdatlanul nem figyelek oda! Engem valahogy nem tudnak felizgatni ezek a listák, meg halmazok, meg mittomén, majd a zh-ra megtanulom, ozt el is felejtem. Ha probléma van, akkor én megoldom a magam módján, anélkül hogy elnevezném láncolt vagy akármilyen listának...érted?
-
rdi
veterán
Világosan megírta, hogy minden programozók rémét, a _láncolt listát_ kell megcsinálnia, abban a láncolt listában módosítania, törölnie, új elemet felvennie.
Te meg itt jössz neki az adatbázissal.
Az is jó megoldás, csak nem neki.
Én ugyan meg nem írom, de azért kérdeznék valamit:
programtervezést is tanultok (tanultatok) ?
Csak kell lenni valahol egy rohadt jegyzetnek, ahol le van rajzolva az egész (gondolom), akkor utána lekódolni már nem nagy mulatság. -
gLes
őstag
Figyelj! Akkor most adatbázisban kell dolgozni, vagy a ''rekord'' típusra vonatkozik? Ha a típus akkor így deklaráld:
type TRekordTipusNeve = record
Datum: TDate;
Osszeg: Currency; //Pénzösszeg, vágod?
Megjegyzés: String;
//stb.
end;
Es van is egy rekordtípusod, fel is lehet használni:
var
EnRekordom: TRekordTipusNeve;
vagy
var
RekordTombom: array of TRekordTipusNeve;
Meg ilyesmi, berakhatod egy TList-be is, de azzal most nem szórakozom.
Egyébként a leírásból ítélve adatbázisról van szó, tehát vágni kéne az adatbázisokat, egyébként Delphi-ben ez eccerű mert rádobod a Form-ra az adatbázis komponenst és csá...
Üdv:
gLes -
cole1
csendes tag
Hi!
Tulajdonképpen egy házi feladat lenne, de gőzom sincs a programozásoz
Egy olyan programot kell csinálnom, ami pénzügyi mozgásokat rögzít.
A tanárom azt modta hogy a dátum, az összeg, a megjegyzés, stb. legyen egy rekord. Ezt a rekordot egy láncolt listában tárolja, majd ebben a listában tudjon keresni az előző bejegyzésekre,módosítsa meg ilyen fincsiségek..
Ha valakinek van ehhez hasonló rekordos megoldása, szívesen venném ha elküdlené az email címemre(cole1@freemail.hu)... tudom hogy a feladat könnyű, de az én jelenlegi agyi kapacitásomat meghaladja...
Köszi -
#5
Warlock_42
senior tag
Warlock_42
senior tag
Ha kened az angolt akkor:
programmersheaven.com
sourceforge.net
bocs de lusta vagyok linkeket csinálni
ez MÉG most lehet, hogy működik...
Aktív témák
Hirdetés
- Autós topik
- Anglia - élmények, tapasztalatok
- Milyen házat vegyek?
- Renault, Dacia topik
- Kerékpárosok, bringások ide!
- SSD kibeszélő
- Fájdalmasan gyenge kijelzőt válaszott a Switch 2-höz a Nintendo
- Milyen videókártyát?
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- 3D nyomtatás
- További aktív témák...
- BESZÁMÍTÁS! Gigabyte B450 R7 5700X 32GB DDR4 512GB SSD RX 6700XT 12GB Rampage SHIVA be quiet! 650W
- LG 65C3 - 65" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32 RAM RTX 5060Ti 16GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- BESZÁMÍTÁS! Dell Latitude 5550 üzleti -Intel Ultra 7 165U16GB DDR5 RAM 1TB SSD Intel Graphics WIN11
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest