|
' Author : Syed Shanu
'Date : 2007-06-25
'Company : Telstar-Hommel
'Description : This is a Module to store the comman used variables as global variables
Module CommanVariable
'Comman Variable Declarations
'Created by Shanu on 2007-06-25 for the checking of which Menu is Clicked
Public MenuClickCheckExists As Integer = 0
''Created by Shanu on 2007-06-25 for Displaying MessageBox Message.
Public msgNum As Integer = 0
Public msgBoxNum As Integer = 0
Public msgString As String = ""
'Created by Shanu on 2007-06-25 for the checking where the Db is connected or Not
Public dbConChk As Boolean = False
'Variable Declaration for KeyPad
'Created by Shanu on 2007-06-26 for the storing and displaying the Keypad text in Form
Public keyPadText As String = ""
'Created by Shanu on 2007-06-26 for the checking the KepPad is On Or OFF
Public kepadon As Boolean = False
' this is for numeric Key pad Comman Variable
Public numkeyPadText As String = ""
'Created by Shanu on 2007-06-26 for the checking the NumericKepPad is On Or OFF
Public numkepadon As Boolean = False
'Created by Shanu on 2007-06-26 for the global assing of the engno toupdate the rank
Public updateEngNum As String = ""
'Created by Shanu on 2007-06-26 for the assing the rank alter fieldname
Public UpdateRankField As String = ""
Public rankUpdatetxtName As String = ""
Public AutorankUpdate As Boolean = False
'For plc checking
Public rankcheck As Boolean = False
Public spcDataArray As Double()
Public spcDataArrayengnum As String()
Public paretoDataArray As Double()
Public paretoDataArrayengnum As String()
Public chartname As String
Public rdoDisplay As Boolean = False
Public rdoSettings As Boolean = False
' Dim cmdFlowObj1 As New comandatasetflow
'Public repeadDataSet As New DataSet
'Public Function repeatDatasetFill(ByVal Type As Integer, ByVal qrytyp As Integer, ByVal searchval As String)
' Try
' ' Dim ds As New DataTable
' Dim ds As New DataSet
' repeadDataSet = cmdFlowObj1.fillRepeatTotalDataFlow(Type, qrytyp, searchval)
' 'Return (ds)
' Catch ex As Exception
' End Try
'End Function
End Module
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.