Foro | | | | | 
Ralf
Wicken | ¡Hola zusammen!
Bin seit algunos Jahren begeisterter Profano-User y nutze siempre mehr a Speicherung meiner Daten el dBase-Datenbank.
Leider Todavía unos pocos Problemas:
a) In meiner Eingabemaske es u.a. una Feld, el I, con uno Choicebox dargestellt habe. Leider bekomme Yo no en el Griff, el ausgewählten Begriff de el Choicebox en el dBase-Datenbank abzuspeichern y später otra vez en el Maske anzeigbar a hacer.
b) Beim Blättern por el Datenbank se en Auswahl uno cierto Begriffs el Choicebox siempre otra vez el ausgewählte Begriff en el otro Datensätzen adecuado.
Wenn Yo also beim Datensatz 1 en el Choicebox Mönchengladbach auswähle, así auch beim Datensatz 2, 3, 4, ff siempre otra vez Mönchengladbach como Feldinhalt adecuado.
Irgendwie tappe Yo zurzeit en el Dunkeln! Kann me tal vez alguien en diesem Problema helfen. Yo habe ya así manche Stunde al Rechner verbracht y überlege y überlege y überlege. Leider bin Yo wohl kein Professor Baltasar!
A Veranschaulichung Yo Euch una Beispielskript como Anlage beigefügt. Übrigens: Yo nutze XProfan 8.0a.
Vielen Dank para Eure Ayuda!
Saludo Ralf |
 | | | | | | |
| |  | ¡Hola Ralf...
Siempre es mejor, en algo como el vacío Datenbank mitzuschicken, entonces muss uno no así viel fummeln:
KompilierenMarcaSeparación=====================================
Programm erzeugt von RGH-ProBase 2.0
am: 25.02.2007
um: 17:57
=====================================
Font 1 DOS-Zeichensatz
Declare NACHNAME%
Declare VORNAME%
Declare STRASSE%
Declare WOHNORT%*********** Choicebox-Feld *************************
Declare PLZ%
Declare TELEFON%
Declare GEBURTSTAG%
Declare cmPrev%, cmNext%, cmNeu%, cmFirst%, cmLast%, cmEnde%
Declare cmEntf%, cmSuch%, cmReorg%, cmMemo%
PROC ReOrg
dbCreateIndex NACHNAME > NACHNAME
@dbIndex(NACHNAME)
ENDPROC
PROC GetSatz
SetText NACHNAME%,@dbGet$(NACHNAME)
SetText VORNAME%,@dbGet$(VORNAME)
SetText STRASSE%,@dbGet$(STRASSE)
Print @trim$(@dbGet$(WOHNORT))
IF @trim$(@dbGet$(WOHNORT))=Aachen
@sendmessage(WOHNORT%,$14E,0,0)
Elseif @trim$(@dbGet$(WOHNORT))=Köln
@sendmessage(WOHNORT%,$14E,1,0)
Elseif @trim$(@dbGet$(WOHNORT))=Mönchengladbach
@sendmessage(WOHNORT%,$14E,2,0)
else
@sendmessage(WOHNORT%,$14E,-1,0)
endif
SetText WOHNORT%,@dbGet$(WOHNORT) *********** Choicebox-Feld *************************
SetText PLZ%,@Trim$(@dbGet$(PLZ))
SetText TELEFON%,@dbGet$(TELEFON)
SetText GEBURTSTAG%,@dbGet$(GEBURTSTAG)
ENDPROC
PROC PutSatz
@dbPut(NACHNAME,@GetText$(NACHNAME%))
@dbPut(VORNAME,@GetText$(VORNAME%))
@dbPut(STRASSE,@GetText$(STRASSE%))
@dbPut(WOHNORT,@GetText$(WOHNORT%))*********** Choicebox-Feld *************************
@dbPut(PLZ,@Trim$(@GetText$(PLZ%)))
@dbPut(TELEFON,@GetText$(TELEFON%))
@dbPut(GEBURTSTAG,@GetText$(GEBURTSTAG%))
ENDPROC
PROC Maske
Declare E%,_dlg%,S&,Such$
Let Such$ =
let _dlg%=@createdialog(%HWnd,Adress-Datenbank,126,20,480,250)
@createtext(_dlg%,Nachname:,24,16,96,24)
@createtext(_dlg%,Vorname:,24,40,96,24)
@createtext(_dlg%,Strasse:,24,64,96,24)
@createtext(_dlg%,Wohnort:,24,88,96,24)
@createtext(_dlg%,Plz:,24,112,96,24)
@createtext(_dlg%,Telefon:,24,136,96,24)
@createtext(_dlg%,Geburtstag:,24,160,96,24)
let NACHNAME%=@createedit(_dlg%,,128,16,184,24)
let VORNAME%=@createedit(_dlg%,,128,40,184,24)
let STRASSE%=@createedit(_dlg%,,128,64,224,24)
let WOHNORT%=@CREATE(CHOICEBOX,_dlg%,,128,88,144,84)*********** Choicebox-Feld *************************
ADDCHOICE(WOHNORT%,Mönchengladbach)
ADDCHOICE(WOHNORT%,Aachen)
ADDCHOICE(WOHNORT%,Köln)
let PLZ%=@createedit(_dlg%,,128,112,64,24)
let TELEFON%=@createedit(_dlg%,,128,136,184,24)
let GEBURTSTAG%=@createedit(_dlg%,,128,160,104,24)
let cmFirst%=@createbutton(_dlg%,|<,24,192,24,24)
let cmPrev%=@createbutton(_dlg%,<,48,192,24,24)
let cmNext%=@createbutton(_dlg%,>,72,192,24,24)
let cmLast%=@createbutton(_dlg%,>|,96,192,24,24)
let cmNeu%=@createbutton(_dlg%,&Neu,208,192,48,24)
let cmEntf%=@createbutton(_dlg%,&Lösche,256,192,48,24)
let cmSuch%=@createbutton(_dlg%,&Suche,304,192,48,24)
let cmReorg%=@createbutton(_dlg%,&Reorg,352,192,48,24)
let cmEnde%=@createbutton(_dlg%,&Zurück,400,192,48,24)
@dbGo(|<)
@SetFocus(NACHNAME%)
Let E% = 0
WhileNot E%
GetSatz
WaitInput
If @Equ(%Key,13)
PutSatz
If @GetFocus(cmFirst%)
@SetFocus(NACHNAME%)
EndIf
ElseIf @equ(%key,2)
Let E% = 1
ElseIf @GetFocus(cmEnde%)
Let E% = 1
ElseIf @GetFocus(cmFirst%)
PutSatz
@dbPutRec(0)
@dbGo(|<)
@SetFocus(NACHNAME%)
ElseIf @GetFocus(cmPrev%)
PutSatz
@dbPutRec(0)
@dbGo(<)
@SetFocus(NACHNAME%)
ElseIf @GetFocus(cmNext%)
PutSatz
@dbPutRec(0)
@dbGo(>)
@SetFocus(NACHNAME%)
ElseIf @GetFocus(cmLast%)
PutSatz
@dbPutRec(0)
@dbGo(>|)
@SetFocus(NACHNAME%)
ElseIf @GetFocus(cmNeu%)
PutSatz
@dbPutRec(0)
@dbAppendBlank()
@SetFocus(NACHNAME%)
ElseIf @GetFocus(cmEntf%)
@dbDelete()
@dbPack()
ReOrg
@SetFocus(NACHNAME%)
ElseIf @GetFocus(cmSuch%)
PutSatz
@dbPutRec(0)
Let Such$=@Input$(NACHNAME eingeben:,Suchen,Such$)
Let S& = &dbRecNo
@dbGo(>)
IfNot @dbSeek(NACHNAME,Such$,1)
MessageBox(Adresse nicht gefunden,Hinweis,48)
@dbGo(S&)
EndIf
@SetFocus(NACHNAME%)
ElseIf @GetFocus(cmReorg%)
ReOrg
@SetFocus(NACHNAME%)
Else
PutSatz
EndIf
EndWhile
@DestroyWindow(_dlg%)
ENDPROC
HAUPTPROGRAMM
-------------
Set (MessageMode,0)
IfNot @dbOpen(#1,ADRESS.dbf)
@dbAppendBlank()
EndIf
IfNot @dbIndex(NACHNAME)
ReOrg
EndIf
@dbUse(#1)
Mask@ dbClose(# 1)
End
|
| | | | | | |
| | 
Rolf
Koch | | | |
| |
Ralf
Wicken | ¡Hola Andreas, ¡Hola Rolf,
vielen Dank para Eure schnelle y professionelle Ayuda. Lo klappt hervorragend!!!
Yo muss mich wirklich mehr todavía con el Möglichkeiten el Sendmessages auseinandersetzen. Bin froh, dass Yo mich en Eurem Foro angemeldet habe.
Und nächstes Tiempo voluntad Yo natürlich auch el Datenbank inmediatamente mitliefern; hatte por desgracia, no dran pensamiento. Sorry!
Viele Grüße
Ralf |
| | | | | | |
|
RespuestaThemeninformationenDieses Thema ha 3 subscriber: |
(457)
Deutsch
English
Français
Español
Italia