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ählerPrüfpunkt (" & SerienNr & "/" & ID & ") nicht eindeutig"
|
|
loadFromRecordset rs
|
|
End If
|
|
Exit Function
|
|
LoadError:
|
|
Call showError("load" & Err.Description)
|
|
End Function
|