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

Etiketler:
Beğeniler: 0
Favoriler: 0
İzlenmeler: 2306
favori
like
share
rockturk Tarih: 18.11.2010 18:56
Teşekkür
meltem_06 Tarih: 05.03.2009 21:12
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
gokhan_as Tarih: 10.03.2007 10:18
teşekkürler