Picture1.Cls
Call opendb
zaehler = 0
MM = top_size
 
x_seitenzahl = 0
x_personen = 0
x_name = 0
Dim bundesland As Recordset
Dim huetten As Recordset
Dim personen_anzahl As Recordset
Dim gesammt_huetten As Recordset
Set gesammt_huetten = db.OpenRecordset("select * from huetten")
 
Set bundesland = db.OpenRecordset("select distinct(mid(huettencode,4,3)) as" & _
  "b_land from huetten")
If bundesland.RecordCount <> 0 Then
    Label1.Visible = True
    Picture1.Visible = False
    DoEvents
    While bundesland.EOF = False
        Set huetten = db.OpenRecordset("select  * from huetten where mid(" & _
          "huettencode,4,3)='" & bundesland.Fields("b_land") & "'")
        If huetten.RecordCount <> 0 Then
            Set personen_anzahl = db.OpenRecordset("select distinct(personen)" & _
              "from huetten_preis_zeit where huettencode='" & huetten.Fields( _
              "huettencode") & "'")
            Picture1.ScaleMode = 6
            Call get_max_size_name(gesammt_huetten) 'Maximale breite für das 
            ' erste tabellenfeld
                    Picture1.CurrentY = y_tag
                    Picture1.CurrentX = 10
                    Picture1.Print "Hüttencode/Ort"
 
            While huetten.EOF = False
                Picture1.CurrentX = 10
                Picture1.CurrentY = MM
                Picture1.Print huetten.Fields("huettencode") & "/" & _
                  huetten.Fields("huettenort")
 
                X = personen_show(personen_anzahl)
                If x_personen < X Then
                    x_personen = X
                End If
                X = seite_show(huetten.Fields("seitenzahl")) 
                If x_seitenzahl < X Then
                    x_seitenzahl = X
                End If
                Call austattung(huetten.Fields("fischteich"), huetten.Fields( _
                  "sauna"), huetten.Fields("skigebiet"), huetten.Fields( _
                  "topangebot")) 'Felder falls nötig makieren es sind immer 4 
                ' Felder immer hintereinander
                Call max_tage(7, huetten.Fields("huettencode")) 'Es wird eine 
                ' Art Kalender ausgegeben
                monate (11) 'monats überschriften werden erzeugt
                x_width = tage_x_length(12) + 1
                Picture1.Width = Picture1.ScaleX(x_width + 10, vbMillimeters, _
                  vbTwips)
                Picture1.Line (9, MM + 4)-(x_width, MM + 4)
                Picture1.Line (9, top_size - 1)-(x_width, top_size - 1)
                MM = MM + 5
                huetten.MoveNext
            Wend
        End If
        bundesland.MoveNext
    Wend
 
 
        Picture1.Line (x_name, top_size - 1)-(x_name, MM - 1)
        Picture1.Line (x_personen, top_size - 1)-(x_personen, MM - 1)
        Picture1.Line (x_seitenzahl, top_size - 1)-(x_seitenzahl, MM - 1)
        Picture1.Line (9, top_size - 1)-(9, MM - 1)
        Call legende
        Picture1.Refresh
 
        Picture1.Visible = True
        Label1.Visible = False
        Call Form_Resize
 
End If

MfG Sascha

Video Disk Rekorder marke eigenbau

http://www.vdrportal.de