Verfügbare Informationen zu "Bestellsystem"
Qualität des Beitrags: Beteiligte Poster: inachor - just4fun Forum: Advanced-Computer Forenbeschreibung: Computer aus dem Unterforum: Visual Basic Antworten: 4 Forum gestartet am: Samstag 07.10.2006 Sprache: deutsch Link zum Originaltopic: Bestellsystem Letzte Antwort: vor 17 Jahren, 6 Monaten, 1 Tag, 6 Stunden, 23 Minuten Getaggt durch: Computer
Alle Beiträge und Antworten zu "Bestellsystem"
Re: Bestellsystem
inachor - 30.10.2006, 22:40Bestellsystem
Hier mal eine Basis von einem Onlinebstellsystem, kann noch je nach Thema verändert werden is nur ne Basis funktioniert aber und man kann wenn mans als website stellt auch Aufträge geben und diese werden dann zu einem server oder als e-mail gesendet. Das war mal ne arbeit
Code: Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Private components As System.ComponentModel.Container
<System> Private Sub InitializeComponent()
Me.Label4 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Button1 = New System.Windows.Forms.Button
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.CheckBox3 = New System.Windows.Forms.CheckBox
Me.CheckBox2 = New System.Windows.Forms.CheckBox
Me.CheckBox1 = New System.Windows.Forms.CheckBox
Me.ComboBox1 = New System.Windows.Forms.ComboBox
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.RadioButton3 = New System.Windows.Forms.RadioButton
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.PictureBox2 = New System.Windows.Forms.PictureBox
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.PictureBox6 = New System.Windows.Forms.PictureBox
Me.PictureBox5 = New System.Windows.Forms.PictureBox
Me.PictureBox4 = New System.Windows.Forms.PictureBox
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.PictureBox3 = New System.Windows.Forms.PictureBox
Me.GroupBox2.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
Me.Label4.Location = New System.Drawing.Point(205, 141)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(134, 16)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Peripheriegeräte (nur 1)"
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(248, 32)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Der Online-Shop"
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(5, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(334, 53)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Statten Sie Ihr Büro aus, indem Sie die benötigten Produkte mithilfe von Optionsf" & _
"eldern, Kontrollkästchen, einem Listenfeld und einem Kombinationsfeld auswählen." & _
" "
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(451, 48)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(148, 24)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Bestellte Produkte"
Me.Button1.Location = New System.Drawing.Point(208, 345)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(80, 24)
Me.Button1.TabIndex = 14
Me.Button1.Text = "Beenden"
Me.ListBox1.Location = New System.Drawing.Point(208, 160)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(120, 69)
Me.ListBox1.TabIndex = 5
Me.GroupBox2.Controls.Add(Me.CheckBox3)
Me.GroupBox2.Controls.Add(Me.CheckBox2)
Me.GroupBox2.Controls.Add(Me.CheckBox1)
Me.GroupBox2.Location = New System.Drawing.Point(8, 256)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(168, 104)
Me.GroupBox2.TabIndex = 4
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Büroausstattung (0-3)"
Me.CheckBox3.Location = New System.Drawing.Point(16, 72)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(130, 16)
Me.CheckBox3.TabIndex = 2
Me.CheckBox3.Text = "Kopierer"
Me.CheckBox2.Location = New System.Drawing.Point(16, 46)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(130, 16)
Me.CheckBox2.TabIndex = 1
Me.CheckBox2.Text = "Taschenrechner"
Me.CheckBox1.Location = New System.Drawing.Point(16, 24)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(130, 16)
Me.CheckBox1.TabIndex = 0
Me.CheckBox1.Text = "Anrufbeantworter"
Me.ComboBox1.DropDownWidth = 120
Me.ComboBox1.Location = New System.Drawing.Point(208, 271)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(120, 21)
Me.ComboBox1.TabIndex = 7
Me.ComboBox1.Text = "Zahlungsmethode"
Me.RadioButton1.Checked = True
Me.RadioButton1.Location = New System.Drawing.Point(16, 24)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(130, 16)
Me.RadioButton1.TabIndex = 0
Me.RadioButton1.TabStop = True
Me.RadioButton1.Text = "PC"
Me.RadioButton3.Location = New System.Drawing.Point(16, 72)
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.Size = New System.Drawing.Size(130, 16)
Me.RadioButton3.TabIndex = 2
Me.RadioButton3.Text = "Laptop"
Me.RadioButton2.Location = New System.Drawing.Point(16, 48)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(130, 16)
Me.RadioButton2.TabIndex = 1
Me.RadioButton2.Text = "Macintosh"
Me.PictureBox2.Location = New System.Drawing.Point(532, 88)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(80, 56)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox2.TabIndex = 9
Me.PictureBox2.TabStop = False
Me.PictureBox1.Location = New System.Drawing.Point(432, 88)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(80, 56)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 8
Me.PictureBox1.TabStop = False
Me.PictureBox6.Location = New System.Drawing.Point(532, 271)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(80, 64)
Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox6.TabIndex = 13
Me.PictureBox6.TabStop = False
Me.PictureBox5.Location = New System.Drawing.Point(432, 271)
Me.PictureBox5.Name = "PictureBox5"
Me.PictureBox5.Size = New System.Drawing.Size(80, 64)
Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox5.TabIndex = 12
Me.PictureBox5.TabStop = False
Me.PictureBox4.Location = New System.Drawing.Point(532, 173)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(80, 64)
Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox4.TabIndex = 11
Me.PictureBox4.TabStop = False
Me.GroupBox1.Controls.Add(Me.RadioButton3)
Me.GroupBox1.Controls.Add(Me.RadioButton2)
Me.GroupBox1.Controls.Add(Me.RadioButton1)
Me.GroupBox1.Location = New System.Drawing.Point(8, 125)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(168, 104)
Me.GroupBox1.TabIndex = 3
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Computer(erforderlich)"
Me.PictureBox3.Location = New System.Drawing.Point(432, 173)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(80, 64)
Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox3.TabIndex = 10
Me.PictureBox3.TabStop = False
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(624, 381)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.PictureBox6)
Me.Controls.Add(Me.PictureBox5)
Me.Controls.Add(Me.PictureBox4)
Me.Controls.Add(Me.PictureBox3)
Me.Controls.Add(Me.PictureBox2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Online-Shop"
Me.GroupBox2.ResumeLayout(False)
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\pcomputr.bmp")
'Einträge in ein Listenfeld einfügen:
ListBox1.Items.Add("Weitere Festplatte")
ListBox1.Items.Add("Drucker")
ListBox1.Items.Add("Satellitenschüssel")
ComboBox1.Items.Add("US-Dollar")
ComboBox1.Items.Add("Scheck")
ComboBox1.Items.Add("Euro")
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
PictureBox1.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\pcomputr.bmp")
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
PictureBox1.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\computer.bmp")
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
PictureBox1.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\laptop1.bmp")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Programm wird durch Klicken auf Beenden beendet.
End
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Select Case ListBox1.SelectedIndex
Case 0
PictureBox3.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\Festplatte.bmp")
Case 1
PictureBox3.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\Drucker.bmp")
Case 2
PictureBox3.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\SatSchüssel.bmp")
End Select
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.CheckState = 1 Then
PictureBox2.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\Anrufbea.bmp")
PictureBox2.Visible = True
Else
PictureBox2.Visible = False
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.CheckState = 1 Then
PictureBox4.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\Rechner.bmp")
PictureBox4.Visible = True
Else
PictureBox4.Visible = False
End If
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.CheckState = 1 Then
PictureBox6.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\Kopierer.bmp")
PictureBox6.Visible = True
Else
PictureBox6.Visible = False
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.SelectedIndex
Case 0
PictureBox5.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\dollar.bmp")
Case 1
PictureBox5.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\Scheck.bmp")
Case 2
PictureBox5.Image = System.Drawing.Image.FromFile _
("c:\vb05sfs\kap03\Eingabesteuerelemente\Eurosack.bmp")
End Select
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
End Sub
Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter
End Sub
Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
End Sub
Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
End Sub
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
End Sub
Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
End Sub
End Class
Re: Bestellsystem
just4fun - 30.10.2006, 22:43
FUCK THE DEVIL HOLY GANGSTER SHIT
geil wärs wenns das programm auch zu saugen gäb ;)
Re: Bestellsystem
inachor - 30.10.2006, 22:56
jaja kommt eh, aber ftp server is immer noch down, dann kommen auch noch andere vb programme von mir hoch stell einfach alles on was ich progge.
Re: Bestellsystem
inachor - 31.10.2006, 20:36
habe eigentlich alle befehle schon erklärt außer:
Kontrollkästchen = ChekBox, können mehrer Möglickeiten gewählt werden
RadioButton = RadioButton, es kann nur eine von mehreren Optioen gewählt werden
Gruppen = GroupBox ist ein Feld in dem mehrer Chek Bos oder RadioButton Elemente angeordnet werden können.
Listenfeld = ListBox, Eine Liste aus der eine Option gewählt werden kann
Dropdown Listenfeld = ComboBox ist eine List die sich ausfährt wenn man daruf klickt, um Platz zu sparen, es kann nur eine Option gewählkt werden
Um in eines der Beiden Möglichkeiten für Listenfelder Optionen hinzuzufügen muss man in den Quellcode des jeweiligen Objekts
ListBoxZahl.Items.Add("Wort")
Zahl.. Nummer des Listenfelds
Wort..die Option die hinzugefügt werden soll
der letzte unbekannte Rest = me. , ist nur eine Objektansprechung, wird weiter nur für Binäre Programmierungsoptioen und ASC II Programmieroptionen verwendet
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Advanced-Computer
Programme - gepostet von inachor am Sonntag 19.11.2006
Ähnliche Beiträge wie "Bestellsystem"