XProfan

Français

Hat là quelqu'un une concept, comment on aus einer banque de données Memofelder dans un Multiedit magasin, Travailler et Sauver peux ?
qui vorgefertigte @EditBox() comme mir pas du tout.

10.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

avec MoveListToHandle() kopierst Du den le contenu qui ListBoxListe (là steht oui qui Text aus dem Memofeld drin) dans Dein bevorzugtes MultiEdit et anschließend avec MoveHandleToList() wieder zurück, bevor Du cela Memo dans qui banque de données speicherst.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

10.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

So quelque chose:
Kompilieren Marque Séparation

PROC Notiz_Aendern

    Clear Infobox_Text$
    DECLARE BE_DLG&, BE_BUTTON1&,BE_BUTTON2&
    Declare N_Notiz&,memo$,BE_tgb&
    Declare CR$
    CR$=@add$(@Chr$(13),@Chr$(10))                   Definition des Zeilenumbruchzeichens
    @dbUse(#8)
    @dbGo(text$)
    Let Infobox_Text$ =   Notiz :  + @Trim$(@dbGet$(WASSER)) +  vom
    Let Infobox_Text$ = Infobox_Text$ + @Right$(@dbGet$(DATUM),2) + . + @Mid$(@dbGet$(DATUM),5,2) + . + @Left$(@dbGet$(DATUM),4)
    LET BE_DLG&=CREATEDIALOG(BL_Dlg%,Infobox_Text$,276,70,334,420)
    string skstring#,0 =    Notiz
    BE_tgb& = SKCtrl_CreateColorGroupBox(BE_DLG&,skstring#,RGB(0,255,0),RGB(058,110,165),20,20,288,320,%hInstance)
    N_Notiz& = @Create(MultiEdit,BE_tgb&,memo$,8,30,270,280)
    @dbGetMemo(NOTIZ)
    @MoveListToEdit(N_Notiz&)
    string normalBmp#,0 = @add$(GetDir$(@),\bvr\speich1.bvr)
    string hoverBmp#,0 = @add$(GetDir$(@),\bvr\speich2.bvr)
    string clickedBmp#,0 = @add$(GetDir$(@),\bvr\speich2.bvr)
    BE_BUTTON2& = SKCtrl_CreateUserButton(BE_DLG&,0,normalBmp#,hoverBmp#,clickedBmp#,0116,0360,0082,0025,%hInstance)
    string normalBmp#,0 = @add$(GetDir$(@),\bvr\end1.bvr)
    string hoverBmp#,0 = @add$(GetDir$(@),\bvr\end2.bvr)
    string clickedBmp#,0 = @add$(GetDir$(@),\bvr\end2.bvr)
    BE_BUTTON1& = SKCtrl_CreateUserButton(BE_DLG&,0,normalBmp#,hoverBmp#,clickedBmp#,0230,0360,0070,0025,%hInstance)

    WHILE 1

        WaitKey
        Case %key=2:BREAK
        Case @GETFOCUS(BE_BUTTON1&) : BREAK

        IF @GETFOCUS(BE_BUTTON2&) BUTTON Daten speichern

            ClearList
            Declare head$,string$
            string$=@getText$(N_Notiz&)
            MEMO füllen

            while @len(string$)

                head$=@SubStr$(string$,1,CR$)
                addstring head$
                string$=@Del$(string$,1,@len(head$)) Textzeile entfernen
                string$=@del$(string$, 1, 2) Zeilenumbruch entfernen

            wend

            Jetzt hat man alle Textzeilen in der Listbox.
            @dbPutMemo(NOTIZ)
            @dbPutRec(0)
            BREAK

        ENDIF

    WEND

    @destroywindow(BE_DLG&)

./../funktionsreferenzen/XProfan/endproc/'>ENDPROC