Werbung
Anlegen der Datei:
an Legen "beste L L" Logi sch "be"
Lager_Nr$
Code$
ArtikeL$
Preis
Lieferzeit
endeanlegen
Nachdem wir diese Dateien angelegt haben, brauchen wir noch eine Prozedur, welche
die Informationen sinnvoll verwaltet. Am häufigsten tritt wohl die Situation auf, wo auf
Anfrage eines Kunden Informationen über einen bestimmten Warenposten ausfindig
gemacht werden müssen. Der Suchvorgang soll möglichst wenig Zeit in Anspruch
nehmen, und das Suchkriterium zum Auffinden des gewünschten Datensatzes ist
entweder die Artikel-Nummer oder die Bezeichnung. Folglich benutzen wir den finden-
Befehl in einer Weise, die Ihnen gestattet, die Suche durch Eingabe einer zulässigen
Zeichenketle zu starten.
Die Prozedur muß in der Lage sein, nachzufragen, ob der gefundene Datensatz auch
tatsächlich der gesuchte ist. Es lohnt sich, dafür eine eigene Prozedur zu definieren,
die dann bei Bedarf auch in anderen Situationen eingesetzt werden kann.
Proz bestät igen
zei gen:
zei gen "Bestät igt (J
setzen Ja=kLein(tasteO)="j"
Leeren
EndeProz
Bei Drücken der Haste erhält die Variable Ja den Wert 1; andernfalls ist er Null. Beachten
Sie die Verwendung des "=" Zeichens - einmal als Zuweisungsoperator (bei setzen)
und einmal als mathematisches Gleichheitszeichen in einer Bedingung.
Proz anfrage2
*****
anm
Anfrage
zeigen
eingabe
"Lagerposten?
aktiv "La"
fi nden name$
setzen
ja=O
soLange
gefundene)
anzeigen
banzeige
bestätigen
wenn ni cht ja
weiter
endewenn
endesolange
wenn nicht gefundene)
zeigen
zei gen name$i " ni cht vorhanden"
endewenn
EndeProz
Diese Prozedur dient lediglich zum Auffinden des gesuchten Datensatzes. Praktischer
zum Befragen der Datei ist "anfrage"
Proz anfrage
anfrage2
freibi Ld
EndeProz
die eine zusätzliche Prozedur, "treibild" enthält, welche einen Tastendruck abwartet, den
Bildschirm leert und dann eine Liste der verfügbaren Befehle anzeigt. Diese Prozedur
schreiben wir erst am Schluß, wenn wir alle Befehle definiert haben, die in der Liste
erscheinen sollen.
Vergessen Sie nicht, von Zeit zu Zeit aus dem editieren-Befehl auszusteigen und die
Prozeduren, die Sie eingetippt haben, abzuspeichern.
3/85
IN)"
i
*****
betr. Lagerposten
"iname$
und nicht ja
ARBEITEN MIT MEHREREN DATEIEN
Anfragen
35
Werbung
Kapitel
