Private Sub Combo1_Click()
Open "C:\OZEL.TXT" For Input As #1
K = 0
Do While Not EOF(1)
Input #1, A, B, C, D
If Combo1.ListIndex = K Then
Text1 = A: Text2 = B: Text3 = C: Text4 = D
End If
K = K + 1
Loop
Close #1
End Sub
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Then
MsgBox ("Ad ve Soyad alanlarının doldurulması zorunludur")
Exit Sub
End If
Text1 = UCase(Text1): Text2 = UCase(Text2): Text3 = UCase(Text3): Text4 = UCase(Text4)
Open "C:\OZEL.TXT" For Append As #1
Write #1, Text1, Text2, Text3, Text4
Close #1
MsgBox ("Kaydınız Başarıyla Tamamlandı"), vbInformation
Temizle
Text1.SetFocus
End Sub
Private Sub Command2_Click()
ARA = UCase(InputBox("Aranan Kişinin Adını Giriniz"))
Open "C:\OZEL.TXT" For Input As #1
Do While Not EOF(1)
Input #1, A, B, C, D
If ARA = A Then
Text1 = A: Text2 = B: Text3 = C: Text4 = D
C = MsgBox("Aradığınız Kayıt Bu mu?", vbYesNo + vbQuestion)
If C = 6 Then GoTo Devam
End If
Loop
MsgBox ("Belirtilen Özellikte Kayıt Bulunamadı!")
Devam:
Close #1
End Sub
Private Sub Command3_Click()
ARA = UCase(InputBox("Silmek İstediğiniz Kişinin İsmini Giriniz"))
Open "C:\OZEL.TXT" For Input As #1
Open "C:\YEDEK.TXT" For Append As #2
Do While Not EOF(1)
Input #1, A, B, C, D
If ARA = A Then
Text1 = A: Text2 = B: Text3 = C: Text4 = D
C = MsgBox("Kaydı Silmek İstediğinizden Emin misiniz?", vbYesNo)
If C = 6 Then MsgBox ("Kayıt Silindi"): Temizle: GoTo Devam
End If
Write #2, A, B, C, D
Devam:
Loop
MsgBox ("Belirtilen Şartta Silinecek Kayıt Bulunamadı")
Close #1
Close #2
Kill "C:\OZEL.TXT"
Name "C:\YEDEK.TXT" As "C:\OZEL.TXT"
Temizle
Text1.SetFocus
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Command5_Click()
Shell "C:\windows\notepad.exe"
End Sub
Private Sub Form_Load()
Temizle
Combo1.Clear
Open "C:\OZEL.TXT" For Input As #1
Do While Not EOF(1)
Input #1, A, B, C, D
Combo1.AddItem A
Loop
Close #1
End Sub
Public Sub Temizle()
Text1 = "": Text2 = "": Text3 = "": Text4 = ""
End Sub