Formel 1 Datenbank

    • VB.NET

    Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

      Formel 1 Datenbank

      Hi,

      mein Vater ist Formel 1 "freak" und wollte von mir ein Program dafür. mittlerweile hat er aber dies aufgegeben (kein intresse mehr).
      Der Anfang ist gemacht und es ist schade dies in der Schublade zulassen.
      Vielleicht sind ja bei vbParadise Formel 1 freaks und wollen es weiter voran bringen?
      Wenn nicht zeigt es wie mann ein Kalender mit einem DGV erstellen kann, und aus einer Datenbank Termine(Warmup, Quali., Rennen)
      in diese DGV eintragen kann.

      hier der Code:

      im Modul:

      VB.NET-Quellcode

      1. Imports System.Reflection
      3. Module modHelper
      4. Public Sub DoubleBuffered(ByVal dgv As DataGridView, ByVal setting As Boolean)
      5. Dim dgvType As Type = dgv.[GetType]()
      6. Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
      7. pi.SetValue(dgv, setting, Nothing)
      8. End Sub
      9. End Module


      im Formular:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Option Strict On
      2. Imports System.Data.OleDb
      4. Public Class calVertical
      6. Dim ActivYear As Integer
      8. Private Sub calVertical_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      9. modHelper.DoubleBuffered(DataGridView1, True)
      10. With DataGridView1
      11. .RowsDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
      12. .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None
      13. .ScrollBars = ScrollBars.None
      14. .AllowUserToResizeRows = False
      15. .MultiSelect = False
      16. .RowHeadersVisible = False
      17. End With
      18. ActivYear = If(ActivYear = 0, Year(Now), ActivYear)
      19. IniCombos()
      20. End Sub
      22. Public Sub IniCombos()
      23. For i As Integer = 2019 To Year(Now) + 2
      24. cboYear.Items.Add(i)
      25. Next
      26. cboYear.SelectedIndex = Year(Now) - 2019
      27. End Sub
      29. Private Sub MakeHeader()
      30. Dim col As New List(Of String)
      31. col.Add("Jan")
      32. col.Add("Feb")
      33. col.Add("Mar")
      34. col.Add("Apr")
      35. col.Add("May")
      36. col.Add("Jun")
      37. col.Add("Jul")
      38. col.Add("Aug")
      39. col.Add("Sep")
      40. col.Add("Oct")
      41. col.Add("Nov")
      42. col.Add("Dec")
      43. With DataGridView1
      44. Dim Ft As New Font("Tahoma", 8)
      45. .Font = Ft
      46. For i As Integer = 1 To 12
      47. Dim key As String = "C" & i.ToString("00")
      48. .Columns.Add(key, col(i - 1))
      49. .Columns(key).Width = 40
      50. .Columns(key).SortMode = DataGridViewColumnSortMode.NotSortable
      51. Next
      52. End With
      53. DataGridView1.Rows.Add(31)
      54. DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
      55. End Sub
      57. Private Sub MakeKalendar(ByVal ActiveYear As Integer)
      58. With DataGridView1
      59. For i As Integer = 1 To 12
      60. Dim d As Date = New Date(ActiveYear, i, 1)
      61. For j As Integer = 1 To Date.DaysInMonth(ActiveYear, i)
      62. Dim col As Integer = (i - 1)
      63. .Rows(j - 1).Cells(col).Value = d.ToString("ddd dd")
      64. .Rows(j - 1).Height = 20
      65. If d.DayOfWeek = DayOfWeek.Saturday Or d.DayOfWeek = DayOfWeek.Sunday Then
      66. .Rows(j - 1).Cells(col).Style.BackColor = Color.LightSteelBlue
      67. End If
      68. d = d.AddDays(1)
      69. Next
      70. Next
      71. End With
      72. End Sub
      75. Private Sub AddRacesDates(ByVal nYear As Integer)
      77. 'Tabellenname in .mdb = tbl_SeasonRaces
      78. 'Feldbezeichnungen in Tabelle :
      79. 'R_No = Autoincrement (Lfd.Nr in der Tabelle)
      80. 'R_RaceDate = Date (Training-Quali oder Rennen eingeben)
      81. 'Race = Text (wo findet was statt)
      82. 'R_Day = Integer (was findet statt Training-Quali oder Rennen)
      84. Dim sDB As String = "D:\DotNet\Sample DotNet\sample DGV\Cal F1\Formula1.mdb"
      85. Dim sCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      86. "Data Source=" & sDB & ";"
      88. Dim Cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(sCon)
      89. Dim sSql As String = "SELECT R_RaceDate, R_No, race, R_Day"
      90. sSql &= " FROM tbl_SeasonRaces "
      91. sSql &= "WHERE R_RaceDate Is Not Null AND Format(R_RaceDate,'yyyy')=@RacesYear;"
      93. Dim Cmd As New OleDb.OleDbCommand(sSql, Cn)
      94. Cmd.Parameters.AddWithValue("@RacesYear", nYear)
      95. Cn.Open()
      96. Dim dr As OleDbDataReader = Cmd.ExecuteReader()
      97. While dr.Read()
      98. With DataGridView1
      99. For i As Integer = 1 To 12
      100. Dim d As Date = New Date(nYear, i, 1)
      101. For j As Integer = 1 To Date.DaysInMonth(nYear, i)
      102. Dim col As Integer = (i - 1)
      104. 'ist was zum Eintragen:
      105. If CDate(dr.Item(0)) = CDate(d) Then
      107. 'ja dann Text einfügen und Färben:
      109. 'Text eintragen
      110. Dim race As String = CStr(dr.Item(2).ToString)
      111. .Rows(j - 1).Cells(col).Value = race
      113. 'Färben nach : Training - Quali. oder Rennen
      114. Dim RDay As Integer
      115. RDay = CInt(dr.Item(3).ToString)
      116. Select Case RDay
      117. Case 1
      118. .Rows(j - 1).Cells(col).Style.BackColor = Color.Aquamarine
      119. Case 2
      120. .Rows(j - 1).Cells(col).Style.BackColor = Color.Gold
      121. Case 3
      122. .Rows(j - 1).Cells(col).Style.BackColor = Color.BurlyWood
      123. Case Else
      124. End Select
      125. End If
      126. d = d.AddDays(1)
      127. Next
      128. Next
      129. End With
      130. End While
      131. dr.Close()
      132. Cmd.Dispose()
      133. Cn.Close()
      134. End Sub
      136. Private Sub cboYear_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cboYear.SelectedIndexChanged
      137. With DataGridView1
      138. .Rows.Clear()
      139. .Columns.Clear()
      140. .SuspendLayout()
      141. MakeHeader()
      142. MakeKalendar(CInt(cboYear.Text))
      143. AddRacesDates(CInt(cboYear.Text))
      144. .ResumeLayout()
      145. .AllowUserToAddRows = False
      146. End With
      148. End Sub
      150. Private Sub DataGridView1_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
      151. 'If DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value IsNot Nothing Then
      152. ' MessageBox.Show(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value.ToString())
      153. 'End If
      155. End Sub
      157. Private Sub DataGridView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseUp
      158. 'standard breite einstellen
      159. For Each c As DataGridViewColumn In DataGridView1.Columns
      160. c.Width = 40
      161. Next
      162. 'ändere breite wenn spalte gewählt wird
      163. If e.Button = Windows.Forms.MouseButtons.Left Then
      164. Dim hitRow As Integer, hitCol As Integer
      165. hitRow = e.RowIndex
      166. hitCol = e.ColumnIndex
      167. Dim column As DataGridViewColumn = DataGridView1.Columns(hitCol)
      168. column.Width = 120
      169. End If
      170. End Sub
      172. Private Sub DataGridView1_MouseLeave(sender As Object, e As System.EventArgs) Handles DataGridView1.MouseLeave
      173. 'standard breite einstellen
      174. For Each c As DataGridViewColumn In DataGridView1.Columns
      175. c.Width = 40
      176. Next
      177. End Sub
      179. Private Sub DataGridView1_CellPainting(sender As Object, e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
      180. For Each row As DataGridViewRow In DataGridView1.Rows
      181. For Each cell As DataGridViewCell In row.Cells
      182. Dim value As String = Convert.ToString(cell.Value)
      183. If String.IsNullOrEmpty(value) Then
      184. cell.Style.BackColor = Color.Silver
      185. End If
      186. Next cell
      187. Next row
      188. End Sub
      189. End Class


      der Code zeigt wie alles geladen wird, Insert, Update und Delete könnt Ihr selbst erweitern.

      und hier noch ein Bild



      Bild Tabelle in Datenbank




      viel spaß damit
      Gruss


      kasi

      *Spoiler wegen überlangem Code eingefügt*

      Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Marcus Gräfe“ ()

      Bitte Screenshot/Anhang korrigieren. Titel anpassen, da die F1-Datenbank ja wenig bis nichts mit dem Control zu tun hat.

      Eine sinnvolle Benennung (DataGridView1) wäre schön gewesen.
      Auskommentierter Code hinterlässt beim Leser immer die Frage: »Ist das Kunst oder kann das weg.«
      Der Schritt ohne VB6-Namespace ist klein und sollte gegangen werden, wenn nichts Relevantes dagegen spricht.
      Das DGV sollte so vorbereitet sein, dass man die Inhalte nicht bearbeiten kann. Oder ist das Absicht? Schließlich ist die codeseitige Zellinhaltsmanipulation ja unabhängig von der Usermanipulation.
      Aber eine nette Idee. Für einen Kalender sollten ggf. noch Feiertagsmarkierungen ergänzt werden.
      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

      Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.


      Das DGV sollte so vorbereitet sein, dass man die Inhalte nicht bearbeiten kann. Oder ist das Absicht?


      ist Absicht, ist nur zum schauen was,wann stattfindet, es kann aber jeder ändern wie er möchte

      Für einen Kalender sollten ggf. noch Feiertagsmarkierungen ergänzt werden.

      die Anweisung wie Daten aus der Datenbank Tabelle ausliest ist ja da, jeder kann eine Feiertags
      Tabelle dort anlegen und genauso auslesen und einfügen wie die Funktion "AddRacesDates"

      Für das Laden der Race-Dates hätte ich es interessant gefunden, wenn man diese nicht in einer MDB manuell pflegen müsste, sondern automatisch aus frei verfügbaren Quellen laden könnte.
      z.B. hier: motorsport-total.com/formel-1/termin-kalender/2021
      Am besten direkt aus der dort verfügbaren ICS-Datei.
      motorsport-total.com/motorsport-termine/termine_formel-1.ics
      --
      If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
      --

      petaod schrieb:

      Für das Laden der Race-Dates hätte ich es interessant gefunden, wenn man diese nicht in einer MDB manuell pflegen müsste, sondern automatisch aus frei verfügbaren Quellen laden könnte.


      Danke für die Info
      der Import in die DB sollte damals mit .csv Files geschehen, die Quelle die ich gefunden habe ist
      ergast.com/mrd/db/#csv
      dort ist alles in csv vorhanden (f1db_csv)