ZUBEHÖR
(PROGRAM)
used in SCHULLER MOTORS - LTD for tracking car and motorcycle parts.
Source Code of this Program
Zubeh.prg Lister.prg Datum.prg Druck.prg Betracht.prg Suche.prg Ueber.prg
Screenschot
Some CLIPPER code. It is taken from the main module.
************************************File: HAUPTMEN
CLEAR
set exclusive on
SET wrap on
SET safety off
SET deleted on
SET status off
SET scoreboard off
SET confirm on
SET date german
SET cursor off
SET procedure to fipspro
PUBLIC wahl
PUBLIC schirm
PUBLIC datum
PUBLIC titel,firma
PUBLIC farbe1
titel="ZUBEHÖR"
firma="Fa. Schuller"
datum=date()
IF iscolor()
farbe1="w/b"
ELSE
farbe1="w/n"
ENDIF
IF iscolor()
SET color to w/r
ELSE
SET color to n/w
ENDIF
@ 0,0 SAY space(80)
do zentrier with 0,80,firma
@ 0,0 SAY " "+titel
IF iscolor()
showtime(0,71,.f.,"w/r")
ELSE
showtime(0,71,.f.,"n/w")
ENDIF
setcolor(farbe1)
cls(.t.)
@ 1,0 to 22,79 double
DO zentrier with 24,80,"* * * * G u t e n T a g ! * * * *"
DO WHILE .t.
set color to
loesch(24)
wahl=2
*ernahme Betrachten Drucken Ende
@ 24, 0 PROMPT "Uebernahme"
@ 24,13 PROMPT "Fahrzeug"
@ 24,25 PROMPT "Lister"
@ 24,67 PROMPT "Drucken"
@ 24,76 PROMPT "Ende"
MENU TO wahl
setcolor(farbe1)
SAVE screen to schirm
DO CASE
CASE wahl=5
exit
CASE wahl=1
DO ueber
CASE wahl=2
Do Suche
CASE wahl=3
DO Lister
case WAHL=4
exit
ENDCASE
ENDDO
close all
SET color to
CLEAR
DO zentrier with 23,80,"Ende der Arbeit!"
QUIT
RETURN
******** Ende des Hauptprogrammes *********