wdatimesheets.vb

来自「数据库学习的绝好例子简单的数据库经典入门」· VB 代码 · 共 41 行

Public Class WDATimeSheets
    Inherits WDABase

#Region " Constructor and Destructor "
    Public Sub New(ByVal Company As String, ByVal Application As String)
        MyBase.New(Company, Application)
    End Sub

    Public Shadows Sub Dispose()
        MyBase.Dispose()
    End Sub
#End Region

#Region " Public Timesheet Functions "
    Public Function AddTimeSheet(ByVal TimeSheet As DataSet) As Boolean
        Try
            'Clear previous Command just in case it has been set
            MyBase.Command = Nothing
            MyBase.SQL = "usp_InsertTimeSheet"
            'Initialize the Command object
            MyBase.InitializeCommand()
            'Add the Parameters to the Parameters collection
            MyBase.AddParameter("@TimeSheetID", _
                SqlDbType.UniqueIdentifier, 16, _
                TimeSheet.Tables("TimeSheet").Rows(0).Item("TimeSheetID"))
            MyBase.AddParameter("@UserID", _
                SqlDbType.UniqueIdentifier, 16, _
                TimeSheet.Tables("TimeSheet").Rows(0).Item("UserID"))
            MyBase.AddParameter("@WeekEndingDate", _
                SqlDbType.DateTime, 8, _
                TimeSheet.Tables("TimeSheet").Rows(0).Item("WeekEndingDate"))
            'Execute the stored procedure
            AddTimeSheet = ExecuteStoredProcedure()
        Catch ExceptionErr As Exception
            Throw New System.Exception(ExceptionErr.Message, _
            ExceptionErr.InnerException)
        End Try
    End Function
#End Region
End Class