Elektroda.pl
Elektroda.pl
X

Search our partners

Find the latest content on electronic components. Datasheets.com
Elektroda.pl
Please add exception to AdBlock for elektroda.pl.
If you watch the ads, you support portal and users.

Dana typu Numer do tabeli - CLIPPER

12 Aug 2008 18:16 810 2
  • Level 16  
    Witam!!!

    Dana typu Numer do tabeli - CLIPPER

    Mam problem prostym programem
    program wprowadza dane do tabeli
    dla pola typu c jest ok
    natomiast dla n -> nNumeric jest problem
    oto kod:

    Code:


    LOCAL cNazwisko := Space(15), cImie := Space(10), nNumer
    LOCAL cTytul:= Space(50), cKolor:=SetColor('+W/B')

    Use Ksiazki

    CLS
    DbGoBottom()
    nNumer := FieldGet(1)+1
    DispBox(8,5,21,75,2)

    @ 10,20 SAY'WPROWADZANIE DANYCH O NOWEJ KSIAZCE'
               


    @ 13,8 SAY PadR(FieldName(1),12)+Str(nNumer,3)
    @ 15,8 SAY PadR(FieldName(2),12) GET cNazwisko
    @ 17,8 SAY PadR(FieldName(3),12) GET cImie
    @ 19,8 SAY PadR(FieldName(4),12) GET cTytul


    READ

    IF ! Empty(cNazwisko)
    DbAppend()
    FieldPut(1,nNumer)
    FieldPut(2,cNazwisko)
    FieldPut(3,cImie)
    FieldPut(4,cTytul)

     
    ENDIF

    SetColor(cKolor)

    cls




    proszę o pomoc

    pozdrawiam!!
  • Helpful post
    Level 16  
    nNumer := FieldGet(1)+1

    przeciez wyswietlaja sie kompletne bzdury bo strukture masz
    Code:

    CNAZWISKO                       C    10
    CIMIE                           C    10
    CTYTUL                          C    10
    NNUMER                          N    10   0


    czyli numer nNumer := FieldGet(4)+1

    poprawnie to
    Code:

    LOCAL cNazwisko := Space(15), cImie := Space(10), nNumer
    LOCAL cTytul:= Space(50), cKolor:=SetColor('+W/B')

    Use Ksiazki

    CLS
    DbGoBottom()
    nNumer := FieldGet(4)+1
    DispBox(8,5,21,75,2)

    @ 10,20 SAY'WPROWADZANIE DANYCH O NOWEJ KSIAZCE'
               


    @ 13,8 SAY PadR(FieldName(4),12)+Str(nNumer,3)
    @ 15,8 SAY PadR(FieldName(1),12) GET cNazwisko
    @ 17,8 SAY PadR(FieldName(2),12) GET cImie
    @ 19,8 SAY PadR(FieldName(3),12) GET cTytul


    READ

    IF ! Empty(cNazwisko)
    DbAppend()
    FieldPut(4,nNumer)
    FieldPut(1,cNazwisko)
    FieldPut(2,cImie)
    FieldPut(3,cTytul)

     
    ENDIF

    SetColor(cKolor)

    cls

  • Level 16  
    Witam

    To w zasadzie należało zmodyfikować structure bazy danych