| |
|
|
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 |
|
|
| |
|
|
|
Wilfried Friebe | CompileMarkSeparationDeclare 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. |
|
|
| |
|
|
|
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: CompileMarkSeparationFont& = @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 ▲ |
|
|
|