Forum | | | | | 
Ralf
Wicken | Hello together!
be since some years begeisterter Profan-User and use increasingly to Speicherung of my data The dBase-data base.
unfortunately have I another couple Problems:
a) In of my Eingabemaske is u.a. one area, that I with of/ one Choicebox displayed have. unfortunately I get not into handle, whom selected concept from the Choicebox in The dBase-data base abzuspeichern and later again in the mask anzeigbar To make.
b) at that flaking by the data base becomes with selection one designed Begriffs the Choicebox over ands over again the selected concept with whom others Datensätzen displayed.
If I means at Datensatz 1 in the Choicebox Mönchengladbach auswähle, so becomes too at Datensatz 2, 3, 4, ff over ands over again Mönchengladbach as Feldinhalt displayed.
somehow tappe I zurzeit into darkness! can me Perhaps someone with this trouble help. I have already so some hour on the computer spent and consider and consider and consider. unfortunately be I well no Professor Baltasar!
to explanation have I you one Beispielskript as equipment enclosed. Übrigens: I use XProfan 8.0a.
Vielen Thanks for Your Help!
Greeting Ralf |
 | | | | | | |
| |  | Hello Ralf...
its always rather, with something like The vain data base mitzuschicken, then must one not so plenty fummeln:
CompileMarkSeparation=====================================
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 | Hello Andreas, Hello Rolf,
many Thanks for Your speedy and professionelle Help. it works inspired!!!
I must me really More yet with the Opportunities the Sendmessages explain. be glad, I me in Eurem Forum announced have.
and nächstes time I will naturally too The data base immediate mitliefern; having unfortunately not dran virtual. Sorry!
greetings
Ralf |
| | | | | | |
|
AnswerThemeninformationenthis Topic has 3 subscriber: |
(549)
Deutsch
English
Français
Español
Italia