Personel takip
Private Type gokhan
no As Integer
ad As String * 30
maas As Integer
End Type
Dim aygun As gokhan
Private Sub Command1_Click()
aygun.ad = Form1.ad
aygun.maas = Form1.maas
aygun.no = Form1.no
Put #1, aygun.no, aygun
End Sub
Private Sub Command2_Click()
Get #1, Form1.no, aygun
Form1.maas = aygun.maas
Form1.ad = aygun.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(aygun)
End Sub
kolay gelsin....
|