home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_1_94 / winword / extern2.frm < prev    next >
Text File  |  1993-11-30  |  2KB  |  74 lines

  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Extern2"
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1125
  6.    ClientTop       =   1515
  7.    ClientWidth     =   8415
  8.    Height          =   4425
  9.    Left            =   1065
  10.    LinkMode        =   1  'Quelle
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   8415
  14.    Top             =   1170
  15.    Width           =   8535
  16.    Begin Label Bezeichnung1 
  17.       BorderStyle     =   1  'nicht Σnderbar, einfach
  18.       Caption         =   "Bezeichnung1"
  19.       Height          =   975
  20.       Left            =   480
  21.       TabIndex        =   0
  22.       Top             =   360
  23.       Width           =   2535
  24.    End
  25. End
  26. ' Basic Professionell Ausgabe 1/93
  27. ' Projekt 'EXTERN2'
  28. ' Form: FORM2.FRM
  29. ' Datenbank: EXTERN.DBF (dBASE IV Format)
  30. ' Index - Datei : EXTERN.MDX
  31. '  Alle im Verzeichnis 'C:\BP_194\WORD'
  32. ' INI Datei: EXTERN2.INI im Windows - Verzeichnis
  33. ' Ben÷tigt XBS110.DLL im Windows\System Verzeichnis
  34. ' Besonderheit: Wird von Winword EXTERN.DOT aufgerufen
  35. ' Version fⁿr Professionelle Version Visual Basic 3.0
  36. ' Autor:  Walter Jung  -  Mainz  -  10/93
  37.  
  38. Dim adressen As Database, kunden As table
  39.  
  40. Sub form_linkexecute (cmdstr As String, cancel As Integer)
  41.     cancel = False
  42.     If cmdstr = "ENDE" Then End
  43.     kunden.Seek "=", cmdstr
  44.     If kunden.NoMatch Then
  45.         Bezeichnung1 = ""
  46.     Else
  47.     t = NULLTYP(kunden("Firma")) + Chr(10)
  48.     t = t + NULLTYP(kunden("Anrede")) + " "
  49.     t = t + NULLTYP(kunden("Vorname")) + " "
  50.     t = t + NULLTYP(kunden("Name")) + Chr(10)
  51.     t = t + NULLTYP(kunden("Strasse")) + Chr(10) + Chr(10)
  52.     t = t + NULLTYP(kunden("PLZ")) + " "
  53.     t = t + NULLTYP(kunden("Ort")) + Chr(10)
  54.     Bezeichnung1.Caption = t
  55.     End If
  56.     
  57. End Sub
  58.  
  59. Sub Form_Load ()
  60.     'Pfad auf dBase Datenbank muss gegebenenfalls angepa▀t werden
  61.     Set adressen = OpenDatabase("A:\EXTERN2", False, False, "dbASE IV;")
  62.     Set kunden = adressen.OpenTable("EXTERN")
  63.     kunden.Index = "Nummer"
  64. End Sub
  65.  
  66. Function NULLTYP (feld)
  67.        If IsNull(feld) Then
  68.          NULLTYP = ""
  69.        Else
  70.          NULLTYP = feld
  71.        End If
  72. End Function
  73.  
  74.