|
| |
VB.NET - Ein- und Umsteiger| Formular einbinden | |  | | Autor: Moglie | | Datum: 29.06.14 20:17 |
| Hoi Zäme
Brauche eure Hilfe. Für mein Fernstudium muss ich folgendes erstellen:
1. Entwerfen einer Datenbank = konnte ich machen
2. erstellen mithilfe des Datenquellen-Assistenten eine MDI-Anwendung diese Anwendung enthält u.a. ein Formular mit einer Master-Detail-Darstellung in welcher zu einem Datensatz der Mastertabelle in TextBoxen Detaildatensäte unter Verwendung des DaataGridVidew angezeigt werden = konnte ich ebenfalls machen
3. Erstellen Sie ein weiteres Formular in Einzelblattansicht, in dem Sie den Datenzugriff selbst programmieren. Dieses Formular enthält eine selbsterstellte Funktionalität zur Navigation. = habe ich erstellt nur werden meine Daten hier nicht eingelesen.
4. Das Formular enthält zusätzlich ein Textfeld txtSuchen und eine Schaltfläche btnSuchen.
Punkt 3 klappt irgendwie nicht. Das Formular erstellt aber die Daten werden nicht eingelesen.
Hauptformular:
mports System.Data
Public Class frmHaupt
Dim dt As New DataTable()
Dim bs As New BindingSource
Dim c As New SqlClient.SqlConnection
Dim da As New SqlClient.SqlDataAdapter
Private Sub mnuHaupt_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles EinzelnToolStripMenuItem.Click, _
DatenblattToolStripMenuItem.Click, _
EinzelnToolStripMenuItem1.Click, _
DatenblattToolStripMenuItem1.Click, _
GruppenAusgabenToolStripMenuItem.Click
Dim f As Form
Select Case sender.name
Case "EinzelnToolStripMenuItem"
f = New frmGruppenEinzeln
Case "DatenblattToolStripMenuItem"
f = New frmGruppenDatenblatt
Case "EinzelnToolStripMenuItem1"
f = New frmAusgabenEinzeln
Case "DatenblattToolStripMenuItem1"
f = New frmAusgabenDatenblatt
Case "GruppenAusgabenToolStripMenuItem"
f = New frmGruppenAusgaben
End Select
f.MdiParent = Me
f.Show()
End Sub
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles _
BeendenToolStripMenuItem.Click
Close()
End Sub
End ClassEinzelformular
mports System.Data
Public Class frmAusgabenEinzeln
Dim dt As New DataTable()
Dim bs As New BindingSource
Dim c As New SqlClient.SqlConnection
Dim da As New SqlClient.SqlDataAdapter
Private Sub Laden()
c.ConnectionString = "Data Source=(LocalDB)\v11.0;" _
& "AttachDbFilename=|DataDirectory|\Haushaltsbuch.mdf;" _
& "Integrated Security=True;" _
& "Connect Timeout=30"
c.Open()
da.SelectCommand = (New SqlClient.SqlCommand("SELECT * from Ausgaben", _
c))
da.Fill(dt)
c.Close()
bs.DataSource = dt
Dim b As Binding
b = New Binding("Text", bs, "Anr")
Me.AnrTextBox.DataBindings.Add(b)
b = New Binding("Text", bs, "Gnr")
Me.GnrTextBox.DataBindings.Add(b)
b = New Binding("Text", bs, "Bezeichnung")
Me.BezeichnungTextBox.DataBindings.Add(b)
b = New Binding("Text", bs, "Preis")
Me.PreisTextBox.DataBindings.Add(b)
End Sub
Private Sub Navigation(ByVal sender As System.Object, ByVal e As _
System.EventArgs) _
Handles btnErster.Click, _
btnVorheriger.Click, _
btnNächster.Click, _
btnLetzter.Click
Select Case sender.name
Case btnErster.Name
bs.MoveFirst()
Case btnVorheriger.Name
bs.MovePrevious()
Case btnNächster.Name
bs.MoveNext()
Case btnLetzter.Name
bs.MoveLast()
End Select
End Sub
Private Sub cboBezeichnungSuchen_SelectedIndexChanged(ByVal sender As _
System.Object, ByVal e As System.EventArgs)
Dim pos As Integer
pos = bs.Find("Bezeichnung", txtSuchen.Text)
If pos > -1 Then bs.Position = pos
End Sub
End Classwürde das ganze Projekt als Zip.-Datei zustellen mit allen Formularen wenn mir jemand hierbei helfen könnte.
es klappt alles bis darauf, wenn ich im Hauptformular das Formular frmAusgabenEinzeln aufrufe, wird das Formular zwar aufgerufen und angezeigt aber ohne Daten und die Buttons Nächster etc. funktionieren auch nicht.
Danke für eure Hilfe
Moglie
| |
| Re: Formular einbinden | | | | Autor: sv00010 | | Datum: 29.06.14 21:45 |
| Private Sub Navigation(ByVal sender As System.Object, ByVal e As _
System.EventArgs) _
Handles btnErster.Click, _
btnVorheriger.Click, _
btnNächster.Click, _
btnLetzter.ClickBitte für jedes Event eine eigene Routine einfügen.
Diese können dann natürlich auf die selbe Routine verweisen.
Private Sub Navigation_btnErster(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnErster.Click
Me.Navigation(sender.name)
End Sub
Private Sub Navigation_btnVorheriger(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnVorheriger.Click
Me.Navigation(sender.name)
End Sub
Private Sub Navigation_btnNächster(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnNächster.Click
Me.Navigation(sender.name)
End Sub
Private Sub Navigation_btnLetzter(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles btnLetzter.Click
Me.Navigation(sender.name)
End Sub
Private Sub Navigation(ByVal strName As String)
Select Case strName
Case btnErster.Name
bs.MoveFirst()
Case btnVorheriger.Name
bs.MovePrevious()
Case btnNächster.Name
bs.MoveNext()
Case btnLetzter.Name
bs.MoveLast()
End Select
End Sub0 | |
| Re: Formular einbinden | | | | Autor: Moglie | | Datum: 29.06.14 22:08 |
| Die Daten werden leider noch immer nicht im Formular eingefügt.
Wäre wirklich froh um Hilfe
Moglie | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.