Új hozzászólás Aktív témák
-
Divi
aktív tag
============ Attention ============
Delphi 6
Szeretnék írni egy ''komolyabb'' programot ami igen sok adatot kezel.
Az, hogy Adatbázisban vagy egy jól megszerkesztett TEXT fájlban tárolja le az adatokat 1 dologtól függ. Hogy van-e rá mód, hogy a text fájlomat úgy kezeljem, ahogy szeretném, azaz...
Hogyan lehet Delphi alatt egy már MEGLÉVŐ text file egy sorát átírni jeletősebb macera ( fájl újraírás) nélkül?
Magam nem találtam semmi olyan parancsot ami egy text file SOR mutatóját állítani tudná, és hogy az adott sort kiolvassa majd visszaírja valami más adattal!
Help me please!lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Ötlet:
És ha mondjuk mitadisten a Fájl egy File of String; (hogy tudom rávenni, ,hogy többet tudjon letárolni mint 255 karakter?
akkor már működik a Seek és lehet módosítani is
Azért iggen kellett a hozzászólásod, hogy ez kipattanjon a fejemből
Gondolom te akkor benne van a programozósdiban. Az elkövetkezőkben tudnál egy kis figyelmet fordítani a hülye kérdéseimnek? (ha nem okoz nezézséget)lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Ki tudnád feljteni pozitívumait/negatívummait?
Egy barát már ajánlotta, de mivel ez eddig teljesen ismeretlen dolog számomra, hogy mi is egyáltalán így jó volna egy kis felhomályosítás, hogy mivel tud többet
és hogyan kell vele megcsinálni, azt amit a sima ''File of'' -fal is meglehet
[Szerkesztve]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Aztamindenti! Szépen megszaldt a topic. AMI JÓ
Nos a fejlemény az, hogy a Fájozós-átírós-tankozós-romantikus adatkezelés az akkor lett volna lehetőség, hogy tényleg könnyen tudtam volna ide-oda ugrálni a fájlban és kedvembre tudtam volna átírni dolgokat.
Mivel ez bukott így marad a Dbase kezelés bevágása.
Adattömeg mérete: Bátyám cégétől függ De a 10 megát szerintem ebben az évtizedben nem fogja átlépni. (Ha egyáltalán életképes lesz maga a koncepció)
Gyorsan vázolom hogy én hogyan képzelem az adattárolást
4 db tábla
1. tábla : A programot felhasználók adatai (user/pass//név/tel/e-mail/stb) + USERazonosító
2. tábla: Céglista: Azon cégek listája és adatai (cím/tel/@) + CÉGazonosító(k) és USERazonosító által szűrve
3. tábla: Külső cégek kapcsolattartó embereinek adatai (név/tel1/tel2/@1/@2/hülye hóbortok) + EMBERazonosítók és USERés CÉG azonosító által szűrve
4. tábla: Eseménylista: A cég elvégzendő feladatai.
Felhasználó kritériumai szerint szűrve.
1 tábla szűri az összeset.
2 tábla szűri, 3táblát vagy/és a 4. táblát
3. tábla szűri a 4. táblát
4. táblában meg olyan VAZZ sok rekord lesz, hogy jujj
Na az SQL az számomra nagyon messze van és tnylegesen 0 tudásom van belőle. Így a Delphi beépített eszközeivel szeretném megoldani.
A kérdés, hogy ezt a szűrős dolgot, milyen módokon lehet megoldnai? Hallottam valami Master-detail kapcsolatról, el tudná valaki mondani magyarul hogy mi ez? Vagy a Filtered opció elégséges megoldás egy tábla szűréséhez?
Nem gázos, hogy a 4. táblában már 3 ''fölösleges'' azonosító mezőt kellene alkalmazzak, hogy tudjak szűrni?
Válaszaitokat előre is köszönöm!lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Értem, köszönöm a felhomályosítást. Hálózati kezelés LESZ. 5-10 júzer max.
Tehát akkor SOK kérdés van még az msg #31-ben. Azt már megválaszoltuk, hogy a BDE felejtős. (Kár mert elég egyszerűnek tűnt )
Érdekelne, hogy ti jó megoldásnak tartjátok-e erre a feladatra ezt a megoldást amit felvázoltam?
[Szerkesztve]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Kedves ti!
Tudnátok mondani egykét keresetlen szót, az InterBASe ről és a FireBird-ről?
mint Adatbázis kezelő dologról?
A Delphivel ha jól látom feltelepült az InterBase is.
A kérdésem annyi, hogy hogyan tudnám ezt életre kelteni? És milyen lépések kellenek, hogy Delphiben valami eredményt lássak?
b14: Bocs nem válasz akart lenni, hanem új hsz
[Szerkesztve]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Kedves midjájatok!
Rövid kérdés Adatbázis témakörben.
Mi az a Trigger? Mire jó?
Mire jók a ''letárolt eljárások''?lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Üdvözletem!
Ismét itt!
Szükségem volna valami kezdők számára írt FIREBIRD anyagra ami végigvezet azon, hogy miként lehet elkezdeni vele dolgozni.
Mert egyedül nem jártam sikerrellá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Windows platform (Linux várólistán van)
Addig jutottam el, hogy feltelepítettem egy FireBird -ed, megváltoztattam a SYSDBA jelszavát. és az ISQL-lel szeretnék egy employee táblát megnyitni.
Na a megnyitás mindig syntax errort hoz. És nemtudom miért:
Itt a kép:
Bővebben: link
Egyéb kérdések:
- Itt hogy lehet aliasokat létrehozni/törölni/változtatni?
- Minek az a SYSDBA felhasználó? Minek kellenek felhasználók egy Adatszolgáltató rendszerbe?
- Ez az employee.fdb egy TÁBLA vagy egy ADATBÁZIS?lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Jéééézusss
Na ez az amikor ha megfeszülök se veszem észre mi a hiba de egy friss szem azonnal
Fejlemény: NEM MEGY De legalább mást ír ki :
Statement Failed SQLCODE = -902
Access to database is denied by server Administrator
Jójó, hozzáférés megtagadva.
Hol lehet ilyet állítgatni?
Alias: Akkor Delphiben hogy történik egy FB adatbázis azonosítása?lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
-
Divi
aktív tag
Az ilyen segítőkész emberek komolyan felbecsülhetetlenek
Köszönöm a válaszaidat.
(balszerencsédre) igérem jelentkezni fogok még
Egyelőre találtam egy korrektnek tűnő dokumenumot ami kitárgyalja a Delphi <-> IB kapcsolatokat. Bővebben: link Remélem érthető lesz, ha nem nem azt észre fogod venni
[Szerkesztve]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Üdvözlök minenkit!
Azt szeretném, megtudni, hogy miként tudom a Delphiből kisajtolni, hogy hányszor 0,1mm re tud a nyomtató fizikilag nyomtatni!
Például szeretnék egy 1 mm vastag vonalat húzni a bal felső sarokból a jobb alsó sarkba.
...
Var szel,mag:Integer;
Begin
szel:= ???;
mag := ???;
printer.BeginDoc;
SetMapMode(printer.Canvas.Handle,MM_LOMETRIC);
printer.canvas.pen.width:=1;
printer.canvas.Moveto[0,0];
printer.canvas.lineto[szel,mag];
printer.EndDoc;
...
A pageWidth PageHeight visszaadja, hogy mekkora a nyomtatható terület pixelben. Ami jó is volna de ahhoz, hogy mm-ben tudjak pozícinálni kell a(z aktuális) nyomtató aktuálisan beállított DPIje. Na azt, hogy tudom kideríteni?
Válaszaitokat előre is köszönöm!lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
A probléma látszólag megoldódott. De mégse hajlandó Ténylegesen Nyomtatni.
A kód hibátlanul lefut.
Ám a nyomtató azon kívül, hogy átfuttatná magán a papírt egy köpést se nyomtat.
Vajh mitől lehet ez?
A kód:
Var szelesseg,magassag: Integer;
dpix, dpiy:Integer;
Begin
printer.Copies:=1;
printer.Orientation:=poPortrait;
printer.BeginDoc;
dpix:=GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX);
dpiy:= GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
szelesseg:=trunc((printer.PageWidth /dpix)*254); << megadja, hányszor 0,1 mm fér ki a lapra
magassag:=trunc((printer.PageHeight /dpiy)*254);
// showmessage('szélesség: '+inttostr(sz)); < ellenőrzés
// showmessage('magasság: '+inttostr(m));
SetMapMode(printer.Canvas.Handle,MM_LOMETRIC);
printer.canvas.pen.width:=15;
printer.Canvas.Pen.Color:=clBlack;
printer.canvas.Moveto(0,0);
printer.canvas.LineTo(sz,m);
//printer.Abort;
printer.EndDoc;
end;
ötletze valakinek?
Egyébént így BÁRMILYEN nyomtatón ugyanazt az eredményt kapom?
[Szerkesztve]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Hmm nagyon baráti
Más kérdés:
Arra van lehetőség, hogy először lerajzolom egy ''külső'' canvasra azt amit rajolni akarok, és pont akkor aPIXELBEN mint amekkora a nyomtató canvasa 0.1mmben?
ergo fog menni az átadás? Vagy netán a pixelenkénti átmásolás?
Ergo egy ''nyomtatási kép'' funkciót szeretnék megvalósítani...lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Üdvözletem!
A kérdésem a következő:
Szeretném egy Listboxba betenni a feltelepített és használható betűtipusok neveit!
Emlékeim szerint ezt elég gyorsan és röviden el lehet intézni, csak sajnos nem emlékszek, hogy miként!
betutipusok.Items:= ???
Van ilyen egyszerű megoldás?lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Kérdés van:
Egy nagyon egyszerű kis adatbázist szeretnék létrehozni, de 2 géépel!
A kezelő szoftver az egyszerűség kedvéért a BDE lenne.
Az egyik sz.gép aliassal lenne ráirányítva a másik gép vinyóján lévő adatbázis fájlra
a másik gépen meg értelemszerűen lenne a adatbázis fájlja.
A kérdések:
1.Lehet alias-olni hálózati meghajtóra?
2. bírni fogja a BDE ezt a adatbázis elcseszése nélkül?lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Kedves latenight kóderek!
Szeretnék FireBird-del adatbázist kezelni! (mí egyedi)
Sorrendben ezeket szeretném megvalósítani!
1. Egy SQL lekérdezés megvalósítás
2. Egy adatbázis létrehozása
Benne egy tábla
Belőle egy lekérdezés
Adatbázis törlés
Szerenélek titeket megkérni, hogy mondjátok el, milyen komponenseket kell használni, ahhoz, hogy egy ilyen lekérdezést le tudjak futtatni!
És ha ez nem nagy gond, légyszives magyarázzátok el, hogy az egyes kopmponensek, mire szolgálnak az adott ''adatfolyamban'' azaz, hogy az adott komponons mit reprezentál!
Válaszaitokat köszönöm!lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
De jó neked, tusi74! Én még ott se tartok ahol te
Egy FireBird szervert szeretnék vezérelni!
1) kérdésem igazán egyszerű.
Hogyan tudok, egy nekem tetsző SQL kódot elküldeni a szervernek?
Másképp: Hogyan tudok adatbázist benne jó kis táblákkal létrehozni?
2) kérdésem szintén:
Hogy kell használni a dbExpress kompononseket?
Egyáltalán lehet használni őket FireBird/InterBase-hez?
Mivel tud többet/kevesebbet az InterBase komonenscsomagnál?
3) elméleti jellegű
Mikor érdemes létrehozni egy alkalmazás adatbázisát?
Érdemes a kódból létrehozni pl egy első indításnál?
Egy külső ''diagnoszikai programnak'' kell a főprogram adatbázisát ápolnia?
Vagy elég ha egy FB/IB adminisztrációs programmal megcsinálom és utána a programfejlesztés során már nem törődök azzal, hogy az elején létrehozzam az adatbázist?
Köszönöm türelmetetket!lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Jóestét, kedves bitpásztorok!
Azt szeretném, megtudni, hogy hogyan tudnám egy MDIChild ablaknak eltüntetni a KERETÉT!
A help azt írja, hogy MDIChild esetén a BorderStyle:=bsNone; nem okoz változást. És tényleg
Ergo szeretném a segítségeteket kérni, hogy akkor hogy tüntessem el!lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Hát belekóstoltam, és egy halom más problémával találtam szemben magam :-\
Megoldható lenne ''álMDI-t'' gyártani. De nemtudom hogyan oldjam meg azt, hogy a MDI-child ablakok, mindig a MDIFORM fölött legyenek. De más alkalmazások alatt
Ergo, hogyan tudom megoldani, hogy ''beleolvadjanak'' a Main form-ba?
A többi MDIs ficsőrt kódból meg tudom oldani. De erre fél ötletem sincs :-\lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
.
Kérdés volt, aztán rá 2 percre rájöttem
[Szerkesztve]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Sziasztok!
Szeretném az ötleteiteket hallani, hogy hogyan lehetne megvalósítani Delphiben egy vezérlő ''onMouseLeave'' eseményét.
Ugy az OnMouseMove jó arra, hogy észleljük, hogy az egér a komonensre érkezett.
De hogyan észleljük, hogy másra érkezett?
Az eddigi ötlet, hogy az őt körülvevő összes komponensre írunk egy OnMouseMove-ot, és ott futtatjuk, az adott parancssort amit szeretnénk (az én esetemben egy szín állítást).
Működőképenek látszik, de számomra elsőre egy kicsit favágó módszer.
Van valami jó és elegáns megoldás erre?lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Update:
Egy másik ötletem, hogy a MouseMove eseménnyel vizsgáljuk le, hogy hol van az egér, és ha egy akármekkora szegélyre ér, akkor hajtsuk végre az ''onMouseLeave''-et sajnos csk félmegoldás, mert eddigi tapasztalaim szerint sokszor túl lassú ahhoz, hogy kellő számossággal levizsgálja, így sokszor egy erősebb egérmozdulat után ''bejelölt'' marad a vezérlő...lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Üdvözlök mindenkit!
Villámkérdés!
Le lehet valamivel ellenőrizni, hogy az adott változóba, már lett CREATE-elve egy ojjektum? (Valamilyen BOOLEANnel visszatérő függvénnyel vagy hasonlóval)
Vagy try except kell neki?
function obj_cr(obj:Tcomponent): Boolean;
Var l: Boolean
Begin
l:=False;
try
obj.tag:=obj.tag;
except l:=True;
End;
obj_cr:=NOT(l);
End;
Valami ilyen dolog működne?
[Szerkesztve]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Én nem tudok róla, hogy lehetne, de szerintem nincs is rá túzott szükség.
Én általában a showmessage-et csak kódírás ídeje alatt használom bizonyos változók értékeinek a kiírására. Hiszen nem olyan szép jószág az
Ha a júzerrel szeretnél közölni valamit akkor szerintem jobban jársz a MessageDlg() -vel.
Sokkal széleskörűbben paraméterezhető, sokkal gusztusosabb, és fügvény lévén annak a gomnak a kódjával tér vissza amit a júzer megnyomott. (Ha csak 1 gombot teszel ki akkor meg tök8).
Remélem segítettem.lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Üdvözlöm a nagyérdeműt!
Szeretném kérni a segítségeteket, mert kezd hullani a hajam!
Van egy SpeedButton elhelyezve. (Azért SpeedButtom, mert az tud lapos és átlátszó lenni)
Az OnClick eseményéhez hozzá van rendelve egy eljárás. Frankón be van állítva és meg is jelenik a SpeeddButton esemenyei közt a GombClick esemény.
És mintha ott se lenne. A lefordított programban a gombon való egérkattintásra rá se hederít!
Néztem lépésenkénti futtatással, és NEM megy bele az eljárásba.
És a legszebb az egészben, hogy az OnMouseDown-t érzékeli a kis t**ű .
Ez ismert Delphi fordítóhiba, vagy komponeshiba, vagy én vagyok a hiba, vagy hogy lehet ezt orvosolni?
Szerk: Az egészben a csodálatos, hogy az egész remekül működött.
Azaz érzékelte az egérkattintást, azátn gondolom valami újrafordítás után b*sz*tt működni.
[Szerkesztve]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
válasz Zsolteeeee #775 üzenetére
''jó'' aláírásod van
lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
-
Divi
aktív tag
Az átméretezre jó lehet, hogy
a Form.Width helyett Form.ClientWidt használsz.
a Form.Heigth helytt meg Form.ClientHeigth-ot
A Clientxxx a program által felhasználható terültet jelöli, míg a sima Width/Heigth a Windows által ráadott kerettel eggyüt mért szélesség/magasságot adja meg.
[Szerkesztve]lá lá lá lá lá lá lá Lila Liba gá gá gá gá gá gá
Új hozzászólás Aktív témák
- Xiaomi AX3600 WiFi 6 AIoT Router
- A fociról könnyedén, egy baráti társaságban
- Windows 10
- E-roller topik
- Napelem
- Kerékpárosok, bringások ide!
- Milyen hagyományos (nem okos-) telefont vegyek?
- Politika
- Rövid előzetesen a S.T.A.L.K.E.R. 2: Heart of Chornobyl
- Otthoni hálózat és internet megosztás
- További aktív témák...