Ideensammlung Urlaubsplaner

  • VB.NET
  • .NET (FX) 4.0

Es gibt 44 Antworten in diesem Thema. Der letzte Beitrag () ist von tragl.

    Kasi schrieb:

    Hier eine Idee für Gesamtübersicht mit Datagridview


    Hey, das würde sich gut zum Eintragen für den einzelnen Mitarbeiter machen, kannst du mir ne Sample-Solution dazu anhängen?
    Ansonsten ist mein Planer tatsächlich dafür gedacht, für etliche Mitarbeiter / diverse Standorte, Abteilungen etc. alles einzutragen und anzuzeigen.
    Die Anzeige regeln die ListViews in "Übersicht"

    LG
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    sehe ich das richtig das du alles 12x(also je Monat) erstellst ?

    hast du schon mal mit PIVOT gearbeitet?
    habe hier ein paar Tabellen mit Daten gefüllt
    hier der Enwurf


    und das ergebnis


    die SQL Anweisung sieht so aus

    VB.NET-Quellcode

    1. TRANSFORM First(tbl_Grund.GR_Kuerzel) AS ErsterWertvonGR_Kuerzel
    2. SELECT Format([TA_Datum],"yyyy") AS Jahr, Format([TA_Datum],"mmm") AS Monat, tbl_Mitarbeiter.MA_Name AS Mitarbeiter, tbl_Abteilung.AB_Beizeichnung AS Abteilung
    3. FROM tbl_Grund INNER JOIN ((tbl_Abteilung INNER JOIN tbl_Mitarbeiter ON tbl_Abteilung.AB_ID = tbl_Mitarbeiter.AB_ID) INNER JOIN tbl_Tage ON (tbl_Mitarbeiter.MA_ID = tbl_Tage.MA_ID) AND (tbl_Abteilung.AB_ID = tbl_Tage.AB_ID)) ON tbl_Grund.GR_ID = tbl_Tage.GR_ID
    4. GROUP BY Format([TA_Datum],"yyyy"), Format([TA_Datum],"mmm"), tbl_Mitarbeiter.MA_Name, tbl_Abteilung.AB_Beizeichnung, tbl_Abteilung.AB_ID
    5. PIVOT Format([TA_Datum],"dd") In ("01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31");


    Vorteil : ist du kannst jetzt per Jahr Monat und Abteilung Filtern

    Nachteil : du kannst hier nix bearbeiten, ist nur die Übersicht



    in .Net mit DGV

    VB.NET-Quellcode

    1. Imports System.Data.OleDb
    3. Public Class Pivot
    5. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    7. Dim FrozenColumsCount As Integer = 4
    8. Dim Ssql As String = "TRANSFORM First(tbl_Grund.GR_Kuerzel) AS ErsterWertvonGR_Kuerzel"
    9. Ssql &= " SELECT Format([TA_Datum],'yyyy') AS Jahr, Format([TA_Datum],'mmm') AS Monat, "
    10. Ssql &= " tbl_Mitarbeiter.MA_Name AS Mitarbeiter, tbl_Abteilung.AB_Beizeichnung AS Abteilung"
    11. Ssql &= " FROM tbl_Grund INNER JOIN ((tbl_Abteilung INNER JOIN tbl_Mitarbeiter ON"
    12. Ssql &= " tbl_Abteilung.AB_ID = tbl_Mitarbeiter.AB_ID) INNER JOIN tbl_Tage ON"
    13. Ssql &= " (tbl_Mitarbeiter.MA_ID = tbl_Tage.MA_ID) AND (tbl_Abteilung.AB_ID = tbl_Tage.AB_ID)) ON"
    14. Ssql &= " tbl_Grund.GR_ID = tbl_Tage.GR_ID"
    15. Ssql &= " GROUP BY Format([TA_Datum],'yyyy'),"
    16. Ssql &= " Format([TA_Datum],'mmm'), tbl_Mitarbeiter.MA_Name,"
    17. Ssql &= " tbl_Abteilung.AB_Beizeichnung,tbl_Abteilung.AB_ID"
    18. Ssql &= " PIVOT Format([TA_Datum],'dd') In"
    19. Ssql &= " ('01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','25','26','27','28','29','30','31');"
    21. Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Data Source=D:\DotNet\Sample DotNet\JahrPlaner_Pe\UPlaner.mdb")
    22. Dim cmd As OleDbCommand = New OleDbCommand(Ssql, con)
    23. con.Open()
    24. Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
    25. Dim myDataSet As DataSet = New DataSet()
    26. myDA.Fill(myDataSet, "MyTable")
    27. DataGridView1.DataSource = myDataSet.Tables("MyTable").DefaultView
    28. DataGridView1.AllowUserToAddRows = False
    29. con.Close()
    30. con = Nothing
    32. With DataGridView1
    33. 'Days width
    34. For i As Integer = 4 To .Columns.Count - 1
    35. .Columns(i).Width = 22
    36. Next
    37. End With
    38. 'Freeze first 4 columns
    39. For i As Integer = 0 To FrozenColumsCount - 1
    40. DataGridView1.Columns(i).Frozen = True
    41. Next
    43. End Sub
    45. Private Sub DataGridView1_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
    46. For Each row As DataGridViewRow In DataGridView1.Rows
    47. For Each cell As DataGridViewCell In row.Cells
    48. If IsDBNull(cell.Value) Then
    49. cell.Style.BackColor = Color.White
    50. ElseIf cell.Value = "Ur" Then 'UR=Urlaub
    51. cell.Style.BackColor = Color.DarkKhaki
    52. ElseIf cell.Value = "Kr" Then 'Kr = Krank
    53. cell.Style.BackColor = Color.Aquamarine
    54. '
    55. 'ElseIf .....
    56. End If
    57. Next
    58. Next
    59. End Sub
    61. End Class


    Image:

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Kasi“ ()

    Kasi schrieb:

    sehe ich das richtig das du alles 12x(also je Monat) erstellst ?

    jain, es werden insgesamt 13 listviews bei Klick auf Ausgabe gefüllt

    Kasi schrieb:

    hast du schon mal mit PIVOT gearbeitet?

    ja, aber nur in excel

    Kasi schrieb:

    Nachteil : du kannst hier nix bearbeiten, ist nur die Übersicht

    das is wirklich ein Nachteil. Ich kann in meinen ListViews zwar auch nix bearbeiten, die ziehen aber die Daten immer aktuell aus dem DataSet.

    Ich arbeite auch (noch) nicht mit Datenbank, sondern nur mit DataSet und XML - es könnte auch gut sein, dass das so bleiben muss. ;)
    Dein Design vom DataGridView wäre eine schicke Methode für die Anlage von Urlaub/Krank etc. pro Mitarbeiter gewesen - wird aber wohl eher schwierig umzusetzen.
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Dein Design vom DataGridView wäre eine schicke Methode für die Anlage von Urlaub/Krank etc. pro Mitarbeiter gewesen - wird aber wohl eher schwierig umzusetzen.


    da ist nix schwer umzusetzen.
    du weist wie ein Jahr aufgebaut ist oder ?

    hier ein Ansatz

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    3. 'add Day Columns
    4. Dim x As Integer
    5. Dim columns As DataGridViewColumn() = New DataGridViewColumn(30) {}
    6. For i = 0 To columns.Length - 1
    7. Dim col As DataGridViewColumn = New DataGridViewTextBoxColumn()
    8. Dim j As Integer
    9. x = CInt(j + i + 1)
    10. col.HeaderText = CStr(x)
    11. columns(i) = col
    12. col.Width = 25
    13. Next
    14. DataGridView1.Columns.AddRange(columns)
    16. 'add Months to HeaderCell
    17. Dim NYear As Integer = 2020
    19. For i As Integer = 1 To 12
    20. Dim mon As New DateTime(NYear, i, 1)
    21. Dim row As Integer = 0
    22. row = DataGridView1.Rows.Add()
    23. DataGridView1.Rows(row).HeaderCell.Value = mon.ToString("MMM")
    24. DataGridView1.RowHeadersWidth = 60
    25. Next
    27. 'add some empty lines
    28. With DataGridView1
    29. For j = 3 To 12 Step 4
    30. .Rows.Insert(j, 1)
    31. .Rows(j).Height = 8
    32. For i As Integer = 0 To DataGridView1.Columns.Count - 1
    33. Me.DataGridView1(i, j).Style.BackColor = Color.SlateGray
    34. Next
    35. Next
    36. End With
    37. DataGridView1.AllowUserToAddRows = False
    38. End Sub


    gruss
    kasi

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Kasi“ ()

    Kasi schrieb:

    da ist nix schwer umzusetzen.


    Mit schwer umzusetzen meinte ich folgendes:
    Ich wähle einen Mitarbeiter, "dein Grid" öffnet sich und ich kann schön in jede Cell klicken und was eintragen -> das wird dann im DTS gespeichert.
    Aktuell löse ich das ja so, das man einen Zeitraum (oder einzelne Tage) in einem Dialogfeld anlegen muss, das Grid wäre eine handlichere Methode ;)
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

Facebook
Telefonspende