A Study of Gage Repeatability and Reproducibility for Automated Measuring Systems using VB.NET

'Author  : Syed Shanu
'Company : Telstar-Hommel
'Date    : 2007-06-25
'Description :This Class is  used as flow which is called as Data Access Layer.Data from UI will come to this class and then to business Logic
Public Class comandatasetflow
    Dim comandatasetprocessobj As New comandatasetprocess
    'Sample function For retrive dataset
    'Created by shanu on 2007-06-25 this function is for retriving only the last inserted eng no.
    Public Function fillengNumFlow() As DataSet
        Try
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillEngNumProcess()
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    'Created by shanu on 2007-06-25 this function for retriving the rank details by engnum
    Public Function fillRankDetailDataset(ByVal engnum As String) As DataSet
        Try
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillRankDetailDatasetProcess(engnum)
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    'Created by shanu on 2007-06-26 this function filling the the search result
    Public Function fillengDetailDataset(ByVal Type As Integer, ByVal engnum As String) As DataSet
        Try
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillengDetailDatasetProcess(Type, engnum)
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    'Created by shanu on 2007-06-26 this function filling the detail datas.
    Public Function fillexdetailDataFlow(ByVal engnum As String) As DataSet
        Try
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillexdetailDataProcess(engnum)
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    'Created By Snanu on 2007-06-27 for the todal data fill
    Public Function fillTotalDataFlow(ByVal Type As Integer, ByVal qrytyp As Integer, ByVal engnum As String, ByVal dte As String) As DataSet
        Try
            ' Dim ds As New DataTable
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillTotalDataProcess(Type, qrytyp, engnum, dte)
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    'Created By Snanu on 2007-06-27 for the todal data fill
    Public Function fillRepeatTotalDataFlow(ByVal Type As Integer, ByVal qrytyp As Integer, ByVal engnum As String) As DataSet
        Try
            ' Dim ds As New DataTable
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillRepeatDataProcess(Type, qrytyp, engnum)
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    'Sample function For Update Data
    '''Public Function UpdateItemflow(ByVal updateval As String, ByVal engnum As String) As Integer
    '''    Dim ival As Integer
    '''    ival = comandatasetprocessobj.UpdateItemflowprocess(updateval, engnum)
    '''End Function
    ' Created by Shanu on 2007-06-26 for update the rank and in and ex repair by eng num
    Public Function UpdateRankflow(ByVal engnum As String, ByVal updateval As String, ByVal updateField As String, ByVal rankcheck As Boolean) As Integer
        Dim ival As Integer
        ival = comandatasetprocessobj.UpdateRankflowprocess(engnum, updateval, updateField, rankcheck)
    End Function
    'Created by shanu on 2007-08-06 this function filling the the Column Names in the Listview
    Public Function fillColumnNames() As DataSet
        Try
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillColumnNamesProcess()
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    Public Function fillspcData(ByVal fromdte As String, ByVal todte As String, ByVal columnname As String) As DataSet
        Try
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillspcDataProcess(fromdte, todte, columnname)
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    Public Function fillParetoData(ByVal fromdte As String, ByVal todte As String, ByVal columnname As String, ByVal type As String) As DataSet
        Try
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillParetoDataProcess(fromdte, todte, columnname, type)
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    'Created By Snanu on 2007-08-16 for loading ColumnNames and the EngNos
    Public Function fillLoadListDataFlow(ByVal tblName As String, ByVal Typ As Integer) As DataSet
        Try
            ' Dim ds As New DataTable
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillLoadListProcess(tblName, Typ)
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    'Created By Snanu on 2007-08-16 for loading ColumnNames and the EngNos
    Public Function fillLoadListDataFlowName(ByVal tblName As String) As DataSet
        Try
            ' Dim ds As New DataTable
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillLoadListProcessName(tblName)
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    'Created By Snanu on 2007-08-16 for loading ColumnNames and the EngNos
    Public Function fillLoadRRGridDataFlow(ByVal partType As String, ByVal tblname As String, ByVal engnum As String) As DataSet
        Try
            ' Dim ds As New DataTable
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillLoadRRGridDataProcessName(partType, tblname, engnum)
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    'Created By Snanu on 2007-09-18 for check wethere standard record is inserted or not
    Public Function fillStandardCheckFlow(ByVal chkStandardType As String) As DataSet
        Try
            ' Dim ds As New DataTable
            Dim ds As New DataSet
            ds = comandatasetprocessobj.fillRepeatDataProcess(chkStandardType)
            Return (ds)
        Catch ex As Exception
        End Try
    End Function
    ' Created by Shanu on 2007-06-26 for update the rank and in and ex repair by eng num
    Public Function UpdateStandardflow(ByVal standardType As String, ByVal qrytype As Integer, ByVal lsl As Double, ByVal offset As Double, ByVal usl As Double) As Integer
        Dim ival As Integer
        ival = comandatasetprocessobj.UpdateStandardflowprocess(standardType, qrytype, lsl, offset, usl)
    End Function
End Class