AllBasic
Data Kontrol ile Veri Tabanı Uygulaması
Data Kontrol ile Veri Tabanı UygulamasıData Kontrol ile Veri Tabanı Uygulaması
Veri Tabanı : Pesonel.Mdb
Tablo Adı : Kisiler
Alan1 : Adi
Alan2 : Soyadi
Alan3 : SicilNo
Alan4 : Adres
(General)(Declaration)
Dim isaretli_kayit
Private Sub Form_Load()
Command5.Cancel = True ' Çıkış butonunun kodu ESC ile çalışır
Data1.DatabaseName = App.Path & "personel.mdb" ' Veri tabanı
Data1.RecordSource = "kisiler" ' Tablo
Set Text1(0).DataSource = Data1 ' ( Bütün TextBox'lar için yapılacak )
Text1(0).DataField = "Adi" ' TextBox'ların alan tanımlamaları
Text1(1).DataField = "Soyadi"
Text1(2).DataField = "SicilNo"
Text1(3).DataField = "Adres"
End Sub
Private Sub Command1_Click() ' Yeni Kayıt
If Command1.Caption = "&Yeni Kayıt" Then
Command1.Caption = "&Ekle"
Text1(0).SetFocus
Data1.Recordset.AddNew
Else
Data1.UpdateRecord
Data1.Recordset.MoveLast
Command1.Caption = "&Yeni Kayıt"
End If
End Sub
Private Sub Command2_Click() ' Değiştir
Data1.Recordset.Edit
Data1.UpdateRecord
End Sub
Private Sub Command3_Click() ' Kayıt silme
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End Sub
Private Sub Command4_Click() ' Arama
Ad = InputBox("Arana Kişinin Adını Giriniz :", "Ad İle Arama")
Aranan = "Adi = '" & Ad & "'"
Data1.Recordset.FindFirst Aranan
End Sub
Private Sub Command6_Click() ' Kayıt işaretle
If Command6.Caption = "&İşaretle" Then
isaretli_kayit = Data1.Recordset.Bookmark
Command6.Caption = "&İşaretli Kayda Git"
Else ' İşaretli kayda git
Data1.Recordset.Bookmark = isaretli_kayit
Command6.Caption = "&İşaretle"
End If
End Sub
Private Sub Data1_Reposition() ' Kayıt pozisyonunun değişimi
Data1.Caption = Data1.Recordset.AbsolutePosition + 1 & "/" & _
Data1.Recordset.RecordCount
End Sub
Private Sub Command5_Click() ' Çıkış
End
End Sub
