26 lines
933 B
VB.net
26 lines
933 B
VB.net
Imports clsNativ
|
|
Public Class Form1
|
|
|
|
Dim cs As String = "data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"
|
|
Dim MA As Integer = 1
|
|
Dim dm As New clsNativ.clsNativeDok
|
|
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Private Sub Volagenauswahl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Volagenauswahl.Click
|
|
dm.Connectionstring = cs
|
|
dm.Mitarbeiternr = MA
|
|
dm.Parentform = Me
|
|
dm.Show_DokSelect()
|
|
|
|
End Sub
|
|
|
|
Private Sub VorlagenManager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VorlagenManager.Click
|
|
dm.Connectionstring = cs
|
|
dm.Mitarbeiternr = MA
|
|
dm.Parentform = Me
|
|
dm.Show_DokVorlagen()
|
|
End Sub
|
|
End Class
|