Español
Foro

Datensatz einfügen

 

Peter
Gückstock
¡Hola Profaner,

Yo lugar heute zwei Fragen a Arbeit con Datenbanken:
1. Cuestión: Yo habe una Programa geschrieben, con el Yo una Datenbank erstelle,
bearbeite, Datensätze hinzufüge y verändern kann, alles qué XProfan así hergibt.
Aber como kann Yo a beliebiger Punto en el Datenbank una leeren Datensatz
einfügen? Manchmal voluntad Daten nachgeliefert, el a una cierta Punto en el Datenbank einsortiert voluntad necesario. Yo habe en el Befehlssatz de XProfan nichts dafür gefunden . Gibt lo una allgemeingültige Procedimiento dafür, el Yo en mein Programa einfügen kann?
2. Cuestión: Yo lasse me Daten en uno Listview Mostrar. In el Anleitung a Listview DLL es, dass el Zeilenhöhe se automáticamente el Systemfont anpasst. ¿Cómo se puede Yo, el verändern y a welcher Punto en el Programa muss el geschehen? Yo habe una Font% con create erstellt y setdialogfont Font% verwendet, pero no Reacción.

Saludo Peter

WIN XP, XProfan10
 
Peter G.
Win XP, XProfan10
16.07.2007  
 




Wilfried
Friebe

KompilierenMarcaSeparación
Declare lesenE1$, lesenE2$, lesenE3$, lesenE4$, lesenE5$, lesenE6$
Declare abbrecht%, abbrecht1%, test1%, aab%

proc einfügen

    aab% ist die Nr die eingefügt werden soll
    hier die Nr einlesen  input Nr oder so

    if aab% = 0

        abbrecht% = @Create(Text,%hWnd,    Einfügen abgebrochen. ,550,380,300,20)
        abbrecht1% = @Create(Text,%hWnd,    Taste drücken ,550,410,300,20)
        waitinput

    endif

    if aab% > 0

        @db(Go, >|)
        @db(AppendBlank)
        @db(Go, >|)
        test1% = @DB(Put, LP_TITEL,)
        test1% = @DB(Put, INTERPRET,)
        test1% = @DB(Put, SORTE,)
        test1% = @DB(Put, LP_CD_MC,)
        test1% = @DB(Put, ORT,)
        test1% = @DB(Put, TITEL_01,)
        @db(PutRec,&dbRecNo)
        @db(Go, >|)

        WhileLoop &dbRecNo,aab%+1,-1

            @db(Go, <)
            lesenE1$ = @DB(Get, LP_TITEL,)
            lesenE2$ = @DB(get, INTERPRET,)
            lesenE3$ = @DB(get, SORTE,)
            lesenE4$ = @DB(get, LP_CD_MC,)
            lesenE5$ = @DB(get, ORT,)
            lesenE6$ = @DB(get, TITEL_01,)
            @db(Go, >)
            test1% = @DB(put, LP_TITEL,lesenE1$)
            test1% = @DB(put, INTERPRET,lesenE2$)
            test1% = @DB(put, SORTE,lesenE3$)
            test1% = @DB(put, LP_CD_MC,lesenE4$)
            test1% = @DB(put, ORT,lesenE5$)
            test1% = @DB(put, TITEL_01,lesenE6$)
            @db(PutRec,&dbRecNo)
            @db(Go, <)
            test1% = @DB(Put, LP_TITEL,)
            test1% = @DB(Put, INTERPRET,)
            test1% = @DB(Put, SORTE,)
            test1% = @DB(Put, LP_CD_MC,)
            test1% = @DB(Put, ORT,)
            test1% = @DB(Put, TITEL_01,)
            @db(PutRec,&dbRecNo)

        EndWhile

        @db(Go, * ,aab%)

    endif

    if aab% = 0

        @destroyWindow(abbrecht%)
        @destroyWindow(abbrecht1%)

    endif

href='./../../funktionsreferenzen/XProfan/ENDPROC/'>ENDPROC


So Yo lo realisiert.
Tiempo sehen si du así qué anfangen kannst
Das zweite währe con uno laufenden Nr. y
el entonces sortieren dejar.
Saludo Wilfried
 
Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit

Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit

Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins"
16.07.2007  
 



¡Hola Peter,

el

WIN XP, XProfan10

kannst Usted en Su Signatur eintragen - oben rechts bajo Optionen.

Was el XProfanschen DB-Befehle betrifft kann Yo Usted ldr. no weiterhelfen - dafür sicher aber otro Miembros.

Was el Listview betrifft probiere veces setfont  y updatelistview o. updatewindow-Api.
 
16.07.2007  
 




Thomas
Freier
nun bien, neue Datensätze zwischen vohandene einfügen es no necesariamente Sinn uno Datenbankanwendung. Für el Auflistung (Browse) es una una entsprechende Index-Verwaltung gang y dar.
Wer weiß porque, wo el neue Datensatz hingehört y wer prüft, dass el neue Datensatz a el richtigen Position es?
Wird el Datenbank una ListView verwaltet, así de hecho puede vorgegeben voluntad, a welcher Punto el neue Línea eingefügt voluntad se. Nach ListView ToDbf es entonces el Reihenfolge como en el angezeigten Listview.

Fontzuweisung como en Franks Beispielen:
KompilierenMarcaSeparación
Font& = @CREATE(FONT,NEW TIMES ROMAN,18,0,1,0,0)
listview&=CreateListView(%hwnd,%hinstance,0,Rgb(150,150,255),-1,$31)
SetFont listview&,Fon
re>

El Zeilenhöhe glaube Yo, läßt se sólo como en el Ejemplo con un Blind-Icon erzwingen.
 
Gruß Thomas
Windows XP SP2, XProfan X2
17.07.2007  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

2.558 Views

Untitledvor 0 min.
Wilfried Friebe26.11.2016
Georg Teles19.03.2016

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie