home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / winanw / demo_pf / adress.prf < prev    next >
Text File  |  1994-01-05  |  4KB  |  172 lines
  1.     Declare Ende%,Nr%,Nr$,CR$
  2.     Declare Name$,Vorname$,Strasse$,Ort$,Telefon$
  3.     DIM$ 999
  4.  
  5.     PopUp "&Adresse"
  6.         AppendMenu 101,"&Hinzufⁿgen"
  7.         AppendMenu 102,"&Suchen"
  8.         AppendMenu 103,"&Liste"
  9.         Separator
  10.         AppendMenu 109,"&Ende"
  11.     AppendMenuBar 130,"&Info"
  12.  
  13.     PROC Info
  14.         @MessageBox("MINI-ADRESS-KARTEI","Info",64)
  15.     ENDPROC
  16.  
  17.     PROC Ueber
  18.         @MessageBox(@Add$(@Add$("MINI-ADRESS-KARTEI",CR$),"Autor: Roland G. Hⁿlsmann"),\
  19.                             "▄ber ...",48)
  20.     ENDPROC    
  21.  
  22.     PROC Zeige
  23.         Parameters I%
  24.         Declare Text$
  25.                 Let Name$ = @ReadIni$("ADRESS.DAT",@Str$(I%),"NAME")
  26.                 Let VorName$ = @ReadIni$("ADRESS.DAT",@Str$(I%),"VORNAME")
  27.                 Let Strasse$ = @ReadIni$("ADRESS.DAT",@Str$(I%),"STRASSE")
  28.                 Let Ort$ = @ReadIni$("ADRESS.DAT",@Str$(I%),"PLZ_ORT")
  29.                 Let Telefon$ = @ReadIni$("ADRESS.DAT",@Str$(I%),"TELEFON")
  30.         Let Text$=@Add$(@Add$(@Add$(VorName$," "),Name$),CR$)
  31.         Let Text$=@Add$(@Add$(Text$,Strasse$),CR$)    
  32.         Let Text$=@Add$(@Add$(Text$,Ort$),CR$)    
  33.         Let Text$=@Add$(@Add$(Text$,Telefon$),CR$)    
  34.         @MessageBox(Text$,"ADRESSE:",48)
  35.     ENDPROC
  36.  
  37.     PROC Hinzufⁿgen
  38.         Declare Ok%
  39.         Let Ok% = 7
  40.         Let Nr$=@ReadIni$("ADRESS.DAT","Header","Anzahl")
  41.         Let Nr% = @Val(Nr$)
  42.         While @Equ(Ok%,7)
  43.                 Cls
  44.             TBox 4,4-16,40;0
  45.             Color 15,1
  46.             Locate 5,5
  47.             Print "        Adresse hinzufⁿgen         "
  48.             Color 0,15
  49.             Locate 7,5
  50.             Print "Nachname: ";
  51.             Locate 9,5
  52.             Print "Vorname:  ";
  53.             Locate 11,5
  54.             Print "Stra▀e:   ";
  55.             Locate 13,5
  56.             Print "PLZ Ort:  ";
  57.             Locate 15,5
  58.             Print "Telefon:  ";
  59.             Locate 7,16
  60.             Input Name$
  61.             Locate 9,16
  62.             Input VorName$
  63.             Locate 11,16
  64.             Input Strasse$
  65.             Locate 13,16
  66.             Input Ort$
  67.             Locate 15,16
  68.             Input Telefon$
  69.             Let Ok% = @MessageBox("Ist die Adresse richtig eingeben?","Frage:",35)
  70.         Wend
  71.         If @Equ(OK%,6)
  72.             WriteIni "ADRESS.DAT",@Str$(Nr%),"NAME"=Name$
  73.             WriteIni "ADRESS.DAT",@Str$(Nr%),"VORNAME"=VorName$
  74.             WriteIni "ADRESS.DAT",@Str$(Nr%),"STRASSE"=Strasse$
  75.             WriteIni "ADRESS.DAT",@Str$(Nr%),"PLZ_ORT"=Ort$
  76.             WriteIni "ADRESS.DAT",@Str$(Nr%),"TELEFON"=Telefon$
  77.             Inc Nr%
  78.             WriteIni "ADRESS.DAT","Header","Anzahl"=@Str$(Nr%)
  79.         EndIf
  80.         Cls
  81.     ENDPROC
  82.  
  83.     PROC Liste
  84.         Declare I%,T$
  85.         Let I% = 1
  86.         ClearList
  87.         While @NEQ(I%,Nr%)
  88.             Let T$ = @Add$("                       #",@Str$(I%))
  89.             AddString @Add$( @Add$( @Add$(\
  90.                           @ReadIni$("ADRESS.DAT",@Str$(I%),"NAME"),", "), \
  91.                           @ReadIni$("ADRESS.DAT",@Str$(I%),"VORNAME"),T$)
  92.             Inc I%
  93.         Wend    
  94.         Let T$ = @ListBox$("Namen",0)
  95.         If @NEQ$(T$,"")
  96.             Let I% = @Instr("#",T$)
  97.             Let I% = @Val(@Mid$(T$,@Add(I%,1),255)
  98.             Zeige I%
  99.         EndIf
  100.     ENDPROC
  101.         
  102.     PROC Suche
  103.         Declare Such$,T$,I%,Gef%
  104.         Let Such$=@Input$("Name (oder Teil) eingeben:","Adresse suchen","")
  105.         Let I% = 1
  106.         Let Gef% = 0
  107.         ClearList
  108.         While @NEQ(I%,Nr%)
  109.             Let T$ = @Add$("                       #",@Str$(I%))
  110.             Let Name$ = @ReadIni$("ADRESS.DAT",@Str$(I%),"NAME")
  111.             If @Instr(@Upper$(Such$),@Upper$(Name$)) Then
  112.                 AddString @Add$( @Add$( @Add$( Name$,", "), \
  113.                                   @ReadIni$("ADRESS.DAT",@Str$(I%),"VORNAME"),T$)
  114.                 Inc Gef%
  115.             EndIf
  116.             Inc I%
  117.         Wend    
  118.         If @GT(Gef%,1)
  119.             Let T$ = @ListBox$("Namen",0)
  120.             If @NEQ$(T$,"")
  121.                 Let I% = @Instr("#",T$)
  122.                 Let I% = @Val(@Mid$(T$,@Add(I%,1),255)
  123.                 Zeige I%
  124.             EndIf
  125.         ElseIf @Equ(Gef%,1)
  126.             Let T$ = @ListBoxItem$(0)
  127.             Let I% = @Instr("#",T$)
  128.             Let I% = @Val(@Mid$(T$,@Add(I%,1),255)
  129.             Zeige I%
  130.         Else
  131.             @MessageBox("Adresse nicht gefunden!","Hinweis:",64)
  132.         EndIf
  133.     ENDPROC
  134.         
  135.     PROC WasAnderes
  136.     Parameters Punkt%
  137.         Print "GewΣhlter Menⁿpunkt ";Punkt%
  138.     ENDPROC
  139.  
  140. 'HAUPTPROGRAMM
  141. '-------------
  142.  
  143. REM     WindowTitle "MINI-ADRESS-KARTEI"
  144.     Cls
  145.     Let CR$ = @Chr$(13)
  146.         Let Nr$ = @ReadIni$("ADRESS.DAT","Header","Anzahl")
  147.     Let Nr% = @Val(Nr$)
  148.     If @Equ(Nr%,0)
  149.         WriteIni "ADRESS.DAT","Header","Anzahl"="1"
  150.     EndIf
  151.     Let Ende% = 0
  152.     WhileNot Ende%
  153.          WaitInput
  154.         If @MenuItem(109)
  155.             Let Ende% = 1
  156.         ElseIf @MenuItem(130)
  157.             Info
  158.         ElseIf @MenuItem(254)
  159.             Ueber
  160.         ElseIf @MenuItem(101)
  161.             Hinzufⁿgen
  162.         ElseIf @MenuItem(102)
  163.             Suche
  164.         ElseIf @MenuItem(103)
  165.             Liste
  166.         Else
  167.             WasAnderes %MenuItem
  168.         EndIf
  169.     Wend
  170.     End
  171.  
  172.