- Az Oppo Find X8 Ultra lett a legvékonyabb kameramobil
- Magisk
- Xiaomi 14T Pro - teljes a család?
- Megérkezett a Pixel 5 és 4a 5G
- Motorola Edge 40 neo - színre és formára
- Honor Magic V2 - origami
- Milyen okostelefont vegyek?
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- VoLTE/VoWiFi
- Eltűnhet a Dinamikus Sziget
Új hozzászólás Aktív témák
-
wolffy
aktív tag
válasz
<Adamsky> #1065 üzenetére
Na igen, így is lehet.
Én is gondoltam az SQL-re de nem is volt rossz ötlet az új tábla a lehetséges típusnevekkel, mert így már a felvitelnél is tudom a usert kényszeríteni egy DBComboBox-szal, hogy a típusneveket egyféle formában vigye fel. (Ne legyen az egyik kis-, a másik nagybetűvel, vagy keverve.) Lot of thanx a segítségért!!!
-
wolffy
aktív tag
válasz
<Adamsky> #1062 üzenetére
Bocsi, valamit elnéztem, sikerült újabb ADOTable feldobása nélkül is. Működik a dolog ahogy kell, viszont még valamit nem vettem figyelembe.
A hivatkozott mezőben ugyanaz a rekord többször is előfordul. (pl. egy típusmegnevezés akár 40-szer előfordulhat, mivel két készülék típus lehet ugyanaz, a gyári szám különbözteti meg őket, ami egy másik mező) Na lényeg a lényeg, hogy érhető el, hogy ugyanaz a rekord csak egyszer szerepelje a ComboBox-ban?
-
wolffy
aktív tag
válasz
<Adamsky> #1058 üzenetére
Nos a gond csak annyi a példával, hogy én ADO-t használok és nem BDE-t. DBTable esetén a példádban OK a dolog, de ADOTable esetén ez a bookmarkosdi nem igazán jön össze valamiért.
A konkrét megoldandó probléma egyébként annyi lenne, hogy van egy ComboBox és Button. Ha a Button-re kattint a user, akkor a ComboBox feltöltődik egy ADOTable segítségével hivatkozott adattábla első mezőjének adataival.
Ha tudnál segíteni, klassz lenne. Köszi! -
btotyi
tag
válasz
<Adamsky> #560 üzenetére
IBExpress csomag (Delphi InterBase fül)
IBDatabase, IBTransAction, ListBox, BitBtn felrak egy formra. IBDataBase default transaction beállít IBTransAction1-re. Dupla katt IBDataBase1-en. Adatbázis jellemzők beállít. BitBtn1.OnClick-be beír :
IBDatabase1.GetTableNames(ListBox1.Items,False); // A boolean érték azt jelzi hogy kellenek-e a system táblák.
Program futtat gombra kattint és a listboxban megjelennek az adott adatbázisban található táblák. -
<Adamsky>
nagyúr
válasz
<Adamsky> #367 üzenetére
Na újabb probléma:
Futás közben hozok létre egy Interbase adabázist és benne három táblát.
Ha az adatbázis kapcsolatot megszüntetem (IBDataBase.Connected := false) majd később újra csatlakozni szeretnék, akkor ezt a hibaüzenetet kapom:
''Your user name and password are not defined'' -- pedig igen! Nem értem.
A forráskód Bővebben: link
Alulról a 10 & 11 sor aktívvá tételével jön elő a hiba. -
lao ce
aktív tag
válasz
<Adamsky> #206 üzenetére
jol indultal el. en csinalnek egy ciklust ami az osszes komponensen vegigmegy, aztan ha editboxhoz er amibe masolni kell valamit, akkor beirnam az aktualis szamot, amit viszont egy szamlalo kell mutasson...
a kulcs amit en megneznek a helpben a ComponentCount, a Components es az 'as'. ezek alapjan mar meg tudod irni a programot, alabb irom az en valtozatomat amit nem ellenoriztem szoval lehet hogy hibas valahol.
const
szoveg = '11,10,09,08';
var
szamlalo : integer;
szamlalo := 1;
// szamoljunk osszes komponenst
for i := 0 to ComponentCount-1 do begin
// vajon ez egy edit box amibe irni kell?
// persze, az edit neve Edit1...Editx, tehat csak az elso 4 karaktert kell nezni
if copy (Components.Name, 1, 4) = 'Edit' then
...//igy csinalhatsz a tipustalan komponensbol editboxot,
...//es erheted el a value prop-t:
...(Components as TEdit).Value := copy(szoveg, szamlalo, 2);
// harmasaval egyszerubb, i-t nem lehet hasznalni mert az osszes
// komponenst megszamoljuk a formon, azokat is amik nem edit boxok
szamlalo := szamlalo + 3;
end;
ha van harom edit box-od akkor kitolti, ha felteszel egy negyediket akkor is kitolti a nelkul hogy a programban valtoztatnal.
Új hozzászólás Aktív témák
Hirdetés
- Sony MILC fényképezőgépcsalád
- Milyen légkondit a lakásba?
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- Nintendo Switch 2
- Robot fűnyírók
- AMD vs. INTEL vs. NVIDIA
- Elektromos cigaretta 🔞
- Milyen belső merevlemezt vegyek?
- Magga: PLEX: multimédia az egész lakásban
- További aktív témák...
- DDR5 8/ 16/ 32GB 4800-5600MHz SODIMM laptop RAM, több db- számla, garancia
- Bomba ár! Lenovo ThinkPad X395 - AMD Ryzen PRO 5 I 8GB I 512GB SSD I 13,3" FHD I Cam I W11 I Gari!
- LG 65C3 - 65" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox!
- Telefon felvásárlás!! Xiaomi Redmi 9, Xiaomi Redmi 9AT, Xiaomi Redmi 10, Xiaomi Redmi 10 2022
- Telefon felvásárlás!! Samsung Galaxy A20e/Samsung Galaxy A40/Samsung Galaxy A04s/Samsung Galaxy A03s
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged