Programalama > VISUAL BASIC

Etiketler: eleman, kayit

Ort. 0
Puan ver:
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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.