28. februar 2012 - 00:47Der er
14 kommentarer og 1 løsning
DATABASE - TABLE - SMART TILGANG ?????
HEJ,
I delphi7 / programmet har en en Database med op til 14 Tabeller. Programmet arbejder med max. 4 af gangen, så jeg har 4 datasources med tables og DBGrid's, hvor jeg sætter Table-names, åbner til DBGRID's, og lukker ved form-afslutningen efter behov.
Henter Table1.FIELDDEFList'ens enkelte element og assigner DBEDIT(n) til dette element - igen efter behov .
Den ene af tabellerne har et FieldDefs.Count på 52 elementer.
Det betyder at jeg må skrive 52 DBEdit(n) (N = 1 --> 52) for at vise denne base. (jeg ønsker ikke at bruger- /en -/ne skal have adgang til DBGRID'en direkte), så jeg funderede på om det er muligt at lave en smartere løsning i form af:
(Jeg har DBedit1 ------> DBedit52 )
Databasen er forudsat åben ....
For N := 1 to 52 DO BEGIN (DBedit[N] AS TDbedit).FieldValue = FieldDefList[N].Asstring; (DBedit[N] AS TDBedit).DataSource = TDataSource1; (DBedit[n] As TdbEdit).ReadOnly := TRue; END;
smid en mail, så har jeg det HELT rigtige værktøj til dit formål ( lavet for en del år siden af samme årsag som din )... nogle få comp. og du kan lave dine assign til std comp. og update table UDEN at skrive mere en 2 liner's kode :-)
For nogen tid siden læste jeg på Eksperten at du og en bruger (husker ikke hvem) havde en disput om brugen af kode, som anden bruger (i dette tilfælde mig) havde leveret privat.
Nu er situationen den modsatte: Derfor MÅ jeg have grønt lys fra Martin Lind inden en evt. udlevering.
(Hvis jeg bare videresendte ville jeg fremstå som inkonsekvent og uvederhæftig, og det vil jeg ikke. )
Halløj i to, du må gerne sende vidre på to betingelser, at du lige skriver HVEM der har lavet koden ( det har jeg ikke fået gjort ) i toppen af unit'sne og at jeg lige får nogle tilbage meldinger på hvad du/I synes og om i kan få det til at virke :-)
Hjælp til at få det til at virke/ bruge det gives gerne :-)
Har haft udenhus (altså ikke hjemme-) aktiviteter hele dagen, så jeg ser først dette nu (18:37).
Jeg har fået udpakket rutinerne, lagt dem ind på udviklings-PC'en, scannet dem overfladisk, og ikke meget andet endnu. Regner med at skal have "nærsynet" dem i løbet af weekenden.
Forventer at kunne sende en ZIP-pakke til HP i løbet af aftenen efter 21: et eller andet.
Skal nok melde tilbage . Men nu "råver konen at der er ma' " og jer er sulten (he he)..
Min putter er så lige gået ned.... så du må lige ha' lidt tålmodighed, så skal jeg se hvad jeg kan gøre :-)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.