şifre ile giriş uygulaması

bykzlu-x

Üye
9 Ocak 2008
190
5
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
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.