| |
| |
|
Peter
Gückstock | allô Profaner,
Je mets aujourd'hui deux Fragen zur travail avec Datenbanken:
1. Frage: j'ai un Programme geschrieben, avec dem je une banque de données erstelle,
bearbeite, Datensätze hinzufüge et verändern peux, alles quoi XProfan so hergibt.
mais comment peux je à beliebiger Stelle dans qui banque de données une vider Datensatz
insérer? quelquefois volonté données nachgeliefert, qui à un certain Stelle dans qui banque de données einsortiert volonté doit. j'ai im Befehlssatz de XProfan rien pour trouvé . Gibt es une allgemeingültige Procédure pour, qui je dans mon Programme insérer peux?
2. Frage: je lasse mir données dans einer Listview Montrer. dans qui Anleitung zur Listview DLL steht, dass qui Zeilenhöhe sich automatisch dem Systemfont anpasst. comment peux Je l' verändern et à quel Stelle im Programme muss cela geschehen? j'ai une Font% avec create erstellt et setdialogfont Font% verwendet, mais aucun réaction.
Salut Peter
WIN XP, XProfan10 |
|
| |
| |
| |
|
|
Wilfried
Friebe |
KompilierenMarqueSéparationDeclare 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 habe je es realisiert.
la fois voyons si du avec cela quoi anfangen peux
cela zweite währe avec einer laufenden Nr. et
qui ensuite sortieren laisser.
Salut 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 ▲ |
|
| |
|
|
 | allô Peter,
cela
WIN XP, XProfan10
peux Du dans Votre Signatur eintragen - dessus à droite sous Optionen.
quoi qui XProfanschen DB-Befehle betrifft peux je Dir ldr. pas weiterhelfen - pour sûrement mais autre Mitglieder.
quoi qui Listview betrifft probiere la fois setfont  et updatelistview bzw. updatewindow-Api. |
|
| |
| |
| |
|
|
Thomas
Freier | eh bien bien, neue Datensätze entre vohandene insérer ist pas absolument Sinn einer Datenbankanwendung. Pour qui Auflistung (Browse) ist une une entsprechende index-Verwaltung couloir et gebe.
qui sais car, wohin qui neue Datensatz hingehört et qui prüft, dass qui neue Datensatz à qui richtigen Position ist?
Wird qui banque de données sur une ListView verwaltet, so peux oui vorgegeben volonté, à quel Stelle qui neue la ligne eingefügt volonté soll. Pour ListView ToDbf ist ensuite qui Reihenfolge comment dans qui angezeigten Listview.
Fontzuweisung comment dans Franks Beispielen:
KompilierenMarqueSéparationFont& = @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>
qui Zeilenhöhe glaube je, läßt sich seulement comment im Beispiel avec einem Blind-Icon erzwingen. |
|
| |
| |
| |
|
(510)
Deutsch
English
Français
Español
Italia