- Táp is jár a Chieftec helytakarékos mikrotornyázhoz
- Nem viszi sehova a Raptor Lake-et az Intel
- Konkrét irányba vinné a kínai AI-t a Kínai Félvezetőipari Szövetség vezetője
- Már csak több évre szóló szerződésekben gondolkodnak a memóriagyártók
- Nem szabad futtatni az új Red Magic csúcstelefonokon a 3DMarkot
- Kötelező frissítésnek számít a Microsoft legújabb csomagja a Windows 11-hez
- Házimozi belépő szinten
- Milyen egeret válasszak?
- Fejhallgató erősítő és DAC topik
- Nem viszi sehova a Raptor Lake-et az Intel
- Épített vízhűtés (nem kompakt) topic
- Gaming notebook topik
- OLED TV topic
- Bluetooth hangszórók
- Konkrét irányba vinné a kínai AI-t a Kínai Félvezetőipari Szövetség vezetője
Aktív témák
-
#160
tisn
veterán
dON't hAcK!
#155
tisn
veterán
válasz
dON't hAcK!
#155
üzenetére
Szia, amúgy jól, köszi! :-))
Na így voltak beállítva a propertyk:
de a lényeg az, hogy a Database-nak be kell állítani a DatabaseName-t, és ezt már ki lehet választani a Queryben. Tegnap este nem teljesen pontos voltam :-(
object Database1: TDatabase
AliasName = 'LauncserAlias'
Connected = True
DatabaseName = 'Alma'
SessionName = 'Default'
Left = 64
Top = 80
end
object Query2: TQuery
Active = True
DatabaseName = 'Alma'
SQL.Strings = (
'select * from ember')
Left = 64
Top = 136
object Query2TAG_NEVE: TStringField
FieldName = 'TAG_NEVE'
Origin = 'ALMA.''ember.DBF''.TAG_NEVE'
end
object Query2ELETKOR: TSmallintField
FieldName = 'ELETKOR'
Origin = 'ALMA.''ember.DBF''.ELETKOR'
end
object Query2IQ: TSmallintField
FieldName = 'IQ'
Origin = 'ALMA.''ember.DBF''.IQ'
end
end -
#158
tisn
veterán
dON't hAcK!
#155
tisn
veterán
válasz
dON't hAcK!
#155
üzenetére
Én két müködő verziót küldtem neki tegnap este, a másodikból kiszedtem a database-t, meg alias se kellett, de úgy látom azzal se boldogult. :((( Lassan megkérem, hogy rakjon fel egy VNC-t, rálépek a gépére, aztán megnézem mi lehet a probléma.
-
tisn
veterán
Olyat meg ne tanítsunk már a kezdőknek, hogy hagyja nyitva a query-ket. Azokat akkor kell megnyitni, ha szükség van rá...
Mostmár kezd egy elképzelésem lenni, ennek a tanintézménynek a színvonaláról.
Először megtanítani rendesen a nyelvet (1. object pascal, 2. vizuális fejlesztés delphiben), aztán egy kis szoftver fejlesztési tudás (tervezés stb.), adatbáziskezelés (db tervezés, normálformák), majd egy kis sql tanítás (delphin kívül)... Szóval szvsz ezen lépések után kellett volna jönnie a delphi sql alapú fejlesztéseknek. Ha ezek megtörténtek, akkor meg Launcser kolléga járt inkább korcsmába, meg CSzni tanulás helyett :DDD -
tisn
veterán
Hát törlésnél meg azt csinálod (mivel nincs egyedi elsődleges kulcs), hogy csinalsz meg egy queryt, abba pedig a delete gomb onclickjen valami ilyesmit irsz, hogy
qryDelete.SQL.Text:= 'delete ember where EMBERKENEVE = '+#39+Edit1.Text stb...
update is ilyesmi, de mondom, hogy kicsit olvasgatsz, ráfogsz jönni magadtól is. -
tisn
veterán
Várjunk csak, mikorra is kell? Beszéljük meg úgy, hogy megpróbálod megírni, ha nem megy segítek, ha végképp nem megy, akkor megírom. Neked is nagyobb sikerélmény, ha Te csinálod meg, és a végén még a Delphi-t is megszereted. Én pl elég sokat programoztam mfc-ben is, és még mindig büfiznem kell, ha rágondolok. ;]
-
#117
tisn
veterán
dON't hAcK!
#114
tisn
veterán
válasz
dON't hAcK!
#114
üzenetére
Datamodul használata szerintem kvázi kötelező, ugyanis áttekinthetőbbé teszi a programot, ha az adatbáziskezelő cuccok külön helyen vannak. Sőt érdemes az adatbáziskezelő kódrészeket is ide helyezni, a form-ok forráskódjaiba pedig csak a gui kezelő kódot írni.
-
tisn
veterán
Új rekord felvitele. Először is felrakunk néhány sima edit mezőt, amit a user töltögethet, meg mondjuk egy felvitel gombot a formunkra. Csinálunk egy TQuery-t a Datamodule-ra, aminek a neve nemes eccerűséggel qryInsert. A felvitel gomb onclickjére pedig írunk egy ilyen kedves dolgot, hogy
dmLauncser.qryInsert.SQL.Text:= 'insert into ember (Nev, Eletkor) values ('+#39+edNev.Text+#39+', '+edEv.Text+#39+; )';
dmLauncser.qryInsert.ExecSQL;
És asszem meg is vagyunk. Paramértert is lehet használni, viszont nálunk többször elbaszott valamit, úgyhogy általában hanyagoljuk. Paraméterek esetén ne felejtsük el, hogy az sql szövegbe így irjuk be :param1, utána a paraméter editorban beállítjuk, hogy input paraméter, valamint a típusát is belőjjük. -
tisn
veterán
Ha sikerült kiválasztanod a megfelelő lépést, esetünkben paradoxot (najó dbf is lehet, ha már megküzdöttél vele)
Csinálsz egy BDE aliast, ami arra a könyvtárra mutat, amibe raktad a táblákat. Ezekután belépsz a delphibe, csinálsz egy DataModule-t, arra ráraksz egy Database-t, aminek beállítod az aliasát az előbb létrehozottra.
Ezután felraksz egy TQuery-t, meg egy TDataSource-t, a TQuery Database-ját beálltítod a felrakott Database-ra, a Datasource dataset propertyjét pedig a TQuery-re.
Beleírod a Querydbe a szükséges SQL-t, esetünkben a select * from ember-t. Kéccet a TQuery-re kattintva bejön a field editor, ahol add field-el hozzáadjuk a megfelelő mezőket.
Ekkor a formunkra feldobunk egy DBGridet, beállítjuk a Datasource-ját, és örömmel konstatáljuk, hogy a lekérdezés írás már megy...
(Folytatás következik...) -
tisn
veterán
Hát gyerekek, kavartok rendesen... Küggyed nekem azt a forrást, 10 perc alatt meghegesztem. Ha delphiben adatbáziskezelsz, akkor
1. ADO használata. Ha nem megy az adatbáziskezelőddel, akkor ->>
2. BDE-t hansználd. Ha nincs hozzá dll-je a delphinek, (pl. mysql)
3. Akkor térj át az ODBC-re (ennek közkeletű neve a slOwDBC...)
4. Ha adatbáziskezelőd sincs, akkor használj paradoxot, vagy local interbase-t.
5. DBF-et felejtsd el.
:O
Aktív témák
Hirdetés
- GIGABYTE RTX 4080 16GB WINDFORCE 6 hónap gyári garival
- Apple iPhone Air 256GB Light Gold Színben 2028.12.28-ig Alza Garanciával Akku 100%
- Apple iPhone 16 128GB Fehér Színben 2026.09.15-ig Apple Garancia Akku 98% Gyári
- NVIDIA GeForce GTX 1080 Founders Edition
- Bravo 15 C7VE 15.6" FHD IPS Ryzen 7 7735HS RTX 4050 16GB 512GB NVMe magyar vbill gar
- AKCIÓ! 2TB Samsung 990 PRO NVMe SSD meghajtó garanciával hibátlan működéssel
- Honor Magic6 Lite / 8/256GB / Kártyafüggetlen / 12Hó Garancia
- 220 - Lenovo LOQ (15ARP9) - AMD Ryzen 7 7435HS, RTX 4070
- HP EliteBook 840 G9 i7-1265U 16GB 512GB 14" FHD+ 1 év teljeskörű garancia
- Honor 200 Pro / 12/512GB / Kártyafüggetlen / 12Hó Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest