Başlangıç > Kodlar > Visual Basic 6 ile Veri tabanı formu

Visual Basic 6 ile Veri tabanı formu

Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Combo1.Text = "Gün"
Combo2.Text = "Ay"
Combo3.Text = "Yıl"
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Data1.Recordset.Edit
Data1.Recordset.Update
Text1 = Data1.Recordset.Fields("kullanici")
Text2 = Data1.Recordset.Fields("sifre")
Text3 = Data1.Recordset.Fields("sifretekrar")
Text4 = Data1.Recordset.Fields("ad")
Text5 = Data1.Recordset.Fields("soyad")
Combo1 = Data1.Recordset.Fields("dogum1")
Combo2 = Data1.Recordset.Fields("dogum2")
Combo3 = Data1.Recordset.Fields("dogum3")
Text6 = Data1.Recordset.Fields("adres")
Text7 = Data1.Recordset.Fields("ulke")
Text8 = Data1.Recordset.Fields("sehir")
End Sub

Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
For i = 1900 To 2004
Combo3.AddItem (i)
Next i
For i = 1 To 12
Combo2.AddItem (i)
Next i
For i = 1 To 31
Combo1.AddItem (i)
Next i
End Sub

Private Sub Label11_Click()
Form2.Show
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: