Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » Veri tabanı olmadan personel takibi yapıyoruz.
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

FTP NEDİR?

Yazar: llluminati
FTP HAKKINDA GENEL BİLGİ VE KULLANIŞI


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 7559
Yayın Tar:24.08.2006
Yazar : eoxypower
Hit :2233

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Formumuza:
command1=İlk kayıt
command2=Önceki kayıt
command3=Sonraki kayıt
command4=Sonkayıt
command5=Yeni kayıt
command6=Kaydet
label1=adı
label2=soyadı
label3=maaşı ve karşılarına 3 adet Text kutusu koyalım.
-------------------------------------
'General Declerations kısmına:
Private Type personel
ad As String * 10
soyad As String * 15
maaş As Currency
End Type
Dim per As personel
Dim sonkayit As Integer, kayitno As Integer
'yazıp devam ediyoruz...

Private Sub Command1_Click()
kayitno = 1
oku kayitno
End Sub

Private Sub Command2_Click()
If kayitno > 1 Then
kayitno = kayitno - 1
oku kayitno
End Sub

Private Sub Command3_Click()
If kayitno < sonkayit Then
kayitno = kayitno + 1
oku kayitno
End Sub

Private Sub Command4_Click()
kayitno = sonkayit
oku kayitno
End Sub

Private Sub Command5_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
End Sub

Private Sub Command6_Click()
sonkayit = sonkayit + 1
kayitno = sonkayit
yaz kayitno
End Sub

Private Sub Form_Load()
kayitno = 1
oku kayitno
End Sub

'Oku isminde bir alt program tanımlıyoruz.
Private Sub oku(kayno As Integer)
dno = FreeFile
Open "c:/personel.dat" For Random As dno Len = Len(per)
sonkayit = LOF(dno) / Len(per)
Get dno, kayno, per
Text1.Text = per.ad
Text2.Text = per.soyad
Text3.Text = per.maaş
Close dno
Caption = sonkayit & " / " & kayitno
End Sub

'Yaz isminde bir alt program tanımlıyoruz.
Private Sub yaz(kayno As Integer)
dno = FreeFile
Open "c:/personel.dat" For Random As dno Len = Len(per)
Put dno, kayno, per
per.ad = Text1.Text
per.soyad = Text2.Text
per.maaş = Text3.Text
Close dno
Caption = sonkayit & " / " & kayitno
End Sub
onaylayan: Webmaster




Yorumlar, eklemeler ve düşünceler
        gwbasic li günleri hatırladım iyi iyi

   neccoss, 25.08.2006 16:40
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin