Visual Basic Dönem Ödevim Bakarmısınız.

N

netkolik

New member
Katılım
16 Ocak 2006
Mesajlar
17
Reaction score
0
Puanları
0
Bir şirketteki personeller ile ilgili çeşitli bilgilerin tutulduğu bir çeşit veri tabanıdır. Veri tabanında ne tür bilgilerin tutulacağı aşağıdaki şekilde gösterilmiştir. Uygulama dosyalarını rastgele olarak oluşturunuz. Personellerin şirket kimlik numarasını, kayıt numarası olarak belirleyebilirsiniz.




Uygulamada yeni personel kaydı veya personel kaydının silinmesi gibi işlemler Kayıt menüsünden yürütülecektir. Formun sağ alt köşesindeki Önceki ve Sonraki butonları dosyadaki veriler arasında kolayca gezinilmesini sağlayacaktır.
Bunun dışında işlemler kısmındaki Alanları Temizle butonu metin kutularının içeriğini silmek için kullanılır. Kayıt Bul butonu ise kimlik numarası verilen personele ait bilgileri formdaki metin kutularına yardırmak için kullanılacaktır.



arkadaslar dersi gecmem Buna Bağlı Birisi Yardımcı Olursa Sevineceğim.
Simdiden Tsk Ederim..
 
sadece kodlari lazim arkadaslar ben resimdeki sekli yaptim codelerini nasiL yazacaz.
 
kardeşş benim vısual besic ten dönem ödevimm var ve acilen hocaya üç tane ödev teklifii götürmem lazımm yardımcı olursanız sevinirim şimdiden tşkr
 
kardeş valla aynı dert bendede var banada sole guzel bı proje FİKRİ lazım aklına güzel bıse gelen varsa yazarsa sevınırım
 
netkolik' Alıntı:
Bir şirketteki personeller ile ilgili çeşitli bilgilerin tutulduğu bir çeşit veri tabanıdır. Veri tabanında ne tür bilgilerin tutulacağı aşağıdaki şekilde gösterilmiştir. Uygulama dosyalarını rastgele olarak oluşturunuz. Personellerin şirket kimlik numarasını, kayıt numarası olarak belirleyebilirsiniz.




Uygulamada yeni personel kaydı veya personel kaydının silinmesi gibi işlemler Kayıt menüsünden yürütülecektir. Formun sağ alt köşesindeki Önceki ve Sonraki butonları dosyadaki veriler arasında kolayca gezinilmesini sağlayacaktır.
Bunun dışında işlemler kısmındaki Alanları Temizle butonu metin kutularının içeriğini silmek için kullanılır. Kayıt Bul butonu ise kimlik numarası verilen personele ait bilgileri formdaki metin kutularına yardırmak için kullanılacaktır.



arkadaslar dersi gecmem Buna Bağlı Birisi Yardımcı Olursa Sevineceğim.
Simdiden Tsk Ederim..
Genişletmek için tıkla ...




Slm arkadaşım

ileri

If Adodc1.Recordset.EOF - 1 Then
MsgBox "Kayittasınız Zaten", vbApplicationModal, "kayıt gezgini"
Else
Adodc1.Recordset.MoveNext
End If



geri


If Adodc1.Recordset.BOF + 1 Then
MsgBox "İlk Kayittasınız Zaten", vbApplicationModal, "kayıt gezgini"
Else
Adodc1.Recordset.MovePrevious
End If

temizle

text1.text="" gibi tüm textler için yap


silme

cvp = MsgBox("Bu Kaydı Silmek İstediğinizden Emin Misiniz?", vbYesNo, "DİKKAT")
If cvp = 6 Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveFirst
MsgBox "Kaydınız Başarıyla Silindi", vbDefaultButton1, Title & "Kayıt İşlemi"
End If


yeni kayıt ekleme

Adodc1.Recordset.AddNew
Text1.SetFocus


kaydet

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4(0).Text = "" Then
MsgBox "lütfen boş yer bırakmayın", vbCritical, Title & "Hata"

Else
Adodc1.Recordset.Update
Adodc1.Recordset.MoveFirst
Form2.Refresh

MsgBox "Kaydınız Başarıyla Tamamlandı", vbDefaultButton1, Title & "Kayıt İşlemi"
End If
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst