home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
bp_1_94
/
winword
/
extern2.frm
< prev
next >
Wrap
Text File
|
1993-11-30
|
2KB
|
74 lines
VERSION 2.00
Begin Form Form1
Caption = "Extern2"
ClientHeight = 4020
ClientLeft = 1125
ClientTop = 1515
ClientWidth = 8415
Height = 4425
Left = 1065
LinkMode = 1 'Quelle
LinkTopic = "Form1"
ScaleHeight = 4020
ScaleWidth = 8415
Top = 1170
Width = 8535
Begin Label Bezeichnung1
BorderStyle = 1 'nicht Σnderbar, einfach
Caption = "Bezeichnung1"
Height = 975
Left = 480
TabIndex = 0
Top = 360
Width = 2535
End
End
' Basic Professionell Ausgabe 1/93
' Projekt 'EXTERN2'
' Form: FORM2.FRM
' Datenbank: EXTERN.DBF (dBASE IV Format)
' Index - Datei : EXTERN.MDX
' Alle im Verzeichnis 'C:\BP_194\WORD'
' INI Datei: EXTERN2.INI im Windows - Verzeichnis
' Ben÷tigt XBS110.DLL im Windows\System Verzeichnis
' Besonderheit: Wird von Winword EXTERN.DOT aufgerufen
' Version fⁿr Professionelle Version Visual Basic 3.0
' Autor: Walter Jung - Mainz - 10/93
Dim adressen As Database, kunden As table
Sub form_linkexecute (cmdstr As String, cancel As Integer)
cancel = False
If cmdstr = "ENDE" Then End
kunden.Seek "=", cmdstr
If kunden.NoMatch Then
Bezeichnung1 = ""
Else
t = NULLTYP(kunden("Firma")) + Chr(10)
t = t + NULLTYP(kunden("Anrede")) + " "
t = t + NULLTYP(kunden("Vorname")) + " "
t = t + NULLTYP(kunden("Name")) + Chr(10)
t = t + NULLTYP(kunden("Strasse")) + Chr(10) + Chr(10)
t = t + NULLTYP(kunden("PLZ")) + " "
t = t + NULLTYP(kunden("Ort")) + Chr(10)
Bezeichnung1.Caption = t
End If
End Sub
Sub Form_Load ()
'Pfad auf dBase Datenbank muss gegebenenfalls angepa▀t werden
Set adressen = OpenDatabase("A:\EXTERN2", False, False, "dbASE IV;")
Set kunden = adressen.OpenTable("EXTERN")
kunden.Index = "Nummer"
End Sub
Function NULLTYP (feld)
If IsNull(feld) Then
NULLTYP = ""
Else
NULLTYP = feld
End If
End Function