Programalama > VISUAL BASIC

/////////////  Giriş Formu/////////////////////////////////////////////////

Private Sub cikis_Click()
Close #1
giris.Hide
anaform.Show
End Sub

Private Sub Form_Load()
Open "kayit.dat" For Random As #1 Len = Len(alanlar)
KayitNo = LOF(1) / Len(alanlar)
KayitNo = KayitNo + 1
End Sub

Private Sub Kaydet_Click()
alanlar.ad = giris.ad
alanlar.Soyad = giris.Soyad
alanlar.Adres = giris.Adres
alanlar.Tel = giris.Tel
alanlar.Sehir = giris.Sehir
cevap = MsgBox("Bukaydı Dosyaya yazalımmı?..", 4)
If cevap = 6 Then
Put #1, KayitNo, alanlar
KayitNo = KayitNo + 1
giris.ad = ""
giris.Soyad = ""
giris.Adres = ""
giris.Tel = ""
giris.Sehir = ""
giris.ad.SetFocus
End If
End Sub

Private Sub Vazgec_Click()
cevap = MsgBox("Girilecek Başka Kayıt Varmı?..", 4)
If cevap = 6 Then
giris.ad = ""
giris.Soyad = ""
giris.Adres = ""
giris.Tel = ""
giris.Sehir = ""
giris.ad.SetFocus
Else
End
End If
End Sub

// SİLME KODU ///

Private Sub cikis_Click()
Close #1
sil.Hide
anaform.Show
End Sub

Private Sub Form_Load()

Open "akif.dat" For Random As #1 Len = Len(alanlar)
KayitNo = LOF(1) / Len(alanlar)
End Sub


Private Sub KayitNo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Get #1, KayitNo, alanlar
sil.ad = alanlar.ad
sil.Soyad = alanlar.Soyad
sil.Adres = alanlar.Adres
sil.Tel = alanlar.Tel
sil.Sehir = alanlar.Sehir
End If
End Sub

Private Sub Silme_Click()
kayitsayi = LOF(1) / Len(alanlar)
For i = KayitNo To kayitsayi - 1
Get #1, i + 1, alanlar
    Put #1, i, alanlar
Next i
Open "akif.tmp" For Random As #2 Len = Len(alanlar)
For i = 1 To kayitsayi - 1
Get #1, i, alanlar
    Put #2, i, alanlar
Next i
Close
FileCopy "kayit.tmp", "kayit.dat"
Kill "kayit.tmp"
devam = MsgBox("Silinecek başka kayıt varmı?", 4)
If devam = 6 Then
sil.KayitNo = ""
sil.ad = ""
sil.Soyad = ""
sil.Adres = ""
sil.Tel = ""
sil.Sehir = ""
sil.KayitNo.SetFocus
Else
    End
End If
End Sub

 ////////// DÜZELTME ////////

Private Sub Form_Load()
Open "kayit.dat" For Random As #1 Len = Len(alanlar)
KayitNo = LOF(1) / Len(alanlar)
End Sub

Private Sub Kaydet_Click()
If duzeltme.ad <> alanlar.ad Or duzeltme.Soyad <> alanlar.Soyad Then
secim = MsgBox("Kaydın yeni Hali Dosyaya yazılsın mı?", 4)
If secim = 6 Then
alanlar.ad = duzeltme.ad
alanlar.Soyad = duzeltme.Soyad
alanlar.Adres = duzeltme.Adres
alanlar.Tel = duzeltme.Tel
alanlar.Sehir = duzeltme.Sehir
Put #1, KayitNo, alanlar
duzeltme.ad = ""
duzeltme.Soyad = ""
duzeltme.Adres = ""
duzeltme.Tel = ""
duzeltme.Sehir = ""
ad.SetFocus
End If
End If

///////// ÇIKIŞ /////////////


Private Sub Form_Load()
Open "kayit.dat" For Random As #1 Len = Len(alanlar)
KayitNo = LOF(1) / Len(alanlar)
End Sub

Private Sub KayitNo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Get #1, KayitNo, alanlar
okuma.ad = alanlar.ad
okuma.Soyad = alanlar.Soyad
okuma.Adres = alanlar.Adres
okuma.Tel = alanlar.Tel
okuma.Sehir = alanlar.Sehir
End If
End Sub

End Sub

Private Sub KayitNo_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Get #1, KayitNo, alanlar
duzeltme.ad = alanlar.ad
duzeltme.Soyad = alanlar.Soyad
duzeltme.Adres = alanlar.Adres
duzeltme.Tel = alanlar.Tel
duzeltme.Sehir = alanlar.Sehir
End If
End Sub

Private Sub KayitNo_LostFocus()
If Trim(KayitNo.Text) <> "" And Val(KayitNo.Text) <= LOF(1) / Len(alanlar) Then
Get #1, KayitNo, alanlar
duzeltme.ad = alanlar.ad
duzeltme.Soyad = alanlar.Soyad
duzeltme.Adres = alanlar.Adres
duzeltme.Tel = alanlar.Tel
duzeltme.Sehir = alanlar.Sehir
Else
duzeltme.KayitNo.SetFocus
End If
End Sub



hacker
hackerman