1. Ana Sayfa
  2. Bilgisayar
  3. Kayıt İşlemi(VB)

Kayıt İşlemi(VB)

Son güncelleme: 15.11.2008 22:41
fiber_optic fiber_optic foto
  • Form üzerinde girdiğiniz bilgileri yönlendirdiğiniz dosyanın içine kaydeder
    NOT: Döküman üzerine 4 Label 4 Textbox 4 Tanede Commandbutton ekleyin İSİMLERİNİDE SU SEKİLDE VERİN;

    TEXT1=OKULNO
    TEXT2=ADSOY
    TEXT3=SINIF
    TEXT4=BOLUM
    COMMAND1=KAYDET
    COMMAND2=BUL
    COMMAND3=TEMIZLE

    Daha sonra kod kısmına bu kodları yerleştirin textboxlara gerekenleri yazın kaydete bastığınızda C nin içinde bir dosya açıcak ve öğrencinin okul nosuna göre kaydetme işlemini yapacaktır... Kolay gelsin....

    Private Type ogrencitip
    isimsoyisim As String * 20
    OKULNO As Integer
    SINIF As String * 5
    BOLUM As String * 20
    End Type
    Dim OGRENCi As ogrencitip

    Private Sub BUL_Click()
    If OKULNO.Text = "" Then
    MsgBox "böyle bir kayit yok"
    GoTo son
    End If
    Open "h:bilgi.txt" For Random As #1
    Get #1, Val(OKULNO.Text), OGRENCi
    OKULNO.Text = OGRENCi.OKULNO
    ADSOY.Text = OGRENCi.isimsoyisim
    SINIF.Text = OGRENCi.SINIF
    BOLUM.Text = OGRENCi.BOLUM
    Close #1
    son:
    End Sub

    Private Sub KAYDET_Click()
    OGRENCi.isimsoyisim = ADSOY.Text
    OGRENCi.OKULNO = Val(OKULNO.Text)
    OGRENCi.SINIF = SINIF.Text
    OGRENCi.BOLUM = BOLUM.Text
    Open "h:/bilgi.txt" For Random As #1
    Put #1, OGRENCi.OKULNO, OGRENCi
    Close #1
    End Sub

    Private Sub TEMIZLE_Click()
    OKULNO.Text = ""
    ADSOY.Text = ""
    SINIF.Text = ""
    BOLUM.Text = ""
    End Sub
#02.02.2007 08:11 0 0 0
dcanaslan dcanaslan foto
  • TEŞEKKÜRLER
#15.11.2008 22:41 0 0 0