KULLANILAN BUTONLAR
4ADET LABEL
4 ADET TEXT
4 ADET COMMAND
KODLAR:
'DEĞİŞKENLER
Private Type eleman
Elno As Integer
Ad As String
Soyad As String
Birim As String
End Type
Dim isci As eleman
'KAYDET BUTONU
Private Sub Command1_Click()
'aşağıda adres olarak geçen yeri değiştirin ama sonuna"\elkayit.dat" diye bir eklem yapın.
Open "adres \elkayit.dat" For Random As #1
'DAHA ÖNCE KAYIT ETTİ İSE ÇIKACAK HATA
If Text1.Text = isci.Elno Then
MsgBox "DAHA ÖNCE BÖYLE BİR NUMARA İLE KAYIT YAPTINIZ. LÜTFEN BAŞKA BİR KAYIT NUMARASI BELİRLEYİN"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
GoTo 100
End If
isci.Elno = Text1.Text
isci.Ad = Text2.Text
isci.Soyad = Text3.Text
isci.Birim = Text4.Text
Put #1, isci.Elno, isci
100:
Close #1:
Exit Sub
End Sub
'TEMİZLE BUTONU
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
'ARA BUTONU
Private Sub Command2_Click()
Open "adres \elkayit.dat" For Random As #1
ara = Val(InputBox("Aradığınız Ürün Numarasını Giriniz", "ARA"))
Get #1, ara, isci
If isci.Elno <> ara Then MsgBox " Böyle bir kayıt yapmadınız daha önce"
Text1.Text = isci.Elno
Text2.Text = isci.Ad
Text3.Text = isci.Soyad
Text4.Text = isci.Birim
Close #1
Exit Sub
End Sub
'ÇIKIŞ BUTONU
Private Sub Command4_Click()
MsgBox "ÇIKIŞ İŞLEMİNİZ BAŞARI İLE GERÇEKLEŞTİRİLDİ"
End
End Sub