auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

Array Lagerverwaltung I

Array Programmierung Lagerverwaltung. Artikelnummern & -gruppen zuordnen, Lagerwerte addieren
Const armax = 99 Kleine Korrekturen siehe:
Private LagList(0 To armax) As TLager http://www.wbrnet.info/db/0074.html
Private pos As Integer
Private Type TLager
ArtNr As Integer
ArtGrp As String
ArtLWert As Double
End Type
Private Sub cmdSuchArtnr_Click() Nach Eingabe einer Artikelnummer ist die entsprechende
Dim wert As String, gef As Boolean, i As Integer Artikelgruppe und der Lagerwert in den zuständigen
If txtArtnr.Text <> "" Then Feldern auszugeben.
wert = Trim$(txtArtnr.Text)
i = 0
gef = False
While i <= armax And Not gef
If wert = Trim$(LagList(0).ArtNr) Then
pos = i
gef = True
End If
i = i + 1
Wend
If gef Then
Call anzeigen1
Else Fehlermeldung, wenn nichts gefunden wird.
lblMeldung.Caption = "Zu Art.-Nr. " & wert & " existiert kein Eintrag"
End If
Else
txtArtnr.SetFocus
End If
End Sub
Private Sub cmdSuchArtgrp_Click() Nach Eingabe einer Artikelgruppe sind alles Lagerwerte
Dim wert As String, gef As Boolean, i As Integer zu dieser Gruppe aufzuaddieren und im Label auszu-
If txtArtgrp.Text <> "" Then geben.
wert = Trim$(txtArtgrp.Text) Dabei ist das Feld für die Artikelnummer zu löschen (siehe
i = 0 Subroutine anzeigen2).
gef = False
While i <= armax And Not gef
If wert = Trim$(LagList(0).ArtGrp) Then
pos = i
gef = True
End If
i = i + 1
Wend
If gef Then
Call anzeigen2
Else Fehlermeldung, wenn nichts gefunden wird.
lblMeldung.Caption = "Zu Art-Gruppe.-Nr. " & wert & " existiert kein Lager"
End If
Else
txtArtgrp.SetFocus
End If
End Sub
Private Sub anzeigen1()
Dim i As Integer
For i = 0 To armax
If pos + i <= armax Then
txtArtgrp.Text = LagList(pos + i).ArtGrp
lblLgwert.Caption = LagList(pos + i).ArtLWert & " DM"
End If
Next i
End Sub
Private Sub anzeigen2()
Dim i As Integer, LagWert As Double
LagWert = 0
For i = 0 To armax
If pos + i <= armax Then
LagWert = LagWert + LagList(i).ArtLWert
End If
Next i
lblLgwert.Caption = Format$(LagWert, "###,##0.00") & " DM"
txtArtnr.Text = ""
End Sub
Private Sub Form_Load()
Me.Show
txtArtnr.SetFocus
Call TabLaden
Call TabAnzeigen
End Sub
Private Sub TabLaden()
Dim i As Long
For i = 0 To armax
Randomize
LagList(i).ArtGrp = Int((100 - 1) * Rnd + 1)
LagList(i).ArtLWert = Int((100 - 1) * Rnd + 1)
LagList(i).ArtNr = Int((100 - 1) * Rnd + 1) Z. B. Werte aus Excel laden.
Next i
End Sub
Private Sub TabAnzeigen()
Dim i As Integer
For i = 0 To 0
If pos + i <= armax Then
txtArtnr.Text = LagList(pos + i).ArtNr
txtArtgrp.Text = LagList(pos + i).ArtGrp
lblLgwert.Caption = Format(LagList(pos + i).ArtLWert, "###,##0.00") & " DM"
End If
Next i
End Sub
Private Sub cmdEnde_Click()
Unload Me
End Sub

Mehr Tipps: Slideshow im Bildfeld

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt