VB: versch. fragen zu, rechnen, verwaltung von artikel, druck(vorschau)

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

30.03.2003 - 13:14

as in the topic said.

how to?

tia

Bearbeitet von Flip am 31.03.2003, 11:09

atrox

in fairy dust... I trust!

Registered: Sep 2002
Location: HTTP/1.1 404
Posts: 2782

30.03.2003 - 13:15

was für eine datei-struktur ?

(die antwortet lautet vermutlich "logisches löschen")

Bearbeitet von atrox am 30.03.2003, 13:21

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

30.03.2003 - 13:33

random-datei

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

31.03.2003 - 10:09

weiss das denn keiner?

watchout

Legend
undead

Registered: Nov 2000
Location: Off the grid.
Posts: 6845

31.03.2003 - 10:25

Zitat von Flip
weiss das denn keiner?

drück dich mal besser aus, random-datei is wohl irgendwie sehr allgemein... :rolleyes:

es geht darum welche dateistruktur du hast, wie dein file von der syntax aufgebaut is

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

31.03.2003 - 10:32

variablen für die artikel:

Code:

Type artikelstamm
    artnr As String * 6
    name As String * 20
    preis As String * 6
End Type

gespeichert wird in das file so:

Code:

    artikel.artnr = txtArtNr.Text
    artikel.name = txtArtName.Text
    artikel.preis = txtArtPreis.Text
'---------------------------------------------------------
    Open "Artikel.dat" For Random As #1 Len = Len(artikel)
        snr = LOF(1) \ Len(artikel)
            Put #1, snr + 1, artikel
                MsgBox ("Artikel erfolgreich gespeichert")
    Close #1
    
    txtArtNr.Text = ""
    txtArtName.Text = ""
    txtArtPreis.Text = ""
    
    txtArtName.SetFocus
    
    Call Form_Load

ich will jetzt aber auch artikel wieder rauslöschen können.
heisst ich will den artikel mit der bestimmten artnr. rauslöschen...

JC

Administrator
Disruptor

Registered: Feb 2001
Location: Katratzi
Posts: 9067

31.03.2003 - 10:35

Zitat
The answer to the problem is to Open For Random a temp file of the same record length, Get the good records from your good file consecutively, Put them in the temp file consecutively, Close both files, Kill the good file, and finally Name tempfile as goodfile. (A new file has to be created.) Here is an example:

Check this out

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

31.03.2003 - 10:39

thx JC

so hab dann aba noch a problem ich rechen den preis aus
da speicher ich den artikel + einzpreis + zwpreis + menge in a file

Code:

    rechnung.artnr = txtArtNr.Text
    rechnung.artname = txtArtName.Text
    rechnung.epreis = txtArtPreis.Text
    rechnung.menge = txtMenge.Text
    rechnung.zwpreis = Val(txtArtPreis.Text * txtMenge.Text)
    rechnung.posnr = txtPosNr.Text
'--------------------------------------------------
    Open "Rechnung.dat" For Random As #1 Len = Len(rechnung)
        snr = LOF(1) \ Len(rechnung)
            Put #1, snr + 1, rechnung
    Close #1

    txtArtNr.Text = ""
    txtArtName.Text = ""
    txtArtPreis.Text = ""
    txtMenge.Text = ""
    
    Call Form_Load

gleichzeitig rechne ich aus den einzpreis mal die menge hab ich den zwpreis für den artikel

und dieser zwischenpreis wird ohne kommastellen abgespeichert. wie moch i des das er die mit normalen kommastellen abspeichert?
hab schon bei den artikel den preis mit , und . getrennt ka unterschied..

variablen für die rechnung:

Code:

Type rechnungsstamm
    artnr As String * 6
    posnr As String * 2
    artname As String * 20
    menge As String * 2
    epreis As String * 6
    zwpreis As String * 6
    gespreis As Integer
End Type

JC

Administrator
Disruptor

Registered: Feb 2001
Location: Katratzi
Posts: 9067

31.03.2003 - 10:50

Die Val-Function schneidet die Nachkommawerte ab, iirc. Benutz' stattdessen CStr()

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

31.03.2003 - 11:05

JC das mit dem CStr() funzt wunder bar danke

a frage noch unser lehrer will für die rechnung eine druckvorschau

in der msdn hilfe find ich nur druckvorschau unter c++ aba nix für vb!

weiss da wer was genaueres?

watchout

Legend
undead

Registered: Nov 2000
Location: Off the grid.
Posts: 6845

31.03.2003 - 11:11

-del-

JC

Administrator
Disruptor

Registered: Feb 2001
Location: Katratzi
Posts: 9067

31.03.2003 - 11:20

Wenn du ActiveX-Controls adden kannst, benutz' Google um dir eines der vielen Controls runterzuladen und einzubinden. Ad hoc fällt mir momentan nichts einfaches ein, auch hier ist Google eine gute Anlaufstelle.

Flip

1 x 4 Ringe

Registered: Jan 2002
Location: .
Posts: 3398

31.03.2003 - 19:26

wah ich find nix gscheides für die druckervorschau könnts ma es helfen?

Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	30.03.2003 - 13:14 as in the topic said. how to? tia Bearbeitet von Flip am 31.03.2003, 11:09
atrox in fairy dust... I trust! Registered: Sep 2002 Location: HTTP/1.1 404 Posts: 2782	30.03.2003 - 13:15 was für eine datei-struktur ? (die antwortet lautet vermutlich "logisches löschen") Bearbeitet von atrox am 30.03.2003, 13:21
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	30.03.2003 - 13:33 random-datei
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	31.03.2003 - 10:09 weiss das denn keiner?
watchout Legend undead Registered: Nov 2000 Location: Off the grid. Posts: 6845	31.03.2003 - 10:25 Zitat von Flip weiss das denn keiner? drück dich mal besser aus, random-datei is wohl irgendwie sehr allgemein... es geht darum welche dateistruktur du hast, wie dein file von der syntax aufgebaut is
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	31.03.2003 - 10:32 variablen für die artikel: Code: `Type artikelstamm artnr As String * 6 name As String * 20 preis As String * 6 End Type` gespeichert wird in das file so: Code: `artikel.artnr = txtArtNr.Text artikel.name = txtArtName.Text artikel.preis = txtArtPreis.Text '--------------------------------------------------------- Open "Artikel.dat" For Random As #1 Len = Len(artikel) snr = LOF(1) \ Len(artikel) Put #1, snr + 1, artikel MsgBox ("Artikel erfolgreich gespeichert") Close #1 txtArtNr.Text = "" txtArtName.Text = "" txtArtPreis.Text = "" txtArtName.SetFocus Call Form_Load` ich will jetzt aber auch artikel wieder rauslöschen können. heisst ich will den artikel mit der bestimmten artnr. rauslöschen...
JC Administrator Disruptor Registered: Feb 2001 Location: Katratzi Posts: 9067	31.03.2003 - 10:35 Zitat The answer to the problem is to Open For Random a temp file of the same record length, Get the good records from your good file consecutively, Put them in the temp file consecutively, Close both files, Kill the good file, and finally Name tempfile as goodfile. (A new file has to be created.) Here is an example: Check this out
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	31.03.2003 - 10:39 thx JC so hab dann aba noch a problem ich rechen den preis aus da speicher ich den artikel + einzpreis + zwpreis + menge in a file Code: `rechnung.artnr = txtArtNr.Text rechnung.artname = txtArtName.Text rechnung.epreis = txtArtPreis.Text rechnung.menge = txtMenge.Text rechnung.zwpreis = Val(txtArtPreis.Text * txtMenge.Text) rechnung.posnr = txtPosNr.Text '-------------------------------------------------- Open "Rechnung.dat" For Random As #1 Len = Len(rechnung) snr = LOF(1) \ Len(rechnung) Put #1, snr + 1, rechnung Close #1 txtArtNr.Text = "" txtArtName.Text = "" txtArtPreis.Text = "" txtMenge.Text = "" Call Form_Load` gleichzeitig rechne ich aus den einzpreis mal die menge hab ich den zwpreis für den artikel und dieser zwischenpreis wird ohne kommastellen abgespeichert. wie moch i des das er die mit normalen kommastellen abspeichert? hab schon bei den artikel den preis mit , und . getrennt ka unterschied.. variablen für die rechnung: Code: `Type rechnungsstamm artnr As String * 6 posnr As String * 2 artname As String * 20 menge As String * 2 epreis As String * 6 zwpreis As String * 6 gespreis As Integer End Type`
JC Administrator Disruptor Registered: Feb 2001 Location: Katratzi Posts: 9067	31.03.2003 - 10:50 Die Val-Function schneidet die Nachkommawerte ab, iirc. Benutz' stattdessen CStr()
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	31.03.2003 - 11:05 JC das mit dem CStr() funzt wunder bar danke a frage noch unser lehrer will für die rechnung eine druckvorschau in der msdn hilfe find ich nur druckvorschau unter c++ aba nix für vb! weiss da wer was genaueres?
watchout Legend undead Registered: Nov 2000 Location: Off the grid. Posts: 6845	31.03.2003 - 11:11 -del-
JC Administrator Disruptor Registered: Feb 2001 Location: Katratzi Posts: 9067	31.03.2003 - 11:20 Wenn du ActiveX-Controls adden kannst, benutz' Google um dir eines der vielen Controls runterzuladen und einzubinden. Ad hoc fällt mir momentan nichts einfaches ein, auch hier ist Google eine gute Anlaufstelle.
Flip 1 x 4 Ringe Registered: Jan 2002 Location: . Posts: 3398	31.03.2003 - 19:26 wah ich find nix gscheides für die druckervorschau könnts ma es helfen?

VB: versch. fragen zu, rechnen, verwaltung von artikel, druck(vorschau)

Forum Index > Software > Coding Stuff

Flip

atrox

Flip

Flip

watchout

Flip

JC

Flip

JC

Flip

watchout

JC

Flip