AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS 19.08

Browse Source
This commit is contained in:
SchreiberM
2015-08-19 14:36:21 +02:00
parent 1910ac0a74
commit 524552a2da
25 changed files with 3961 additions and 3397 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
Global_Indexer/frmHistory.vb
View File

@@ -1,10 +1,54 @@
Public Class frmHistory
Private Sub frmHistory_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen.
Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBGI_HISTORYTableAdapter.Fill(Me.MyDataset.TBGI_HISTORY, user)
LoadData_Today()
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Try
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen.
Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBGI_HISTORYTableAdapter.FillByAll(Me.MyDataset.TBGI_HISTORY, user)
Catch ex As Exception
MsgBox("Error loading All Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
LoadData_Today()
End Sub
Sub LoadData_Today()
Try
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen.
Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBGI_HISTORYTableAdapter.FillToday(Me.MyDataset.TBGI_HISTORY, user)
Catch ex As Exception
MsgBox("Error loading Today Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
Dim saveFileDialog1 As New SaveFileDialog
saveFileDialog1.Filter = "Excel (*.xls)|*.xls|Excel (*.xlsx)|*.xlsx"
saveFileDialog1.Title = "Export to Excel:"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
Cursor = Cursors.WaitCursor
If saveFileDialog1.FileName.EndsWith("xlsx") Then
GridView1.ExportToXlsx(saveFileDialog1.FileName)
Else
GridView1.ExportToXls(saveFileDialog1.FileName)
End If
Dim result As MsgBoxResult
result = MessageBox.Show("Datei wurde erstellt! Wollen Sie diese nun öffnen?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(saveFileDialog1.FileName)
End If
End If
Cursor = Cursors.Default
End Sub
End Class