-
Notifications
You must be signed in to change notification settings - Fork 0
/
clsFaecherHalbjahr.cls
205 lines (161 loc) · 4.93 KB
/
clsFaecherHalbjahr.cls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "clsFaecherHalbjahr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Compare Database
Option Explicit
'Klassenmodul für das Objekt Schüler und seine Haljahresleistungen
Private lngUid As Long
Private lngSchuelerUid As Long
Private lngFachUid As Long
Private lngKlassengruppeUid As Long
Private lngJahrgangsstufeUid As Long
Private lngSchulartUid As Long
Private strFach As String
'Variablen für Halbjahresleistungen
Private varVklHj1 As Variant
Private varVklHj2 As Variant
Private var11Hj1 As Variant
Private var11Hj2 As Variant
Private var12Hj1 As Variant
Private var12Hj2 As Variant
Private var13Hj1 As Variant
Private var13Hj2 As Variant
'Variablen für Halbjahresleistungen eingebracht
Private boo11Hj1 As Boolean
Private boo11Hj2 As Boolean
Private boo12Hj1 As Boolean
Private boo12Hj2 As Boolean
Private boo13Hj1 As Boolean
Private boo13Hj2 As Boolean
Public Property Get uid() As Long
uid = lngUid
End Property
Public Property Let uid(ByVal vNewValue As Long)
lngUid = vNewValue
End Property
Public Property Get schueler_uid() As Long
schueler_uid = lngSchuelerUid
End Property
Public Property Let schueler_uid(ByVal vNewValue As Long)
lngSchuelerUid = vNewValue
End Property
Public Property Get fach_uid() As Long
fach_uid = lngFachUid
End Property
Public Property Let fach_uid(ByVal vNewValue As Long)
lngFachUid = vNewValue
End Property
Public Property Get klassengruppe_uid() As Long
klassengruppe_uid = lngKlassengruppeUid
End Property
Public Property Let klassengruppe_uid(ByVal vNewValue As Long)
lngKlassengruppeUid = vNewValue
End Property
Public Property Let jahrgangsstufe_uid(ByVal vNewValue As Long)
lngJahrgangsstufeUid = vNewValue
End Property
Public Property Get jahrgangsstufe_uid() As Long
jahrgangsstufe_uid = lngJahrgangsstufeUid
End Property
Public Property Let schulart_uid(ByVal vNewValue As Long)
lngSchulartUid = vNewValue
End Property
Public Property Get schulart_uid() As Long
schulart_uid = lngSchulartUid
End Property
Public Property Let fach(ByVal vNewValue As String)
strFach = vNewValue
End Property
Public Property Get fach() As String
fach = strFach
End Property
Public Property Get n_vkl_hj1() As Variant
n_vkl_hj1 = varVklHj1
End Property
Public Property Let n_vkl_hj1(ByVal vNewValue As Variant)
varVklHj1 = vNewValue
End Property
Public Property Get n_vkl_hj2() As Variant
n_vkl_hj2 = varVklHj2
End Property
Public Property Let n_vkl_hj2(ByVal vNewValue As Variant)
varVklHj2 = vNewValue
End Property
Public Property Get n_11_hj1() As Variant
n_11_hj1 = var11Hj1
End Property
Public Property Let n_11_hj1(ByVal vNewValue As Variant)
var11Hj1 = vNewValue
End Property
Public Property Get n_11_hj2() As Variant
n_11_hj2 = var11Hj2
End Property
Public Property Let n_11_hj2(ByVal vNewValue As Variant)
var11Hj2 = vNewValue
End Property
Public Property Get n_12_hj1() As Variant
n_12_hj1 = var12Hj1
End Property
Public Property Let n_12_hj1(ByVal vNewValue As Variant)
var12Hj1 = vNewValue
End Property
Public Property Get n_12_hj2() As Variant
n_12_hj2 = var12Hj2
End Property
Public Property Let n_12_hj2(ByVal vNewValue As Variant)
var12Hj2 = vNewValue
End Property
Public Property Get n_13_hj1() As Variant
n_13_hj1 = var13Hj1
End Property
Public Property Let n_13_hj1(ByVal vNewValue As Variant)
var13Hj1 = vNewValue
End Property
Public Property Get n_13_hj2() As Variant
n_13_hj2 = var13Hj2
End Property
Public Property Let n_13_hj2(ByVal vNewValue As Variant)
var13Hj2 = vNewValue
End Property
Public Property Get ein_11_hj1() As Boolean
ein_11_hj1 = boo11Hj1
End Property
Public Property Let ein_11_hj1(ByVal vNewValue As Boolean)
boo11Hj1 = vNewValue
End Property
Public Property Get ein_11_hj2() As Boolean
ein_11_hj2 = boo11Hj2
End Property
Public Property Let ein_11_hj2(ByVal vNewValue As Boolean)
boo11Hj2 = vNewValue
End Property
Public Property Get ein_12_hj1() As Boolean
ein_12_hj1 = boo12Hj1
End Property
Public Property Let ein_12_hj1(ByVal vNewValue As Boolean)
boo12Hj1 = vNewValue
End Property
Public Property Get ein_12_hj2() As Boolean
ein_12_hj2 = boo12Hj2
End Property
Public Property Let ein_12_hj2(ByVal vNewValue As Boolean)
boo12Hj2 = vNewValue
End Property
Public Property Get ein_13_hj1() As Boolean
ein_13_hj1 = boo13Hj1
End Property
Public Property Let ein_13_hj1(ByVal vNewValue As Boolean)
boo13Hj1 = vNewValue
End Property
Public Property Get ein_13_hj2() As Boolean
ein_13_hj2 = boo13Hj2
End Property
Public Property Let ein_13_hj2(ByVal vNewValue As Boolean)
boo13Hj2 = vNewValue
End Property