Aufbau Typisiertes DataSet / DataTable / Beziehungen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 37 Antworten in diesem Thema. Der letzte Beitrag () ist von Amelie.

    Ich hab bei mir immer die Aktualisierung auf Cascade, damit die angeschlossenen Tabellen die Änderungen mitbekommen.
    Löschen hab ich immer auf "none", außer an 1-2 Stellen wo es sinn macht.

    Würde man da auch Cascade machen, löscht man z.b. einen Artikel aus der Datenbank und in allen Bestellungen oder Aufträgen, die den Artikel enthalten würde die Position auch mit gelöscht werden, weil
    es den Artikel nicht mehr gibt. Ich arbeite da eher mit einer Boolean-Spalte "Aktiv". Brauch ich den Artikel nicht mehr (oder meinetwegen User, Mitarbeiter etc.) dann stelle ich Aktiv=False und die Programmlogik
    übernimmt den Rest.

    EDIT: So sind die Relationen im Übrigen auch in der Datenbank eingestellt. Ich hab nicht getestet, was passiert wenn das DataSet anders eingestellt ist, als die Datenbank
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „tragl“ ()

    Moin moin

    So habe mir nun eine Testumgebung geschaffen. Siehe Bilder.

    1.) Ich kann also Datensätze auf dem Hauptform hinzufügen und auch ändern.

    2.) Ich kann in den Forms Category & Payments bestehende Datensätze ändern. ( Aus 'Bank' mache ich 'Bankverbindung' ) Das wird dann auf dem Hauptform " Transactionstabelle => DGV " übernommen, und in den Comboboxen als neue Auswahlmöglichkeit. :thumbsup:

    3.) Im Form Category / Payments kann ich aber nicht einen schon verwendeten Datensatz löschen. :!: :!:
    Fehlermeldung! Muss ich dann in schön abfangen :)

    4.) Einen Datensatz den ich NICHT in der TransactionsTabelle verwende, kann ich in Cat/Pay löschen. :thumbup:

    So sollte das doch richtig sein :?:

    Weiter:
    Wenn ich die DB wie in meinem Fall mit Access erstelle und dort die Beziehungen mit erstelle, brauche ich im VS-Designer nichts ändern. Ähhmmm fast nichts.
    Das einzigste was ich ändern muss sie die "AutoIncementwerte". Die stehen immer auf " -1 " und dann zählt auf den Forms alles im Minus.
    Warum eigentlich :?:
    Bilder

    • beziehungen-1.jpg

      243,34 kB, 729×563, 337 mal angesehen

    • beziehungen-2.jpg

      384,19 kB, 1.098×576, 322 mal angesehen

    • beziehungen-3.jpg

      253,6 kB, 863×389, 321 mal angesehen

    • beziehungen-4.jpg

      101,98 kB, 521×265, 317 mal angesehen

    • beziehungen-5.jpg

      208,04 kB, 726×369, 325 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Zuerstmal würde ich dringend von Access abraten, wenn du nicht durch ungewöhnliche Umstände dazu gezwungen wirst. Nimm SQL Server oder irgendeine aktuelle lightweight popular Database mit ansprechendem UI. Wobei man mit Datebanken prinzipiell nur per SQl kommunizieren sollte. Dein Problem löst scih dann wenn du Constraints verstehst.https://www.w3schools.com/sql/sql_constraints.asp

    Zu Punkt 3 und 4: Wenn das so ist wie gewünscht, dann ok. Lässt sich aber leicht durch LINQ abfragen. Im Sinne von: If Transactions.Any(Function(x) x.Category Is CategoryToDelete) Then

    Ich würd eher ne Sicherheitsfrage beim Löschen oder einen Hinweis einbauen: »Diese Kategorie wird bereits von bestehenden Transaktionen verwendet.« plus ggf: »Soll diese Kategorie wirklich zusammen mit den betroffenen Transaktionen gelöscht werden?«

    Amelie schrieb:

    Das einzigste was ich ändern muss sie die "AutoIncementwerte". Die stehen immer auf " -1 " und dann zählt auf den Forms alles im Minus.
    Warum eigentlich
    Einzig kann man nicht steigern, dass wusste damals schon Captain Jack Sparrow ;) . tDS-only: IDs gehen von Haus aus ins Negative. Mit DB: DB zählt von Haus aus ins Positive -> Konfliktvermeidung.
    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.

    @VaporiZed
    Das mit der Abfrage beim Löschen hatte ich auch so vor zu machen.

    Im Moment konstruiere ich mir eine Klasse für "Payments & Category" um Codeverdoppelungen einzusparen, was das Laden, Speichern etc betrifft.


    @Coldfire
    Die Umstände zwingen mich im Moment.
    1.) Zum Üben
    2.) wird das später nur auf einem OffLine Laptop laufen
    3.) ... ;)
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    um Codeverdoppelungen einzusparen, was das Laden, Speichern etc betrifft.

    Da kann ich dir nur die Extensions von ErfinderDesRades an's Herz legen. Speichern geht bei mir anwendungsweit mit Dts.SaveDts. Wenn du mit DataSet-Only (also ohne Datenbank arbeitest), dann werden sowieso immer alle Daten geladen
    Edit: Er hat auch was, um das Ganze später an eine Datenbank (SQL, MYSQL, Access) anzubinden - dafür muss man sich mit dem Thema gründlich befassen. Die Daten müssen dann z.B. "manuell" geladen werden, über Custom-Fills.
    Von Access kann ich dir ebenfalls abraten - hat bei mir nur Müll gemacht.

    Amelie schrieb:

    wird das später nur auf einem OffLine Laptop laufen

    Dann nimm DataSet-Only oder installier dort einen lokalen SQL-Express oder sowas

    Amelie schrieb:

    Einen Datensatz den ich NICHT in der TransactionsTabelle verwende, kann ich in Cat/Pay löschen.

    Ist korrekt. Solange keine untergeordneten Datensätze da sind, kann man die Parents löschen

    Amelie schrieb:

    3.) Im Form Category / Payments kann ich aber nicht einen schon verwendeten Datensatz löschen.
    Fehlermeldung! Muss ich dann in schön abfangen

    auch das ist korrekt. Du hast zu dem Parent(Category) einen oder mehrere Childs(Payments) - da die Löschweitergabe nicht auf Cascade steht, sondern verhindert wird - kann auch nicht gelöscht werden, solange die Childs vorhanden sind.
    Wenn du alle Childs mit der entsprechenden Category löschst, dann kannst du danach auch die Category löschen.


    Solltest du hier eine allgemeine Methode gefunden haben, um den "Fehler" schön darzustellen, dann gib gerne eine Rückmeldung sowas hätte ich auch gerne, war bisher zu faul mich drum zu kümmern. In meiner Anwendung kann
    nur ich als Admin löschen, die "normalen User" dürfen das nicht. ;)
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    tragl schrieb:

    Solltest du hier eine allgemeine Methode gefunden haben, um den "Fehler" schön darzustellen, dann gib gerne eine Rückmeldung
    Wie meinst Du das? Der Fehler kann doch - wie geschrieben - im Voraus abgefangen werden. Beim Löschversuch wird durch einfache (LINQ-)Abfrage geprüft, ob die Kategorie bereits in Benutzung ist und falls ja, zeigt man ne Hinweisbox an.
    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.

    @VaporiZed: Jo, bei mir sind's immer DGV's aus denen ich dann Zeilen -> und somit den Datensatz lösche. Dazu hab ich bereits eine allgemeine "Löschabfrage" und e As KeyEventArgs, weil
    ich überall wenn dann mit ENTF lösche. Ich bin grad dabei mir anzuschauen, ob die Row mit übergeben wird. Wenn ja, kann ich mir daraus die DataBoundItem und somit die Row ziehen und dann entsprechend prüfen

    EDIT: Außerdem muss ich überlegen wie ich das generell anstelle, denn: z.B. möchte ich aus meiner Tabelle "Standort" einen Eintrag löschen. Die Tabelle ist in mind. 10 anderen Tabellen als FK definiert - wie prüf' ich das ab? ;)
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „tragl“ ()

    Moin moin

    So ich bin nun ein ganzes Stück weiter gekommen.
    So habe ich das mit dem "Löschen" nun gemacht.
    Wenn ich nun versuche Datensätze bei "Payments" oder "Category" zu löschen, welche eine Beziehung haben, erhalte ich die Messagebox.
    Wobei "ändern" kann ich ja, werde also den Txt noch verbessern.

    Spoiler anzeigen

    In der Class:

    VB.NET-Quellcode

    1. Friend Shared Event DeleteResult As EventHandler(Of Boolean)
    2. Protected Sub RaiseDeleteResult(success As Boolean)
    3. RaiseEvent DeleteResult(Me, success)
    4. End Sub
    6. Friend Shared Event DeleteErrorResult As EventHandler(Of String)
    7. Protected Sub RaiseDeleteErrorResult(message As String)
    8. RaiseEvent DeleteErrorResult(Me, message)
    9. End Sub
    11. Public Sub DeleteEntry(table As String, rowIndex As Integer)
    12. Try
    13. Dim tableToDelete As DataTable = Nothing
    14. Dim bindingSourceToDelete As BindingSource = Nothing
    16. Select Case table
    17. Case "Category"
    18. tableToDelete = Me.DbBudgetDS.Category
    19. bindingSourceToDelete = Me.CategoryBindingSource
    20. Case "Payments"
    21. tableToDelete = Me.DbBudgetDS.Payments
    22. bindingSourceToDelete = Me.PaymentsBindingSource
    23. Case "Transactions"
    24. tableToDelete = Me.DbBudgetDS.Transactions
    25. bindingSourceToDelete = Me.TransactionsBindingSource
    26. Case Else
    27. Debug.WriteLine(invalidTable)
    28. _errorLogger.WriteError(invalidTable)
    29. Return
    30. End Select
    32. If rowIndex >= 0 AndAlso rowIndex < tableToDelete.Rows.Count Then
    34. Dim result As DialogResult = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Achtung: Löschen bestätigen", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    36. If result = DialogResult.Yes Then
    37. tableToDelete.Rows(rowIndex).Delete()
    38. Me.TableAdapterManager.UpdateAll(Me.DbBudgetDS)
    39. RaiseDeleteResult(True)
    40. Else
    41. RaiseDeleteResult(False)
    42. End If
    43. Else
    44. Debug.WriteLine("Ungültiger rowIndex.")
    45. _errorLogger.WriteError("Ungültiger rowIndex.")
    46. RaiseDeleteResult(False)
    47. End If
    48. Catch ex As Exception
    49. Dim errortext As String = "Fehler beim Löschen des Eintrags: " & ex.Message
    50. _errorLogger.WriteError(errortext)
    51. RaiseDeleteErrorResult(errortext)
    52. End Try
    53. End Sub

    Auf dem Form:

    VB.NET-Quellcode

    1. Public Class frmPayments
    2. Private WithEvents _paymentsManager As New DataManager
    3. Private table As String = "Payments"
    5. Public Sub New()
    6. InitializeComponent()
    7. _paymentsManager.PaymentsBindingSource = Me.PaymentsBindingSource
    8. _paymentsManager.PaymentsTableAdapter = Me.PaymentsTableAdapter
    9. _paymentsManager.TableAdapterManager = Me.TableAdapterManager
    10. _paymentsManager.DbBudgetDS = Me.DbBudgetDS
    11. _paymentsManager.LoadDatas(table)
    12. End Sub
    14. Private Sub DeleteFailed(sender As Object, message As String) Handles _paymentsManager.DeleteErrorResult
    15. MessageBox.Show($"Achtung: Löschen so nicht möglich{Environment.NewLine}{message}", "Achtung!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    16. End Sub
    18. Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
    19. _paymentsManager.CancelAddDatas(table)
    20. End Sub
    22. Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
    23. Me.Validate()
    24. _paymentsManager.SaveDatas(table)
    25. End Sub
    27. Private Sub btnDeleteEntry_Click(sender As Object, e As EventArgs) Handles btnDeleteEntry.Click
    28. Me.Validate()
    29. If dgvPayments.SelectedRows.Count > 0 Then
    30. Dim rowIndex As Integer = dgvPayments.SelectedRows(0).Index
    31. _paymentsManager.DeleteEntry(table, rowIndex)
    32. Else
    33. ' Fehlermeldung, wenn keine Zeile ausgewählt ist
    34. Debug.WriteLine("Bitte wählen Sie eine Zeile zum Löschen aus.")
    35. End If
    36. End Sub
    37. End Class

    Bilder

    • löschen.png

      68,31 kB, 847×493, 275 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Was mir beim Design auffällt: Auch beim datengebundenen DGV darfst Du die Beschriftungen der Spalten anpassen und so die HeaderText-Werte vom Englischen ins Deutsche übertragen. Allein um schon zu klären, welche Bedeutung der Boolean-Wert bzw. die CheckBox-Column mit der Bezeichnung Type bedeutet. Die Werte der letzten Spalte sind nämlich mal True/Checked oder False/Unchecked. Aber wofür das dann jeweils steht, blickt keiner außer Dir.
    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.

    @VaporiZed

    Das mit dem DGV mache ich noch. Mir gehts erstmal um den Code und das mit den Klassen usw...
    Musste auch erst lange suchen bis ich im DGV die "Namen" der Payments/Category anstelle der Zahlen aus der TransactionsTabelle. :)
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @VaporiZed

    Nach dem crash gestern habe ich nun meine Class und die DB-Abfragen etc soweit fertig.

    Bei den ersten Test´s scheint alles so zu funktionieren wie es soll. :)

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports MyBudget.dbBudgetDSTableAdapters
    4. Partial Public Class DataManager
    5. ' Handelt die Fehlerprotokolierung
    6. Private _errorLogger As New ErrorLogger
    8. ' Das DataSet und der TableManger
    9. Friend Property DbBudgetDS As New dbBudgetDS()
    10. Friend Property TableAdapterManager As New TableAdapterManager()
    12. ' Die BindingSources und TableAdapter
    13. Friend Property CategoryBindingSource As New BindingSource()
    14. Friend Property CategoryTableAdapter As New CategoryTableAdapter()
    15. Friend Property PaymentsBindingSource As New BindingSource()
    16. Friend Property PaymentsTableAdapter As New PaymentsTableAdapter()
    17. Friend Property TransactionsBindingSource As New BindingSource()
    18. Friend Property TransactionsTableAdapter As New TransactionsTableAdapter()
    19. End Class


    VB.NET-Quellcode

    1. ​
    2. Partial Public Class DataManager
    3. Private _datehelper As New DateHelper
    5. Friend Shared Event LoadDataResult As EventHandler(Of Boolean)
    6. Protected Sub RaiseLoadResult(success As Boolean)
    7. RaiseEvent LoadDataResult(Me, success)
    8. End Sub
    10. Friend Shared Event CountDataResult As EventHandler(Of Integer)
    11. Protected Sub RaiseCountResult(count As Integer)
    12. RaiseEvent CountDataResult(Me, count)
    13. End Sub
    15. Private Function GetRowCount(tableName As String) As Integer
    16. If Me.DbBudgetDS Is Nothing OrElse Not Me.DbBudgetDS.Tables.Contains(tableName) Then
    17. Return 0
    18. End If
    19. Dim table As DataTable = Me.DbBudgetDS.Tables(tableName)
    20. Return table.Rows.Count
    21. End Function
    23. Public Sub LoadDatas(table As String, selcteddate As String)
    24. Dim NoDataMessage As String = $"Keine Daten in {table} gefunden."
    26. Try
    27. Dim count As Integer = 0
    29. Select Case table
    30. Case "Category"
    31. Me.CategoryTableAdapter.Fill(Me.DbBudgetDS.Category)
    32. Case "Payments"
    33. Me.PaymentsTableAdapter.Fill(Me.DbBudgetDS.Payments)
    34. Case "Transactions"
    35. Me.PaymentsTableAdapter.Fill(Me.DbBudgetDS.Payments)
    36. Me.CategoryTableAdapter.Fill(Me.DbBudgetDS.Category)
    37. '----------------------------
    38. ' Transactionen nach Datum aus der DB holen
    39. Dim startDate As Date = Date.ParseExact(selcteddate, "MM.yyyy", CultureInfo.InvariantCulture)
    40. Dim endDate As Date = startDate.AddMonths(1).AddDays(-1)
    41. Debug.WriteLine(startDate & " - " & endDate)
    42. Me.TransactionsTableAdapter.ClearBeforeFill = True
    43. Me.TransactionsTableAdapter.FillByDatum(Me.DbBudgetDS.Transactions, startDate, endDate)
    44. '----------------------------
    45. ' Alle Transactionen aus der DB holen
    46. 'Me.TransactionsTableAdapter.Fill(Me.DbBudgetDS.Transactions)
    47. count = GetRowCount("Transactions")
    48. Case Else
    49. Debug.WriteLine(invalidTable)
    50. _errorLogger.WriteError(invalidTable)
    51. RaiseLoadResult(False)
    52. Return
    53. End Select
    54. Dim success As Boolean = (count > 0)
    55. RaiseLoadResult(success)
    56. If Not success Then
    57. Debug.WriteLine(NoDataMessage)
    58. _errorLogger.WriteError(NoDataMessage)
    59. End If
    60. RaiseCountResult(count)
    61. Catch ex As Exception
    62. Debug.WriteLine(ex.ToString())
    63. _errorLogger.WriteError(LoadDataErrorMessage & ex.Message)
    64. RaiseLoadResult(False)
    65. Return
    66. End Try
    67. End Sub
    69. Friend Shared Event CancelResult As EventHandler(Of Boolean)
    70. Protected Sub RaiseCancelResult(cancel As Boolean)
    71. RaiseEvent CancelResult(Me, cancel)
    72. End Sub
    74. Public Sub CancelAddDatas(table As String)
    75. Try
    76. Select Case table
    77. Case "Category"
    78. Me.CategoryBindingSource.CancelEdit()
    79. RaiseCancelResult(True)
    80. Case "Payments"
    81. Me.PaymentsBindingSource.CancelEdit()
    82. RaiseCancelResult(True)
    83. Case "Transactions"
    84. Me.TransactionsBindingSource.CancelEdit()
    85. RaiseCancelResult(True)
    86. Case Else
    87. Debug.WriteLine(invalidTable)
    88. _errorLogger.WriteError(invalidTable)
    89. RaiseCancelResult(False)
    90. Return
    91. End Select
    92. Catch ex As Exception
    93. Debug.WriteLine(CancelDataMessage & ex.Message)
    94. _errorLogger.WriteError(CancelDataMessage & ex.Message)
    95. RaiseCancelResult(False)
    96. Return
    97. End Try
    98. End Sub
    100. Friend Shared Event SaveResult As EventHandler(Of Boolean)
    101. Protected Sub RaiseSaveResult(success As Boolean)
    102. RaiseEvent SaveResult(Me, success)
    103. End Sub
    105. Friend Shared Event SaveErrorResult As EventHandler(Of Boolean)
    106. Protected Sub RaiseSaveErrorResult(writeerror As Boolean)
    107. RaiseEvent SaveErrorResult(Me, writeerror)
    108. End Sub
    110. Public Sub SaveDatas(table As String)
    111. Try
    112. Select Case table
    113. Case "Category"
    114. Me.CategoryBindingSource.EndEdit()
    115. Case "Payments"
    116. Me.PaymentsBindingSource.EndEdit()
    117. Case "Transactions"
    118. Me.TransactionsBindingSource.EndEdit()
    119. Case Else
    120. Debug.WriteLine(invalidTable)
    121. _errorLogger.WriteError(invalidTable)
    122. RaiseSaveResult(False)
    123. Return
    124. End Select
    126. Me.TableAdapterManager.UpdateAll(Me.DbBudgetDS)
    127. RaiseSaveResult(True)
    128. Debug.WriteLine($"SaveDatas: {table} UpdateAll successful")
    129. Catch ex As Exception
    130. RaiseSaveErrorResult(False)
    131. End Try
    132. End Sub
    134. Friend Shared Event DeleteResult As EventHandler(Of Boolean)
    135. Protected Sub RaiseDeleteResult(success As Boolean)
    136. RaiseEvent DeleteResult(Me, success)
    137. End Sub
    139. Friend Shared Event DeleteErrorResult As EventHandler(Of String)
    140. Protected Sub RaiseDeleteErrorResult(message As String)
    141. RaiseEvent DeleteErrorResult(Me, message)
    142. End Sub
    144. Public Sub DeleteEntry(table As String, rowIndex As Integer)
    145. Try
    146. Dim tableToDelete As DataTable = Nothing
    147. Dim bindingSourceToDelete As BindingSource = Nothing
    149. Select Case table
    150. Case "Category"
    151. tableToDelete = Me.DbBudgetDS.Category
    152. bindingSourceToDelete = Me.CategoryBindingSource
    153. Case "Payments"
    154. tableToDelete = Me.DbBudgetDS.Payments
    155. bindingSourceToDelete = Me.PaymentsBindingSource
    156. Case "Transactions"
    157. tableToDelete = Me.DbBudgetDS.Transactions
    158. bindingSourceToDelete = Me.TransactionsBindingSource
    159. Case Else
    160. Debug.WriteLine(invalidTable)
    161. _errorLogger.WriteError(invalidTable)
    162. Return
    163. End Select
    165. If rowIndex >= 0 AndAlso rowIndex < tableToDelete.Rows.Count Then
    167. Dim result As DialogResult = MessageBox.Show("Möchten Sie diesen Datensatz wirklich löschen?" & Environment.NewLine & "Die Daten sind unwiederbringlich gelöscht!", "Achtung: Löschen bestätigen", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    169. If result = DialogResult.Yes Then
    170. tableToDelete.Rows(rowIndex).Delete()
    171. Me.TableAdapterManager.UpdateAll(Me.DbBudgetDS)
    172. RaiseDeleteResult(True)
    173. Else
    174. RaiseDeleteResult(False)
    175. End If
    176. Else
    177. Debug.WriteLine("Versuch eine ungültige Zeile zu löschen.")
    178. _errorLogger.WriteError("Versuch eine ungültige Zeile zu löschen.")
    179. RaiseDeleteResult(False)
    180. End If
    181. Catch ex As Exception
    182. Dim errortext As String = "Fehler beim Löschen des Eintrags: " & ex.Message
    183. _errorLogger.WriteError(errortext)
    184. RaiseDeleteErrorResult(errortext)
    185. End Try
    186. End Sub
    187. End Class

    Bilder

    • form.png

      54,47 kB, 1.283×548, 266 mal angesehen

    • transaction.png

      26,08 kB, 839×483, 279 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Da ich ebenfalls ein privates Kassenbuch habe, ein paar Anmerkungen: Datumseingabe per DateTimePicker oder MonthCalendar, Betrag per NumericUpDown, ggf. Vorlagen für wiederkehrende Zahlungen. Ich unterscheide noch verschiedene Konten, was aber den Aufwand erhöht.
    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.

    @VaporiZed

    Das mit dem DateTimePicker fand ich nicht so toll, habe hier eine "MaskedTextBox" eingesetzt.
    Bei dem Betrag, hatte ich erst versucht, aber habe das mit dem "Numeric" nicht hinbekommen. :(

    Was mir nun noch aufgefallen ist, das ich beim GesamtBetrag evtl nur immer das gewählte "Jahr" anzeigen lasse. Muss mal sehen wie ich die SQL Abfrage baue.

    Wie hast du das mit dem "Vorlagen" gemacht :?:
    Auch eine Combobox oder ???

    Was sagst du zu meiner Class :?:
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    aber habe das mit dem "Numeric" nicht hinbekommen.
    Ein guter Grund, es hier zu besprechen. Problemaufschub führt zu Frust. Was klappt denn nicht?

    Deine Klasse: Category und Payments - Singular und Plural. Es sollte nur eines sein, also entweder Category und Payment oder Categories und Payments. Aber welches, das ist abhängig davon, wen Du fragst. Der eine sagt so, der andere so. Beispiel: EdR ist für Singularbenennung, ich für Pluralbenennung. Entscheide Dich für eines.
    Mwst_Vat: Wenn der Rest englisch ist, dann mach TaxRate draus.
    UserID: Ist das Kassenbuch für mehrere?

    Bzgl. Vorlagen: Ich selektiere eine Transaktion und kann mit dieser per Knopfdruck eine Vorlage erstellen. Es werden dann fixe Daten gespeichert. Mein Kassenbuch ist anders aufgebaut, daher speichere ich andere/zusätzliche Daten: betroffenes Konto (da ich auch Bartransaktionen speichere), Ort, Verrechnungsstelle, Position, Betrag. Die Vorlagennamen lasse ich in einer ListBox anzeigen und dann kann ich auf Knopfdruck bei Bedarf aus einer Vorlage wieder eine zusätzliche Transaktion machen. Geht natürlich auch mit ner ComboBox statt ner ListBox.
    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.

    @VaporiZed

    Das mit der UserID habe ich gemacht, weil ich das ganze mit einem "login" versehen habe, ansonsten ist das nur für eine Person gedacht!

    Bzgl "NumericUp.." habe das nicht vernünftig "formatiert" bekommen. Hatte auch da schon versucht mit einem MaskTexbox zu arbeiten- ;(

    Wenn ich das so lese, scheint dein "Kassenbuch" viel umfangreicher zu sein. Das was ich hier nun habe reicht für die Zwecke aber ich werde wenn ich das ganz fertig habe, mal mit Vorlagen experimentieren..sofern das mit meinem Code möglich ist.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Ich versteh grad immer noch nicht konkret das NumericUpDown-Problem. Es ist von Haus aus mit 2 Nachkommastellen eingestellt (was ja genau richtig ist) und man kann Minimal und Maximalwert einstellen. Und zur Laufzeit nur gültige Zahlen vorgegebenen Bereich mit angegebener Genauigkeit eingeben. So what?
    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.

Facebook
Telefonspende