Új hozzászólás Aktív témák

• bandus veterán

  #1297

  #1296 bandus

  2010-11-11 01:38:31

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  bandus

  veterán

  #1296 bandus

  #1296 bandus

  én is tudom jól, hogy semmit, de sajna ez van. gépészkaron ennyi jut... bár jövő évtől nem lesz már vb6, csak c, de nekem ebben a félévben kell a diploma

  mod: mindjárt leírom a feladatot.

  szóval a fájlkezelést tanultuk és a feladat a következő lenne:
  egy ksi adatbázist kellene létrehozni egy rekord típusú fájlban. a fáljlban egy személyről 3 adatot kellene tárolni. ezen adatok eltárolásához létrehoztunk egy elrendezést. 3 textboxban a kívánt adatok vannak, a 4.ben kellene megjelennie annak, hogy hányadik rekordról van szó. a textboxok egyben szolgálnak az adatok bevitelére és egjelenítésére is.
  van 4 command button. egy előre és egy hátra funkciójú, ami a rekordok közötti navigációra szolgál. egy mentés nevű, ami a 3 textbox tartalmát beírja egy rekordba a fájlban, és egy töröl, ami az épp kiválasztott rekordot törli ki.
  remélem érthető...
  a kódból jelenleg ennyi van meg:

  Option Explicit
  Option Base 1
  Private Type hallgato
  nev As String * 30
  neptun As String * 6
  kp As Single
  End Type
  Dim h As hallgato
  Dim f As Integer
  Dim r As Integer
  Dim fnev As String
  Dim tmpfile As String

  Private Function darab() As Integer
  f = FreeFile
  Open fnev For Random Access Read As #f Len = Len(h)
  darab = LOF(f) / Len(h)
  Close #f

  End Function
  Public Sub kiirat(rekordsz As Integer)
  Dim db As Integer
  db = darab
  If db = 0 Then
  Label4.Caption = "No data"
  Call tiszta
  Else
  Label4.Caption = Str(rekordsz) + "/" + Str(db)
  f = FreeFile
  Open fnev For Random Access Read As #f Len = Len(h)
  Get #f, rekordsz, h
  textbox1.Text = h.nev
  textbox2.Text = h.neptun
  textbox3.Text = Str(h.kp)
  End If

  End Sub
  Public Sub tiszta()
  Text1.Text = "Maximum 30 karakter"
  Text2.Text = "NEPTUN"
  Text3.Text = "Kp"

  End Sub

  remélem tud valaki segíteni

Új hozzászólás Aktív témák