256 lines
7.9 KiB
OpenEdge ABL
256 lines
7.9 KiB
OpenEdge ABL
VERSION 1.0 CLASS
|
||
BEGIN
|
||
MultiUse = -1 'True
|
||
Persistable = 0 'NotPersistable
|
||
DataBindingBehavior = 0 'vbNone
|
||
DataSourceBehavior = 0 'vbNone
|
||
MTSTransactionMode = 0 'NotAnMTSObject
|
||
END
|
||
Attribute VB_Name = "CRefZaehlerPruefpunkt"
|
||
Attribute VB_GlobalNameSpace = False
|
||
Attribute VB_Creatable = True
|
||
Attribute VB_PredeclaredId = False
|
||
Attribute VB_Exposed = False
|
||
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
|
||
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
|
||
Option Explicit
|
||
|
||
'lokale Variable(n) zum Zuweisen der Eigenschaft(en)
|
||
Private mvarSerienNr As Long 'lokale Kopie
|
||
Private mvarPruefPunkt As Long 'lokale Kopie
|
||
Private mvarDurchfluss As Double 'lokale Kopie
|
||
Private mvarServoposition As Long 'lokale Kopie
|
||
Private mvarPruefzeit As Long 'lokale Kopie
|
||
Private mvarFehlerGrenzwert_Oben As Double 'lokale Kopie
|
||
Private mvarFehlerGrenzwert_unten As Double 'lokale Kopie
|
||
Private mvarAusfuehren As Boolean 'lokale Kopie
|
||
Private mvarFUStellwert As Integer 'lokale Kopie
|
||
|
||
|
||
'Private mvarServo As Long 'lokale Kopie
|
||
'Private mvarBehaelter As Long 'lokale Kopie
|
||
'Private mvarPruefvolumen As Double 'lokale Kopie
|
||
'Private mvarWaageGrenzwert As Double 'lokale Kopie
|
||
|
||
Public Property Let Ausfuehren(ByVal vData As Boolean)
|
||
mvarAusfuehren = vData
|
||
End Property
|
||
|
||
Public Property Get Ausfuehren() As Boolean
|
||
Ausfuehren = mvarAusfuehren
|
||
End Property
|
||
|
||
Public Property Let FehlerGrenzwert_unten(ByVal vData As Double)
|
||
'wird beim Zuweisen eines Werts zu der Eigenschaft auf der linken Seite einer Zuweisung verwendet.
|
||
'Syntax: X.FehlerGrenzwert_unten = 5
|
||
mvarFehlerGrenzwert_unten = vData
|
||
End Property
|
||
|
||
Public Property Get FehlerGrenzwert_unten() As Double
|
||
Attribute FehlerGrenzwert_unten.VB_UserMemId = 0
|
||
'wird beim Ermitteln eines Eigenschaftswertes auf der rechten Seite einer Zuweisung verwendet.
|
||
'Syntax: Debug.Print X.FehlerGrenzwert_unten
|
||
FehlerGrenzwert_unten = mvarFehlerGrenzwert_unten
|
||
End Property
|
||
|
||
|
||
Public Property Let FehlerGrenzwert_Oben(ByVal vData As Double)
|
||
'wird beim Zuweisen eines Werts zu der Eigenschaft auf der linken Seite einer Zuweisung verwendet.
|
||
'Syntax: X.FehlerGrenzwert_Oben = 5
|
||
mvarFehlerGrenzwert_Oben = vData
|
||
End Property
|
||
|
||
|
||
Public Property Get FehlerGrenzwert_Oben() As Double
|
||
'wird beim Ermitteln eines Eigenschaftswertes auf der rechten Seite einer Zuweisung verwendet.
|
||
'Syntax: Debug.Print X.FehlerGrenzwert_Oben
|
||
FehlerGrenzwert_Oben = mvarFehlerGrenzwert_Oben
|
||
End Property
|
||
|
||
|
||
Public Property Let Pruefzeit(ByVal vData As Long)
|
||
'wird beim Zuweisen eines Werts zu der Eigenschaft auf der linken Seite einer Zuweisung verwendet.
|
||
'Syntax: X.Pruefzeit = 5
|
||
mvarPruefzeit = vData
|
||
End Property
|
||
|
||
Public Property Get Pruefzeit() As Long
|
||
'wird beim Ermitteln eines Eigenschaftswertes auf der rechten Seite einer Zuweisung verwendet.
|
||
'Syntax: Debug.Print X.Pruefzeit
|
||
Pruefzeit = mvarPruefzeit
|
||
End Property
|
||
|
||
'Public Property Let Pruefvolumen(ByVal vData As Double)
|
||
'wird beim Zuweisen eines Werts zu der Eigenschaft auf der linken Seite einer Zuweisung verwendet.
|
||
'Syntax: X.Pruefvolumen = 5
|
||
' mvarPruefvolumen = vData
|
||
'End Property
|
||
|
||
|
||
'Public Property Get Pruefvolumen() As Double
|
||
'wird beim Ermitteln eines Eigenschaftswertes auf der rechten Seite einer Zuweisung verwendet.
|
||
'Syntax: Debug.Print X.Pruefvolumen
|
||
' Pruefvolumen = mvarPruefvolumen
|
||
'End Property
|
||
|
||
|
||
|
||
'Public Property Let Behaelter(ByVal vData As Long)
|
||
'wird beim Zuweisen eines Werts zu der Eigenschaft auf der linken Seite einer Zuweisung verwendet.
|
||
'Syntax: X.Behaelter = 5
|
||
' mvarBehaelter = vData
|
||
'End Property
|
||
|
||
|
||
'Public Property Get Behaelter() As Long
|
||
'wird beim Ermitteln eines Eigenschaftswertes auf der rechten Seite einer Zuweisung verwendet.
|
||
'Syntax: Debug.Print X.Behaelter
|
||
' Behaelter = mvarBehaelter
|
||
'End Property
|
||
|
||
|
||
Public Property Let Servoposition(ByVal vData As Long)
|
||
'wird beim Zuweisen eines Werts zu der Eigenschaft auf der linken Seite einer Zuweisung verwendet.
|
||
'Syntax: X.Servoposition = 5
|
||
mvarServoposition = vData
|
||
End Property
|
||
|
||
|
||
Public Property Get Servoposition() As Long
|
||
'wird beim Ermitteln eines Eigenschaftswertes auf der rechten Seite einer Zuweisung verwendet.
|
||
'Syntax: Debug.Print X.Servoposition
|
||
Servoposition = mvarServoposition
|
||
End Property
|
||
|
||
|
||
'Public Property Let Servo(ByVal vData As Long)
|
||
'wird beim Zuweisen eines Werts zu der Eigenschaft auf der linken Seite einer Zuweisung verwendet.
|
||
'Syntax: X.Servo = 5
|
||
' mvarServo = vData
|
||
'End Property
|
||
|
||
|
||
'Public Property Get Servo() As Long
|
||
'wird beim Ermitteln eines Eigenschaftswertes auf der rechten Seite einer Zuweisung verwendet.
|
||
'Syntax: Debug.Print X.Servo
|
||
' Servo = mvarServo
|
||
'End Property
|
||
|
||
|
||
|
||
Public Property Let Durchfluss(ByVal vData As Double)
|
||
'wird beim Zuweisen eines Werts zu der Eigenschaft auf der linken Seite einer Zuweisung verwendet.
|
||
'Syntax: X.Durchfluss = 5
|
||
mvarDurchfluss = vData
|
||
End Property
|
||
|
||
|
||
Public Property Get Durchfluss() As Double
|
||
'wird beim Ermitteln eines Eigenschaftswertes auf der rechten Seite einer Zuweisung verwendet.
|
||
'Syntax: Debug.Print X.Durchfluss
|
||
Durchfluss = mvarDurchfluss
|
||
End Property
|
||
|
||
Public Property Let Pruefpunkt(ByVal vData As Long)
|
||
'wird beim Zuweisen eines Werts zu der Eigenschaft auf der linken Seite einer Zuweisung verwendet.
|
||
'Syntax: X.PruefPunkt = 5
|
||
mvarPruefPunkt = vData
|
||
End Property
|
||
|
||
|
||
Public Property Get Pruefpunkt() As Long
|
||
'wird beim Ermitteln eines Eigenschaftswertes auf der rechten Seite einer Zuweisung verwendet.
|
||
'Syntax: Debug.Print X.PruefPunkt
|
||
Pruefpunkt = mvarPruefPunkt
|
||
End Property
|
||
|
||
Public Property Get FUStellwert() As Single
|
||
FUStellwert = mvarFUStellwert
|
||
End Property
|
||
|
||
Public Property Let SerienNr(ByVal vData As Long)
|
||
'wird beim Zuweisen eines Werts zu der Eigenschaft auf der linken Seite einer Zuweisung verwendet.
|
||
'Syntax: X.SerienNr = 5
|
||
mvarSerienNr = vData
|
||
End Property
|
||
|
||
Public Property Get SerienNr() As Long
|
||
'wird beim Ermitteln eines Eigenschaftswertes auf der rechten Seite einer Zuweisung verwendet.
|
||
'Syntax: Debug.Print X.SerienNr
|
||
SerienNr = mvarSerienNr
|
||
End Property
|
||
|
||
'Public Property Get WaageGrenzwert() As Double
|
||
'wird beim Ermitteln eines Eigenschaftswertes auf der rechten Seite einer Zuweisung verwendet.
|
||
'Syntax: Debug.Print X.SerienNr
|
||
' WaageGrenzwert = mvarWaageGrenzwert
|
||
'End Property
|
||
|
||
|
||
'Public Function LoadForSerienNrAndNr(lSerienNr As Long, PPNr As Integer)
|
||
'Dim sSQL As String
|
||
'Dim rs As CRecordset
|
||
'On Error GoTo loadErr
|
||
'
|
||
' sSQL = "SELECT * FROM Referenzzaehlerpruefpunkt "
|
||
' sSQL = sSQL & "WHERE "
|
||
' sSQL = sSQL & "SerienNr = " & lSerienNr & " and Pruefpunkt = " & PPNr
|
||
' sSQL = sSQL & ";"
|
||
'
|
||
' Set rs = New CRecordset
|
||
' If Not rs.openRS(sSQL) Then Exit Function
|
||
'
|
||
' If rs.EOF() Then Exit Function
|
||
'
|
||
' LoadForSerienNrAndNr = loadFromRecordset(rs)
|
||
' Exit Function
|
||
'
|
||
'loadErr:
|
||
' Call showError("loadForSerienNrandNr")
|
||
' Exit Function
|
||
'End Function
|
||
|
||
Private Function loadFromRecordset(rs As CRecordset) As Boolean
|
||
On Error GoTo loadFromRecordsetErr
|
||
mvarSerienNr = rs.getLongValue("SerienNr")
|
||
|
||
mvarDurchfluss = rs.getDoubleValue("Durchfluss")
|
||
|
||
mvarPruefzeit = rs.getLongValue("Pruefzeit")
|
||
|
||
mvarFehlerGrenzwert_Oben = rs.getDoubleValue("FehlerGrenzwert_Oben")
|
||
mvarFehlerGrenzwert_unten = rs.getDoubleValue("FehlerGrenzwert_Unten")
|
||
|
||
mvarAusfuehren = rs.getBooleanValue("Ausfuehren")
|
||
|
||
mvarFUStellwert = rs.getIntValue("FUStellwert")
|
||
mvarServoposition = rs.getLongValue("Servoposition")
|
||
|
||
loadFromRecordset = True
|
||
Exit Function
|
||
|
||
loadFromRecordsetErr:
|
||
Call showError("loadFromRecordset")
|
||
Exit Function
|
||
End Function
|
||
|
||
Public Function load(SerienNr As Long, ID As Integer)
|
||
On Error GoTo LoadError
|
||
Dim sSQL As String
|
||
Dim rs As CRecordset
|
||
Set rs = New CRecordset
|
||
|
||
sSQL = "SELECT * from ReferenzzaehlerPruefpunkt where SerienNr=" & SerienNr & " and ID=" & ID & " "
|
||
|
||
rs.openRS (sSQL)
|
||
If rs.RecordCount = 1 Then
|
||
loadFromRecordset rs
|
||
Else
|
||
ErrorMsg "Referenzz<7A>hlerPr<50>fpunkt (" & SerienNr & "/" & ID & ") nicht eindeutig"
|
||
loadFromRecordset rs
|
||
End If
|
||
Exit Function
|
||
LoadError:
|
||
Call showError("load" & Err.Description)
|
||
End Function
|