[Visual Basic] Public Function Save_MAParameter( _
ByVal auswertungnr As Integer, _
ByVal Bezeichnung As String, _
ByVal Parameter As String, _
ByVal Titel1 As String, _
ByVal Titel2 As String, _
ByVal PrintParam As Boolean _
) As Object
[Visual Basic] Public Function Save_MAParameter(ByVal auswertungnr As Integer, ByVal Bezeichnung As String, ByVal Parameter As String, ByVal Titel1 As String, ByVal Titel2 As String, ByVal PrintParam As Boolean)
Me.Mitarbeiter_Auswerungsparameter.cpMainConnectionProvider = Globals.conn
Me.Mitarbeiter_Auswerungsparameter.iAuswertungNr = New SqlInt32(CType(auswertungnr, Int32))
Me.Mitarbeiter_Auswerungsparameter.iMitarbeiterNr = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
Me.Mitarbeiter_Auswerungsparameter.sBeschreibung = New SqlString(CType(Bezeichnung, String))
Me.Mitarbeiter_Auswerungsparameter.sParameterdaten = New SqlString(CType(Parameter, String))
Me.Mitarbeiter_Auswerungsparameter.sTitelzeile1 = New SqlString(CType(Titel1, String))
Me.Mitarbeiter_Auswerungsparameter.sTitelzeile2 = New SqlString(CType(Titel2, String))
If PrintParam = True Then
Me.Mitarbeiter_Auswerungsparameter.bParamPrint = New SqlBoolean(CType(True, Boolean))
Else
Me.Mitarbeiter_Auswerungsparameter.bParamPrint = New SqlBoolean(CType(False, Boolean))
End If
Globals.conn.OpenConnection()
Me.Mitarbeiter_Auswerungsparameter.Insert()
Globals.conn.CloseConnection(True)
Me.MitarbeiterAuswertungsparameter = Me.Get_MAParameter(auswertungnr)
End Function
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition