home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_1_94 / winword / extern1.frm < prev    next >
Text File  |  1993-10-29  |  3KB  |  92 lines

  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "EXTERN1"
  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 Data Daten1 
  17.       Caption         =   "Daten1"
  18.       Connect         =   ""
  19.       DatabaseName    =   ""
  20.       Exclusive       =   0   'False
  21.       Height          =   735
  22.       Left            =   1200
  23.       Options         =   0
  24.       ReadOnly        =   0   'False
  25.       RecordSource    =   ""
  26.       Top             =   2760
  27.       Width           =   2055
  28.    End
  29.    Begin Label Bezeichnung1 
  30.       BorderStyle     =   1  'nicht Σnderbar, einfach
  31.       Caption         =   "Bezeichnung1"
  32.       Height          =   975
  33.       Left            =   480
  34.       TabIndex        =   0
  35.       Top             =   360
  36.       Width           =   2535
  37.    End
  38. End
  39. ' Basic Professionell Ausgabe 1/93
  40. ' Projekt 'EXTERN1'
  41. ' Form: FORM1.FRM
  42. ' Datenbank: EXTERN.DBF (dBASE IV Format)
  43. ' Index - Datei: EXTERN.MDX
  44. ' Alle im Verzeichnis 'C:\BP_194\WORD'
  45. ' INI Datei: EXTERN1.INI im Windows - Verzeichnis
  46. ' Ben÷tigt XBS110.DLL im Windows\System Verzeichnis
  47. ' Besonderheit: Wird von Winword EXTERN.DOT aufgerufen
  48. ' Version fⁿr Standard Version Visual Basic 3.0
  49. ' Autor:  Walter Jung  -  Mainz  -  10/93
  50.  
  51. Dim pfad As String, Tabelle As String * 255, a As Integer
  52. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  53.  
  54. Sub form_linkexecute (cmdstr As String, cancel As Integer)
  55.     cancel = False
  56.     If cmdstr = "ENDE" Then End
  57.     Kriterien = "[Nummer] = " + Chr(39) + cmdstr + Chr(39)
  58.     daten1.Recordset.FindFirst Kriterien
  59.     If daten1.Recordset.NoMatch Then
  60.         Bezeichnung1 = ""
  61.     Else
  62.     t = NULLTYP(daten1.Recordset.Fields("Firma")) + Chr(10)
  63.     t = t + NULLTYP(daten1.Recordset.Fields("Anrede")) + " "
  64.     t = t + NULLTYP(daten1.Recordset.Fields("Vorname")) + " "
  65.     t = t + NULLTYP(daten1.Recordset.Fields("Name")) + Chr(10)
  66.     t = t + NULLTYP(daten1.Recordset.Fields("Strasse")) + Chr(10) + Chr(10)
  67.     t = t + NULLTYP(daten1.Recordset.Fields("PLZ")) + " "
  68.     t = t + NULLTYP(daten1.Recordset.Fields("Ort")) + Chr(10)
  69.     Bezeichnung1.Caption = t
  70.     End If
  71.     
  72. End Sub
  73.  
  74. Sub Form_Load ()
  75.     pfad = Space(255)
  76.     a = GetPrivateProfileString("Datenbank", "Pfad", "C:\BP_194\Word", pfad, 255, "c:\windows\extern1.ini")
  77.     a = GetPrivateProfileString("Datenbank", "Tabelle", "C:\BP_194\Word", Tabelle, 255, "c:\windows\extern1.ini")
  78.     daten1.DatabaseName = pfad
  79.     daten1.RecordSource = Tabelle
  80.     daten1.Connect = "dBASE IV"
  81.     daten1.Refresh
  82. End Sub
  83.  
  84. Function NULLTYP (feld)
  85.        If IsNull(feld) Then
  86.          NULLTYP = ""
  87.        Else
  88.          NULLTYP = feld
  89.        End If
  90. End Function
  91.  
  92.