Eleman kayıt

Bu program ile istediğiniz elemanın kaydını yapabilirsiniz
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

koLay geLsin
eğe saygı Lütfen