52 lines
2.2 KiB
Plaintext
52 lines
2.2 KiB
Plaintext
Public Class clsAllgemein
|
|
Dim OptionTableAdapter As New LPDataSetTableAdapters.OptionenTableAdapter
|
|
Dim lpdataset As New LP.LPDataSet
|
|
Dim ReportTableAdapter As New LPDataSetTableAdapters.ReportTableAdapter
|
|
Dim BerufTableadapter As New LPDataSetTableAdapters.BerufTableAdapter
|
|
Dim SchuelerberufTableadatper As New LPDataSetTableAdapters.SchuelerBerufTableAdapter
|
|
Dim SQLAbfrageTableAdapter As New LPDataSetTableAdapters.SQLAbfragenTableAdapter
|
|
|
|
Public Function Get_Option(ByVal onr As Integer) As String
|
|
Try
|
|
OptionTableAdapter.FillByOptionNr(lpdataset.Optionen, onr)
|
|
Dim option_tablerow As LPDataSet.OptionenRow
|
|
option_tablerow = lpdataset.Optionen.Rows(0)
|
|
Return option_tablerow.Inhalt
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Function
|
|
|
|
Public Function Get_SQL_Statement(ByVal Reportnr As Integer) As String
|
|
ReportTableAdapter.FillByReportNr(lpdataset.Report, Reportnr)
|
|
Dim Report_tablerow As LPDataSet.ReportRow
|
|
Report_tablerow = lpdataset.Report.Rows(0)
|
|
Return Report_tablerow.SQL_Statement
|
|
End Function
|
|
|
|
Public Function Check_Beruf(ByVal berufnr As Integer) As Boolean
|
|
BerufTableadapter.FillByBerufNr(lpdataset.Beruf, berufnr)
|
|
Dim beruf_tablerow As LPDataSet.BerufRow
|
|
If lpdataset.Beruf.Rows.Count < 1 Then Return False Else Return True
|
|
End Function
|
|
|
|
Public Function GetLastPrio(ByVal schuelernr As Integer) As Integer
|
|
SchuelerberufTableadatper.FillBySchuelerPrio(lpdataset.SchuelerBeruf, schuelernr)
|
|
Dim sb_tablerow As LPDataSet.SchuelerBerufRow
|
|
If lpdataset.SchuelerBeruf.Rows.Count < 1 Then
|
|
|
|
Return 0
|
|
Else
|
|
sb_tablerow = lpdataset.SchuelerBeruf.Rows(0)
|
|
Return sb_tablerow.Prioritaet
|
|
End If
|
|
End Function
|
|
|
|
Public Function Get_SQLAbfrage_Statement(ByVal Statementnr As Integer) As String
|
|
SQLAbfrageTableAdapter.FillBySQLNr(lpdataset.SQLAbfragen, Statementnr)
|
|
Dim sqlrow As LPDataSet.SQLAbfragenRow
|
|
sqlrow = lpdataset.SQLAbfragen.Rows(0)
|
|
Return sqlrow.SQLScript
|
|
End Function
|
|
End Class
|