dolunay-fm

eleman kayıt

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