Programalama > VISUAL BASIC

VISUAL BASIC / Eleman Kayit

Bu Program Ile Istediginiz Elemanin Kaydini Yapabilirsiniz

Etiketler: eleman, kayit

Ort. 0

Puan ver:

hazirkod 27 June 19:34 0

0 kişiden 0 puan aldı

10228

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