English
Forum

Insert Record

 

Peter
Gückstock
Hello Profaner,

I put today two Questions work with Databases:
1. question: I have one Program written, with the I a data base create,
machine, Datensätze hinzufüge and change can, everything what XProfan so hergibt.
but how can I beliebiger place in the data base a clear Datensatz
insert? sometimes go data replenished, The at a designed place into data base einsortiert go must. I have in the Functions of XProfan nothing for found . gives it a allgemeingültige procedure for, The I in my Program insert can?
2. question: I let me data in a list view Show. in the guide to List view DLL standing, that The Zeilenhöhe itself automatically the Systemfont anpasst. How can I whom change and on which place in the program must the happen? I have a Font% to create prepares and setdialogfont Font% uses, but no reaction.

Greeting Peter

WIN XP, XProfan10
 
Peter G.
Win XP, XProfan10
07/16/07  
 




Wilfried
Friebe

CompileMarkSeparation
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='./../../Function-References/XProfan/endproc/'>endproc


so have I it realized.
time see whether You so what begin can
the second true with of/ one ongoing Nr. and
The then sort let.
Greeting 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"
07/16/07  
 



Hello Peter,

the

WIN XP, XProfan10

can You in your Signatur present - supra right under Options.

What the XProfanschen DB-command concerns can I you ldr. not help on - for sure but others Members.

What the List view concerns Try time setfont  and updatelistview or. updatewindow-Api.
 
07/16/07  
 




Thomas
Freier
now well, new Datensätze between vohandene insert isn't absolutely sense of/ one Datenbankanwendung. for the List (Browse) is a a suitable index-management ambulation and give.
who can tell because, where the new Datensatz hingehört and who checks, that the new Datensatz on the right position is?
becomes The data base over a ListView manages, so can Yes pretended go, on which place the new row eingefügt go should. After ListView ToDbf is then The Order How in the indicated List view.

Fontzuweisung How in Franks Examples:
CompileMarkSeparation
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>

The Zeilenhöhe faith I, can itself only How in the example with a blind-Icon force.
 
Gruß Thomas
Windows XP SP2, XProfan X2
07/17/07  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

2.555 Views

Untitledvor 0 min.
Wilfried Friebe11/26/16
Georg Teles03/19/16

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie