Yazılım Öğren

Visual Basic Ekle Formu

Visual Basic ile ekle formu yapımı ve kodları 

 

 

 

 

 

 

 

 

Public Sub cmdekletamam_Click()

Hastane.Data1.Recordset.AddNew

Hastane.Data1.Recordset(“Ad”) = txtad.Text

Hastane.Data1.Recordset(“Soyad”) = txtsoyad.Text

Hastane.son1 = Hastane.son1 + 1

Hastane.Data1.Recordset(“Hastakod”) = Hastane.son1

Hastane.Data2.Recordset.AddNew

Hastane.Data2.Recordset(“Hastakod”) = Hastane.son1

Hastane.Data2.Recordset(“protokolno”) = txtprot.Text

Hastane.Data2.Recordset(“tarih”) = txttarih.Text

Hastane.Data2.Recordset(“tani”) = txttani.Text

Hastane.Data1.Recordset.Update

Hastane.Data2.Recordset.Update

Hastane.Data1.Refresh

Hastane.Data2.Refresh

Hastane.goster

Hastane.sayi = 1

Hastane.Show

Ekle.Hide

End Sub

 

Private Sub cmdiptal_Click()

Hastane.Show

Ekle.Hide

End Sub

 

Private Sub Form_Load()

txtad.Text = “”

txtsoyad.Text = “”

txtprot.Text = “”

txttani.Text = “”

txttarih.Text = “”

End Sub