Hallo bitte um schnelle Hilfe
Mein problem ist das wie oben genant
Bin ganz neu
Mein problem ist das wie oben genant
VB.NET-Quellcode
- Public Class Form1
- Public con As New SqlClient.SqlConnection
- Public cmd As New SqlClient.SqlCommand
- Public reader As SqlClient.SqlDataReader
- Public DK As Integer
- Public ES As Integer
- Public txt As String
- Public Firma As String
- Public Starße As String
- Public PLZ As String
- Public Ort As String
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Try
- con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Datenbank\Kreuzmayr GmbH.mdf;Integrated Security=True;User Instance=True"
- cmd.Connection = con
- cmd.CommandText = "SELECT Name FROM Fahrer"
- con.Open()
- reader = cmd.ExecuteReader()
- ComboBox1.Items.Clear()
- Do While reader.Read()
- ComboBox1.Items.Add(reader("Name"))
- Loop
- reader.Close()
- con.Close()
- cmd.CommandText = "SELECT Name FROM Adressen"
- con.Open()
- reader = cmd.ExecuteReader()
- ComboBox2.Items.Clear()
- Do While reader.Read()
- ComboBox2.Items.Add(reader("Name"))
- Loop
- reader.Close()
- con.Close()
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
- con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Datenbank\Kreuzmayr GmbH.mdf;Integrated Security=True;User Instance=True"
- cmd.Connection = con
- cmd.CommandText = "SELECT Kenzeichen FROM Fahrer WHERE (Name = '" & ComboBox1.Text.ToString & "')"
- con.Open()
- reader = cmd.ExecuteReader()
- Do While reader.Read()
- Label2.Text = reader("Kenzeichen")
- Loop
- con.Close()
- End Sub
- Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
- con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Datenbank\Kreuzmayr GmbH.mdf;Integrated Security=True;User Instance=True"
- cmd.Connection = con
- cmd.CommandText = "SELECT Firma, Straße, PLZ, Ort FROM Adressen WHERE (Name = '" & ComboBox2.Text.ToString & "')"
- con.Open()
- reader = cmd.ExecuteReader()
- Do While reader.Read()
- Firma = reader("Firma")
- Starße = reader("Straße")
- PLZ = reader("PLZ")
- Ort = reader("Ort")
- Loop
- con.Close()
- End Sub
- Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
- If CheckBox1.Checked = True Then TextBox1.Visible = True Else TextBox1.Visible = False
- End Sub
- Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
- If CheckBox2.Checked = True Then TextBox2.Visible = True Else TextBox2.Visible = False
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim und As String
- Check()
- If TextBox1.Text <> "" Then DK += CInt(TextBox1.Text)
- If TextBox2.Text <> "" Then ES += CInt(TextBox2.Text)
- If DK <> 0 And ES <> 0 Then und = " and " Else und = ""
- Dim Titel = "On " + DateTimePicker1.Value.Day.ToString + "." + DateTimePicker1.Value.Month.ToString + " we will load app. "
- If DK <> 0 Then Titel += DK.ToString + " cbm Diesel"
- Titel += und
- If ES <> 0 Then Titel += ES.ToString + " cbm BA 95"
- txt += "the driver is " + ComboBox1.Text.ToString + " he is loading "
- If CheckBox1.Checked = True Then txt += TextBox1.Text + " cbm Diesel" & vbCrLf + Label2.Text.ToString & vbCrLf & vbCrLf
- If CheckBox2.Checked = True Then txt += TextBox2.Text + " cbm BA 95" & vbCrLf + Label2.Text.ToString & vbCrLf & vbCrLf
- txt += "the place of arrivel is" & vbCrLf
- txt += Firma & vbCrLf & Starße & vbCrLf & PLZ + " " + Ort & vbCrLf & vbCrLf
- RichTextBox1.Text = Titel & vbCrLf & vbCrLf + txt
- Clicked()
- End Sub
- Private Sub Clicked()
- CheckBox1.Checked = False
- CheckBox2.Checked = False
- TextBox1.Text = ""
- TextBox2.Text = ""
- End Sub
- Private Sub Check()
- If ComboBox1.Text = "" Then MsgBox("Bitte Fahrer auswählen!")
- If ComboBox2.Text = "" Then MsgBox("Bitte Lieferadresse auswählen!")
- If CheckBox1.Checked = True And TextBox1.Text = "" Then MsgBox("Bitte Menge beim Diesel eingeben!")
- If CheckBox2.Checked = True And TextBox2.Text = "" Then MsgBox("Bitte Menge beim Eurosuper eingeben!")
- If CheckBox1.Checked = True And CheckBox2.Checked = True Then MsgBox("Diesel und Eurosuper ausgewählt!")
- End Sub
- End Class
Bin ganz neu