151 lines
6.1 KiB
Plaintext
151 lines
6.1 KiB
Plaintext
Imports FastReport
|
|
Imports System.Data.SQLite
|
|
|
|
Public Class FrmDomainEditor
|
|
Dim DataAdapter As Object
|
|
Dim Datatable As Object
|
|
Dim MySpalten As New Utils.Tabellenspalte
|
|
|
|
Dim dt As New DataTable
|
|
|
|
Sub New(ByRef sDataadapter As Object, ByRef sDataTable As Object, ByVal Titel As String)
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.Datatable = sDataTable
|
|
Me.DataAdapter = sDataadapter
|
|
Me.Text = Titel
|
|
If Titel = "Report" Then
|
|
Me.ContextMenuStrip = Me.ctxMenuReport
|
|
End If
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
Private Sub FrmDomainEditor_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
|
Try
|
|
dt = Datatable.GetChanges
|
|
If dt.Rows.Count > 0 Then
|
|
If MsgBox("Daten wurden geändert. Wollen Sie Änderungen speichern?", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
|
Me.DataAdapter.Update(Me.Datatable)
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub FrmDomainEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
DataAdapter.Fill(Datatable)
|
|
Me.C1Daten.DataSource = Datatable
|
|
Me.C1Daten.DataMember = Datatable.TableName
|
|
MySpalten.Spaltentitel_aktualisieren(Me.C1Daten, Datatable.TableName, Datatable)
|
|
|
|
End Sub
|
|
|
|
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
|
|
Me.DataAdapter.Update(Me.Datatable)
|
|
If Me.Text = "Spalten" Then Globals.Spaltendaten.Rows.Clear()
|
|
End Sub
|
|
Private Sub C1Daten_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1Daten.AfterColUpdate
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
|
|
Dim i As Integer
|
|
Try
|
|
For i = 0 To Me.C1Daten.Columns.Count - 1
|
|
If LCase(Me.C1Daten.Columns(i).DataField) = "mutiert_am" Then Me.C1Daten.Columns(i).Value = Now
|
|
If LCase(Me.C1Daten.Columns(i).DataField) = "mutierer" Then Me.C1Daten.Columns(i).Value = 1
|
|
Next
|
|
Dim key As Integer
|
|
|
|
If Me.C1Daten.Columns(0).Value Is DBNull.Value Then
|
|
Dim dv As New DataView(Datatable, "", Datatable.columns(0).Caption + " desc", DataViewRowState.CurrentRows)
|
|
If dv.Count < 1 Then
|
|
Me.C1Daten.Columns(0).Value = 1
|
|
Else
|
|
For Each dr As DataRowView In dv
|
|
key = dr.Item(0) + 1
|
|
Me.C1Daten.Columns(0).Value = key
|
|
'MsgBox(dr.Item(0))
|
|
Exit For
|
|
Next
|
|
End If
|
|
|
|
For i = 0 To Me.C1Daten.Columns.Count - 1
|
|
If LCase(Me.C1Daten.Columns(i).DataField) = "erstellt_am" Then
|
|
Me.C1Daten.Columns(i).Value = Now
|
|
End If
|
|
If LCase(Me.C1Daten.Columns(i).DataField) = "aktiv" Then
|
|
Me.C1Daten.Columns(i).Value = 1
|
|
End If
|
|
Next
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub ReportDatenbankToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportDatenbankToolStripMenuItem.Click
|
|
Me.OpenFileDialog1.Filter = "Report-Dateien|*.frx|Alle Dateien|*.*"
|
|
Me.OpenFileDialog1.ShowDialog()
|
|
If Me.OpenFileDialog1.FileName <> "" Then
|
|
Dim dms As New DocMgMt
|
|
dms.Save_RptDatei(Me.C1Daten.Columns("ReportNr").Value, Me.OpenFileDialog1.FileName)
|
|
dms = Nothing
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DatenbankReportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatenbankReportToolStripMenuItem.Click
|
|
Me.SaveFileDialog1.Filter = "Report-Dateien|*.frx|Alle Dateien|*.*"
|
|
Me.SaveFileDialog1.ShowDialog()
|
|
If Me.SaveFileDialog1.FileName <> "" Then
|
|
Dim dms As New DocMgMt
|
|
|
|
dms.Get_RptDatei(Me.C1Daten.Columns("ReportNr").Value, Me.SaveFileDialog1.FileName)
|
|
dms = Nothing
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub ReportDesignerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportDesignerToolStripMenuItem.Click
|
|
Dim allg As New clsAllgemein
|
|
Dim dms As New DocMgMt
|
|
Dim Path As String = allg.Get_Option(1)
|
|
|
|
Dim sql As String = allg.Get_SQL_Statement(Me.C1Daten.Columns("ReportNr").Value)
|
|
If sql.Substring(0, 1) = "[" Then
|
|
sql = sql.Replace("[", "")
|
|
sql = sql.Replace("]", "")
|
|
sql = allg.Get_SQLAbfrage_Statement(sql)
|
|
|
|
End If
|
|
Dim filename As String = dms.Get_RptDatei(Me.C1Daten.Columns("ReportNr").Value)
|
|
Dim selectFirst As Boolean = False
|
|
Dim ds As New DataSet
|
|
Dim SQLconnect As New SQLite.SQLiteConnection()
|
|
SQLconnect.ConnectionString = My.Settings.LPConnectionString & ";"
|
|
SQLconnect.Open()
|
|
Dim da As New SQLiteDataAdapter("", SQLconnect)
|
|
Dim sqlcmd As New SQLiteCommand
|
|
sqlcmd.Connection = SQLconnect
|
|
sqlcmd.CommandType = CommandType.Text
|
|
sqlcmd.CommandText = sql
|
|
da.SelectCommand = sqlcmd
|
|
da.Fill(ds, "Daten")
|
|
sqlcmd.Dispose()
|
|
SQLconnect.Close()
|
|
Dim report As New Report
|
|
If filename <> "" Then report.Load(filename)
|
|
report.RegisterData(ds)
|
|
report.GetDataSource("Daten").Enabled = True
|
|
report.Design()
|
|
report.Dispose()
|
|
End Sub
|
|
End Class |