1. Ana Sayfa
  2. Bilgisayar
  3. Personel Takip(VB)

Personel Takip(VB)

Son güncelleme: 18.11.2010 17:56
fiber_optic fiber_optic foto
  • Personele ait ad, soyad ve maas bilgileri kayıt ediliyor...
    Private Type nazim
    no As Integer
    ad As String * 30
    maas As Integer
    End Type
    Dim demir As nazim

    Private Sub Command1_Click()
    demir.ad = Form1.ad
    demir.maas = Form1.maas
    demir.no = Form1.no
    Put #1, demir.no, demir

    End Sub

    Private Sub Command2_Click()
    Get #1, Form1.no, demir
    Form1.maas = demir.maas
    Form1.ad = demir.ad
    End Sub

    Private Sub Command3_Click()
    Form1.no = ""
    Form1.maas = ""
    Form1.ad = ""
    End Sub

    Private Sub Command4_Click()
    Close
    Unload Me
    End Sub

    Private Sub Form_Load()
    Open "c:/personel_takip.dat" For Random As #1 Len = Len(demir)
    End Sub
#02.02.2007 08:09 0 0 0
gokhan_as gokhan_as foto
  • teşekkürler
#10.03.2007 09:18 0 0 0
meltem_06 meltem_06 foto
  • selam arkadsım kodları yazmışsın çok güsel fakat bunlar az değil mi bide açıklama yapabilirmisin su kodu bunun için kullandım falan filan gibi şeyler yazarak yapabilirmisin daha açıklayıcı olur
#05.03.2009 20:12 0 0 0
rockturk rockturk foto
  • Teşekkür
#18.11.2010 17:56 0 0 0