home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 01171 / dbase.bas < prev    next >
BASIC Source File  |  1990-09-03  |  492b  |  25 lines
  1.  
  2. Rectype Artrec
  3.   Recvar Artnummer$ 16
  4.   Recvar Bez1$ 30, Bez2$ 30
  5.   Recvar Lieferant$ 20
  6.   Recvar Preis 8:2
  7.   Recvar Bestand%
  8. Endrec
  9.  
  10. Record Artrec Art
  11.  
  12. Rem *** HauptProgramm ***
  13.  
  14. Dbopen #1, "Artikel",1
  15. While 1
  16.   Dbbrowse #1,a%,"","8,12,12"
  17.   If a% = 2 Then Break          'Abbruch-Button
  18.   Dbget #1, ".",Art
  19.   F$="Artikel;(Art#);Bezeichnung_1;Bezeichnung_2;Lieferant;Preis;Bestand;"
  20.   Form Art, F$, a%
  21.   If a% = 1 Then Dbput #1, Art  'OK-Button
  22. Wend
  23. DBclose #1
  24. Stop
  25.